cl-smtp

SBCL 2.1.7.62-417920f09 / ASDF 3.3.5

cl-smtp-tests

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/2f04ab423f3e13bad09bf311dd863838fec643be/flexi-streams-20210926-git/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/test") in that file.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFMACRO DEFINE-CL-SMTP-TEST
;     ((CL-SMTP-TESTS::TMPNAME
;       (CL-SMTP-TESTS::GENSYM (CL-SMTP-TESTS::STRING CL-SMTP-TESTS::NAME))))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

; in: DEFMACRO DEFINE-CL-SMTP-TEST => DEFUN #S(SB-IMPL::COMMA :EXPR TMPNAME :KIND 0)
;     #'CL-SMTP-TESTS::CAR
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "rfc2045-q-encode-string-to-stream-1"
;     ((CL-SMTP-TESTS::STR "öüäÖÜÄß")
;      (CL-SMTP-TESTS::QSTR
;       (CL-SMTP-TESTS::WITH-OUTPUT-TO-STRING (CL-SMTP-TESTS::S)
;        (CL-SMTP-TESTS::RFC2045-Q-ENCODE-STRING-TO-STREAM CL-SMTP-TESTS::STR
;         CL-SMTP-TESTS::S :EXTERNAL-FORMAT :UTF-8))))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP-TESTS::ASSERT CL-SMTP-TESTS::QSTR)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "rfc2045-q-encode-string-to-stream-2"
;     ((CL-SMTP-TESTS::STR "öüäÖÜÄß")
;      (CL-SMTP-TESTS::QSTR
;       (CL-SMTP-TESTS::WITH-OUTPUT-TO-STRING (CL-SMTP-TESTS::S)
;        (CL-SMTP-TESTS::RFC2045-Q-ENCODE-STRING-TO-STREAM CL-SMTP-TESTS::STR
;         CL-SMTP-TESTS::S :EXTERNAL-FORMAT :LATIN-1))))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP-TESTS::ASSERT CL-SMTP-TESTS::QSTR)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "rfc2045-q-encode-string-to-stream-3"
;     ((CL-SMTP-TESTS::STR "check if #= encoded")
;      (CL-SMTP-TESTS::QSTR
;       (CL-SMTP-TESTS::WITH-OUTPUT-TO-STRING (CL-SMTP-TESTS::S)
;        (CL-SMTP-TESTS::RFC2045-Q-ENCODE-STRING-TO-STREAM CL-SMTP-TESTS::STR
;         CL-SMTP-TESTS::S :EXTERNAL-FORMAT :LATIN-1))))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP-TESTS::ASSERT CL-SMTP-TESTS::QSTR)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "rfc2045-q-encode-string-to-stream-4"
;     ((CL-SMTP-TESTS::STR
;       #<(SIMPLE-ARRAY CHARACTER
;          (259)) Müde vom Durchwandern öder Letternwüsten, voll leerer Hirngeburten, in anmaaßendsten Wortnebeln ; überdrüssig ästhetischer Süßler wie grammatischer Wässerer ; entschloß ich mich : Alles, was je schrie... {100A20420F}>)
;      (CL-SMTP-TESTS::QSTR
;       (CL-SMTP-TESTS::WITH-OUTPUT-TO-STRING (CL-SMTP-TESTS::S)
;        (CL-SMTP-TESTS::RFC2045-Q-ENCODE-STRING-TO-STREAM CL-SMTP-TESTS::STR
;         CL-SMTP-TESTS::S :EXTERNAL-FORMAT :LATIN-1 :COLUMNS 64))))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP-TESTS::ASSERT CL-SMTP-TESTS::QSTR)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "rfc2045-q-encode-string-to-stream-5"
;     ((CL-SMTP-TESTS::STR
;       (CL-SMTP-TESTS::FORMAT CL-SMTP-TESTS::NIL "check of masked dots.~C.~C.end"
;        #\Newline #\Newline))
;      (CL-SMTP-TESTS::QSTR
;       (CL-SMTP-TESTS::WITH-OUTPUT-TO-STRING (CL-SMTP-TESTS::S)
;        (CL-SMTP-TESTS::RFC2045-Q-ENCODE-STRING-TO-STREAM CL-SMTP-TESTS::STR
;         CL-SMTP-TESTS::S :EXTERNAL-FORMAT :LATIN-1 :COLUMNS 64))))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP-TESTS::ASSERT CL-SMTP-TESTS::QSTR)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "rfc2045-q-encode-string-to-stream-6"
;     ((CL-SMTP-TESTS::STR
;       (CL-SMTP-TESTS::FORMAT CL-SMTP-TESTS::NIL
;        "check of masked dot at last column 12345678901234567890123456789.~A~ALAST LINE"
;        #\Newline #\Newline))
;      (CL-SMTP-TESTS::QSTR
;       (CL-SMTP-TESTS::WITH-OUTPUT-TO-STRING (CL-SMTP-TESTS::S)
;        (CL-SMTP-TESTS::RFC2045-Q-ENCODE-STRING-TO-STREAM CL-SMTP-TESTS::STR
;         CL-SMTP-TESTS::S :EXTERNAL-FORMAT :LATIN-1 :COLUMNS 64))))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP-TESTS::ASSERT CL-SMTP-TESTS::QSTR)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "rfc2045-q-encode-string-to-stream-7"
;     ((CL-SMTP-TESTS::STR
;       (CL-SMTP-TESTS::FORMAT CL-SMTP-TESTS::NIL
;        "Example using non-ASCII characters:~A   -  74% : Erreur de protocole : la passerelle ne répond pas à la requête.~AYou won’t receive this!"
;        #\Newline #\Newline))
;      (CL-SMTP-TESTS::QSTR
;       (CL-SMTP-TESTS::WITH-OUTPUT-TO-STRING (CL-SMTP-TESTS::S)
;        (CL-SMTP-TESTS::RFC2045-Q-ENCODE-STRING-TO-STREAM CL-SMTP-TESTS::STR
;         CL-SMTP-TESTS::S :EXTERNAL-FORMAT :UTF-8 :COLUMNS 74))))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP-TESTS::ASSERT CL-SMTP-TESTS::QSTR)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "rfc2045-q-encode-string-to-stream-8"
;     ((CL-SMTP-TESTS::STR
;       "12345678901234567890123456789012345678901234567890123456789012345678901234.")
;      (CL-SMTP-TESTS::QSTR
;       (CL-SMTP-TESTS::WITH-OUTPUT-TO-STRING (CL-SMTP-TESTS::S)
;        (CL-SMTP-TESTS::RFC2045-Q-ENCODE-STRING-TO-STREAM CL-SMTP-TESTS::STR
;         CL-SMTP-TESTS::S :EXTERNAL-FORMAT :UTF-8 :COLUMNS 74))))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP-TESTS::ASSERT CL-SMTP-TESTS::QSTR)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "rfc2045-q-encode-string-to-stream-9"
;     ((CL-SMTP-TESTS::STR
;       "123456789012345678901234567890123456789012345678901234567890123456789012345.")
;      (CL-SMTP-TESTS::QSTR
;       (CL-SMTP-TESTS::WITH-OUTPUT-TO-STRING (CL-SMTP-TESTS::S)
;        (CL-SMTP-TESTS::RFC2045-Q-ENCODE-STRING-TO-STREAM CL-SMTP-TESTS::STR
;         CL-SMTP-TESTS::S :EXTERNAL-FORMAT :UTF-8 :COLUMNS 74))))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP-TESTS::ASSERT CL-SMTP-TESTS::QSTR)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "rfc2045-q-encode-string-to-stream-10"
;     ((CL-SMTP-TESTS::STR "لینک تایید | Verification link")
;      (CL-SMTP-TESTS::QSTR
;       (CL-SMTP-TESTS::WITH-OUTPUT-TO-STRING (CL-SMTP-TESTS::S)
;        (CL-SMTP-TESTS::RFC2045-Q-ENCODE-STRING-TO-STREAM CL-SMTP-TESTS::STR
;         CL-SMTP-TESTS::S :EXTERNAL-FORMAT :UTF-8 :COLUMNS 74))))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP-TESTS::ASSERT CL-SMTP-TESTS::QSTR)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "rfc2045-q-encode-string-utf-8-1"
;     ((CL-SMTP-TESTS::STR "öüäÖÜÄß")
;      (CL-SMTP-TESTS::QSTR
;       (CL-SMTP:RFC2045-Q-ENCODE-STRING CL-SMTP-TESTS::STR :EXTERNAL-FORMAT
;                                        :UTF-8)))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP-TESTS::ASSERT CL-SMTP-TESTS::QSTR)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "rfc2045-q-encode-string-utf-8-2"
;     ((CL-SMTP-TESTS::STR "لینک تایید | Verification link")
;      (CL-SMTP-TESTS::QSTR
;       (CL-SMTP:RFC2045-Q-ENCODE-STRING CL-SMTP-TESTS::STR :EXTERNAL-FORMAT
;                                        :UTF-8)))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP-TESTS::ASSERT CL-SMTP-TESTS::QSTR)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "rfc2045-q-encode-string-utf-8-3"
;     ((CL-SMTP-TESTS::STR
;       "Test: check correct newline in quoted encoding string for string longer then 74 charecters with spezial german 'ü' 'Ü' 'ä' 'Ä' 'ö' 'Ö' 'ß' characters")
;      (CL-SMTP-TESTS::QSTR
;       (CL-SMTP:RFC2045-Q-ENCODE-STRING CL-SMTP-TESTS::STR :EXTERNAL-FORMAT
;                                        :UTF-8)))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP-TESTS::ASSERT CL-SMTP-TESTS::QSTR)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "rfc2231-encode-string-utf-8"
;     ((CL-SMTP-TESTS::STR "öüäÖÜÄß")
;      (CL-SMTP-TESTS::QSTR
;       (CL-SMTP:RFC2231-ENCODE-STRING CL-SMTP-TESTS::STR :EXTERNAL-FORMAT :UTF-8)))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP-TESTS::ASSERT CL-SMTP-TESTS::QSTR)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "make-attachment-1"
;     ((CL-SMTP-TESTS::P
;       (CL-SMTP-TESTS::MERGE-PATHNAMES "tests.lisp"
;        (CL-SMTP-TESTS::GET-COMPONENT-PATHNAME)))
;      (CL-SMTP:ATTACHMENT (CL-SMTP:MAKE-ATTACHMENT CL-SMTP-TESTS::P)))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP:ATTACHMENT-NAME CL-SMTP:ATTACHMENT)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "make-attachment-2"
;     ((CL-SMTP-TESTS::P
;       (CL-SMTP-TESTS::MERGE-PATHNAMES "tests.lisp"
;        (CL-SMTP-TESTS::GET-COMPONENT-PATHNAME)))
;      (CL-SMTP:ATTACHMENT CL-SMTP-TESTS::P))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP:ATTACHMENT-NAME CL-SMTP:ATTACHMENT)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "make-attachment-3"
;     ((CL-SMTP-TESTS::P
;       (CL-SMTP-TESTS::NAMESTRING
;        (CL-SMTP-TESTS::MERGE-PATHNAMES "tests.lisp"
;         (CL-SMTP-TESTS::GET-COMPONENT-PATHNAME))))
;      (CL-SMTP:ATTACHMENT CL-SMTP-TESTS::P))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP:ATTACHMENT-NAME CL-SMTP:ATTACHMENT)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "send-attachment-header-1"
;     ((CL-SMTP-TESTS::BOUNDARY (CL-SMTP-TESTS::MAKE-RANDOM-BOUNDARY))
;      (CL-SMTP-TESTS::P
;       (CL-SMTP-TESTS::MERGE-PATHNAMES "tests.lisp"
;        (CL-SMTP-TESTS::GET-COMPONENT-PATHNAME)))
;      (CL-SMTP:ATTACHMENT (CL-SMTP:MAKE-ATTACHMENT CL-SMTP-TESTS::P))
;      (CL-SMTP-TESTS::HEADERSTR
;       (CL-SMTP-TESTS::WITH-OUTPUT-TO-STRING (CL-SMTP-TESTS::S)
;        (CL-SMTP-TESTS::SEND-ATTACHMENT-HEADER CL-SMTP-TESTS::S
;         CL-SMTP-TESTS::BOUNDARY CL-SMTP:ATTACHMENT :UTF-8)))
;      (CL-SMTP-TESTS::RETURNNEWLINE
;       (CL-SMTP-TESTS::FORMAT CL-SMTP-TESTS::NIL
;        (CL-SMTP-TESTS::FORMAT CL-SMTP-TESTS::NIL "~C~C" #\Return #\Newline)))
;      (CL-SMTP-TESTS::TMPSTR
;       (CL-SMTP-TESTS::FORMAT CL-SMTP-TESTS::NIL
;        #<(SIMPLE-ARRAY CHARACTER
;           (202)) --~A~AContent-type: text/plain;~% name*=UTF-8''tests.lisp;~% name="tests.lisp"~AContent-Disposition: attachment; filename*=UTF-8''tests.lisp; filename="tests.lisp"~AContent-Transfer-Encoding: base64~A... {100A36917F}>
;        CL-SMTP-TESTS::BOUNDARY CL-SMTP-TESTS::RETURNNEWLINE
;        CL-SMTP-TESTS::RETURNNEWLINE CL-SMTP-TESTS::RETURNNEWLINE
;        CL-SMTP-TESTS::RETURNNEWLINE CL-SMTP-TESTS::RETURNNEWLINE)))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP-TESTS::EQUAL CL-SMTP-TESTS::HEADERSTR CL-SMTP-TESTS::TMPSTR)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "send-attachment-header-2"
;     ((CL-SMTP-TESTS::BOUNDARY (CL-SMTP-TESTS::MAKE-RANDOM-BOUNDARY))
;      (CL-SMTP-TESTS::P
;       (CL-SMTP-TESTS::MERGE-PATHNAMES "tests.lisp"
;        (CL-SMTP-TESTS::GET-COMPONENT-PATHNAME)))
;      (CL-SMTP:ATTACHMENT
;       (CL-SMTP:MAKE-ATTACHMENT CL-SMTP-TESTS::P :MIME-TYPE "text/plain" :NAME
;                                "foo\\bar"))
;      (CL-SMTP-TESTS::HEADERSTR
;       (CL-SMTP-TESTS::WITH-OUTPUT-TO-STRING (CL-SMTP-TESTS::S)
;        (CL-SMTP-TESTS::SEND-ATTACHMENT-HEADER CL-SMTP-TESTS::S
;         CL-SMTP-TESTS::BOUNDARY CL-SMTP:ATTACHMENT :UTF-8)))
;      (CL-SMTP-TESTS::RETURNNEWLINE
;       (CL-SMTP-TESTS::FORMAT CL-SMTP-TESTS::NIL
;        (CL-SMTP-TESTS::FORMAT CL-SMTP-TESTS::NIL "~C~C" #\Return #\Newline)))
;      (CL-SMTP-TESTS::TMPSTR
;       (CL-SMTP-TESTS::FORMAT CL-SMTP-TESTS::NIL
;        "--~A~AContent-type: text/plain;~% name*=UTF-8''foo%5Cbar;~% name=\"foo\\\\bar\"~AContent-Disposition: attachment; filename*=UTF-8''foo%5Cbar; filename=\"foo\\\\bar\"~AContent-Transfer-Encoding: base64~A~A"
;        CL-SMTP-TESTS::BOUNDARY CL-SMTP-TESTS::RETURNNEWLINE
;        CL-SMTP-TESTS::RETURNNEWLINE CL-SMTP-TESTS::RETURNNEWLINE
;        CL-SMTP-TESTS::RETURNNEWLINE CL-SMTP-TESTS::RETURNNEWLINE)))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP-TESTS::EQUAL CL-SMTP-TESTS::HEADERSTR CL-SMTP-TESTS::TMPSTR)
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFUN FILE-TO-USB8-BUFFER
;     ((CL-SMTP-TESTS::FLENGTH (CL-SMTP-TESTS::FILE-LENGTH CL-SMTP-TESTS::S))
;      (CL-SMTP-TESTS::BUFFER
;       (CL-SMTP-TESTS::MAKE-ARRAY CL-SMTP-TESTS::FLENGTH :ELEMENT-TYPE
;        '(CL-SMTP-TESTS::UNSIGNED-BYTE 8))))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     ((CL-SMTP-TESTS::BCHAR
;       (CL-SMTP-TESTS::READ-BYTE CL-SMTP-TESTS::S CL-SMTP-TESTS::NIL
;        'CL-SMTP-TESTS::EOF)))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     'CL-SMTP-TESTS::EOF
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFINE-CL-SMTP-TEST "base64-encode-file"
;     ((CL-SMTP-TESTS::P
;       (CL-SMTP-TESTS::MERGE-PATHNAMES "tests.lisp"
;        (CL-SMTP-TESTS::GET-COMPONENT-PATHNAME)))
;      (CL-SMTP-TESTS::BASE64STR1
;       (CL-SMTP-TESTS::WITH-OUTPUT-TO-STRING (CL-SMTP-TESTS::S)
;        (CL-SMTP-TESTS::BASE64-ENCODE-FILE CL-SMTP-TESTS::P CL-SMTP-TESTS::S)))
;      (CL-SMTP-TESTS::BUFFER
;       (CL-SMTP-TESTS::FILE-TO-USB8-BUFFER CL-SMTP-TESTS::P))
;      (CL-SMTP-TESTS::BASE64STR2
;       (CL-BASE64:USB8-ARRAY-TO-BASE64-STRING CL-SMTP-TESTS::BUFFER :COLUMNS 0)))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     #'CL-SMTP-TESTS::EQUAL
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFUN RUN-TEST
;     ((CL-SMTP-TESTS::TEST
;       (CL-SMTP-TESTS::GETHASH CL-SMTP-TESTS::NAME
;        CL-SMTP-TESTS::*CL-SMTP-TESTS*)))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (CL-SMTP-TESTS::FORMAT CL-SMTP-TESTS::T "~%run test: ~S ~@[(~A)~]~%"
;      CL-SMTP-TESTS::NAME (CL-SMTP-TESTS::CADR CL-SMTP-TESTS::TEST))
; ==>
;   "~%run test: ~S ~@[(~A)~]~%"
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-smtp/1fbda947e90501ff57ba1ac685bf5d5716e64d59/cl-smtp-20210926-git/tests.lisp
; in: DEFUN RUN-TESTS
;     ((CL-SMTP-TESTS::N
;       (CL-SMTP-TESTS::HASH-TABLE-COUNT CL-SMTP-TESTS::*CL-SMTP-TESTS*))
;      (CL-SMTP-TESTS::FAILED 'NIL) (CL-SMTP-TESTS::PASS 0))
; 
; caught COMMON-LISP:ERROR:
;   illegal function call

;     #'(CL-SMTP-TESTS::LAMBDA (CL-SMTP-TESTS::K CL-SMTP-TESTS::V)
;        (CL-SMTP-TESTS::DECLARE (CL-SMTP-TESTS::IGNORE CL-SMTP-TESTS::V))
;        (CL-SMTP-TESTS::IF
;         (CL-SMTP-TESTS::RUN-TEST CL-SMTP-TESTS::K CL-SMTP-TESTS::CATCH-ERRORS)
;         (CL-SMTP-TESTS::INCF CL-SMTP-TESTS::PASS)
;         (CL-SMTP-TESTS::PUSH CL-SMTP-TESTS::K CL-SMTP-TESTS::FAILED)))
; 
; caught COMMON-LISP:ERROR:
;   (LAMBDA (K V) (DECLARE (IGNORE V)) (IF (RUN-TEST K CATCH-ERRORS) (INCF PASS) (PUSH K FAILED))) is not a legal function name.

;     (CL-SMTP-TESTS::MAPHASH
;      #'(CL-SMTP-TESTS::LAMBDA (CL-SMTP-TESTS::K CL-SMTP-TESTS::V)
;         (CL-SMTP-TESTS::DECLARE (CL-SMTP-TESTS::IGNORE CL-SMTP-TESTS::V))
;         (CL-SMTP-TESTS::IF
;          (CL-SMTP-TESTS::RUN-TEST CL-SMTP-TESTS::K CL-SMTP-TESTS::CATCH-ERRORS)
;          (CL-SMTP-TESTS::INCF CL-SMTP-TESTS::PASS)
;          (CL-SMTP-TESTS::PUSH CL-SMTP-TESTS::K CL-SMTP-TESTS::FAILED)))
;      CL-SMTP-TESTS::*CL-SMTP-TESTS*)
; 
; note: deleting unreachable code

;     (CL-SMTP-TESTS::FORMAT CL-SMTP-TESTS::T "~%run ~D cl-smtp-tests~%~%"
;      (CL-SMTP-TESTS::HASH-TABLE-COUNT CL-SMTP-TESTS::*CL-SMTP-TESTS*))
; ==>
;   "~%run ~D cl-smtp-tests~%~%"
; 
; note: deleting unreachable code
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001BF8103}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-smtp-tests" "tests">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001BF8103}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100A4675D3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100A4675D3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100A4675D3}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-smtp-tests" "tests">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-smtp-tests" "tests">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-smtp-tests" "tests">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-smtp-tests" "tests">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005765813}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005765813}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-smtp-tests"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-smtp-tests">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-smtp-tests">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-smtp-tests")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-smtp-tests") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100575F03B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005721B5B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-smtp-tests") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-smtp-tests" "cl-smtp-tests")
23: (DEPCHECK::MAGIC "cl-smtp-tests" "cl-smtp-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-4KnN7mZT/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-smtp-tests" "cl-smtp-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-4KnN7mZT/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-4KnN7mZT/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
28: (SB-IMPL::START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 26 ERROR conditions
;   printed 25 notes