REPL Output
;;; ASDF-INSTALL: Downloading 63415 bytes from http://common-lisp.net/project/mel-base/release/mel-base_0.6-0.tar.gz to /Users/gwking/temporary/asdf-test/MEL-BASE.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/MEL-BASE.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
mel-base_0.6-0/
mel-base_0.6-0/base64-stream.lisp
mel-base_0.6-0/compose-message.lisp
mel-base_0.6-0/docs/
mel-base_0.6-0/docs/manual/
mel-base_0.6-0/docs/manual/introduction.texinfo
mel-base_0.6-0/docs/manual/makeclean.sh
mel-base_0.6-0/docs/manual/mel.texinfo
mel-base_0.6-0/docs/manual/reference.texinfo
mel-base_0.6-0/docs/manual/userguide.texinfo
mel-base_0.6-0/encapsulating-stream.lisp
mel-base_0.6-0/examples.lisp
mel-base_0.6-0/folders/
mel-base_0.6-0/folders/imap/
mel-base_0.6-0/folders/imap/folder.lisp
mel-base_0.6-0/folders/maildir/
mel-base_0.6-0/folders/maildir/folder.lisp
mel-base_0.6-0/folders/pop3/
mel-base_0.6-0/folders/pop3/folder.lisp
mel-base_0.6-0/folders/smtp/
mel-base_0.6-0/folders/smtp/folder.lisp
mel-base_0.6-0/hmac-md5.lisp
mel-base_0.6-0/LICENSE
mel-base_0.6-0/line-terminator-filter.lisp
mel-base_0.6-0/lisp-dep/
mel-base_0.6-0/lisp-dep/environment.lisp
mel-base_0.6-0/lisp-dep/files.lisp
mel-base_0.6-0/lisp-dep/filesystem.lisp
mel-base_0.6-0/lisp-dep/network.lisp
mel-base_0.6-0/lisp-dep/packages.lisp
mel-base_0.6-0/lisp-dep/unix.lisp
mel-base_0.6-0/lisp-dep/utils.lisp
mel-base_0.6-0/md5.lisp
mel-base_0.6-0/mel-base.asd
mel-base_0.6-0/mime.lisp
mel-base_0.6-0/multiparts.lisp
mel-base_0.6-0/package-tools.lisp
mel-base_0.6-0/packages.lisp
mel-base_0.6-0/protocols/
mel-base_0.6-0/protocols/folder-metainfo.lisp
mel-base_0.6-0/protocols/folder-protocol.lisp
mel-base_0.6-0/protocols/message-cache.lisp
mel-base_0.6-0/protocols/message-metainfo.lisp
mel-base_0.6-0/protocols/message-transport.lisp
mel-base_0.6-0/protocols/receiver-protocol.lisp
mel-base_0.6-0/protocols/sender-protocol.lisp
mel-base_0.6-0/quoted-printable-stream.lisp
mel-base_0.6-0/rfc2822.lisp
mel-base_0.6-0/smeta.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/lisp-dep/packages.lisp" (written 03 MAR 2005 06:06:34 AM):
; compiling (DEFPACKAGE :MEL.GRAY-STREAM ...)
; compiling (DEFPACKAGE :MEL.UTILS ...)
; compiling (DEFPACKAGE MEL.UNIX ...)
; compiling (DEFPACKAGE :MEL.NETWORK ...)
; compiling (DEFPACKAGE :MEL.ENVIRONMENT ...)
; compiling (DEFPACKAGE :MEL.FILESYSTEM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/lisp-dep/packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/lisp-dep/files.lisp" (written 03 MAR 2005 06:19:02 AM):
; compiling (DEFPACKAGE :ORG.CODEARTIST.FILES ...)
; compiling (IN-PACKAGE :ORG.CODEARTIST.FILES)
; compiling (DEFCONSTANT +EBADF+ ...)
; compiling (DEFCONSTANT +EACCES+ ...)
; compiling (DEFCONSTANT +EMFILE+ ...)
; compiling (DEFCONSTANT +ENFILE+ ...)
; compiling (DEFCONSTANT +ENOENT+ ...)
; compiling (DEFCONSTANT +ENOMEM+ ...)
; compiling (DEFCONSTANT +ENOTDIR+ ...)
; compiling (DEFUN LIST-FILES ...)
; compiling (DEFUN LIST-DIRECTORIES ...)
; compiling (DEFUN MAP-FILES ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/lisp-dep/files.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/lisp-dep/filesystem.lisp" (written 03 MAR 2005 06:06:34 AM):
; compiling (IN-PACKAGE :MEL.FILESYSTEM)
; compiling (DEFUN MAP-DIRECTORY ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/lisp-dep/filesystem.lisp
; in: DEFUN MAP-DIRECTORY
; (SB-POSIX:DIRENT-NAME MEL.FILESYSTEM::DIRENT)
; --> BLOCK SB-GROVEL::C-STRING->LISP-STRING SLOT SLOT
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
; (SIGNED
; 8)
; 256)>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (SB-POSIX:OPENDIR DIRECTORY)
; --> BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; T)>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (SB-POSIX:READDIR MEL.FILESYSTEM::DIR)
; --> BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; SB-POSIX::DIRENT
; (SB-POSIX::PADDING8
; #)
; (SB-POSIX::NAME
; #)
; (SB-POSIX::PADDING9
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (SB-POSIX:DIRENT-NAME MEL.FILESYSTEM::DIRENT)
; --> BLOCK SB-GROVEL::C-STRING->LISP-STRING SLOT SLOT
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
; (SIGNED
; 8)
; 256)>)
;
; note: doing SAP to pointer coercion (cost 20)
; compiling (DEFUN DIRECTORY-PATHNAME ...)
; compiling (DEFUN APPEND-NAME ...)
; compiling (DEFUN ONLY-NAME-AND-TYPE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/lisp-dep/filesystem.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/lisp-dep/utils.lisp" (written 03 MAR 2005 06:19:24 AM):
; compiling (IN-PACKAGE :MEL.UTILS)
; compiling (DEFMACRO WITH-UNIQUE-NAMES ...)
; compiling (DEFMACRO REBINDING ...)
; compiling (DEFMACRO WHEN-LET ...)
; compiling (DEFUN FILE-DIRECTORY-P ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/lisp-dep/utils.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/lisp-dep/unix.lisp" (written 03 MAR 2005 06:19:02 AM):
; compiling (IN-PACKAGE :MEL.UNIX)
; compiling (DEFUN %STAT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/lisp-dep/unix.lisp
; in: DEFUN %STAT
; (SB-POSIX:STAT MEL.UNIX::FILENAME)
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; SB-POSIX::ALIEN-STAT
; (SB-POSIX::DEV
; #)
; (SB-POSIX::INO
; #)
; (SB-POSIX::MODE
; #)
; (SB-POSIX::NLINK
; #)
; (SB-POSIX::UID
; #)
; (SB-POSIX::GID
; #)
; (SB-POSIX::PADDING12
; #)
; (SB-POSIX::ATIME
; #)
; (SB-POSIX::PADDING13
; #)
; (SB-POSIX::MTIME
; #)
; ...))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT
; --> FLET BLOCK FUNCALL SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; SB-POSIX::ALIEN-STAT
; (SB-POSIX::DEV
; #)
; (SB-POSIX::INO
; #)
; (SB-POSIX::MODE
; #)
; (SB-POSIX::NLINK
; #)
; (SB-POSIX::UID
; #)
; (SB-POSIX::GID
; #)
; (SB-POSIX::PADDING12
; #)
; (SB-POSIX::ATIME
; #)
; (SB-POSIX::PADDING13
; #)
; (SB-POSIX::MTIME
; #)
; ...))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEFUN STAT-LAST-ACCESS ...)
; compiling (DEFUN STAT-LAST-CHANGE ...)
; compiling (DEFUN STAT-LAST-MODIFY ...)
; compiling (DEFUN STAT ...)
; compiling (DEFUN DIRECTORY-CONTENTS-CHANGED-P ...)
; compiling (DEFUN UNIVERSAL-TO-UNIX-TIME ...)
; compiling (DEFUN UNIX-TO-UNIVERSAL-TIME ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/lisp-dep/unix.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/lisp-dep/environment.lisp" (written 03 MAR 2005 06:19:02 AM):
; compiling (IN-PACKAGE :MEL.ENVIRONMENT)
; compiling (DEFUN GETPID ...)
; compiling (DEFUN GETHOSTNAME ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/lisp-dep/environment.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/lisp-dep/network.lisp" (written 03 MAR 2005 06:19:34 AM):
; compiling (IN-PACKAGE :MEL.NETWORK)
; compiling (DEFUN MAKE-CONNECTION ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/lisp-dep/network.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/package-tools.lisp" (written 03 MAR 2005 06:06:34 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFMACRO DEFPACKAGE* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/package-tools.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/packages.lisp" (written 03 MAR 2005 06:19:27 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPACKAGE MEL.DICTIONARY ...)
; compiling (DEFPACKAGE* :MEL.PUBLIC ...)
; compiling (DEFPACKAGE* :MEL.INTERNAL ...)
; compiling (DEFPACKAGE* :MEL.MIME ...)
; compiling (DEFPACKAGE* :MEL.CIPHER ...)
; compiling (DEFPACKAGE MEL.FOLDERS.SMTP ...)
; compiling (DEFPACKAGE :MEL.FOLDERS.MAILDIR ...)
; compiling (DEFPACKAGE MEL.FOLDERS.POP3 ...)
; compiling (DEFPACKAGE MEL.FOLDERS.IMAP ...)
; compiling (DEFPACKAGE MEL.POP3-SERVER ...)
; compiling (DEFPACKAGE* MEL ...)
; compiling (DEFPACKAGE :MEL-USER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/hmac-md5.lisp" (written 03 MAR 2005 06:06:34 AM):
; compiling (IN-PACKAGE :MEL.CIPHER)
; compiling (DEFUN STRING-TO-OCTETS ...)
; compiling (DEFUN HMAC-MD5 ...)
; compiling (DEFUN OCTETS-TO-HEX ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/hmac-md5.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/encapsulating-stream.lisp" (written 03 MAR 2005 06:17:35 AM):
; compiling (IN-PACKAGE :MEL.INTERNAL)
; compiling (DEFCLASS ENCAPSULATING-INPUT-STREAM ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-READ-CHAR ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-UNREAD-CHAR ...)
; compiling (DEFMETHOD CLOSE ...)
; compiling (DEFCLASS ENCAPSULATING-OUTPUT-STREAM ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-WRITE-CHAR ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-WRITE-SEQUENCE ...)
; compiling (DEFMETHOD CLOSE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/encapsulating-stream.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/line-terminator-filter.lisp" (written 03 MAR 2005 06:06:34 AM):
; compiling (IN-PACKAGE :MEL.INTERNAL)
; compiling (DEFCLASS LINE-TERMINATOR-INPUT-STREAM ...)
; compiling (DEFCLASS LINE-TERMINATOR-OUTPUT-STREAM ...)
; compiling (DEFCLASS UNIX-LINE-TERMINATOR-INPUT-STREAM ...)
; compiling (DEFCLASS MAC-LINE-TERMINATOR-INPUT-STREAM ...)
; compiling (DEFCLASS RFC-LINE-TERMINATOR-INPUT-STREAM ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-READ-CHAR ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-READ-CHAR ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-READ-CHAR ...)
; compiling (DEFCLASS UNIX-LINE-TERMINATOR-OUTPUT-STREAM ...)
; compiling (DEFCLASS MAC-LINE-TERMINATOR-OUTPUT-STREAM ...)
; compiling (DEFCLASS RFC-LINE-TERMINATOR-OUTPUT-STREAM ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-WRITE-CHAR ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-WRITE-CHAR ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-WRITE-CHAR ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/line-terminator-filter.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/base64-stream.lisp" (written 03 MAR 2005 06:06:34 AM):
; compiling (IN-PACKAGE :MEL.MIME)
; compiling (DEFPARAMETER BASE-64-ALPHABET ...)
; compiling (DEFPARAMETER URL-BASE-64-ALPHABET ...)
; compiling (DECLAIM (INLINE BASE64-CHAR))
; compiling (DEFUN BASE64-CHAR ...)
; compiling (DECLAIM (INLINE URL-BASE64-CHAR))
; compiling (DEFUN URL-BASE64-CHAR ...)
; compiling (DECLAIM (INLINE CHAR-BASE64))
; compiling (DEFUN CHAR-BASE64 ...)
; compiling (DECLAIM (INLINE URL-CHAR-BASE64))
; compiling (DEFUN URL-CHAR-BASE64 ...)
; compiling (DEFMETHOD ENCODE-BASE64 ...)
; compiling (DEFUN URL-ENCODE-BASE64 ...)
; compiling (DEFUN DECODE-BASE64 ...)
; compiling (DEFUN URL-DECODE-BASE64 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/base64-stream.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/smeta.lisp" (written 03 MAR 2005 06:19:34 AM):
; compiling (DEFPACKAGE :SMETA ...)
; compiling (IN-PACKAGE :SMETA)
; compiling (DEFMACRO STRING-MATCH ...)
; compiling (DEFMACRO STRING-MATCH-TYPE ...)
; compiling (DEFMACRO LIST-MATCH ...)
; compiling (DEFMACRO LIST-MATCH-TYPE ...)
; compiling (DEFUN COMPILE-LIST ...)
; compiling (DEFMACRO STREAM-MATCH ...)
; compiling (DEFMACRO STREAM-MATCH-TYPE ...)
; compiling (DEFUN SEXPR-COMPILEIT ...)
; compiling (DEFMACRO WITH-STREAM-META ...)
; compiling (DEFMACRO WITH-STRING-META ...)
; compiling (DEFMACRO WITH-LIST-META ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/smeta.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/rfc2822.lisp" (written 03 MAR 2005 06:19:39 AM):
; compiling (IN-PACKAGE :MEL.MIME)
; compiling (DEFINE-CONDITION MIME-PARSE-ERROR ...)
; compiling (DEFUN MIME-PARSE-ERROR ...)
; compiling (DEFVAR *BUGGY-SOFTWARE-ACTION* ...)
; compiling (DEFUN BUGGY ...)
; compiling (DEFGENERIC FOLDER ...)
; compiling (DEFGENERIC UID ...)
; compiling (DEFCLASS SIMPLE-FLAG-MIXIN ...)
; compiling (DEFCLASS MESSAGE ...)
; compiling (DEFCLASS RFC2822-HEADER-MIXIN ...)
; compiling (DEFCLASS RFC2822-BASIC-BODY-MIXIN ...)
; compiling (DEFCLASS RFC2822-BASIC-MESSAGE ...)
; compiling (DECLAIM (INLINE TRANSMIT-FIELD-BODY))
; compiling (DEFUN TRANSMIT-FIELD-BODY ...)
; compiling (DECLAIM (INLINE ACCEPT-NEWLINE))
; compiling (DEFUN ACCEPT-NEWLINE ...)
; compiling (DECLAIM (INLINE ACCEPT-CRLF))
; compiling (DEFUN ACCEPT-CRLF ...)
; compiling (DECLAIM (INLINE ACCEPT-CHAR))
; compiling (DEFUN ACCEPT-CHAR ...)
; compiling (DECLAIM (INLINE INTERN-HEADER-NAME))
; compiling (DEFUN INTERN-HEADER-NAME ...)
; compiling (DEFUN SKIP-RFC2822-HEADER ...)
; compiling (DEFUN READ-RFC2822-HEADER ...)
; compiling (DEFUN PARSE-RFC2822-HEADER ...)
; compiling (DEFUN WRITE-RFC2822-HEADER ...)
; compiling (DEFMETHOD FIELD ...)
; compiling (DEFMETHOD FIELD ...)
; compiling (DEFMETHOD (SETF FIELD) ...)
; compiling (DEFMACRO DEFINE-FIELD-READER ...)
; compiling (DEFMACRO DEFINE-FIELD-WRITER ...)
; compiling (DEFINE-FIELD-READER MESSAGE-ID ...)
; compiling (DEFINE-FIELD-WRITER MESSAGE-ID ...)
; compiling (DEFINE-FIELD-READER DATE ...)
; compiling (DEFINE-FIELD-WRITER DATE ...)
; compiling (DEFINE-FIELD-READER SUBJECT ...)
; compiling (DEFINE-FIELD-WRITER SUBJECT ...)
; compiling (DEFUN PARSE-RFC2822 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/rfc2822.lisp
; in: DEFUN PARSE-RFC2822
; (WITH-OUTPUT-TO-STRING (MEL.MIME::S)
; (WRITE-CHAR MEL.MIME::C MEL.MIME::S)
; (LET (MEL.MIME::DOT-ATOMP)
; (LOOP (MULTIPLE-VALUE-BIND (MEL.MIME::C TYPE) (IF # # #) (IF # # #)))))
; --> LET GET-OUTPUT-STREAM-STRING
; ==>
; MEL.MIME::S
;
; note: deleting unreachable code
; (VALUES MEL.MIME::C :CONTROL (1+ MEL.MIME::INDEX))
; ==>
; MEL.MIME::C
;
; note: deleting unreachable code
; (1+ MEL.MIME::INDEX)
; --> +
; ==>
; MEL.MIME::INDEX
;
; note: deleting unreachable code
; compiling (DEFMETHOD TOKEN-TYPE-TEST-FUNCTION ...)
; compiling (DEFUN ACCEPT-RFC2822-TOKEN ...)
; compiling (DEFUN COLLECT-ALL ...)
; compiling (DEFUN NEXT-TOKEN-OF-TYPE ...)
; compiling (DEFMACRO BIND-RFC2822-TOKENS ...)
; compiling (DEFUN COLLECT-RFC2822-TOKENS ...)
; compiling (DEFVAR *ADDRESS-SPEC-TABLE* ...)
; compiling (DEFUN INTERN-ADDRESS-SPEC ...)
; compiling (DEFCLASS ADDRESS ...)
; compiling (DEFCLASS INVALID-ADDRESS ...)
; compiling (DEFCLASS GROUP-ADDRESS ...)
; compiling (DEFCLASS MAILBOX-ADDRESS ...)
; compiling (DECLAIM (INLINE ADDRESS-EQ))
; compiling (DEFUN ADDRESS-EQ ...)
; compiling (DEFUN PARSE-ADDR-SPEC ...)
; compiling (DEFUN PARSE-MAILBOX-ADDRESS ...)
; compiling (DEFUN WHITE-SPACE-P ...)
; compiling (DEFUN PARSE-MAILBOX-LIST ...)
; compiling (DEFUN PARSE-GROUP-ADDRESS ...)
; compiling (DEFUN PARSE-ADDRESS ...)
; compiling (DEFUN PARSE-ADDRESS-LIST ...)
; compiling (DEFUN ADDRESS ...)
; compiling (DEFGENERIC GROUP-MEMBER-P ...)
; compiling (DEFMETHOD GROUP-MEMBER-P ...)
; compiling (DEFMETHOD GROUP-MEMBER-P ...)
; compiling (DEFMETHOD GROUP-MEMBER-P ...)
; compiling (DEFMETHOD GROUP-MEMBER-P ...)
; compiling (DEFUN MAKE-GROUP-TABLE ...)
; compiling (DEFUN MEMBER-ADDRESS-P ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN PARSE-RFC2822-ADDRESS ...)
; compiling (DEFINE-FIELD-READER FROM ...)
; compiling (DEFINE-FIELD-WRITER FROM ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/rfc2822.lisp
; in: DEFMACRO DEFINE-FIELD-WRITER
; 'STRING
;
; note: deleting unreachable code
; compiling (DEFINE-FIELD-READER REPLY-TO ...)
; compiling (DEFINE-FIELD-WRITER REPLY-TO ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/rfc2822.lisp
; in: DEFMACRO DEFINE-FIELD-WRITER
; 'STRING
;
; note: deleting unreachable code
; compiling (DEFINE-FIELD-READER TO ...)
; compiling (DEFUN PRINC-OBJECTS-SEPARATED ...)
; compiling (DEFINE-FIELD-WRITER TO ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/rfc2822.lisp
; in: DEFMACRO DEFINE-FIELD-WRITER
; 'STRING
;
; note: deleting unreachable code
; compiling (DEFINE-FIELD-READER SENDER ...)
; compiling (DEFINE-FIELD-WRITER SENDER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/rfc2822.lisp
; in: DEFMACRO DEFINE-FIELD-WRITER
; 'STRING
;
; note: deleting unreachable code
; compiling (DEFINE-FIELD-READER CC-LIST ...)
; compiling (DEFINE-FIELD-WRITER CC-LIST ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/rfc2822.lisp
; in: DEFMACRO DEFINE-FIELD-WRITER
; 'STRING
;
; note: deleting unreachable code
; compiling (DEFUN DATE-TO-UNIVERSAL-TIME ...)
; compiling (LET (LAST-DATE) ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/rfc2822.fasl written
; compilation finished in 0:00:07
STYLE-WARNING: implicitly creating new generic function FIELD
STYLE-WARNING: implicitly creating new generic function (SETF FIELD)
STYLE-WARNING: implicitly creating new generic function TOKEN-TYPE-TEST-FUNCTION
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/mime.lisp" (written 03 MAR 2005 06:19:39 AM):
; compiling (IN-PACKAGE :MEL.MIME)
; compiling (DEFCLASS MIME-HEADER-MIXIN ...)
; compiling (DEFCLASS MIME-BODY-MIXIN ...)
; compiling (DEFCLASS BODYSTRUCTURE-MIXIN ...)
; compiling (DEFCLASS MIME-MESSAGE ...)
; compiling (DEFUN PARSE-MIME-VERSION ...)
; compiling (DEFUN ALIST->PLIST ...)
; compiling (DEFUN PARSE-CONTENT-TYPE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/mime.lisp
; in: DEFUN PARSE-CONTENT-TYPE
; (LET ((MEL.MIME::VALUE
; (APPLY #'SUBSEQ STRING (1+ MEL.MIME::DEL) (IF MEL.MIME::NEXT #))))
; (MEL.MIME:ACCEPT-RFC2822-TOKEN
; (APPLY #'SUBSEQ
; STRING
; (1+ MEL.MIME::DEL)
; (IF MEL.MIME::NEXT (LIST MEL.MIME::NEXT)))
; NIL
; :TYPE-TEST
; (MEL.MIME::TOKEN-TYPE-TEST-FUNCTION 'OR :ATOM :DOT-ATOM :QUOTED-STRING)))
;
; caught STYLE-WARNING:
; The variable VALUE is defined but never used.
; compiling (DEFUN MAKE-CONTENT-TYPE ...)
; compiling (DEFUN MAKE-BOUNDARY-TAG ...)
; compiling (DEFUN MAKE-CONTENT-TRANSFER-ENCODING ...)
; compiling (DEFUN PARSE-CONTENT-TRANSFER-ENCODING ...)
; compiling (DEFMETHOD MIME-VERSION ...)
; compiling (DEFMETHOD (SETF MIME-VERSION) ...)
; compiling (DEFGENERIC CONTENT-TYPE ...)
; compiling (DEFMETHOD CONTENT-TYPE ...)
; compiling (DEFMETHOD CONTENT-TRANSFER-ENCODING ...)
; compiling (DEFMETHOD CONTENT-ID ...)
; compiling (DEFMETHOD CONTENT-DESCRIPTION ...)
; compiling (DEFMETHOD BOUNDARY-TAG ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/mime.fasl written
; compilation finished in 0:00:01
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40006FD9}> on
#<CL-SOURCE-FILE "mime" {40006FE9}>.
STYLE-WARNING: implicitly creating new generic function MIME-VERSION
STYLE-WARNING: implicitly creating new generic function (SETF MIME-VERSION)
STYLE-WARNING:
implicitly creating new generic function CONTENT-TRANSFER-ENCODING
STYLE-WARNING: implicitly creating new generic function CONTENT-ID
STYLE-WARNING: implicitly creating new generic function CONTENT-DESCRIPTION
STYLE-WARNING: implicitly creating new generic function BOUNDARY-TAG
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/protocols/folder-protocol.lisp" (written 03 MAR 2005 06:17:35 AM):
; compiling (IN-PACKAGE :MEL.INTERNAL)
; compiling (DEFCLASS FOLDER ...)
; compiling (DEFCLASS BASIC-FOLDER ...)
; compiling (DEFGENERIC REGISTER-FOLDER ...)
; compiling (DEFGENERIC SERIALIZE-FOLDER ...)
; compiling (DEFVAR *REGISTERED-FOLDERS* ...)
; compiling (DEFUN COERCE-NAME ...)
; compiling (DEFUN FOLDER-REGISTRY-TRUENAME ...)
; compiling (DEFMETHOD REGISTER-FOLDER ...)
; compiling (DEFINE-CONDITION MEL-ERROR ...)
; compiling (DEFINE-CONDITION FOLDER-NOT-FOUND ...)
; compiling (DEFUN FIND-FOLDER ...)
; compiling (DEFGENERIC CLOSE-FOLDER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/protocols/folder-protocol.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/protocols/folder-metainfo.lisp" (written 03 MAR 2005 06:06:34 AM):
; compiling (IN-PACKAGE :MEL.INTERNAL)
; compiling (DEFGENERIC SHORT-NAME ...)
; compiling (DEFGENERIC COUNT-MESSAGES ...)
; compiling (DEFGENERIC MAP-MESSAGES ...)
; compiling (DEFGENERIC MESSAGES ...)
; compiling (DEFGENERIC RECENT-MESSAGES ...)
; compiling (DEFGENERIC UNREAD-MESSAGES ...)
; compiling (DEFMETHOD MESSAGES ...)
; compiling (DEFMETHOD RECENT-MESSAGES ...)
; compiling (DEFMETHOD MAP-RECENT-MESSAGES ...)
; compiling (DEFMETHOD MAP-RECENT-MESSAGES ...)
; compiling (DEFMETHOD COUNT-MESSAGES ...)
; compiling (DEFMETHOD SHORT-NAME ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/protocols/folder-metainfo.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/protocols/message-metainfo.lisp" (written 03 MAR 2005 06:06:34 AM):
; compiling (IN-PACKAGE :MEL.INTERNAL)
; compiling (DEFUN FLAGP ...)
; compiling (DEFMETHOD FLAGP-USING-FOLDER ...)
; compiling (DEFUN MARK-MESSAGE ...)
; compiling (DEFMETHOD MARK-MESSAGE-USING-FOLDER ...)
; compiling (DEFUN UNMARK-MESSAGE ...)
; compiling (DEFMETHOD UNMARK-MESSAGE-USING-FOLDER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/protocols/message-metainfo.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/protocols/message-transport.lisp" (written 03 MAR 2005 06:06:34 AM):
; compiling (IN-PACKAGE :MEL.INTERNAL)
; compiling (DEFGENERIC COPY-MESSAGE-USING-FOLDERS ...)
; compiling (DEFGENERIC DELETE-MESSAGE-USING-FOLDER ...)
; compiling (DEFGENERIC MOVE-MESSAGE-USING-FOLDERS ...)
; compiling (DEFGENERIC CLEAR-FOLDER ...)
; compiling (DEFGENERIC COPY-FOLDER ...)
; compiling (DEFGENERIC MOVE-FOLDER ...)
; compiling (DEFUN COPY-MESSAGE ...)
; compiling (DEFUN DELETE-MESSAGE ...)
; compiling (DEFUN MOVE-MESSAGE ...)
; compiling (DEFMETHOD COPY-MESSAGE-USING-FOLDERS ...)
; compiling (DEFMETHOD COPY-MESSAGE-USING-FOLDERS ...)
; compiling (DEFMETHOD MOVE-MESSAGE-USING-FOLDERS ...)
; compiling (DEFMETHOD MOVE-MESSAGE-USING-FOLDERS ...)
; compiling (DEFMETHOD MOVE-MESSAGE-USING-FOLDERS ...)
; compiling (DEFMETHOD CLEAR-FOLDER ...)
; compiling (DEFMETHOD COPY-FOLDER ...)
; compiling (DEFMETHOD MOVE-FOLDER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/protocols/message-transport.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/protocols/message-cache.lisp" (written 03 MAR 2005 06:06:34 AM):
; compiling (IN-PACKAGE :MEL.INTERNAL)
; compiling (DEFCLASS MESSAGE-CACHE-MIXIN ...)
; compiling (DEFCLASS HASH-TABLE-MESSAGE-CACHE-MIXIN ...)
; compiling (DEFCLASS EQUAL-MESSAGE-CACHE-MIXIN ...)
; compiling (DEFCLASS EQL-MESSAGE-CACHE-MIXIN ...)
; compiling (DEFCLASS EQ-MESSAGE-CACHE-MIXIN ...)
; compiling (DEFMETHOD ALLOCATE-MESSAGE-CACHE ...)
; compiling (DEFMETHOD ALLOCATE-MESSAGE-CACHE ...)
; compiling (DEFMETHOD ALLOCATE-MESSAGE-CACHE ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD MAP-MESSAGE-CACHE ...)
; compiling (DEFMETHOD UID= ...)
; compiling (DEFMETHOD UID= ...)
; compiling (DEFMETHOD UID= ...)
; compiling (DEFGENERIC FIND-MESSAGE ...)
; compiling (DEFMETHOD FIND-MESSAGE ...)
; compiling (DEFMETHOD CLOSE-FOLDER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/protocols/message-cache.fasl written
; compilation finished in 0:00:02
STYLE-WARNING: implicitly creating new generic function ALLOCATE-MESSAGE-CACHE
STYLE-WARNING: implicitly creating new generic function MAP-MESSAGE-CACHE
STYLE-WARNING: implicitly creating new generic function UID=
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/protocols/receiver-protocol.lisp" (written 03 MAR 2005 06:19:27 AM):
; compiling (IN-PACKAGE :MEL.INTERNAL)
; compiling (DEFINE-CONDITION MESSAGE-NOT-FOUND ...)
; compiling (DEFCLASS RECEIVER ...)
; compiling (DEFCLASS BASIC-RECEIVER ...)
; compiling (DEFGENERIC OPEN-MESSAGE-INPUT-STREAM-USING-FOLDER ...)
; compiling (DEFGENERIC SKIP-HEADERS-USING-FOLDER ...)
; compiling (DEFGENERIC MESSAGE-BODY-STREAM-USING-FOLDER ...)
; compiling (DEFGENERIC MESSAGE-HEADER-STREAM-USING-FOLDER ...)
; compiling (DEFGENERIC MESSAGE-SIZE-USING-FOLDER ...)
; compiling (DEFMETHOD FIND-MESSAGE ...)
; compiling (DEFUN OPEN-MESSAGE-INPUT-STREAM ...)
; compiling (DEFUN MESSAGE-HEADER-STREAM ...)
; compiling (DEFUN MESSAGE-BODY-STREAM ...)
; compiling (DEFUN SKIP-HEADERS ...)
; compiling (DEFUN MESSAGE-SIZE ...)
; compiling (DEFMETHOD SKIP-HEADERS-USING-FOLDER ...)
; compiling (DEFMETHOD MESSAGE-HEADER-STREAM-USING-FOLDER ...)
; compiling (DEFMETHOD MESSAGE-BODY-STREAM-USING-FOLDER ...)
; compiling (DEFGENERIC ENSURE-HEADERS-READ ...)
; compiling (DEFMETHOD ENSURE-HEADERS-READ ...)
; compiling (DEFMETHOD MEL.MIME:FIELD ...)
; compiling (DEFMETHOD MESSAGE-SIZE-USING-FOLDER ...)
; compiling (DEFMETHOD ENSURE-ALL-HEADERS ...)
; compiling (DEFUN MESSAGE-STRING ...)
; compiling (DEFMETHOD MESSAGE-STRING-USING-FOLDER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/protocols/receiver-protocol.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/protocols/sender-protocol.lisp" (written 03 MAR 2005 06:06:34 AM):
; compiling (IN-PACKAGE :MEL.INTERNAL)
; compiling (DEFCLASS SENDER ...)
; compiling (DEFCLASS BASIC-SENDER ...)
; compiling (DEFGENERIC OPEN-MESSAGE-STORING-STREAM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/protocols/sender-protocol.fasl written
; compilation finished in 0:00:00
STYLE-WARNING: implicitly creating new generic function MAP-RECENT-MESSAGES
STYLE-WARNING: implicitly creating new generic function FLAGP-USING-FOLDER
STYLE-WARNING:
implicitly creating new generic function MARK-MESSAGE-USING-FOLDER
STYLE-WARNING:
implicitly creating new generic function UNMARK-MESSAGE-USING-FOLDER
STYLE-WARNING: implicitly creating new generic function ENSURE-ALL-HEADERS
STYLE-WARNING:
implicitly creating new generic function MESSAGE-STRING-USING-FOLDER
STYLE-WARNING: implicitly creating new generic function ENCODE-BASE64
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/maildir/folder.lisp" (written 03 MAR 2005 06:18:22 AM):
; compiling (IN-PACKAGE :MEL.FOLDERS.MAILDIR)
; compiling (DEFCLASS MAILDIR-FOLDER ...)
; compiling (DEFMETHOD SHORT-NAME ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD MAKE-MAILDIR-FOLDER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/maildir/folder.lisp
; in: DEFMETHOD MAKE-MAILDIR-FOLDER (T)
; (DEFMETHOD MEL.FOLDERS.MAILDIR:MAKE-MAILDIR-FOLDER
; (PATHNAME &REST
; MEL.FOLDERS.MAILDIR::ARGS
; &KEY
; (MEL.FOLDERS.MAILDIR::IF-DOES-NOT-EXIST :ERROR)
; (MEL.FOLDERS.MAILDIR::LINE-TERMINATOR-STYLE NIL)
; &ALLOW-OTHER-KEYS)
; (MAKE-INSTANCE 'MEL.FOLDERS.MAILDIR:MAILDIR-FOLDER
; :NAME
; PATHNAME
; :IF-DOES-NOT-EXIST
; MEL.FOLDERS.MAILDIR::IF-DOES-NOT-EXIST
; :LINE-TERMINATOR-STYLE
; MEL.FOLDERS.MAILDIR::LINE-TERMINATOR-STYLE))
; --> PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
; ==>
; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
; (MEL.FOLDERS.MAILDIR::ARGS SB-PCL::.ARGS-TAIL.)
; (SB-PCL::.KEY.
; (SB-PCL::GET-KEY-ARG-TAIL ':IF-DOES-NOT-EXIST SB-PCL::.ARGS-TAIL.))
; (MEL.FOLDERS.MAILDIR::IF-DOES-NOT-EXIST
; (IF SB-PCL::.KEY. (CAR SB-PCL::.KEY.) :ERROR))
; (SB-PCL::.KEY.
; (SB-PCL::GET-KEY-ARG-TAIL ':LINE-TERMINATOR-STYLE
; SB-PCL::.ARGS-TAIL.))
; (MEL.FOLDERS.MAILDIR::LINE-TERMINATOR-STYLE
; (IF SB-PCL::.KEY. (CAR SB-PCL::.KEY.) NIL))
; (SB-PCL::.DUMMY0.))
; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
; (BLOCK MEL.FOLDERS.MAILDIR:MAKE-MAILDIR-FOLDER
; (MAKE-INSTANCE 'MEL.FOLDERS.MAILDIR:MAILDIR-FOLDER
; :NAME
; PATHNAME
; :IF-DOES-NOT-EXIST
; MEL.FOLDERS.MAILDIR::IF-DOES-NOT-EXIST
; :LINE-TERMINATOR-STYLE
; MEL.FOLDERS.MAILDIR::LINE-TERMINATOR-STYLE)))
;
; caught STYLE-WARNING:
; The variable ARGS is defined but never used.
; compiling (DEFMETHOD SERIALIZE-FOLDER ...)
; compiling (DEFMETHOD CLOSE-FOLDER ...)
; compiling (DEFCLASS MAILDIR-MESSAGE-STORING-STREAM ...)
; compiling (DEFCLASS MAILDIR-MESSAGE-INPUT-STREAM ...)
; compiling (DEFMETHOD CLOSE ...)
; compiling (DEFMETHOD CLOSE ...)
; compiling (DEFMETHOD OPEN-MESSAGE-STORING-STREAM ...)
; compiling (DEFUN GENERATE-TAG ...)
; compiling (DEFUN MERGE-TAGS ...)
; compiling (DEFUN PARSE-TAGS ...)
; compiling (DECLAIM (INLINE UIDIFY))
; compiling (DEFUN UIDIFY ...)
; compiling (DEFUN FIND-MESSAGE-FILE ...)
; compiling (DEFMETHOD OPEN-MESSAGE-INPUT-STREAM-USING-FOLDER ...)
; compiling (DEFMETHOD MESSAGE-BODY-STREAM-USING-FOLDER ...)
; compiling (DEFMETHOD DELETE-MESSAGE-USING-FOLDER ...)
; compiling (DEFMETHOD MOVE-MESSAGE-USING-FOLDERS ...)
; compiling (DEFMETHOD MESSAGE-SIZE-USING-FOLDER ...)
; compiling (DEFUN FOLDER-RECENT-P ...)
; compiling (DEFMETHOD MAP-RECENT-MESSAGES ...)
; compiling (DEFMETHOD FLAGP-USING-FOLDER ...)
; compiling (DEFMETHOD MARK-MESSAGE-USING-FOLDER ...)
; compiling (DEFMETHOD UNMARK-MESSAGE-USING-FOLDER ...)
; compiling (DEFMETHOD MAP-MESSAGES ...)
; compiling (DEFUN UNIQUE-NAME ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/maildir/folder.fasl written
; compilation finished in 0:00:03
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {10007201}> on
#<CL-SOURCE-FILE "folder" {10007211}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/imap/folder.lisp" (written 03 MAR 2005 06:17:58 AM):
; compiling (IN-PACKAGE :MEL.FOLDERS.IMAP)
; compiling (DEFVAR *IMAP-DEBUG* ...)
; compiling (DEFCLASS SEQUENCE-TABLE-MIXIN ...)
; compiling (DEFMETHOD (SETF SEQUENCE-NUMBER) ...)
; compiling (DEFMETHOD SEQUENCE-NUMBER ...)
; compiling (DEFMETHOD SEQUENCE-NUMBER-MESSAGE ...)
; compiling (DEFMETHOD EXPUNGE-SEQUENCE-NUMBER ...)
; compiling (DEFMETHOD CLOSE-FOLDER ...)
; compiling (DEFCLASS NETWORK-FOLDER-MIXIN ...)
; compiling (DEFCLASS IMAP-FOLDER ...)
; compiling (DEFUN MAKE-IMAP-FOLDER ...)
; compiling (DEFMETHOD SERIALIZE-FOLDER ...)
; compiling (DEFVAR *ATOM-SPECIALS* ...)
; compiling (DECLAIM (INLINE ATOM-CHAR-P))
; compiling (DEFUN ATOM-CHAR-P ...)
; compiling (DECLAIM (INLINE ATOM-CHAR-P))
; compiling (DEFUN READ-ATOM ...)
; compiling (DECLAIM (INLINE READ-NUMBER))
; compiling (DEFUN READ-NUMBER ...)
; compiling (DECLAIM (INLINE READ-QUOTED-STRING))
; compiling (DEFUN READ-QUOTED-STRING ...)
; compiling (DEFINE-CONDITION IMAP-PAREN-CLOSED ...)
; compiling (DEFINE-CONDITION IMAP-BRACKET-CLOSED ...)
; compiling (DEFINE-CONDITION END-OF-IMAP-RESPONSE ...)
; compiling (DECLAIM (INLINE ACCEPT-CHAR))
; compiling (DEFUN ACCEPT-CHAR ...)
; compiling (DEFVAR *IMAP-READ-CASE* ...)
; compiling (DEFUN CONVERT-ATOM ...)
; compiling (DEFUN IMAP-READ ...)
; compiling (DECLAIM (INLINE IMAP-READ-DELIMITED-LIST))
; compiling (DEFUN IMAP-READ-DELIMITED-LIST ...)
; compiling (DECLAIM (INLINE IMAP-READ-BRACKET-LIST))
; compiling (DEFUN IMAP-READ-BRACKET-LIST ...)
; compiling (DECLAIM (INLINE READ-RESPONSE))
; compiling (DEFUN READ-RESPONSE ...)
; compiling (DEFUN SKIP-RESPONSES ...)
; compiling (DEFMETHOD PROCESS-RESPONSE ...)
; compiling (DEFUN AUTHENTICATE-CRAM-MD5 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/imap/folder.lisp
; in: DEFUN AUTHENTICATE-CRAM-MD5
; (LAMBDA (MEL.FOLDERS.IMAP::ARG1 MEL.FOLDERS.IMAP::ARGUMENTS)
; (LET ((MEL.FOLDERS.IMAP::TIMESTAMP (MAP 'STRING #'CODE-CHAR #)))
; (FORMAT T "(Challenge) ~A~%" MEL.FOLDERS.IMAP::TIMESTAMP)
; (LET ((MEL.FOLDERS.IMAP::USERNAME #) (MEL.FOLDERS.IMAP::DIGEST #))
; (LET (#)
; (FORMAT T "(Response) ~A~%" #)
; (WRITE-STRING # #)
; (WRITE-CHAR #\Return #)
; (WRITE-CHAR #\Newline #)
; (FORCE-OUTPUT #)))))
; ==>
; #'(LAMBDA (MEL.FOLDERS.IMAP::ARG1 MEL.FOLDERS.IMAP::ARGUMENTS)
; (LET ((MEL.FOLDERS.IMAP::TIMESTAMP (MAP 'STRING #'CODE-CHAR #)))
; (FORMAT T "(Challenge) ~A~%" MEL.FOLDERS.IMAP::TIMESTAMP)
; (LET ((MEL.FOLDERS.IMAP::USERNAME #) (MEL.FOLDERS.IMAP::DIGEST #))
; (LET (#)
; (FORMAT T "(Response) ~A~%" #)
; (WRITE-STRING # #)
; (WRITE-CHAR #\Return #)
; (WRITE-CHAR #\Newline #)
; (FORCE-OUTPUT #)))))
;
; caught STYLE-WARNING:
; The variable ARGUMENTS is defined but never used.
; compiling (DEFUN MAKE-IMAP-CONNECTION ...)
; compiling (DEFUN SEND-COMMAND ...)
; compiling (DEFMETHOD ENSURE-CONNECTION ...)
; compiling (DEFUN SELECT-MAILBOX ...)
; compiling (DEFUN NOOP ...)
; compiling (DEFUN CREATE-MAILBOX ...)
; compiling (DEFUN LIST-MAILBOXES ...)
; compiling (DEFUN CLOSE-MAILBOX ...)
; compiling (DEFUN EXAMINE-MAILBOX ...)
; compiling (DEFUN EXPUNGE-MAILBOX ...)
; compiling (DEFMETHOD UPDATE-MAILBOX ...)
; compiling (DEFUN APPEND-MESSAGE ...)
; compiling (DEFMETHOD FETCH-MESSAGE ...)
; compiling (DEFMETHOD FETCH-MESSAGE-BODY ...)
; compiling (DEFMETHOD FETCH-MESSAGE-HEADER ...)
; compiling (DEFMETHOD FETCH-ALL-MESSAGE-HEADERS ...)
; compiling (DEFMETHOD FETCH-MESSAGE-BODYSTRUCTURE ...)
; compiling (DEFUN CANONICALIZE-BODYSTRUCTURE ...)
; compiling (DEFMETHOD MEL.MIME::COMPUTE-BODYSTRUCTURE-USING-FOLDER ...)
; compiling (DEFMETHOD SEARCH-MAILBOX ...)
; compiling (DEFMETHOD MARK-DELETED ...)
; compiling (DEFMETHOD CLOSE-FOLDER ...)
; compiling (DEFMETHOD OPEN-MESSAGE-INPUT-STREAM-USING-FOLDER ...)
; compiling (DEFMETHOD MESSAGE-BODY-STREAM-USING-FOLDER ...)
; compiling (DEFMETHOD MESSAGE-HEADER-STREAM-USING-FOLDER ...)
; compiling (DEFMETHOD MAP-MESSAGES ...)
; compiling (DEFMETHOD MESSAGE-SIZE-USING-FOLDER ...)
; compiling (DEFMETHOD COPY-FOLDER ...)
; compiling (DEFMETHOD COPY-FOLDER ...)
; compiling (DEFMETHOD DELETE-MESSAGE-USING-FOLDER ...)
; compiling (DEFMETHOD COUNT-MESSAGES ...)
; compiling (DEFMETHOD SHORT-NAME ...)
; compiling (DEFUN COLLECT-RANGES ...)
; compiling (DEFMETHOD ENSURE-ALL-HEADERS ...)
; compiling (DEFMETHOD MARK-MESSAGE-USING-FOLDER ...)
; compiling (DEFMETHOD UNMARK-MESSAGE-USING-FOLDER ...)
; compiling (DEFCLASS IMAP-MESSAGE-STORING-STREAM ...)
; compiling (DEFMETHOD CLOSE ...)
; compiling (DEFMETHOD OPEN-MESSAGE-STORING-STREAM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/imap/folder.fasl written
; compilation finished in 0:00:06
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40006E69}> on
#<CL-SOURCE-FILE "folder" {40006E79}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/pop3/folder.lisp" (written 17 AUG 2005 10:31:34 AM):
; compiling (IN-PACKAGE :MEL.FOLDERS.POP3)
; compiling (DEFUN READ-DELIMITED-LINE ...)
; compiling (DEFUN VALIDATE-COMMAND-IN-STATE ...)
; compiling (DEFCLASS POP3-FOLDER ...)
; compiling (DEFCLASS POP3-MESSAGE-INPUT-STREAM ...)
; compiling (DEFUN PARSE-POP3-RESPONSE ...)
; compiling (DEFUN MAKE-POP3-FOLDER ...)
; compiling (DEFMETHOD SERIALIZE-FOLDER ...)
; compiling (DEFMETHOD ENSURE-CONNECTION ...)
; compiling (DEFUN REHASH-MESSAGES ...)
; compiling (DEFUN REHASH-SIZES ...)
; compiling (DEFMACRO DEFINE-POP3-COMMAND ...)
; compiling (DEFMETHOD SEND-POP3-COMMAND ...)
; compiling (DEFINE-POP3-COMMAND :USER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/pop3/folder.lisp
; in: DEFINE-POP3-COMMAND :USER
; (MEL.FOLDERS.POP3::DEFINE-POP3-COMMAND :USER
; (SETF (MEL.MIME:STATE
; MEL.PUBLIC:FOLDER)
; :AUTHORIZED)
; (VALUES))
; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
; ==>
; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
; (MEL.FOLDERS.POP3::ARGS SB-PCL::.ARGS-TAIL.)
; (SB-PCL::.DUMMY0.))
; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
; (DECLARE (SB-PCL::%CLASS MEL.PUBLIC:FOLDER MEL.FOLDERS.POP3:POP3-FOLDER))
; (BLOCK MEL.FOLDERS.POP3::SEND-POP3-COMMAND
; (MULTIPLE-VALUE-BIND
; (MEL.MIME:STATE MEL.FOLDERS.POP3::RESPONSE)
; (MEL.FOLDERS.POP3::PARSE-POP3-RESPONSE
; (MEL.FOLDERS.POP3::READ-DELIMITED-LINE #))
; (ECASE MEL.MIME:STATE (:OK # #) (:ERROR #)))))
;
; caught STYLE-WARNING:
; The variable ARGS is defined but never used.
; compiling (DEFINE-POP3-COMMAND :PASS ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/pop3/folder.lisp
; in: DEFINE-POP3-COMMAND :PASS
; (MEL.FOLDERS.POP3::DEFINE-POP3-COMMAND :PASS
; (SETF (MEL.MIME:STATE
; MEL.PUBLIC:FOLDER)
; :TRANSACTION)
; (MEL.FOLDERS.POP3::REHASH-MESSAGES
; MEL.PUBLIC:FOLDER)
; (MEL.FOLDERS.POP3::REHASH-SIZES
; MEL.PUBLIC:FOLDER)
; (VALUES))
; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
; ==>
; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
; (MEL.FOLDERS.POP3::ARGS SB-PCL::.ARGS-TAIL.)
; (SB-PCL::.DUMMY0.))
; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
; (DECLARE (SB-PCL::%CLASS MEL.PUBLIC:FOLDER MEL.FOLDERS.POP3:POP3-FOLDER))
; (BLOCK MEL.FOLDERS.POP3::SEND-POP3-COMMAND
; (MULTIPLE-VALUE-BIND
; (MEL.MIME:STATE MEL.FOLDERS.POP3::RESPONSE)
; (MEL.FOLDERS.POP3::PARSE-POP3-RESPONSE
; (MEL.FOLDERS.POP3::READ-DELIMITED-LINE #))
; (ECASE MEL.MIME:STATE (:OK # # # #) (:ERROR #)))))
;
; caught STYLE-WARNING:
; The variable ARGS is defined but never used.
; compiling (DEFINE-POP3-COMMAND :DELE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/pop3/folder.lisp
; in: DEFINE-POP3-COMMAND :DELE
; (MEL.FOLDERS.POP3::DEFINE-POP3-COMMAND :DELE (VALUES))
; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
; ==>
; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
; (MEL.FOLDERS.POP3::ARGS SB-PCL::.ARGS-TAIL.)
; (SB-PCL::.DUMMY0.))
; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
; (DECLARE (SB-PCL::%CLASS MEL.PUBLIC:FOLDER MEL.FOLDERS.POP3:POP3-FOLDER))
; (BLOCK MEL.FOLDERS.POP3::SEND-POP3-COMMAND
; (MULTIPLE-VALUE-BIND
; (MEL.MIME:STATE MEL.FOLDERS.POP3::RESPONSE)
; (MEL.FOLDERS.POP3::PARSE-POP3-RESPONSE
; (MEL.FOLDERS.POP3::READ-DELIMITED-LINE #))
; (ECASE MEL.MIME:STATE (:OK #) (:ERROR #)))))
;
; caught STYLE-WARNING:
; The variable ARGS is defined but never used.
; compiling (DEFINE-POP3-COMMAND :RSET ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/pop3/folder.lisp
; in: DEFINE-POP3-COMMAND :RSET
; (MEL.FOLDERS.POP3::DEFINE-POP3-COMMAND :RSET (VALUES))
; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
; ==>
; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
; (MEL.FOLDERS.POP3::ARGS SB-PCL::.ARGS-TAIL.)
; (SB-PCL::.DUMMY0.))
; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
; (DECLARE (SB-PCL::%CLASS MEL.PUBLIC:FOLDER MEL.FOLDERS.POP3:POP3-FOLDER))
; (BLOCK MEL.FOLDERS.POP3::SEND-POP3-COMMAND
; (MULTIPLE-VALUE-BIND
; (MEL.MIME:STATE MEL.FOLDERS.POP3::RESPONSE)
; (MEL.FOLDERS.POP3::PARSE-POP3-RESPONSE
; (MEL.FOLDERS.POP3::READ-DELIMITED-LINE #))
; (ECASE MEL.MIME:STATE (:OK #) (:ERROR #)))))
;
; caught STYLE-WARNING:
; The variable ARGS is defined but never used.
; compiling (DEFINE-POP3-COMMAND :QUIT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/pop3/folder.lisp
; in: DEFINE-POP3-COMMAND :QUIT
; (MEL.FOLDERS.POP3::DEFINE-POP3-COMMAND :QUIT
; (SETF (MEL.MIME:STATE
; MEL.PUBLIC:FOLDER)
; :DISCONNECTED)
; (CLOSE
; (MEL.FOLDERS.POP3::CONNECTION-STREAM
; MEL.PUBLIC:FOLDER))
; (VALUES))
; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
; ==>
; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
; (MEL.FOLDERS.POP3::ARGS SB-PCL::.ARGS-TAIL.)
; (SB-PCL::.DUMMY0.))
; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
; (DECLARE (SB-PCL::%CLASS MEL.PUBLIC:FOLDER MEL.FOLDERS.POP3:POP3-FOLDER))
; (BLOCK MEL.FOLDERS.POP3::SEND-POP3-COMMAND
; (MULTIPLE-VALUE-BIND
; (MEL.MIME:STATE MEL.FOLDERS.POP3::RESPONSE)
; (MEL.FOLDERS.POP3::PARSE-POP3-RESPONSE
; (MEL.FOLDERS.POP3::READ-DELIMITED-LINE #))
; (ECASE MEL.MIME:STATE (:OK # # #) (:ERROR #)))))
;
; caught STYLE-WARNING:
; The variable ARGS is defined but never used.
; compiling (DEFINE-POP3-COMMAND :LIST ...)
; compiling (DEFINE-POP3-COMMAND :UIDL ...)
; compiling (DEFINE-POP3-COMMAND :RETR ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/pop3/folder.lisp
; in: DEFINE-POP3-COMMAND :RETR
; (MEL.FOLDERS.POP3::DEFINE-POP3-COMMAND :RETR (VALUES))
; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
; ==>
; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
; (MEL.FOLDERS.POP3::ARGS SB-PCL::.ARGS-TAIL.)
; (SB-PCL::.DUMMY0.))
; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
; (DECLARE (SB-PCL::%CLASS MEL.PUBLIC:FOLDER MEL.FOLDERS.POP3:POP3-FOLDER))
; (BLOCK MEL.FOLDERS.POP3::SEND-POP3-COMMAND
; (MULTIPLE-VALUE-BIND
; (MEL.MIME:STATE MEL.FOLDERS.POP3::RESPONSE)
; (MEL.FOLDERS.POP3::PARSE-POP3-RESPONSE
; (MEL.FOLDERS.POP3::READ-DELIMITED-LINE #))
; (ECASE MEL.MIME:STATE (:OK #) (:ERROR #)))))
;
; caught STYLE-WARNING:
; The variable ARGS is defined but never used.
; compiling (DEFINE-POP3-COMMAND :TOP ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/pop3/folder.lisp
; in: DEFINE-POP3-COMMAND :TOP
; (MEL.FOLDERS.POP3::DEFINE-POP3-COMMAND :TOP (VALUES))
; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
; ==>
; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
; (MEL.FOLDERS.POP3::ARGS SB-PCL::.ARGS-TAIL.)
; (SB-PCL::.DUMMY0.))
; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
; (DECLARE (SB-PCL::%CLASS MEL.PUBLIC:FOLDER MEL.FOLDERS.POP3:POP3-FOLDER))
; (BLOCK MEL.FOLDERS.POP3::SEND-POP3-COMMAND
; (MULTIPLE-VALUE-BIND
; (MEL.MIME:STATE MEL.FOLDERS.POP3::RESPONSE)
; (MEL.FOLDERS.POP3::PARSE-POP3-RESPONSE
; (MEL.FOLDERS.POP3::READ-DELIMITED-LINE #))
; (ECASE MEL.MIME:STATE (:OK #) (:ERROR #)))))
;
; caught STYLE-WARNING:
; The variable ARGS is defined but never used.
; compiling (DEFMETHOD CLOSE-FOLDER ...)
; compiling (DEFCLASS INPUT-BUFFER-MIXIN ...)
; compiling (DEFMETHOD (SETF STATE) ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-UNREAD-CHAR ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-PEEK-CHAR ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-READ-CHAR ...)
; compiling (DEFMETHOD CLOSE ...)
; compiling (DEFMETHOD MESSAGE-HEADER-STREAM-USING-FOLDER ...)
; compiling (DEFMETHOD OPEN-MESSAGE-INPUT-STREAM-USING-FOLDER ...)
; compiling (DEFUN IDX ...)
; compiling (DEFMETHOD MAP-MESSAGES ...)
; compiling (DEFMETHOD MESSAGE-SIZE-USING-FOLDER ...)
; compiling (DEFMETHOD COPY-FOLDER ...)
; compiling (DEFMETHOD COPY-FOLDER ...)
; compiling (DEFMETHOD MOVE-FOLDER ...)
; compiling (DEFMETHOD CLEAR-FOLDER ...)
; compiling (DEFMETHOD DELETE-MESSAGE-USING-FOLDER ...)
; compiling (DEFMETHOD COUNT-MESSAGES ...)
; compiling (DEFMETHOD SHORT-NAME ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/pop3/folder.fasl written
; compilation finished in 0:00:03
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {10006E71}> on
#<CL-SOURCE-FILE "folder" {10006E81}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/smtp/folder.lisp" (written 03 MAR 2005 06:19:08 AM):
; compiling (IN-PACKAGE :MEL.FOLDERS.SMTP)
; compiling (DEFCLASS SMTP-FOLDER ...)
; compiling (DEFCLASS SMTP-RELAY-FOLDER ...)
; compiling (DEFCLASS LMTP-FOLDER ...)
; compiling (DEFCLASS SMTP-MESSAGE-STORING-STREAM ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-WRITE-CHAR ...)
; compiling (DEFMETHOD CLOSE ...)
; compiling (DEFMETHOD OPEN-MESSAGE-STORING-STREAM ...)
; compiling (DEFMETHOD OPEN-MESSAGE-STORING-STREAM ...)
; compiling (DEFUN READ-DELIMITED-LINE ...)
; compiling (DEFUN MAKE-SMTP-RELAY-FOLDER ...)
; compiling (DEFMETHOD SERIALIZE-FOLDER ...)
; compiling (DEFUN AUTH-PLAIN-TICKET ...)
; compiling (DEFMETHOD ENSURE-CONNECTION ...)
; compiling (DEFMETHOD ENSURE-CONNECTION ...)
; compiling (DEFUN DECODE-REPLY-CODE ...)
; compiling (DEFUN READ-SMTP-RESPONSE ...)
; compiling (DEFUN COMMAND-STRING ...)
; compiling (DEFMETHOD VALIDATE-COMMAND-IN-STATE ...)
; compiling (DEFMETHOD SEND-SMTP-COMMAND ...)
; compiling (DEFMACRO DEFINE-SMTP-COMMAND ...)
; compiling (DEFINE-SMTP-COMMAND :HELO)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/smtp/folder.lisp
; in: DEFINE-SMTP-COMMAND :HELO
; (MEL.FOLDERS.SMTP::DEFINE-SMTP-COMMAND :HELO)
; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
; ==>
; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
; (MEL.FOLDERS.SMTP::ARGS SB-PCL::.ARGS-TAIL.)
; (SB-PCL::.DUMMY0.))
; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
; (DECLARE (SB-PCL::%CLASS MEL.PUBLIC:FOLDER MEL.FOLDERS.SMTP::SMTP-FOLDER))
; (BLOCK MEL.FOLDERS.SMTP::SEND-SMTP-COMMAND
; (MULTIPLE-VALUE-BIND
; (MEL.FOLDERS.SMTP::REPLY MEL.FOLDERS.SMTP::SEVERITY
; MEL.FOLDERS.SMTP::CATEGORY
; MEL.FOLDERS.SMTP::RESPONSES)
; (MEL.FOLDERS.SMTP::READ-SMTP-RESPONSE
; (MEL.FOLDERS.SMTP::CONNECTION-STREAM MEL.PUBLIC:FOLDER))
; (CASE MEL.FOLDERS.SMTP::SEVERITY (#) (# #) (OTHERWISE #)))))
;
; caught STYLE-WARNING:
; The variable ARGS is defined but never used.
; compiling (DEFINE-SMTP-COMMAND :EHLO ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/smtp/folder.lisp
; in: DEFINE-SMTP-COMMAND :EHLO
; (MEL.FOLDERS.SMTP::DEFINE-SMTP-COMMAND :EHLO
; (SETF (MEL.FOLDERS.SMTP::PROPERTIES
; MEL.PUBLIC:FOLDER)
; (LOOP MEL.FOLDERS.SMTP::FOR
; MEL.FOLDERS.SMTP::RESPONSE
; MEL.FOLDERS.SMTP::IN
; (REST
; MEL.FOLDERS.SMTP::RESPONSES)
; MEL.FOLDERS.SMTP::FOR
; MEL.FOLDERS.SMTP::END
; =
; (POSITION #\
; MEL.FOLDERS.SMTP::RESPONSE)
; MEL.FOLDERS.SMTP::NCONCING
; (LIST (INTERN # #)
; (IF
; MEL.FOLDERS.SMTP::END
; #
; T)))))
; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
; ==>
; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
; (MEL.FOLDERS.SMTP::ARGS SB-PCL::.ARGS-TAIL.)
; (SB-PCL::.DUMMY0.))
; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
; (DECLARE (SB-PCL::%CLASS MEL.PUBLIC:FOLDER MEL.FOLDERS.SMTP::SMTP-FOLDER))
; (BLOCK MEL.FOLDERS.SMTP::SEND-SMTP-COMMAND
; (MULTIPLE-VALUE-BIND
; (MEL.FOLDERS.SMTP::REPLY MEL.FOLDERS.SMTP::SEVERITY
; MEL.FOLDERS.SMTP::CATEGORY
; MEL.FOLDERS.SMTP::RESPONSES)
; (MEL.FOLDERS.SMTP::READ-SMTP-RESPONSE
; (MEL.FOLDERS.SMTP::CONNECTION-STREAM MEL.PUBLIC:FOLDER))
; (CASE MEL.FOLDERS.SMTP::SEVERITY (# #) (# #) (OTHERWISE #)))))
;
; caught STYLE-WARNING:
; The variable ARGS is defined but never used.
; compiling (DEFINE-SMTP-COMMAND :LHLO ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/smtp/folder.lisp
; in: DEFINE-SMTP-COMMAND :LHLO
; (MEL.FOLDERS.SMTP::DEFINE-SMTP-COMMAND :LHLO
; (SETF (MEL.FOLDERS.SMTP::PROPERTIES
; MEL.PUBLIC:FOLDER)
; (LOOP MEL.FOLDERS.SMTP::FOR
; MEL.FOLDERS.SMTP::RESPONSE
; MEL.FOLDERS.SMTP::IN
; (REST
; MEL.FOLDERS.SMTP::RESPONSES)
; MEL.FOLDERS.SMTP::FOR
; MEL.FOLDERS.SMTP::END
; =
; (POSITION #\
; MEL.FOLDERS.SMTP::RESPONSE)
; MEL.FOLDERS.SMTP::NCONCING
; (LIST (INTERN # #)
; (IF
; MEL.FOLDERS.SMTP::END
; #
; T)))))
; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
; ==>
; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
; (MEL.FOLDERS.SMTP::ARGS SB-PCL::.ARGS-TAIL.)
; (SB-PCL::.DUMMY0.))
; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
; (DECLARE (SB-PCL::%CLASS MEL.PUBLIC:FOLDER MEL.FOLDERS.SMTP::SMTP-FOLDER))
; (BLOCK MEL.FOLDERS.SMTP::SEND-SMTP-COMMAND
; (MULTIPLE-VALUE-BIND
; (MEL.FOLDERS.SMTP::REPLY MEL.FOLDERS.SMTP::SEVERITY
; MEL.FOLDERS.SMTP::CATEGORY
; MEL.FOLDERS.SMTP::RESPONSES)
; (MEL.FOLDERS.SMTP::READ-SMTP-RESPONSE
; (MEL.FOLDERS.SMTP::CONNECTION-STREAM MEL.PUBLIC:FOLDER))
; (CASE MEL.FOLDERS.SMTP::SEVERITY (# #) (# #) (OTHERWISE #)))))
;
; caught STYLE-WARNING:
; The variable ARGS is defined but never used.
; compiling (DEFINE-SMTP-COMMAND :MAIL-FROM)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/smtp/folder.lisp
; in: DEFINE-SMTP-COMMAND :MAIL-FROM
; (MEL.FOLDERS.SMTP::DEFINE-SMTP-COMMAND :MAIL-FROM)
; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
; ==>
; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
; (MEL.FOLDERS.SMTP::ARGS SB-PCL::.ARGS-TAIL.)
; (SB-PCL::.DUMMY0.))
; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
; (DECLARE (SB-PCL::%CLASS MEL.PUBLIC:FOLDER MEL.FOLDERS.SMTP::SMTP-FOLDER))
; (BLOCK MEL.FOLDERS.SMTP::SEND-SMTP-COMMAND
; (MULTIPLE-VALUE-BIND
; (MEL.FOLDERS.SMTP::REPLY MEL.FOLDERS.SMTP::SEVERITY
; MEL.FOLDERS.SMTP::CATEGORY
; MEL.FOLDERS.SMTP::RESPONSES)
; (MEL.FOLDERS.SMTP::READ-SMTP-RESPONSE
; (MEL.FOLDERS.SMTP::CONNECTION-STREAM MEL.PUBLIC:FOLDER))
; (CASE MEL.FOLDERS.SMTP::SEVERITY (#) (# #) (OTHERWISE #)))))
;
; caught STYLE-WARNING:
; The variable ARGS is defined but never used.
; compiling (DEFINE-SMTP-COMMAND :RCPT-TO)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/smtp/folder.lisp
; in: DEFINE-SMTP-COMMAND :RCPT-TO
; (MEL.FOLDERS.SMTP::DEFINE-SMTP-COMMAND :RCPT-TO)
; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
; ==>
; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
; (MEL.FOLDERS.SMTP::ARGS SB-PCL::.ARGS-TAIL.)
; (SB-PCL::.DUMMY0.))
; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
; (DECLARE (SB-PCL::%CLASS MEL.PUBLIC:FOLDER MEL.FOLDERS.SMTP::SMTP-FOLDER))
; (BLOCK MEL.FOLDERS.SMTP::SEND-SMTP-COMMAND
; (MULTIPLE-VALUE-BIND
; (MEL.FOLDERS.SMTP::REPLY MEL.FOLDERS.SMTP::SEVERITY
; MEL.FOLDERS.SMTP::CATEGORY
; MEL.FOLDERS.SMTP::RESPONSES)
; (MEL.FOLDERS.SMTP::READ-SMTP-RESPONSE
; (MEL.FOLDERS.SMTP::CONNECTION-STREAM MEL.PUBLIC:FOLDER))
; (CASE MEL.FOLDERS.SMTP::SEVERITY (#) (# #) (OTHERWISE #)))))
;
; caught STYLE-WARNING:
; The variable ARGS is defined but never used.
; compiling (DEFINE-SMTP-COMMAND :DATA)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/smtp/folder.lisp
; in: DEFINE-SMTP-COMMAND :DATA
; (MEL.FOLDERS.SMTP::DEFINE-SMTP-COMMAND :DATA)
; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
; ==>
; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
; (MEL.FOLDERS.SMTP::ARGS SB-PCL::.ARGS-TAIL.)
; (SB-PCL::.DUMMY0.))
; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
; (DECLARE (SB-PCL::%CLASS MEL.PUBLIC:FOLDER MEL.FOLDERS.SMTP::SMTP-FOLDER))
; (BLOCK MEL.FOLDERS.SMTP::SEND-SMTP-COMMAND
; (MULTIPLE-VALUE-BIND
; (MEL.FOLDERS.SMTP::REPLY MEL.FOLDERS.SMTP::SEVERITY
; MEL.FOLDERS.SMTP::CATEGORY
; MEL.FOLDERS.SMTP::RESPONSES)
; (MEL.FOLDERS.SMTP::READ-SMTP-RESPONSE
; (MEL.FOLDERS.SMTP::CONNECTION-STREAM MEL.PUBLIC:FOLDER))
; (CASE MEL.FOLDERS.SMTP::SEVERITY (#) (# #) (OTHERWISE #)))))
;
; caught STYLE-WARNING:
; The variable ARGS is defined but never used.
; compiling (DEFINE-SMTP-COMMAND :AUTH)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/smtp/folder.lisp
; in: DEFINE-SMTP-COMMAND :AUTH
; (MEL.FOLDERS.SMTP::DEFINE-SMTP-COMMAND :AUTH)
; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
; ==>
; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
; (MEL.FOLDERS.SMTP::ARGS SB-PCL::.ARGS-TAIL.)
; (SB-PCL::.DUMMY0.))
; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
; (DECLARE (SB-PCL::%CLASS MEL.PUBLIC:FOLDER MEL.FOLDERS.SMTP::SMTP-FOLDER))
; (BLOCK MEL.FOLDERS.SMTP::SEND-SMTP-COMMAND
; (MULTIPLE-VALUE-BIND
; (MEL.FOLDERS.SMTP::REPLY MEL.FOLDERS.SMTP::SEVERITY
; MEL.FOLDERS.SMTP::CATEGORY
; MEL.FOLDERS.SMTP::RESPONSES)
; (MEL.FOLDERS.SMTP::READ-SMTP-RESPONSE
; (MEL.FOLDERS.SMTP::CONNECTION-STREAM MEL.PUBLIC:FOLDER))
; (CASE MEL.FOLDERS.SMTP::SEVERITY (#) (# #) (OTHERWISE #)))))
;
; caught STYLE-WARNING:
; The variable ARGS is defined but never used.
; compiling (DEFINE-SMTP-COMMAND :QUIT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/smtp/folder.lisp
; in: DEFINE-SMTP-COMMAND :QUIT
; (MEL.FOLDERS.SMTP::DEFINE-SMTP-COMMAND :QUIT
; (CLOSE
; (MEL.FOLDERS.SMTP::CONNECTION-STREAM
; MEL.PUBLIC:FOLDER))
; (SETF (MEL.MIME:STATE
; MEL.PUBLIC:FOLDER)
; :DISCONNECTED))
; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
; ==>
; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
; (MEL.FOLDERS.SMTP::ARGS SB-PCL::.ARGS-TAIL.)
; (SB-PCL::.DUMMY0.))
; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
; (DECLARE (SB-PCL::%CLASS MEL.PUBLIC:FOLDER MEL.FOLDERS.SMTP::SMTP-FOLDER))
; (BLOCK MEL.FOLDERS.SMTP::SEND-SMTP-COMMAND
; (MULTIPLE-VALUE-BIND
; (MEL.FOLDERS.SMTP::REPLY MEL.FOLDERS.SMTP::SEVERITY
; MEL.FOLDERS.SMTP::CATEGORY
; MEL.FOLDERS.SMTP::RESPONSES)
; (MEL.FOLDERS.SMTP::READ-SMTP-RESPONSE
; (MEL.FOLDERS.SMTP::CONNECTION-STREAM MEL.PUBLIC:FOLDER))
; (CASE MEL.FOLDERS.SMTP::SEVERITY (# # #) (# #) (OTHERWISE #)))))
;
; caught STYLE-WARNING:
; The variable ARGS is defined but never used.
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/folders/smtp/folder.fasl written
; compilation finished in 0:00:03
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {10006E19}> on
#<CL-SOURCE-FILE "folder" {10006E29}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/multiparts.lisp" (written 03 MAR 2005 01:45:19 PM):
; compiling (IN-PACKAGE :MEL.MIME)
; compiling (DEFCLASS PART ...)
; compiling (DEFCLASS SIMPLE-PART ...)
; compiling (DEFMETHOD PART-PATH ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD FOLDER ...)
; compiling (DEFMETHOD ENSURE-HEADERS-READ ...)
; compiling (DEFGENERIC PARTS ...)
; compiling (DEFMETHOD PARTS ...)
; compiling (DEFCLASS MULTIPART ...)
; compiling (DEFCLASS MULTIPART/MIXED ...)
; compiling (DEFCLASS MULTIPART/ALTERNATIVE ...)
; compiling (DEFCLASS MULTIPART/PARALLEL ...)
; compiling (DEFUN STRING-PREFIXP ...)
; compiling (DEFMETHOD CONTENT-TYPE ...)
; compiling (DEFMETHOD CONTENT-TRANSFER-ENCODING ...)
; compiling (DEFUN MULTIPART-TYPE-CLASS ...)
; compiling (DEFMETHOD TOPLEVEL-PART ...)
; compiling (DEFMETHOD PARTS ...)
; compiling (DEFMETHOD PARTS ...)
; compiling (DEFMETHOD MAKE-TOPLEVEL-PART ...)
; compiling (DEFUN MAKE-TOPLEVEL-PART-FROM-BODYSTRUCTURE ...)
; compiling (DEFMETHOD BODYSTRUCTURE ...)
; compiling (DEFUN READ-LINE-COUNTED ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/multiparts.lisp
; in: DEFUN READ-LINE-COUNTED
; (WITH-OUTPUT-TO-STRING (MEL.MIME::LINE)
; (HANDLER-CASE
; (TAGBODY
; MEL.MIME::START
; (LET (#)
; (CASE MEL.MIME::C # # #))
; MEL.MIME::LF
; (SETF MEL.MIME::LINE-END-P 1)
; (GO MEL.MIME::END)
; MEL.MIME::CR
; (SETF MEL.MIME::LINE-END-P 1)
; (LET (#)
; (CASE MEL.MIME::C # #))
; MEL.MIME::CRLF
; (SETF MEL.MIME::LINE-END-P 2)
; (GO MEL.MIME::END) ...)
; (END-OF-FILE NIL
; (LET (#)
; (COND # # #)))))
; --> LET GET-OUTPUT-STREAM-STRING
; ==>
; MEL.MIME::LINE
;
; note: deleting unreachable code
; compiling (DEFUN SCAN-FORWARD-BOUNDARY-TAG ...)
; compiling (DEFUN COMPUTE-BODYSTRUCTURE ...)
; compiling (DEFUN READ-MULTIPART-BODY-1 ...)
; compiling (DEFUN READ-SIMPLE-BODY ...)
; compiling (DEFUN READ-SINGLE-BODY ...)
; compiling (DEFMETHOD COMPUTE-BODYSTRUCTURE-USING-FOLDER ...)
; compiling (DEFMETHOD NTH-PART-STREAM ...)
; compiling (DEFMETHOD PART-BODY-STREAM ...)
; compiling (DEFMETHOD OPEN-MESSAGE-INPUT-STREAM-USING-FOLDER ...)
; compiling (DEFMETHOD OPEN-MESSAGE-INPUT-STREAM-USING-FOLDER ...)
; compiling (DEFMETHOD MESSAGE-BODY-STREAM-USING-FOLDER ...)
; compiling (DEFMETHOD MESSAGE-BODY-STREAM-USING-FOLDER ...)
; compiling (DEFMETHOD NTH-PART ...)
; compiling (DEFUN PART-BODY-STRING ...)
; compiling (DEFUN FIND-VIEWABLE-PART ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/multiparts.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/quoted-printable-stream.lisp" (written 03 MAR 2005 06:17:24 AM):
; compiling (IN-PACKAGE :WEIRD-MAIL.INTERNAL)
; compiling (DEFCLASS QUOTED-PRINTABLE-INPUT-STREAM ...)
; compiling (DEFPARAMETER *DIGIT-CHARS* ...)
; compiling (DEFUN CHAR-INTEGER ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-READ-CHAR ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/quoted-printable-stream.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/compose-message.lisp" (written 03 MAR 2005 06:19:21 AM):
; compiling (IN-PACKAGE :MEL.MIME)
; compiling (DEFPARAMETER *MIME-BASE-HEADER-FIELDS* ...)
; compiling (DEFPARAMETER *MESSAGE-COUNTER* ...)
; compiling (DEFUN GENERATE-MESSAGE-ID ...)
; compiling (DEFUN MAKE-MESSAGE ...)
; compiling (DEFUN FINALIZE-MESSAGE ...)
; compiling (DEFMETHOD FINALIZE-MESSAGE-USING-FOLDER ...)
; compiling (DEFUN MAKE-MESSAGE-FROM-FILE ...)
; compiling (DEFUN MAKE-MESSAGE-BODY ...)
; compiling (DEFUN SPLIT-STRING ...)
; compiling (DEFUN PARSE-MIME-TABLE ...)
; compiling (DEFPARAMETER *MIME-TABLE* ...)
; compiling (DEFUN GUESS-CONTENT-TYPE ...)
; compiling (DEFUN MAKE-MULTIPART-BODY ...)
; compiling (DEFMETHOD OPEN-MESSAGE-INPUT-STREAM-USING-FOLDER ...)
; compiling (DEFMETHOD ENSURE-HEADERS-READ ...)
; compiling (DEFMETHOD OPEN-MESSAGE-INPUT-STREAM-USING-FOLDER ...)
; compiling (DEFMETHOD MESSAGE-BODY-STREAM-USING-FOLDER ...)
; compiling (DEFUN EDIT-MESSAGE-BODY ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/compose-message.fasl written
; compilation finished in 0:00:01
STYLE-WARNING: implicitly creating new generic function MAKE-MAILDIR-FOLDER
STYLE-WARNING: implicitly creating new generic function (SETF SEQUENCE-NUMBER)
STYLE-WARNING: implicitly creating new generic function SEQUENCE-NUMBER
STYLE-WARNING: implicitly creating new generic function SEQUENCE-NUMBER-MESSAGE
STYLE-WARNING: implicitly creating new generic function EXPUNGE-SEQUENCE-NUMBER
STYLE-WARNING: implicitly creating new generic function PROCESS-RESPONSE
STYLE-WARNING: implicitly creating new generic function ENSURE-CONNECTION
STYLE-WARNING: implicitly creating new generic function UPDATE-MAILBOX
STYLE-WARNING: implicitly creating new generic function FETCH-MESSAGE
STYLE-WARNING: implicitly creating new generic function FETCH-MESSAGE-BODY
STYLE-WARNING: implicitly creating new generic function FETCH-MESSAGE-HEADER
STYLE-WARNING:
implicitly creating new generic function FETCH-ALL-MESSAGE-HEADERS
STYLE-WARNING:
implicitly creating new generic function FETCH-MESSAGE-BODYSTRUCTURE
STYLE-WARNING:
implicitly creating new generic function MEL.MIME::COMPUTE-BODYSTRUCTURE-USING-FOLDER
STYLE-WARNING: implicitly creating new generic function SEARCH-MAILBOX
STYLE-WARNING: implicitly creating new generic function MARK-DELETED
STYLE-WARNING: implicitly creating new generic function ENSURE-ALL-HEADERS
STYLE-WARNING: implicitly creating new generic function ENSURE-CONNECTION
STYLE-WARNING: implicitly creating new generic function SEND-POP3-COMMAND
STYLE-WARNING: implicitly creating new generic function ENSURE-CONNECTION
STYLE-WARNING:
implicitly creating new generic function VALIDATE-COMMAND-IN-STATE
STYLE-WARNING: implicitly creating new generic function SEND-SMTP-COMMAND
STYLE-WARNING: implicitly creating new generic function PART-PATH
STYLE-WARNING: implicitly creating new generic function TOPLEVEL-PART
STYLE-WARNING: implicitly creating new generic function MAKE-TOPLEVEL-PART
STYLE-WARNING: implicitly creating new generic function NTH-PART-STREAM
STYLE-WARNING: implicitly creating new generic function PART-BODY-STREAM
STYLE-WARNING: implicitly creating new generic function NTH-PART
STYLE-WARNING:
implicitly creating new generic function FINALIZE-MESSAGE-USING-FOLDER
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mel-base_0.6-0/lisp-dep/network.lisp
; in: DEFUN MEL.NETWORK:MAKE-CONNECTION
; (IF (SUBTYPEP MEL.NETWORK::ELEMENT-TYPE 'CHARACTER)
; :ASCII
; MEL.NETWORK::*DEFAULT*)
;
; caught WARNING:
; undefined variable: MEL.NETWORK::*DEFAULT*
;
; caught WARNING:
; This variable is undefined:
; MEL.NETWORK::*DEFAULT*
;
; compilation unit finished
; caught 2 WARNING conditions
; caught 18 STYLE-WARNING conditions
; printed 15 notes