* (asdf:load-system :cl+ssl :force t) WARNING: System definition file #P"/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/cl+ssl.asd" contains definition for system "openssl-1.1.0". Please only define "cl+ssl" and secondary systems with a name starting with "cl+ssl/" (e.g. "cl+ssl/test") in that file. WARNING: System definition file #P"/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/flexi-streams-20180711-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. WARNING: System definition file #P"/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/trivial-garbage-20181018-git/trivial-garbage.asd" contains definition for system "trivial-garbage-tests". Please only define "trivial-garbage" and secondary systems with a name starting with "trivial-garbage/" (e.g. "trivial-garbage/test") in that file. WARNING: redefining UIOP/PACKAGE:FIND-PACKAGE* in DEFUN WARNING: redefining UIOP/PACKAGE:FIND-SYMBOL* in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-CALL in DEFUN WARNING: redefining UIOP/PACKAGE:INTERN* in DEFUN WARNING: redefining UIOP/PACKAGE:EXPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:IMPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:SHADOWING-IMPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:SHADOW* in DEFUN WARNING: redefining UIOP/PACKAGE:MAKE-SYMBOL* in DEFUN WARNING: redefining UIOP/PACKAGE:UNINTERN* in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-SHADOWING-P in DEFUN WARNING: redefining UIOP/PACKAGE:HOME-PACKAGE-P in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-PACKAGE-NAME in DEFUN WARNING: redefining UIOP/PACKAGE:STANDARD-COMMON-LISP-SYMBOL-P in DEFUN WARNING: redefining UIOP/PACKAGE:REIFY-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:UNREIFY-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:REIFY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:UNREIFY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::RECORD-FISHY in DEFUN WARNING: redefining UIOP/PACKAGE::WHEN-PACKAGE-FISHINESS in DEFMACRO WARNING: redefining UIOP/PACKAGE::NOTE-PACKAGE-FISHINESS in DEFMACRO WARNING: redefining UIOP/PACKAGE::SET-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::MAKE-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::GET-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL-IN-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:REHOME-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE-UNUSED in DEFUN WARNING: redefining UIOP/PACKAGE:DELETE-PACKAGE* in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGE-NAMES in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGES-FROM-NAMES in DEFUN WARNING: redefining UIOP/PACKAGE:FRESH-PACKAGE-NAME in DEFUN WARNING: redefining UIOP/PACKAGE:RENAME-PACKAGE-AWAY in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGE-DEFINITION-FORM in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-SHADOWING-IMPORT in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORTED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORT in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-INHERITED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-MIX in DEFUN WARNING: redefining UIOP/PACKAGE::RECYCLE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::SYMBOL-RECYCLED-P in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED-TO-USER in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORT in DEFUN WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:PARSE-DEFINE-PACKAGE-FORM in DEFUN WARNING: redefining UIOP/PACKAGE:DEFINE-PACKAGE in DEFMACRO WARNING: redefining UIOP/COMMON-LISP::LOOP* in DEFMACRO WARNING: redefining UIOP/COMMON-LISP::FROB-SUBSTRINGS in DEFUN WARNING: redefining UIOP/COMMON-LISP::COMPATFMT in DEFMACRO WARNING: redefining UIOP/UTILITY:DEFGENERIC* in DEFMACRO WARNING: redefining UIOP/UTILITY:DEFUN* in DEFMACRO WARNING: redefining UIOP/UTILITY:WITH-UPGRADABILITY in DEFMACRO WARNING: redefining UIOP/UTILITY:UIOP-DEBUG in DEFMACRO WARNING: redefining UIOP/UTILITY:LOAD-UIOP-DEBUG-UTILITY in DEFUN WARNING: redefining UIOP/UTILITY:NEST in DEFMACRO WARNING: redefining UIOP/UTILITY:IF-LET in DEFMACRO WARNING: redefining UIOP/UTILITY:PARSE-BODY in DEFUN WARNING: redefining UIOP/UTILITY:WHILE-COLLECTING in DEFMACRO WARNING: redefining UIOP/UTILITY:APPENDF in DEFMACRO WARNING: redefining UIOP/UTILITY:LENGTH=N-P in DEFUN WARNING: redefining UIOP/UTILITY:ENSURE-LIST in DEFUN WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEY in DEFUN WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEYS in DEFUN WARNING: redefining UIOP/UTILITY:EMPTYP in DEFUN WARNING: redefining UIOP/UTILITY:CHARACTER-TYPE-INDEX in DEFUN WARNING: redefining UIOP/UTILITY:BASE-STRING-P in DEFUN WARNING: redefining UIOP/UTILITY:STRINGS-COMMON-ELEMENT-TYPE in DEFUN WARNING: redefining UIOP/UTILITY:REDUCE/STRCAT in DEFUN WARNING: redefining UIOP/UTILITY:STRCAT in DEFUN WARNING: redefining UIOP/UTILITY:FIRST-CHAR in DEFUN WARNING: redefining UIOP/UTILITY:LAST-CHAR in DEFUN WARNING: redefining UIOP/UTILITY:SPLIT-STRING in DEFUN WARNING: redefining UIOP/UTILITY:STRING-PREFIX-P in DEFUN WARNING: redefining UIOP/UTILITY:STRING-SUFFIX-P in DEFUN WARNING: redefining UIOP/UTILITY:STRING-ENCLOSED-P in DEFUN WARNING: redefining UIOP/UTILITY:STRIPLN in DEFUN WARNING: redefining UIOP/UTILITY:STANDARD-CASE-SYMBOL-NAME in DEFUN WARNING: redefining UIOP/UTILITY:FIND-STANDARD-CASE-SYMBOL in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP*< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP<= in DEFUN WARNING: redefining UIOP/UTILITY:EARLIER-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS-EARLIEST in DEFUN WARNING: redefining UIOP/UTILITY:EARLIEST-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:LATER-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS-LATEST in DEFUN WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP-F in DEFMACRO WARNING: redefining UIOP/UTILITY:ENSURE-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:ACCESS-AT in DEFUN WARNING: redefining UIOP/UTILITY:ACCESS-AT-COUNT in DEFUN WARNING: redefining UIOP/UTILITY:CALL-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:CALL-FUNCTIONS in DEFUN WARNING: redefining UIOP/UTILITY:REGISTER-HOOK-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:COERCE-CLASS in DEFUN WARNING: redefining UIOP/UTILITY:ENSURE-GETHASH in DEFUN WARNING: redefining UIOP/UTILITY:LIST-TO-HASH-SET in DEFUN WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC< in DEFUN WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC<= in DEFUN WARNING: redefining UIOP/UTILITY:STYLE-WARN in DEFUN WARNING: redefining UIOP/UTILITY:MATCH-CONDITION-P in DEFUN WARNING: redefining UIOP/UTILITY:MATCH-ANY-CONDITION-P in DEFUN WARNING: redefining UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS in DEFUN WARNING: redefining UIOP/UTILITY:WITH-MUFFLED-CONDITIONS in DEFMACRO WARNING: redefining UIOP/UTILITY:NOT-IMPLEMENTED-ERROR in DEFUN WARNING: redefining UIOP/UTILITY:PARAMETER-ERROR in DEFUN WARNING: redefining UIOP/VERSION:UNPARSE-VERSION in DEFUN WARNING: redefining UIOP/VERSION:PARSE-VERSION in DEFUN WARNING: redefining UIOP/VERSION:NEXT-VERSION in DEFUN WARNING: redefining UIOP/VERSION:VERSION< in DEFUN WARNING: redefining UIOP/VERSION:VERSION<= in DEFUN WARNING: redefining UIOP/VERSION::DEPRECATED-FUNCTION-CONDITION-KIND in DEFUN WARNING: redefining PRINT-OBJECT (# #) in DEFMETHOD WARNING: redefining UIOP/VERSION::NOTIFY-DEPRECATED-FUNCTION in DEFUN WARNING: redefining UIOP/VERSION:VERSION-DEPRECATION in DEFUN WARNING: redefining UIOP/VERSION:WITH-DEPRECATION in DEFMACRO WARNING: redefining UIOP/OS:FEATUREP in DEFUN WARNING: redefining UIOP/OS:OS-MACOSX-P in DEFUN WARNING: redefining UIOP/OS:OS-UNIX-P in DEFUN WARNING: redefining UIOP/OS:OS-WINDOWS-P in DEFUN WARNING: redefining UIOP/OS:OS-GENERA-P in DEFUN WARNING: redefining UIOP/OS::OS-OLDMAC-P in DEFUN WARNING: redefining UIOP/OS::OS-HAIKU-P in DEFUN WARNING: redefining UIOP/OS:DETECT-OS in DEFUN WARNING: redefining UIOP/OS:OS-COND in DEFMACRO WARNING: redefining UIOP/OS:GETENV in DEFUN WARNING: redefining UIOP/OS:GETENVP in DEFUN WARNING: redefining UIOP/OS::FIRST-FEATURE in DEFUN WARNING: redefining UIOP/OS:IMPLEMENTATION-TYPE in DEFUN WARNING: redefining UIOP/OS:OPERATING-SYSTEM in DEFUN WARNING: redefining UIOP/OS:ARCHITECTURE in DEFUN WARNING: redefining UIOP/OS:LISP-VERSION-STRING in DEFUN WARNING: redefining UIOP/OS:IMPLEMENTATION-IDENTIFIER in DEFUN WARNING: redefining UIOP/OS:HOSTNAME in DEFUN WARNING: redefining UIOP/OS:GETCWD in DEFUN WARNING: redefining UIOP/OS:CHDIR in DEFUN WARNING: redefining UIOP/OS:READ-NULL-TERMINATED-STRING in DEFUN WARNING: redefining UIOP/OS:READ-LITTLE-ENDIAN in DEFUN WARNING: redefining UIOP/OS:PARSE-FILE-LOCATION-INFO in DEFUN WARNING: redefining UIOP/OS:PARSE-WINDOWS-SHORTCUT in DEFUN WARNING: redefining UIOP/PATHNAME:NORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:DENORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAME-DIRECTORY-COMPONENTS in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME* in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-COMPONENT-LOGICAL in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-LOGICAL in DEFUN WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAMES* in DEFUN WARNING: redefining UIOP/PATHNAME:LOGICAL-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PHYSICAL-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PHYSICALIZE-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:NIL-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:WITH-PATHNAME-DEFAULTS in DEFMACRO WARNING: redefining UIOP/PATHNAME:PATHNAME-EQUAL in DEFUN WARNING: redefining UIOP/PATHNAME:ABSOLUTE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:HIDDEN-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:FILE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-PARENT-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORY-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SPLIT-UNIX-NAMESTRING-DIRECTORY-COMPONENTS in DEFUN WARNING: redefining UIOP/PATHNAME:SPLIT-NAME-TYPE in DEFUN WARNING: redefining UIOP/PATHNAME:PARSE-UNIX-NAMESTRING in DEFUN WARNING: redefining UIOP/PATHNAME:UNIX-NAMESTRING in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHNAME* in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-ROOT in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-HOST-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-ABSOLUTE-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHP in DEFUN WARNING: redefining UIOP/PATHNAME:ENOUGH-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:WITH-ENOUGH-PATHNAME in DEFMACRO WARNING: redefining UIOP/PATHNAME:WILDEN in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVIZE-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVIZE-PATHNAME-DIRECTORY in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORY-SEPARATOR-FOR-HOST in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORIZE-PATHNAME-HOST-DEVICE in DEFUN WARNING: redefining UIOP/FILESYSTEM:NATIVE-NAMESTRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:PARSE-NATIVE-NAMESTRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:TRUENAME* in DEFUN WARNING: redefining UIOP/FILESYSTEM:SAFE-FILE-WRITE-DATE in DEFUN WARNING: redefining UIOP/FILESYSTEM:PROBE-FILE* in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-EXISTS-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:FILE-EXISTS-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY* in DEFUN WARNING: redefining UIOP/FILESYSTEM:FILTER-LOGICAL-DIRECTORY-RESULTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-FILES in DEFUN WARNING: redefining UIOP/FILESYSTEM:SUBDIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:COLLECT-SUB*DIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:TRUENAMIZE in DEFUN WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS in DEFUN WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS* in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-PATHNAME in DEFUN WARNING: redefining UIOP/FILESYSTEM:GET-PATHNAME-DEFAULTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:CALL-WITH-CURRENT-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:WITH-CURRENT-DIRECTORY in DEFMACRO WARNING: redefining UIOP/FILESYSTEM:INTER-DIRECTORY-SEPARATOR in DEFUN WARNING: redefining UIOP/FILESYSTEM:SPLIT-NATIVE-PATHNAMES-STRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAME in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAMES in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-PATHNAME-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:ENSURE-ALL-DIRECTORIES-EXIST in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-FILE-IF-EXISTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:RENAME-FILE-OVERWRITING-TARGET in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-EMPTY-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-DIRECTORY-TREE in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDIN in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDOUT in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDERR in DEFUN WARNING: redefining UIOP/STREAM:ALWAYS-DEFAULT-ENCODING in DEFUN WARNING: redefining UIOP/STREAM:DETECT-ENCODING in DEFUN WARNING: redefining UIOP/STREAM:DEFAULT-ENCODING-EXTERNAL-FORMAT in DEFUN WARNING: redefining UIOP/STREAM:ENCODING-EXTERNAL-FORMAT in DEFUN WARNING: redefining UIOP/STREAM:WITH-SAFE-IO-SYNTAX in DEFMACRO WARNING: redefining UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FROM-STRING in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-OUTPUT-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-OUTPUT-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::CALL-WITH-OUTPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-OUTPUT in DEFMACRO WARNING: redefining UIOP/STREAM:OUTPUT-STRING in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-INPUT-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-INPUT-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::CALL-WITH-INPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-INPUT in DEFMACRO WARNING: redefining UIOP/STREAM:INPUT-STRING in DEFUN WARNING: redefining UIOP/STREAM:NULL-DEVICE-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-INPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-NULL-INPUT in DEFMACRO WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-OUTPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-NULL-OUTPUT in DEFMACRO WARNING: redefining UIOP/STREAM:FINISH-OUTPUTS in DEFUN WARNING: redefining UIOP/STREAM:FORMAT! in DEFUN WARNING: redefining UIOP/STREAM:SAFE-FORMAT! in DEFUN WARNING: redefining UIOP/STREAM:COPY-STREAM-TO-STREAM in DEFUN WARNING: redefining UIOP/STREAM:CONCATENATE-FILES in DEFUN WARNING: redefining UIOP/STREAM:COPY-FILE in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-STRING in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINES in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINE in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORMS in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORM in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-STRING in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-LINES in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-LINE in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-FORMS in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-FORM in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-LINE in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-FORM in DEFUN WARNING: redefining UIOP/STREAM:EVAL-INPUT in DEFUN WARNING: redefining UIOP/STREAM:EVAL-THUNK in DEFUN WARNING: redefining UIOP/STREAM:STANDARD-EVAL-THUNK in DEFUN WARNING: redefining UIOP/STREAM:PRINTLN in DEFUN WARNING: redefining UIOP/STREAM:WRITELN in DEFUN WARNING: redefining UIOP/STREAM:DEFAULT-TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:SETUP-TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-TEMPORARY-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-TEMPORARY-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::GET-TEMPORARY-FILE in DEFUN WARNING: redefining UIOP/STREAM:ADD-PATHNAME-SUFFIX in DEFUN WARNING: redefining UIOP/STREAM:TMPIZE-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-STAGING-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:WITH-STAGING-PATHNAME in DEFMACRO WARNING: redefining UIOP/STREAM:FILE-STREAM-P in DEFUN WARNING: redefining UIOP/STREAM:FILE-OR-SYNONYM-STREAM-P in DEFUN WARNING: redefining UIOP/IMAGE:QUIT in DEFUN WARNING: redefining UIOP/IMAGE:DIE in DEFUN WARNING: redefining UIOP/IMAGE:RAW-PRINT-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:PRINT-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:PRINT-CONDITION-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:FATAL-CONDITION-P in DEFUN WARNING: redefining UIOP/IMAGE:HANDLE-FATAL-CONDITION in DEFUN WARNING: redefining UIOP/IMAGE:CALL-WITH-FATAL-CONDITION-HANDLER in DEFUN WARNING: redefining UIOP/IMAGE:WITH-FATAL-CONDITION-HANDLER in DEFMACRO WARNING: redefining UIOP/IMAGE:SHELL-BOOLEAN-EXIT in DEFUN WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-RESTORE-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-DUMP-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:CALL-IMAGE-RESTORE-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:CALL-IMAGE-DUMP-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:RAW-COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:ARGV0 in DEFUN WARNING: redefining UIOP/IMAGE:SETUP-COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:RESTORE-IMAGE in DEFUN WARNING: redefining UIOP/IMAGE:DUMP-IMAGE in DEFUN WARNING: redefining UIOP/IMAGE:CREATE-IMAGE in DEFUN WARNING: redefining UIOP/LISP-BUILD:GET-OPTIMIZATION-SETTINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:PROCLAIM-OPTIMIZATION-SETTINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-OPTIMIZATION-SETTINGS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD::SB-GROVEL-UNKNOWN-CONSTANT-CONDITION-P in DEFUN WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-COMPILER-CONDITIONS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-COMPILER-CONDITIONS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-LOADER-CONDITIONS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-LOADER-CONDITIONS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS in DEFUN WARNING: redefining UIOP/LISP-BUILD:REIFY-SIMPLE-SEXP in DEFUN WARNING: redefining UIOP/LISP-BUILD:UNREIFY-SIMPLE-SEXP in DEFUN WARNING: redefining UIOP/LISP-BUILD::REIFY-UNDEFINED-WARNING in DEFUN WARNING: redefining UIOP/LISP-BUILD:REIFY-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:UNREIFY-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:RESET-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:SAVE-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-TYPE in DEFUN WARNING: redefining UIOP/LISP-BUILD:ENABLE-DEFERRED-WARNINGS-CHECK in DEFUN WARNING: redefining UIOP/LISP-BUILD:DISABLE-DEFERRED-WARNINGS-CHECK in DEFUN WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-P in DEFUN WARNING: redefining UIOP/LISP-BUILD:CHECK-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD::CALL-WITH-SAVED-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-SAVED-DEFERRED-WARNINGS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CURRENT-LISP-FILE-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:LISPIZE-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-TYPE in DEFUN WARNING: redefining UIOP/LISP-BUILD:CALL-AROUND-HOOK in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-PATHNAME* in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD* in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD-FROM-STRING in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMBINE-FASLS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::REQUIRES-ESCAPING-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-WINDOWS-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::EASY-WINDOWS-CHARACTER-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-SH-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:EASY-SH-CHARACTER-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%NORMALIZE-IO-SPECIFIER in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%INTERACTIVEP in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%SIGNAL-TO-EXIT-CODE in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%CODE-TO-STATUS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-EXISTS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-DOES-NOT-EXIST in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-ERROR-OUTPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-INPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-OUTPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-PID in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%PROCESS-STATUS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-ALIVE-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:WAIT-PROCESS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%POSIX-SEND-SIGNAL in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:TERMINATE-PROCESS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:CLOSE-STREAMS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:LAUNCH-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::CALL-STREAM-PROCESSOR in DEFUN WARNING: redefining UIOP/RUN-PROGRAM:SLURP-INPUT-STREAM in DEFGENERIC WARNING: redefining SLURP-INPUT-STREAM (# #) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (# #) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (# #) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (# #) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (# #) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (# #) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (# #) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (# #) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (# #) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (# #) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (# #) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (# #) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (# #) in DEFMETHOD WARNING: redefining UIOP/RUN-PROGRAM:VOMIT-OUTPUT-STREAM in DEFGENERIC WARNING: redefining VOMIT-OUTPUT-STREAM (# #) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (# #) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (# #) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (# #) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (# #) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (# #) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (# #) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (# #) in DEFMETHOD WARNING: redefining UIOP/RUN-PROGRAM::%CHECK-RESULT in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%ACTIVE-IO-SPECIFIER-P in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%RUN-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%CALL-WITH-PROGRAM-IO in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::PLACE-SETTER in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-INPUT in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-OUTPUT in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-ERROR-OUTPUT in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::%USE-LAUNCH-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%NORMALIZE-SYSTEM-COMMAND in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%REDIRECTED-SYSTEM-COMMAND in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%SYSTEM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%USE-SYSTEM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM:RUN-PROGRAM in DEFUN WARNING: redefining UIOP/CONFIGURATION:CONFIGURATION-INHERITANCE-DIRECTIVE-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:REPORT-INVALID-FORM in DEFUN WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FORM in DEFUN WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FILE in DEFUN WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:RESOLVE-RELATIVE-LOCATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:RESOLVE-ABSOLUTE-LOCATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:LOCATION-DESIGNATOR-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:LOCATION-FUNCTION-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:REGISTER-CLEAR-CONFIGURATION-HOOK in DEFUN WARNING: redefining UIOP/CONFIGURATION:CLEAR-CONFIGURATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:UPGRADE-CONFIGURATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:GET-FOLDER-PATH in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-DIRS in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-DIRS in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CACHE-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-RUNTIME-DIR in DEFUN WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIG-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:FILTER-PATHNAME-SET in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:FIND-PREFERRED-FILE in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION::COMPUTE-USER-CACHE in DEFUN WARNING: redefining UIOP/BACKWARD-DRIVER:COERCE-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION:USER-CONFIGURATION-DIRECTORIES in DEFUN WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIGURATION-DIRECTORIES in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-FIRST-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-USER-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-SYSTEM-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/BACKWARD-DRIVER:VERSION-COMPATIBLE-P in DEFUN ; compiling file "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/package.lisp" (written 18 SEP 2018 06:17:33 AM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFPACKAGE :CL+SSL ...) ; wrote /home/phoe/.cache/common-lisp/sbcl-1.4.15-linux-x64/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/package-tmpAAURSO1.fasl ; compilation finished in 0:00:00.033 ; compiling file "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/reload.lisp" (written 18 SEP 2018 06:17:33 AM): ; compiling (IN-PACKAGE :CL+SSL) ; compiling (CFFI:DEFINE-FOREIGN-LIBRARY LIBCRYPTO ...) ; compiling (CFFI:DEFINE-FOREIGN-LIBRARY LIBSSL ...) ; compiling (CFFI:DEFINE-FOREIGN-LIBRARY LIBEAY32 ...) ; compiling (UNLESS (MEMBER :CL+SSL-FOREIGN-LIBS-ALREADY-LOADED ...) ...) ; wrote /home/phoe/.cache/common-lisp/sbcl-1.4.15-linux-x64/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/reload-tmp5GEXGEG5.fasl ; compilation finished in 0:00:00.026 ; compiling file "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/conditions.lisp" (written 18 SEP 2018 06:17:33 AM): ; compiling (IN-PACKAGE :CL+SSL) ; compiling (DEFCONSTANT +SSL-ERROR-NONE+ ...) ; compiling (DEFCONSTANT +SSL-ERROR-SSL+ ...) ; compiling (DEFCONSTANT +SSL-ERROR-WANT-READ+ ...) ; compiling (DEFCONSTANT +SSL-ERROR-WANT-WRITE+ ...) ; compiling (DEFCONSTANT +SSL-ERROR-WANT-X509-LOOKUP+ ...) ; compiling (DEFCONSTANT +SSL-ERROR-SYSCALL+ ...) ; compiling (DEFCONSTANT +SSL-ERROR-ZERO-RETURN+ ...) ; compiling (DEFCONSTANT +SSL-ERROR-WANT-CONNECT+ ...) ; compiling (DEFUN READ-SSL-ERROR-QUEUE ...) ; compiling (DEFUN FORMAT-SSL-ERROR-QUEUE ...) ; compiling (DEFINE-CONDITION CL+SSL-ERROR ...) ; compiling (DEFINE-CONDITION SSL-ERROR ...) ; compiling (DEFINE-CONDITION SSL-ERROR/HANDLE ...) ; compiling (DEFINE-CONDITION SSL-ERROR-INITIALIZE ...) ; compiling (DEFINE-CONDITION SSL-ERROR-WANT-SOMETHING ...) ; compiling (DEFINE-CONDITION SSL-ERROR-NONE ...) ; compiling (DEFINE-CONDITION SSL-ERROR-ZERO-RETURN ...) ; compiling (DEFINE-CONDITION SSL-ERROR-WANT-READ ...) ; compiling (DEFINE-CONDITION SSL-ERROR-WANT-WRITE ...) ; compiling (DEFINE-CONDITION SSL-ERROR-WANT-CONNECT ...) ; compiling (DEFINE-CONDITION SSL-ERROR-WANT-X509-LOOKUP ...) ; compiling (DEFINE-CONDITION SSL-ERROR-SYSCALL ...) ; compiling (DEFINE-CONDITION SSL-ERROR-SSL ...) ; compiling (DEFUN SSL-SIGNAL-ERROR ...) ; compiling (DEFPARAMETER *SSL-VERIFY-ERROR-ALIST* ...) ; compiling (DEFUN SSL-VERIFY-ERROR-KEYWORD ...) ; compiling (DEFUN SSL-VERIFY-ERROR-CODE ...) ; compiling (DEFINE-CONDITION SSL-ERROR-VERIFY ...) ; compiling (DEFINE-CONDITION SSL-ERROR-CALL ...) ; compiling (DEFINE-CONDITION ASN1-ERROR ...) ; compiling (DEFINE-CONDITION INVALID-ASN1-STRING ...) ; compiling (DEFINE-CONDITION SERVER-CERTIFICATE-MISSING ...) ; wrote /home/phoe/.cache/common-lisp/sbcl-1.4.15-linux-x64/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/conditions-tmpAR3FSGEY.fasl ; compilation finished in 0:00:00.088 ; compiling file "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp" (written 18 SEP 2018 06:17:33 AM): ; compiling (IN-PACKAGE :CL+SSL) ; compiling (DEFVAR *CL+SSL-SSL-FOREIGN-FUNCTION-NAMES* ...) ; compiling (DEFVAR *CL+SSL-CRYPTO-FOREIGN-FUNCTION-NAMES* ...) ; compiling (DEFMACRO DEFINE-SSL-FUNCTION ...) ; compiling (DEFMACRO DEFINE-CRYPTO-FUNCTION ...) ; compiling (DEFVAR *SSL-GLOBAL-CONTEXT* ...) ; compiling (DEFVAR *SSL-GLOBAL-METHOD* ...) ; compiling (DEFVAR *BIO-LISP-METHOD* ...) ; compiling (DEFPARAMETER *BLOCKP* ...) ; compiling (DEFPARAMETER *PARTIAL-READ-P* ...) ; compiling (DEFUN SSL-INITIALIZED-P ...) ; compiling (DEFCONSTANT +SSL-FILETYPE-PEM+ ...) ; compiling (DEFCONSTANT +SSL-FILETYPE-ASN1+ ...) ; compiling (DEFCONSTANT +SSL-FILETYPE-DEFAULT+ ...) ; compiling (DEFCONSTANT +SSL-CTRL-OPTIONS+ ...) ; compiling (DEFCONSTANT +SSL_CTRL_SET_SESS_CACHE_MODE+ ...) ; compiling (DEFCONSTANT +SSL_CTRL_MODE+ ...) ; compiling (DEFCONSTANT +SSL_MODE_ACCEPT_MOVING_WRITE_BUFFER+ ...) ; compiling (DEFCONSTANT +RSA_F4+ ...) ; compiling (DEFCONSTANT +SSL-SESS-CACHE-OFF+ ...) ; compiling (DEFCONSTANT +SSL-SESS-CACHE-CLIENT+ ...) ; compiling (DEFCONSTANT +SSL-SESS-CACHE-SERVER+ ...) ; compiling (DEFCONSTANT +SSL-SESS-CACHE-BOTH+ ...) ; compiling (DEFCONSTANT +SSL-SESS-CACHE-NO-AUTO-CLEAR+ ...) ; compiling (DEFCONSTANT +SSL-SESS-CACHE-NO-INTERNAL-LOOKUP+ ...) ; compiling (DEFCONSTANT +SSL-SESS-CACHE-NO-INTERNAL-STORE+ ...) ; compiling (DEFCONSTANT +SSL-SESS-CACHE-NO-INTERNAL+ ...) ; compiling (DEFCONSTANT +SSL-VERIFY-NONE+ ...) ; compiling (DEFCONSTANT +SSL-VERIFY-PEER+ ...) ; compiling (DEFCONSTANT +SSL-VERIFY-FAIL-IF-NO-PEER-CERT+ ...) ; compiling (DEFCONSTANT +SSL-VERIFY-CLIENT-ONCE+ ...) ; compiling (DEFCONSTANT +SSL-OP-ALL+ ...) ; compiling (DEFCONSTANT +SSL-OP-NO-SSLV2+ ...) ; compiling (DEFCONSTANT +SSL-OP-NO-SSLV3+ ...) ; compiling (DEFCONSTANT +SSL-OP-NO-TLSV1+ ...) ; compiling (DEFCONSTANT +SSL-OP-NO-TLSV1-2+ ...) ; compiling (DEFCONSTANT +SSL-OP-NO-TLSV1-1+ ...) ; compiling (DEFVAR *TMP-RSA-KEY-512* ...) ; compiling (DEFVAR *TMP-RSA-KEY-1024* ...) ; compiling (DEFVAR *TMP-RSA-KEY-2048* ...) ; compiling (DEFMACRO WHILE ...) ; compiling (CFFI:DEFCFUN ("close" CLOSE-SOCKET) ...) ; compiling (DECLAIM (INLINE SSL-WRITE ...)) ; compiling (CFFI:DEFCTYPE SSL-METHOD ...) ; compiling (CFFI:DEFCTYPE SSL-CTX ...) ; compiling (CFFI:DEFCTYPE SSL-POINTER ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_get_version" SSL-GET-VERSION) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("SSL_get_version" SSL-GET-VERSION) ; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_get_version" CL+SSL::SSL-GET-VERSION) ; :STRING ; (CL+SSL::SSL CL+SSL::SSL-POINTER)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_version" (:POINTER #:G0 :POINTER) ; :CONVENTION :CDECL :LIBRARY CL+SSL::LIBSSL) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; compiling (DEFINE-SSL-FUNCTION ("SSL_load_error_strings" SSL-LOAD-ERROR-STRINGS) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_library_init" SSL-LIBRARY-INIT) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSLv23_client_method" SSL-V23-CLIENT-METHOD) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("SSLv23_client_method" SSL-V23-CLIENT-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ("SSLv23_client_method" ; CL+SSL::SSL-V23-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V23-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_client_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY CL+SSL::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("SSLv23_server_method" SSL-V23-SERVER-METHOD) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("SSLv23_server_method" SSL-V23-SERVER-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ("SSLv23_server_method" ; CL+SSL::SSL-V23-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V23-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_server_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY CL+SSL::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("SSLv23_method" SSL-V23-METHOD) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("SSLv23_method" SSL-V23-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ("SSLv23_method" CL+SSL::SSL-V23-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V23-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("SSLv3_client_method" SSL-V3-CLIENT-METHOD) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("SSLv3_client_method" SSL-V3-CLIENT-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ("SSLv3_client_method" ; CL+SSL::SSL-V3-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V3-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_client_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("SSLv3_server_method" SSL-V3-SERVER-METHOD) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("SSLv3_server_method" SSL-V3-SERVER-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ("SSLv3_server_method" ; CL+SSL::SSL-V3-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V3-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_server_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("SSLv3_method" SSL-V3-METHOD) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("SSLv3_method" SSL-V3-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ("SSLv3_method" CL+SSL::SSL-V3-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V3-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_method" (:POINTER) :CONVENTION :CDECL ; :LIBRARY CL+SSL::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("TLSv1_client_method" SSL-TLSV1-CLIENT-METHOD) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("TLSv1_client_method" SSL-TLSV1-CLIENT-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ("TLSv1_client_method" ; CL+SSL::SSL-TLSV1-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_client_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("TLSv1_server_method" SSL-TLSV1-SERVER-METHOD) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("TLSv1_server_method" SSL-TLSV1-SERVER-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ("TLSv1_server_method" ; CL+SSL::SSL-TLSV1-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_server_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("TLSv1_method" SSL-TLSV1-METHOD) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("TLSv1_method" SSL-TLSV1-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ("TLSv1_method" CL+SSL::SSL-TLSV1-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_method" (:POINTER) :CONVENTION :CDECL ; :LIBRARY CL+SSL::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("TLSv1_1_client_method" SSL-TLSV1-1-CLIENT-METHOD) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: ; DEFINE-SSL-FUNCTION ("TLSv1_1_client_method" SSL-TLSV1-1-CLIENT-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ("TLSv1_1_client_method" ; CL+SSL::SSL-TLSV1-1-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-1-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_client_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY CL+SSL::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("TLSv1_1_server_method" SSL-TLSV1-1-SERVER-METHOD) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: ; DEFINE-SSL-FUNCTION ("TLSv1_1_server_method" SSL-TLSV1-1-SERVER-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ("TLSv1_1_server_method" ; CL+SSL::SSL-TLSV1-1-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-1-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_server_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY CL+SSL::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("TLSv1_1_method" SSL-TLSV1-1-METHOD) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("TLSv1_1_method" SSL-TLSV1-1-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ("TLSv1_1_method" CL+SSL::SSL-TLSV1-1-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-1-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("TLSv1_2_client_method" SSL-TLSV1-2-CLIENT-METHOD) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: ; DEFINE-SSL-FUNCTION ("TLSv1_2_client_method" SSL-TLSV1-2-CLIENT-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ("TLSv1_2_client_method" ; CL+SSL::SSL-TLSV1-2-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-2-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_client_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY CL+SSL::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("TLSv1_2_server_method" SSL-TLSV1-2-SERVER-METHOD) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: ; DEFINE-SSL-FUNCTION ("TLSv1_2_server_method" SSL-TLSV1-2-SERVER-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ("TLSv1_2_server_method" ; CL+SSL::SSL-TLSV1-2-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-2-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_server_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY CL+SSL::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("TLSv1_2_method" SSL-TLSV1-2-METHOD) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("TLSv1_2_method" SSL-TLSV1-2-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ("TLSv1_2_method" CL+SSL::SSL-TLSV1-2-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-2-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("SSL_CTX_new" SSL-CTX-NEW) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("SSL_CTX_new" SSL-CTX-NEW) ; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_CTX_new" CL+SSL::SSL-CTX-NEW) ; CL+SSL::SSL-CTX ; (METHOD CL+SSL::SSL-METHOD)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-NEW ; (METHOD) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTX-NEW ; (LET ((#:G0 METHOD)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_new" (:POINTER #:G0 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("SSL_new" SSL-NEW) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("SSL_new" SSL-NEW) ; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_new" CL+SSL::SSL-NEW) ; CL+SSL::SSL-POINTER ; (CL+SSL::CTX CL+SSL::SSL-CTX)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-NEW ; (CL+SSL::CTX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-NEW ; (LET ((#:G0 CL+SSL::CTX)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_new" (:POINTER #:G0 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("SSL_get_fd" SSL-GET-FD) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_set_fd" SSL-SET-FD) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_set_bio" SSL-SET-BIO) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_get_error" SSL-GET-ERROR) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_set_connect_state" SSL-SET-CONNECT-STATE) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_set_accept_state" SSL-SET-ACCEPT-STATE) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_connect" SSL-CONNECT) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_accept" SSL-ACCEPT) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_write" SSL-WRITE) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_read" SSL-READ) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_shutdown" SSL-SHUTDOWN) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_free" SSL-FREE) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_CTX_free" SSL-CTX-FREE) ...) ; compiling (DEFINE-CRYPTO-FUNCTION ("BIO_ctrl" BIO-SET-FD) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("BIO_ctrl" BIO-SET-FD) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("BIO_ctrl" CL+SSL::BIO-SET-FD) ; :LONG ; (CL+SSL::BIO :POINTER) ; (CL+SSL::CMD :INT) ; (CL+SSL::LARG :LONG) ; (CL+SSL::PARG :POINTER)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-SET-FD ; (CL+SSL::BIO CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-SET-FD ; (LET ((#:G0 CL+SSL::BIO)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; compiling (DEFINE-CRYPTO-FUNCTION ("BIO_new_socket" BIO-NEW-SOCKET) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("BIO_new_socket" BIO-NEW-SOCKET) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("BIO_new_socket" CL+SSL::BIO-NEW-SOCKET) ; :POINTER ; (CL+SSL::FD :INT) ; (CL+SSL::CLOSE-FLAG :INT)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-NEW-SOCKET ; (CL+SSL::FD CL+SSL::CLOSE-FLAG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-NEW-SOCKET ; (LET ((#:G0 CL+SSL::FD)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_new_socket" # :CONVENTION :CDECL ; :LIBRARY :DEFAULT))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-CRYPTO-FUNCTION ("BIO_new" BIO-NEW) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("BIO_new" BIO-NEW) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("BIO_new" CL+SSL::BIO-NEW) ; :POINTER ; (METHOD :POINTER)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-NEW ; (METHOD) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-NEW ; (LET ((#:G0 METHOD)) ; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_new" (:POINTER #:G0 :POINTER) ; :CONVENTION :CDECL :LIBRARY :DEFAULT)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-CRYPTO-FUNCTION ("ERR_get_error" ERR-GET-ERROR) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("ERR_get_error" ERR-GET-ERROR) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("ERR_get_error" CL+SSL::ERR-GET-ERROR) ; :UNSIGNED-LONG) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::ERR-GET-ERROR ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::ERR-GET-ERROR ; (CFFI-SYS:%FOREIGN-FUNCALL "ERR_get_error" (:UNSIGNED-LONG) :CONVENTION ; :CDECL :LIBRARY :DEFAULT))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; compiling (DEFINE-CRYPTO-FUNCTION ("ERR_error_string" ERR-ERROR-STRING) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("ERR_error_string" ERR-ERROR-STRING) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("ERR_error_string" CL+SSL::ERR-ERROR-STRING) ; :STRING ; (CL+SSL::E :UNSIGNED-LONG) ; (CL+SSL::BUF :POINTER)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET LET CFFI:TRANSLATE-FROM-FOREIGN ; --> CFFI-SYS:%FOREIGN-FUNCALL CFFI-SYS::%%FOREIGN-FUNCALL ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP LAMBDA FUNCTION ; --> SB-ALIEN-INTERNALS:NATURALIZE LET LET ; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN SB-C:%ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:DEPORT MULTIPLE-VALUE-BIND LET UNLESS IF ; ==> ; (SB-KERNEL:UNSIGNED-BYTE-64-P #:G13) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a FIXNUM. ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%FOREIGN-FUNCALL "ERR_error_string" ; (:UNSIGNED-LONG #:G0 :POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY :DEFAULT) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; compiling (DEFINE-SSL-FUNCTION ("SSL_set_cipher_list" SSL-SET-CIPHER-LIST) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_use_RSAPrivateKey_file" SSL-USE-RSA-PRIVATEKEY-FILE) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_CTX_use_RSAPrivateKey_file" SSL-CTX-USE-RSA-PRIVATEKEY-FILE) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_use_certificate_file" SSL-USE-CERTIFICATE-FILE) ...) ; compiling (DEFUN SSL-CTX-SET-OPTIONS ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFUN SSL-CTX-SET-OPTIONS ; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL-CTRL-OPTIONS+ CL+SSL::OPTIONS ; (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; compiling (DEFINE-SSL-FUNCTION ("SSL_CTX_set_cipher_list" SSL-CTX-SET-CIPHER-LIST%) ...) ; compiling (DEFUN SSL-CTX-SET-CIPHER-LIST ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_CTX_use_certificate_chain_file" SSL-CTX-USE-CERTIFICATE-CHAIN-FILE) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_CTX_load_verify_locations" SSL-CTX-LOAD-VERIFY-LOCATIONS) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_CTX_set_client_CA_list" SSL-CTX-SET-CLIENT-CA-LIST) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_load_client_CA_file" SSL-LOAD-CLIENT-CA-FILE) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: ; DEFINE-SSL-FUNCTION ("SSL_load_client_CA_file" SSL-LOAD-CLIENT-CA-FILE) ; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_load_client_CA_file" ; CL+SSL::SSL-LOAD-CLIENT-CA-FILE) ; CL+SSL::SSL-POINTER ; (CL+SSL::FILE :STRING)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-LOAD-CLIENT-CA-FILE ; (CL+SSL::FILE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-LOAD-CLIENT-CA-FILE ; (MULTIPLE-VALUE-BIND (#:G0 #:PARAM1) ; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::FILE ; #) ; (UNWIND-PROTECT (PROGN #) ; (CFFI:FREE-TRANSLATED-OBJECT #:G0 # #:PARAM1))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("SSL_CTX_ctrl" SSL-CTX-CTRL) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("SSL_CTX_ctrl" SSL-CTX-CTRL) ; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_CTX_ctrl" CL+SSL::SSL-CTX-CTRL) ; :LONG ; (CL+SSL::CTX CL+SSL::SSL-CTX) ; (CL+SSL::CMD :INT) ; (CL+SSL::LARG :UNSIGNED-LONG) ; (CL+SSL::PARG :POINTER)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET LET LET LET ; --> CFFI-SYS:%FOREIGN-FUNCALL CFFI-SYS::%%FOREIGN-FUNCALL ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP LAMBDA FUNCTION ; --> SB-ALIEN-INTERNALS:NATURALIZE LET LET LET LET ; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN SB-C:%ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:DEPORT MULTIPLE-VALUE-BIND LET UNLESS IF ; ==> ; (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a FIXNUM. ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-CTRL ; (CL+SSL::CTX CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTX-CTRL ; (LET ((#:G0 CL+SSL::CTX)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("SSL_ctrl" SSL-CTRL) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("SSL_ctrl" SSL-CTRL) ; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_ctrl" CL+SSL::SSL-CTRL) ; :LONG ; (CL+SSL::SSL :POINTER) ; (CL+SSL::CMD :INT) ; (CL+SSL::LARG :LONG) ; (CL+SSL::PARG :POINTER)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTRL ; (CL+SSL::SSL CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTRL ; (LET ((#:G0 CL+SSL::SSL)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("SSL_CTX_set_default_passwd_cb" SSL-CTX-SET-DEFAULT-PASSWD-CB) ...) ; compiling (DEFINE-CRYPTO-FUNCTION ("CRYPTO_num_locks" CRYPTO-NUM-LOCKS) ...) ; compiling (DEFINE-CRYPTO-FUNCTION ("CRYPTO_set_locking_callback" CRYPTO-SET-LOCKING-CALLBACK) ...) ; compiling (DEFINE-CRYPTO-FUNCTION ("CRYPTO_set_id_callback" CRYPTO-SET-ID-CALLBACK) ...) ; compiling (DEFINE-CRYPTO-FUNCTION ("RAND_seed" RAND-SEED) ...) ; compiling (DEFINE-CRYPTO-FUNCTION ("RAND_bytes" RAND-BYTES) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_CTX_set_verify_depth" SSL-CTX-SET-VERIFY-DEPTH) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_CTX_set_verify" SSL-CTX-SET-VERIFY) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_get_verify_result" SSL-GET-VERIFY-RESULT) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("SSL_get_verify_result" SSL-GET-VERIFY-RESULT) ; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_get_verify_result" ; CL+SSL::SSL-GET-VERIFY-RESULT) ; :LONG ; (CL+SSL::SSL CL+SSL::SSL-POINTER)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-VERIFY-RESULT ; (CL+SSL::SSL) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-GET-VERIFY-RESULT ; (LET ((#:G0 CL+SSL::SSL)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_verify_result" ; (:POINTER #:G0 :LONG) :CONVENTION :CDECL ; :LIBRARY CL+SSL::LIBSSL)))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; compiling (DEFINE-SSL-FUNCTION ("SSL_get_peer_certificate" SSL-GET-PEER-CERTIFICATE) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: ; DEFINE-SSL-FUNCTION ("SSL_get_peer_certificate" SSL-GET-PEER-CERTIFICATE) ; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_get_peer_certificate" ; CL+SSL::SSL-GET-PEER-CERTIFICATE) ; :POINTER ; (CL+SSL::SSL CL+SSL::SSL-POINTER)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-PEER-CERTIFICATE ; (CL+SSL::SSL) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-GET-PEER-CERTIFICATE ; (LET ((#:G0 CL+SSL::SSL)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_peer_certificate" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-CRYPTO-FUNCTION ("X509_free" X509-FREE) ...) ; compiling (DEFINE-CRYPTO-FUNCTION ("X509_NAME_oneline" X509-NAME-ONELINE) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("X509_NAME_oneline" X509-NAME-ONELINE) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("X509_NAME_oneline" ; CL+SSL::X509-NAME-ONELINE) ; :POINTER ; (CL+SSL::X509-NAME :POINTER) ; (CL+SSL::BUF :POINTER) ; (CL+SSL::SIZE :INT)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-ONELINE ; (CL+SSL::X509-NAME CL+SSL::BUF CL+SSL::SIZE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-NAME-ONELINE ; (LET ((#:G0 CL+SSL::X509-NAME)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_index_by_NID" X509-NAME-GET-INDEX-BY-NID) ...) ; compiling (DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_entry" X509-NAME-GET-ENTRY) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_entry" X509-NAME-GET-ENTRY) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_entry" ; CL+SSL::X509-NAME-GET-ENTRY) ; :POINTER ; (CL+SSL::NAME :POINTER) ; (LOG :INT)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-GET-ENTRY ; (CL+SSL::NAME LOG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-NAME-GET-ENTRY ; (LET ((#:G0 CL+SSL::NAME)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_NAME_get_entry" # :CONVENTION ; :CDECL :LIBRARY :DEFAULT))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-CRYPTO-FUNCTION ("X509_NAME_ENTRY_get_data" X509-NAME-ENTRY-GET-DATA) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: ; DEFINE-CRYPTO-FUNCTION ("X509_NAME_ENTRY_get_data" X509-NAME-ENTRY-GET-DATA) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("X509_NAME_ENTRY_get_data" ; CL+SSL::X509-NAME-ENTRY-GET-DATA) ; :POINTER ; (CL+SSL::NAME-ENTRY :POINTER)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-ENTRY-GET-DATA ; (CL+SSL::NAME-ENTRY) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-NAME-ENTRY-GET-DATA ; (LET ((#:G0 CL+SSL::NAME-ENTRY)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_NAME_ENTRY_get_data" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY :DEFAULT)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-CRYPTO-FUNCTION ("X509_get_issuer_name" X509-GET-ISSUER-NAME) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: ; DEFINE-CRYPTO-FUNCTION ("X509_get_issuer_name" X509-GET-ISSUER-NAME) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("X509_get_issuer_name" ; CL+SSL::X509-GET-ISSUER-NAME) ; :POINTER ; (CL+SSL::X509 :POINTER)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-ISSUER-NAME ; (CL+SSL::X509) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET-ISSUER-NAME ; (LET ((#:G0 CL+SSL::X509)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get_issuer_name" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY :DEFAULT)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-CRYPTO-FUNCTION ("X509_get_subject_name" X509-GET-SUBJECT-NAME) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: ; DEFINE-CRYPTO-FUNCTION ("X509_get_subject_name" X509-GET-SUBJECT-NAME) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("X509_get_subject_name" ; CL+SSL::X509-GET-SUBJECT-NAME) ; :POINTER ; (CL+SSL::X509 :POINTER)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-SUBJECT-NAME ; (CL+SSL::X509) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET-SUBJECT-NAME ; (LET ((#:G0 CL+SSL::X509)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get_subject_name" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY :DEFAULT)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-CRYPTO-FUNCTION ("X509_get_ext_d2i" X509-GET-EXT-D2I) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("X509_get_ext_d2i" X509-GET-EXT-D2I) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("X509_get_ext_d2i" CL+SSL::X509-GET-EXT-D2I) ; :POINTER ; (CL+SSL::CERT :POINTER) ; (CL+SSL::NID :INT) ; (CL+SSL::CRIT :POINTER) ; (CL+SSL::IDX :POINTER)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-EXT-D2I ; (CL+SSL::CERT CL+SSL::NID CL+SSL::CRIT CL+SSL::IDX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET-EXT-D2I ; (LET ((#:G0 CL+SSL::CERT)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-CRYPTO-FUNCTION ("X509_STORE_CTX_get_error" X509-STORE-CTX-GET-ERROR) ...) ; compiling (DEFINE-CRYPTO-FUNCTION ("d2i_X509" D2I-X509) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("d2i_X509" D2I-X509) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("d2i_X509" CL+SSL::D2I-X509) ; :POINTER ; (CL+SSL::*PX :POINTER) ; (CL+SSL::IN :POINTER) ; (CL+SSL::LEN :INT)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::D2I-X509 ; (CL+SSL::*PX CL+SSL::IN CL+SSL::LEN) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::D2I-X509 ; (LET ((#:G0 CL+SSL::*PX)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFCONSTANT +GEN-OTHERNAME+ ...) ; compiling (DEFCONSTANT +GEN-EMAIL+ ...) ; compiling (DEFCONSTANT +GEN-DNS+ ...) ; compiling (DEFCONSTANT +GEN-X400+ ...) ; compiling (DEFCONSTANT +GEN-DIRNAME+ ...) ; compiling (DEFCONSTANT +GEN-EDIPARTY+ ...) ; compiling (DEFCONSTANT +GEN-URI+ ...) ; compiling (DEFCONSTANT +GEN-IPADD+ ...) ; compiling (DEFCONSTANT +GEN-RID+ ...) ; compiling (DEFCONSTANT +V-ASN1-OCTET-STRING+ ...) ; compiling (DEFCONSTANT +V-ASN1-UTF8STRING+ ...) ; compiling (DEFCONSTANT +V-ASN1-PRINTABLESTRING+ ...) ; compiling (DEFCONSTANT +V-ASN1-TELETEXSTRING+ ...) ; compiling (DEFCONSTANT +V-ASN1-IASTRING+ ...) ; compiling (DEFCONSTANT +V-ASN1-UNIVERSALSTRING+ ...) ; compiling (DEFCONSTANT +V-ASN1-BMPSTRING+ ...) ; compiling (DEFCONSTANT +NID-SUBJECT-ALT-NAME+ ...) ; compiling (DEFCONSTANT +NID-COMMONNAME+ ...) ; compiling (CFFI:DEFCSTRUCT GENERAL-NAME ...) ; compiling (DEFINE-CRYPTO-FUNCTION ("sk_value" SK-VALUE) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("sk_value" SK-VALUE) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("sk_value" CL+SSL::SK-VALUE) ; :POINTER ; (CL+SSL::STACK :POINTER) ; (CL+SSL::INDEX :INT)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-VALUE ; (CL+SSL::STACK CL+SSL::INDEX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SK-VALUE ; (LET ((#:G0 CL+SSL::STACK)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "sk_value" # :CONVENTION :CDECL :LIBRARY ; :DEFAULT))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-CRYPTO-FUNCTION ("sk_num" SK-NUM) ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SK-GENERAL-NAME-VALUE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SK-GENERAL-NAME-NUM ...) ; compiling (DEFINE-CRYPTO-FUNCTION ("GENERAL_NAMES_free" GENERAL-NAMES-FREE) ...) ; compiling (DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_data" ASN1-STRING-DATA) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_data" ASN1-STRING-DATA) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_data" CL+SSL::ASN1-STRING-DATA) ; :POINTER ; (CL+SSL::ASN1-STRING :POINTER)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::ASN1-STRING-DATA ; (CL+SSL::ASN1-STRING) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::ASN1-STRING-DATA ; (LET ((#:G0 CL+SSL::ASN1-STRING)) ; (CFFI-SYS:%FOREIGN-FUNCALL "ASN1_STRING_data" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY :DEFAULT)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_length" ASN1-STRING-LENGTH) ...) ; compiling (DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_type" ASN1-STRING-TYPE) ...) ; compiling (CFFI:DEFCSTRUCT ASN1_STRING_ST ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_CTX_set_default_verify_paths" SSL-CTX-SET-DEFAULT-VERIFY-PATHS) ...) ; compiling (DEFINE-CRYPTO-FUNCTION ("RSA_generate_key" RSA-GENERATE-KEY) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("RSA_generate_key" RSA-GENERATE-KEY) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ("RSA_generate_key" CL+SSL::RSA-GENERATE-KEY) ; :POINTER ; (CL+SSL::NUM :INT) ; (CL+SSL::E :UNSIGNED-LONG) ; (CL+SSL::CALLBACK :POINTER) ; (CL+SSL::OPT :POINTER)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET LET LET LET ; --> CFFI-SYS:%FOREIGN-FUNCALL CFFI-SYS::%%FOREIGN-FUNCALL ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP LAMBDA FUNCTION ; --> SB-ALIEN-INTERNALS:NATURALIZE LET LET LET LET ; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN SB-C:%ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:DEPORT MULTIPLE-VALUE-BIND LET UNLESS IF ; ==> ; (SB-KERNEL:UNSIGNED-BYTE-64-P #:G21) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a FIXNUM. ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::RSA-GENERATE-KEY ; (CL+SSL::NUM CL+SSL::E CL+SSL::CALLBACK CL+SSL::OPT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::RSA-GENERATE-KEY ; (LET ((#:G0 CL+SSL::NUM)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (DEFINE-CRYPTO-FUNCTION ("RSA_free" RSA-FREE) ...) ; compiling (DEFINE-SSL-FUNCTION ("SSL_CTX_set_tmp_rsa_callback" SSL-CTX-SET-TMP-RSA-CALLBACK) ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: ; DEFINE-SSL-FUNCTION ("SSL_CTX_set_tmp_rsa_callback" ; SSL-CTX-SET-TMP-RSA-CALLBACK) ; (CL+SSL::DEFINE-SSL-FUNCTION ("SSL_CTX_set_tmp_rsa_callback" ; CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK) ; :POINTER ; (CL+SSL::CTX :POINTER) ; (CL+SSL::CALLBACK :POINTER)) ; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK ; (CL+SSL::CTX CL+SSL::CALLBACK) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK ; (LET ((#:G0 CL+SSL::CTX)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_set_tmp_rsa_callback" # ; :CONVENTION :CDECL :LIBRARY ; CL+SSL::LIBSSL))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; compiling (CFFI:DEFCALLBACK TMP-RSA-CALLBACK ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: CFFI:DEFCALLBACK TMP-RSA-CALLBACK ; (= CL+SSL::KEY-LENGTH 512) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (= CL+SSL::KEY-LENGTH 1024) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (CL+SSL::RSA-KEY (LENGTH) ; (CL+SSL::RSA-GENERATE-KEY LENGTH CL+SSL::+RSA_F4+ (CFFI-SYS:NULL-POINTER) ; (CFFI-SYS:NULL-POINTER))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; (CL+SSL::RSA-GENERATE-KEY LENGTH CL+SSL::+RSA_F4+ (CFFI-SYS:NULL-POINTER) ; (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; compiling (DEFVAR *SOCKET*) ; compiling (DECLAIM (INLINE ENSURE-SSL-FUNCALL)) ; compiling (DEFUN ENSURE-SSL-FUNCALL ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFUN ENSURE-SSL-FUNCALL ; (APPLY CL+SSL::FUNC CL+SSL::ARGS) ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL+SSL::FUNC) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FUNC is not known to be a function ; (PLUSP CL+SSL::NBYTES) ; ==> ; (> CL+SSL::NBYTES 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; compiling (DECLAIM (INLINE NONBLOCKING-SSL-FUNCALL)) ; compiling (DEFUN NONBLOCKING-SSL-FUNCALL ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFUN NONBLOCKING-SSL-FUNCALL ; (APPLY CL+SSL::FUNC CL+SSL::ARGS) ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL+SSL::FUNC) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FUNC is not known to be a function ; (PLUSP CL+SSL::NBYTES) ; ==> ; (> CL+SSL::NBYTES 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; compiling (DEFUN OUTPUT-WAIT ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFUN OUTPUT-WAIT ; (/ (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME)) ; INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a (NOT NULL), not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; compiling (DEFUN INPUT-WAIT ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFUN INPUT-WAIT ; (/ (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME)) ; INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a (NOT NULL), not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; compiling (DEFVAR *PEM-PASSWORD* ...) ; compiling (CFFI:DEFCALLBACK PEM-PASSWORD-CALLBACK ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: CFFI:DEFCALLBACK PEM-PASSWORD-CALLBACK ; (COERCE CL+SSL::*PEM-PASSWORD* 'BASE-STRING) ; --> THE IF REPLACE MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS NULL (AND (NOT BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'BASE-CHAR) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR CONS NULL (AND (NOT BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; CHARACTER ; (*)). ; compiling (DEFMACRO WITH-PEM-PASSWORD ...) ; compiling (DEFUN INIT-PRNG ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFUN INIT-PRNG ; (LENGTH CL+SSL::SEED-BYTE-SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (ELT CL+SSL::SEED-BYTE-SEQUENCE CL+SSL::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; (CL+SSL::RAND-SEED CL+SSL::PTR LENGTH) ; ; note: doing SAP to pointer coercion (cost 20) ; compiling (DEFUN SSL-CTX-SET-SESSION-CACHE-MODE ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFUN SSL-CTX-SET-SESSION-CACHE-MODE ; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL_CTRL_SET_SESS_CACHE_MODE+ ; CL+SSL::MODE (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; compiling (DEFUN SSL-SET-TLSEXT-HOST-NAME ...) ; compiling (DEFVAR *LOCKS*) ; compiling (DEFCONSTANT +CRYPTO-LOCK+ ...) ; compiling (DEFCONSTANT +CRYPTO-UNLOCK+ ...) ; compiling (DEFCONSTANT +CRYPTO-READ+ ...) ; compiling (DEFCONSTANT +CRYPTO-WRITE+ ...) ; compiling (CFFI:DEFCALLBACK LOCKING-CALLBACK ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: CFFI:DEFCALLBACK LOCKING-CALLBACK ; (ELT CL+SSL::*LOCKS* CL+SSL::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; compiling (DEFVAR *THREADS* ...) ; compiling (DEFVAR *THREAD-COUNTER* ...) ; compiling (DEFPARAMETER *GLOBAL-LOCK* ...) ; compiling (CFFI:DEFCALLBACK THREADID-CALLBACK ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: CFFI:DEFCALLBACK THREADID-CALLBACK ; (INCF CL+SSL::*THREAD-COUNTER*) ; --> SETQ THE ; ==> ; (+ 1 CL+SSL::*THREAD-COUNTER*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFVAR *SSL-CHECK-VERIFY-P* ...) ; compiling (DEFUN INITIALIZE ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi.lisp ; in: DEFUN INITIALIZE ; (FUNCALL METHOD) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL METHOD) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; compiling (DEFUN ENSURE-INITIALIZED ...) ; compiling (DEFUN USE-CERTIFICATE-CHAIN-FILE ...) ; compiling (DEFUN RELOAD ...) ; wrote /home/phoe/.cache/common-lisp/sbcl-1.4.15-linux-x64/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi-tmpJAIDFZTC.fasl ; compilation finished in 0:00:00.245 ; compiling file "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/x509.lisp" (written 18 SEP 2018 06:17:33 AM): ; compiling (IN-PACKAGE :CL+SSL) ; compiling (DEFGENERIC DECODE-ASN1-STRING ...) ; compiling (DEFUN COPY-BYTES-TO-LISP-VECTOR ...) ; compiling (DEFUN ASN1-STRING-BYTES-VECTOR ...) ; compiling (DEFUN ASN1-IASTRING-CHAR-P ...) ; compiling (DEFUN ASN1-IASTRING-P ...) ; compiling (DEFMETHOD DECODE-ASN1-STRING ...) ; compiling (DEFUN ASN1-PRINTABLE-CHAR-P ...) ; compiling (DEFUN ASN1-PRINTABLE-STRING-P ...) ; compiling (DEFMETHOD DECODE-ASN1-STRING ...) ; compiling (DEFMETHOD DECODE-ASN1-STRING ...) ; compiling (DEFMETHOD DECODE-ASN1-STRING ...) ; compiling (DEFUN ASN1-TELETEX-CHAR-P ...) ; compiling (DEFUN ASN1-TELETEX-STRING-P ...) ; compiling (DEFMETHOD DECODE-ASN1-STRING ...) ; compiling (DEFMETHOD DECODE-ASN1-STRING ...) ; compiling (DEFUN TRY-GET-ASN1-STRING-DATA ...) ; compiling (DEFUN SLURP-STREAM ...) ; compiling (DEFMETHOD DECODE-CERTIFICATE ...) ; compiling (DEFUN CERT-FORMAT-FROM-PATH ...) ; compiling (DEFUN DECODE-CERTIFICATE-FROM-FILE ...) ; compiling (DEFUN CERTIFICATE-ALT-NAMES ...) ; compiling (DEFUN CERTIFICATE-DNS-ALT-NAMES ...) ; compiling (DEFUN CERTIFICATE-SUBJECT-COMMON-NAMES ...) ; wrote /home/phoe/.cache/common-lisp/sbcl-1.4.15-linux-x64/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/x509-tmp8V3J6PE9.fasl ; compilation finished in 0:00:00.077 ; compiling file "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi-buffer-all.lisp" (written 18 SEP 2018 06:17:33 AM): ; compiling (IN-PACKAGE :CL+SSL) ; compiling (DEFCONSTANT +INITIAL-BUFFER-SIZE+ ...) ; compiling (DECLAIM (INLINE MAKE-BUFFER ...)) ; wrote /home/phoe/.cache/common-lisp/sbcl-1.4.15-linux-x64/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi-buffer-all-tmp9V47YWQF.fasl ; compilation finished in 0:00:00.030 ; compiling file "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi-buffer.lisp" (written 18 SEP 2018 06:17:33 AM): ; compiling (IN-PACKAGE :CL+SSL) ; compiling (DEFUN MAKE-BUFFER ...) ; compiling (DEFUN BUFFER-LENGTH ...) ; compiling (DEFUN BUFFER-ELT ...) ; compiling (DEFUN SET-BUFFER-ELT ...) ; compiling (DEFSETF BUFFER-ELT ...) ; compiling (DEFUN S/B-REPLACE ...) ; compiling (DEFUN B/S-REPLACE ...) ; compiling (DEFMACRO WITH-POINTER-TO-VECTOR-DATA ...) ; wrote /home/phoe/.cache/common-lisp/sbcl-1.4.15-linux-x64/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/ffi-buffer-tmp9BN22RMA.fasl ; compilation finished in 0:00:00.037 ; compiling file "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/streams.lisp" (written 18 SEP 2018 06:17:33 AM): ; compiling (IN-PACKAGE :CL+SSL) ; compiling (DEFVAR *DEFAULT-CIPHER-LIST* ...) ; compiling (DEFCLASS SSL-STREAM ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/streams.lisp ; in: DEFMETHOD PRINT-OBJECT (SSL-STREAM T) ; (FORMAT STREAM "for ~A" (CL+SSL::SSL-STREAM-SOCKET CL+SSL::OBJECT)) ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$for ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-STRING "for " STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G8) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) ; BASE-STRING), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) ; BASE-STRING), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) ; BASE-STRING), not a NULL. ; compiling (DEFCLASS SSL-SERVER-STREAM ...) ; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...) ; compiling (DEFMETHOD CLOSE ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/streams.lisp ; in: DEFMETHOD CLOSE (SSL-STREAM) ; (FUNCALL (CL+SSL::SSL-CLOSE-CALLBACK STREAM)) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (CL+SSL::SSL-CLOSE-CALLBACK STREAM)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; compiling (DEFMETHOD OPEN-STREAM-P ...) ; compiling (DEFMETHOD STREAM-LISTEN ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/streams.lisp ; in: DEFMETHOD STREAM-LISTEN (SSL-STREAM) ; (CL+SSL::BUFFER-ELT CL+SSL::BUF 0) ; --> BLOCK ELT AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; compiling (DEFMETHOD STREAM-READ-BYTE ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/streams.lisp ; in: DEFMETHOD STREAM-READ-BYTE (SSL-STREAM) ; (CL+SSL::BUFFER-ELT CL+SSL::BUF 0) ; --> BLOCK ELT AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; compiling (DEFMETHOD STREAM-READ-SEQUENCE ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/streams.lisp ; in: DEFMETHOD STREAM-READ-SEQUENCE (SSL-STREAM T T T) ; (PLUSP LENGTH) ; ==> ; (> LENGTH 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (< CL+SSL::START CL+SSL::END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (SETF (ELT CL+SSL::SEQ CL+SSL::START) (CL+SSL::SSL-STREAM-PEEKED-BYTE STREAM)) ; ==> ; (SB-KERNEL:%SETELT CL+SSL::SEQ CL+SSL::START ; (CL+SSL::SSL-STREAM-PEEKED-BYTE STREAM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; --> BLOCK ; ==> ; (LENGTH CL+SSL::BUF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL+SSL::S/B-REPLACE CL+SSL::SEQ CL+SSL::BUF :START1 CL+SSL::START :END1 ; (+ CL+SSL::START CL+SSL::READ-BYTES)) ; --> BLOCK ; ==> ; (REPLACE CL+SSL::SEQ CL+SSL::BUF :START1 CL+SSL::START1 :END1 CL+SSL::END1 ; :START2 CL+SSL::START2 :END2 CL+SSL::END2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY SINGLE-FLOAT (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; SINGLE-FLOAT (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; DOUBLE-FLOAT (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR. ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a SIMPLE-BIT-VECTOR. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 2) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 4) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 7) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 8) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 15) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 16) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 31) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 32) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 62) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 63) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 64) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 8) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY (SIGNED-BYTE 16) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 16) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY (SIGNED-BYTE 32) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 32) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY FIXNUM (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY FIXNUM (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY (SIGNED-BYTE 64) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 64) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) ; (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY ; (COMPLEX SINGLE-FLOAT) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (COMPLEX SINGLE-FLOAT) ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY ; (COMPLEX DOUBLE-FLOAT) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (COMPLEX DOUBLE-FLOAT) ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; (MIN (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; --> LET LET IF <= OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> LET LET IF <= OR LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (< CL+SSL::START CL+SSL::END) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (- CL+SSL::END CL+SSL::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (MIN (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; --> LET LET IF <= OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (PLUSP LENGTH) ; ==> ; (> LENGTH 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (+ CL+SSL::START CL+SSL::READ-BYTES) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (INCF CL+SSL::START CL+SSL::READ-BYTES) ; ==> ; (SETQ CL+SSL::START (+ CL+SSL::READ-BYTES CL+SSL::START)) ; ; note: doing signed word to integer coercion (cost 20) to START ; compiling (DEFMETHOD STREAM-WRITE-BYTE ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/streams.lisp ; in: DEFMETHOD STREAM-WRITE-BYTE (SSL-STREAM T) ; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; --> LET* ; ==> ; (+ 1 (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM3)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SETF (CL+SSL::BUFFER-ELT CL+SSL::BUF ; (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; CL+SSL::B) ; --> CL+SSL::SET-BUFFER-ELT BLOCK SETF ; ==> ; (SB-KERNEL:%SETELT CL+SSL::BUF CL+SSL::INDEX CL+SSL::VAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; --> BLOCK ; ==> ; (LENGTH CL+SSL::BUF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; --> LET* ; ==> ; (+ 1 (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM3)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFMETHOD STREAM-WRITE-SEQUENCE ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/streams.lisp ; in: DEFMETHOD STREAM-WRITE-SEQUENCE (SSL-STREAM T T T) ; (> ; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; --> BLOCK ; ==> ; (LENGTH CL+SSL::BUF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (> (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; --> BLOCK ; ==> ; (LENGTH CL+SSL::BUF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL+SSL::B/S-REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 ; (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM) :START2 ; CL+SSL::START :END2 CL+SSL::END) ; --> BLOCK ; ==> ; (REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 CL+SSL::START1 :END1 CL+SSL::END1 ; :START2 CL+SSL::START2 :END2 CL+SSL::END2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; SINGLE-FLOAT (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; DOUBLE-FLOAT (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR. ; The second argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 2) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 4) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 7) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 8) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 15) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 16) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 31) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 32) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 62) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 63) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 64) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 8) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 16) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 32) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY FIXNUM (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 64) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) ; (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (COMPLEX SINGLE-FLOAT) ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (COMPLEX DOUBLE-FLOAT) ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-VECTOR. ; The second argument is a SEQUENCE, not a SIMPLE-VECTOR. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-VECTOR ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; (CL+SSL::B/S-REPLACE CL+SSL::BUF CL+SSL::SEQ :START2 CL+SSL::START) ; --> BLOCK ; ==> ; (REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 CL+SSL::START1 :END1 CL+SSL::END1 ; :START2 CL+SSL::START2 :END2 CL+SSL::END2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; SINGLE-FLOAT (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; DOUBLE-FLOAT (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR. ; The second argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 2) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 4) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 7) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 8) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 15) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 16) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 31) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 32) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 62) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 63) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 64) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 8) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 16) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 32) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY FIXNUM (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 64) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) ; (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (COMPLEX SINGLE-FLOAT) ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (COMPLEX DOUBLE-FLOAT) ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-VECTOR. ; The second argument is a SEQUENCE, not a SIMPLE-VECTOR. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-VECTOR ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; --> BLOCK ; ==> ; (LENGTH CL+SSL::BUF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (- CL+SSL::END CL+SSL::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (> ; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; (- CL+SSL::END CL+SSL::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (> (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM) ; (- CL+SSL::END CL+SSL::START)) ; --> LET* ; ==> ; (+ (- CL+SSL::END CL+SSL::START) ; (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM27)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (INCF CL+SSL::START (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ==> ; (SETQ CL+SSL::START (+ (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) CL+SSL::START)) ; ; note: doing signed word to integer coercion (cost 20) to START ; compiling (DEFMETHOD STREAM-FINISH-OUTPUT ...) ; compiling (DEFMETHOD STREAM-FORCE-OUTPUT ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/streams.lisp ; in: DEFMETHOD STREAM-FORCE-OUTPUT (SSL-STREAM) ; (PLUSP CL+SSL::FILL-PTR) ; ==> ; (> CL+SSL::FILL-PTR 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; compiling (DEFUN INSTALL-NONBLOCK-FLAG ...) ; compiling (DEFUN INSTALL-HANDLE-AND-BIO ...) ; compiling (DEFUN INSTALL-KEY-AND-CERT ...) ; compiling (DEFUN X509-CERTIFICATE-NAMES ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/streams.lisp ; in: DEFUN X509-CERTIFICATE-NAMES ; (CFFI-SYS:WITH-FOREIGN-POINTER (CL+SSL::BUF 1024) ; (LET ((CL+SSL::ISSUER-NAME ; (CL+SSL::X509-GET-ISSUER-NAME CL+SSL::X509-CERTIFICATE)) ; (CL+SSL::SUBJECT-NAME ; (CL+SSL::X509-GET-SUBJECT-NAME CL+SSL::X509-CERTIFICATE))) ; (VALUES ; (UNLESS (CFFI-SYS:NULL-POINTER-P CL+SSL::ISSUER-NAME) ; (CL+SSL::X509-NAME-ONELINE CL+SSL::ISSUER-NAME CL+SSL::BUF 1024) ; (CFFI:FOREIGN-STRING-TO-LISP CL+SSL::BUF)) ; (UNLESS (CFFI-SYS:NULL-POINTER-P CL+SSL::SUBJECT-NAME) ; (CL+SSL::X509-NAME-ONELINE CL+SSL::SUBJECT-NAME CL+SSL::BUF 1024) ; (CFFI:FOREIGN-STRING-TO-LISP CL+SSL::BUF))))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET ; --> SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN SB-SYS:%PRIMITIVE ; ==> ; (SB-C::%%PRIMITIVE ; '# ; '(1024)) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of ALLOC-ALIEN-STACK-SPACE ; compiling (DEFMETHOD SSL-STREAM-HANDLE ...) ; compiling (DEFUN SSL-STREAM-X509-CERTIFICATE ...) ; compiling (DEFUN SSL-LOAD-GLOBAL-VERIFY-LOCATIONS ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/streams.lisp ; in: DEFUN SSL-LOAD-GLOBAL-VERIFY-LOCATIONS ; (CL+SSL::SSL-CTX-LOAD-VERIFY-LOCATIONS CL+SSL::*SSL-GLOBAL-CONTEXT* ; CL+SSL::CAFILE (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; compiling (DEFUN SSL-SET-GLOBAL-DEFAULT-VERIFY-PATHS ...) ; compiling (DEFUN SSL-CHECK-VERIFY-P ...) ; compiling (DEFUN (SETF SSL-CHECK-VERIFY-P) ...) ; compiling (DEFUN SSL-VERIFY-INIT ...) ; compiling (DEFUN MAYBE-VERIFY-CLIENT-STREAM ...) ; compiling (DEFUN HANDLE-EXTERNAL-FORMAT ...) ; compiling (DEFMACRO WITH-NEW-SSL ...) ; compiling (DEFVAR *MAKE-SSL-CLIENT-STREAM-VERIFY-DEFAULT* ...) ; compiling (DEFUN MAKE-SSL-CLIENT-STREAM ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/streams.lisp ; in: DEFUN MAKE-SSL-CLIENT-STREAM ; (ZEROP (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST)) ; ==> ; (= (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; compiling (DEFUN MAKE-SSL-SERVER-STREAM ...) ; file: /home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/streams.lisp ; in: DEFUN MAKE-SSL-SERVER-STREAM ; (ZEROP (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST)) ; ==> ; (= (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; compiling (DEFGENERIC STREAM-FD ...) ; compiling (DEFMETHOD STREAM-FD ...) ; compiling (DEFMETHOD STREAM-FD ...) ; wrote /home/phoe/.cache/common-lisp/sbcl-1.4.15-linux-x64/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/streams-tmp1CXFJSK9.fasl ; compilation finished in 0:00:00.124 ; compiling file "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/bio.lisp" (written 18 SEP 2018 06:17:33 AM): ; compiling (IN-PACKAGE CL+SSL) ; compiling (DEFCONSTANT +BIO-TYPE-SOCKET+ ...) ; compiling (DEFCONSTANT +BIO_FLAGS_READ+ ...) ; compiling (DEFCONSTANT +BIO_FLAGS_WRITE+ ...) ; compiling (DEFCONSTANT +BIO_FLAGS_SHOULD_RETRY+ ...) ; compiling (DEFCONSTANT +BIO_CTRL_FLUSH+ ...) ; compiling (CFFI:DEFCSTRUCT BIO-METHOD ...) ; compiling (CFFI:DEFCSTRUCT BIO ...) ; compiling (DEFUN MAKE-BIO-LISP-METHOD ...) ; compiling (DEFUN BIO-NEW-LISP ...) ; compiling (CFFI:DEFCALLBACK LISP-WRITE ...) ; compiling (DEFUN CLEAR-RETRY-FLAGS ...) ; compiling (DEFUN SET-RETRY-READ ...) ; compiling (CFFI:DEFCALLBACK LISP-READ ...) ; compiling (CFFI:DEFCALLBACK LISP-PUTS ...) ; compiling (CFFI:DEFCALLBACK LISP-CTRL ...) ; compiling (CFFI:DEFCALLBACK LISP-CREATE ...) ; compiling (CFFI:DEFCALLBACK LISP-DESTROY ...) ; compiling (SETF *BIO-LISP-METHOD* ...) ; wrote /home/phoe/.cache/common-lisp/sbcl-1.4.15-linux-x64/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/bio-tmpX4BRKI0R.fasl ; compilation finished in 0:00:00.085 ; compiling file "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/random.lisp" (written 18 SEP 2018 06:17:33 AM): ; compiling (IN-PACKAGE :CL+SSL) ; compiling (DEFUN RANDOM-BYTES ...) ; wrote /home/phoe/.cache/common-lisp/sbcl-1.4.15-linux-x64/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/random-tmpQ371UGST.fasl ; compilation finished in 0:00:00.034 ; compiling file "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/context.lisp" (written 18 SEP 2018 06:17:33 AM): ; compiling (IN-PACKAGE :CL+SSL) ; compiling (DEFINE-CONDITION VERIFY-LOCATION-NOT-FOUND-ERROR ...) ; compiling (DEFUN VALIDATE-VERIFY-LOCATION ...) ; compiling (DEFUN ADD-VERIFY-LOCATIONS ...) ; compiling (DEFUN SSL-CTX-SET-VERIFY-LOCATION ...) ; compiling (ALEXANDRIA.0.DEV:DEFINE-CONSTANT +DEFAULT-CIPHER-LIST+ ...) ; compiling (CFFI:DEFCALLBACK VERIFY-PEER-CALLBACK ...) ; compiling (DEFUN MAKE-CONTEXT ...) ; compiling (DEFUN CALL-WITH-GLOBAL-CONTEXT ...) ; compiling (DEFMACRO WITH-GLOBAL-CONTEXT ...) ; wrote /home/phoe/.cache/common-lisp/sbcl-1.4.15-linux-x64/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/context-tmp2OWI3Q7U.fasl ; compilation finished in 0:00:00.043 ; compiling file "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/verify-hostname.lisp" (written 18 SEP 2018 06:17:33 AM): ; compiling (IN-PACKAGE :CL+SSL) ; compiling (DEFINE-CONDITION HOSTNAME-VERIFICATION-ERROR ...) ; compiling (DEFINE-CONDITION UNABLE-TO-MATCH-ALTNAMES ...) ; compiling (DEFINE-CONDITION UNABLE-TO-DECODE-COMMON-NAME ...) ; compiling (DEFINE-CONDITION UNABLE-TO-MATCH-COMMON-NAME ...) ; compiling (DEFUN CASE-INSENSITIVE-MATCH ...) ; compiling (DEFUN REMOVE-TRAILING-DOT ...) ; compiling (DEFUN CHECK-WILDCARD-IN-LEFTMOST-LABEL ...) ; compiling (DEFUN CHECK-SINGLE-WILDCARD ...) ; compiling (DEFUN CHECK-TWO-LABELS-AFTER-WILDCARD ...) ; compiling (DEFUN VALIDATE-AND-PARSE-WILDCARD-IDENTIFIER ...) ; compiling (DEFUN WILDCARD-NOT-IN-A-LABEL ...) ; compiling (DEFUN TRY-MATCH-WILDCARD ...) ; compiling (DEFUN MAYBE-TRY-MATCH-WILDCARD ...) ; compiling (DEFUN TRY-MATCH-HOSTNAME ...) ; compiling (DEFUN TRY-MATCH-HOSTNAMES ...) ; compiling (DEFUN MAYBE-CHECK-SUBJECT-CN ...) ; compiling (DEFUN VERIFY-HOSTNAME ...) ; wrote /home/phoe/.cache/common-lisp/sbcl-1.4.15-linux-x64/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/cl+ssl-20181018-git/src/verify-hostname-tmp9KKTJMYV.fasl ; compilation finished in 0:00:00.016 ; ; compilation unit finished ; printed 195 notes T *