SBCL 2.5.5.114-85e41f89c / ASDF 3.3.5
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::INSTALL-PACKAGE-LOCAL-NICKNAMES 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::FROB-SUBSTRINGS in DEFUN WARNING: redefining UIOP/COMMON-LISP::COMPATFMT in DEFMACRO WARNING: redefining UIOP/UTILITY::ENSURE-FUNCTION-NOTINLINE in DEFUN 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/UTILITY:BOOLEAN-TO-FEATURE-EXPRESSION in DEFUN WARNING: redefining UIOP/UTILITY:SYMBOL-TEST-TO-FEATURE-EXPRESSION 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 (#<SB-PCL::CONDITION-CLASS UIOP/VERSION:DEPRECATED-FUNCTION-CONDITION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) 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::OS-MEZZANO-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/PATHNAME:TRANSLATE-PATHNAME* 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: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::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:COMPILE-FILE* 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 (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINES> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINE> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORMS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining UIOP/RUN-PROGRAM:VOMIT-OUTPUT-STREAM in DEFGENERIC WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) 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:RESOLVE-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/CONFIGURATION:UIOP-DIRECTORY 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 ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/new-cl/conduits.lisp ; in: DEFUN CLONE-PACKAGES-TO-PACKAGE ; (FIRST IOLIB/INTERNAL/CONDUITS::E) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (PUSH IOLIB/INTERNAL/CONDUITS::E IOLIB/INTERNAL/CONDUITS::ALIASES) ; ; note: deleting unreachable code ; (SETF (IOLIB/INTERNAL/CONDUITS::HP-ALIAS-MAP IOLIB/INTERNAL/CONDUITS::TO) ; (NREVERSE IOLIB/INTERNAL/CONDUITS::ALIASES)) ; ; note: deleting unreachable code WARNING: IOLIB/COMMON-LISP also exports the following symbols: (LONG-FLOAT-NEGATIVE-EPSILON QUOTE DEFINE-SETF-EXPANDER SORT DELETE-DUPLICATES SETF WITH-OUTPUT-TO-STRING COERCE AREF WITH-CONDITION-RESTARTS COND NRECONC MAKE-INSTANCE DECLARATION EVAL-WHEN BIT BUTLAST OPEN-STREAM-P BOOLE STABLE-SORT MACHINE-TYPE SYMBOL-PLIST LOOP POP COUNT-IF DESTRUCTURING-BIND NUMBERP DEFPACKAGE CDDR ARRAY-ROW-MAJOR-INDEX LDB LOGTEST FUNCTION-KEYWORDS CHAR-GREATERP CLOSE INTERNAL-TIME-UNITS-PER-SECOND CDAR PATHNAME CONCATENATED-STREAM-STREAMS PHASE INVOKE-RESTART-INTERACTIVELY PARSE-ERROR COMPLEXP FDEFINITION DIGIT-CHAR /= TYPEP DO* ARRAY-DISPLACEMENT MIN FMAKUNBOUND LONG-FLOAT-EPSILON TREE-EQUAL LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT NBUTLAST BLOCK *DEBUG-IO* PPRINT-EXIT-IF-LIST-EXHAUSTED WITH-OPEN-STREAM FLOATING-POINT-UNDERFLOW INVOKE-RESTART REMOVE UNBOUND-VARIABLE NSUBST-IF CDDAAR REMOVE-IF MAKE-SYNONYM-STREAM GETF COMPLEX REVERSE REMOVE-DUPLICATES FIND PRINT-NOT-READABLE-OBJECT END-OF-FILE CAR CADADR LET FROUND CODE-CHAR HANDLER-CASE ED BOOLE-ORC2 FLET STRING>= RESTART-CASE FLOATING-POINT-OVERFLOW ARRAY-RANK WRITE-STRING MULTIPLE-VALUE-SETQ UNREAD-CHAR CONCATENATE *MACROEXPAND-HOOK* LOGIOR STRING-STREAM GO &KEY EQUAL KEYWORDP MAKE-CONCATENATED-STREAM CLEAR-INPUT NSUBLIS LOGANDC2 FLOAT-DIGITS ASINH FLOAT-SIGN REINITIALIZE-INSTANCE *BREAK-ON-SIGNALS* PRINT-NOT-READABLE MOST-NEGATIVE-LONG-FLOAT SET-PPRINT-DISPATCH HASH-TABLE-COUNT *** STRING-NOT-GREATERP STRING-RIGHT-TRIM *COMPILE-FILE-TRUENAME* CASE REMOVE-METHOD ROUND MAPLIST MACROLET DRIBBLE COMPILE-FILE-PATHNAME EVERY *PRINT-RADIX* SEARCH CADDAR UNTRACE LEAST-POSITIVE-LONG-FLOAT SIMPLE-ERROR FUNCALL NULL BIT-NOT COMPUTE-RESTARTS &ENVIRONMENT THROW REALPART *PRINT-BASE* CHANGE-CLASS CIS CLASS-NAME PACKAGE-NAME *DEBUGGER-HOOK* HANDLER-BIND BIT-VECTOR CONSTANTP READTABLEP STANDARD-CHAR-P *ERROR-OUTPUT* MEMBER DISASSEMBLE NCONC COMPILE-FILE TYPE-ERROR-DATUM BIT-AND FILE-STREAM DEFMETHOD SIXTH ECHO-STREAM-OUTPUT-STREAM STRING-EQUAL CONSTANTLY ACONS MOST-POSITIVE-SINGLE-FLOAT ARRAY-DIMENSION DIGIT-CHAR-P ALPHA-CHAR-P STYLE-WARNING READTABLE MAKE-PATHNAME *READ-DEFAULT-FLOAT-FORMAT* *PRINT-GENSYM* STRING> FUNCTION-LAMBDA-EXPRESSION MOST-NEGATIVE-DOUBLE-FLOAT STANDARD-GENERIC-FUNCTION RETURN-FROM NSTRING-DOWNCASE BIT-EQV PUSH ASSOC SIMPLE-CONDITION-FORMAT-ARGUMENTS SIMPLE-STRING MAKE-RANDOM-STATE LOGNOR CELL-ERROR ELT LOGORC1 FILE-POSITION TRANSLATE-PATHNAME FIND-CLASS ARRAY-RANK-LIMIT ROTATEF INTEGER-LENGTH CDDDDR FRESH-LINE BASE-CHAR ASSOC-IF FLOATING-POINT-INVALID-OPERATION DEPOSIT-FIELD REVAPPEND VECTOR-PUSH-EXTEND SUBSTITUTE-IF PUSHNEW SIMPLE-BIT-VECTOR SET RASSOC SYMBOL-VALUE WRITE-SEQUENCE VECTOR STRING-DOWNCASE FOURTH NUMBER PROG1 READ-PRESERVING-WHITESPACE *PRINT-LENGTH* NUMERATOR UPDATE-INSTANCE-FOR-DIFFERENT-CLASS FCEILING FILE-STRING-LENGTH DEFGENERIC CAADDR *READ-BASE* MAKE-TWO-WAY-STREAM SOME WITH-INPUT-FROM-STRING PARSE-INTEGER BOOLE-EQV SET-DISPATCH-MACRO-CHARACTER CHAR-UPCASE CCASE ASIN READ *STANDARD-OUTPUT* TYPE-ERROR-EXPECTED-TYPE ADJUST-ARRAY SYNONYM-STREAM RESTART-NAME LOGNAND TANH LCM PATHNAME-DEVICE CONTINUE PAIRLIS EXPORT // INTEGERP NTHCDR *PRINT-PPRINT-DISPATCH* SET-EXCLUSIVE-OR *READ-EVAL* DO-SYMBOLS PRINT PROVIDE SET-DIFFERENCE CHARACTERP BIT-XOR NAMESTRING COMPILE GET-INTERNAL-RUN-TIME INITIALIZE-INSTANCE DEFINE-COMPILER-MACRO ISQRT STREAM-EXTERNAL-FORMAT COPY-READTABLE DEFCLASS < INLINE APPEND ASSOC-IF-NOT NEXT-METHOD-P STRING-CAPITALIZE LEAST-NEGATIVE-LONG-FLOAT WITH-ACCESSORS PROCLAIM ARITHMETIC-ERROR-OPERANDS SHIFTF GET-SETF-EXPANSION LISP-IMPLEMENTATION-TYPE LONG-FLOAT UPPER-CASE-P CDR ETYPECASE OPEN STORAGE-CONDITION FLOAT-PRECISION METHOD-COMBINATION MACHINE-VERSION *PRINT-LINES* BIT-ORC1 SIGNAL DECODE-UNIVERSAL-TIME CHAR-CODE-LIMIT IGNORE CDADR MACRO-FUNCTION SPECIAL-OPERATOR-P TAGBODY RANDOM MISMATCH NOTINLINE SHADOW CONS CADAAR SUBLIS CHAR-INT LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT DIRECTORY-NAMESTRING ACOS DEFINE-CONDITION TRACE LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT LIST SCHAR EQL MAKE-HASH-TABLE ECASE SLOT-EXISTS-P GENSYM MOST-NEGATIVE-SINGLE-FLOAT COPY-STRUCTURE FUNCTIONP ERROR FLOATING-POINT-INEXACT HOST-NAMESTRING BOOLE-CLR &OPTIONAL PATHNAMEP PATHNAME-TYPE ATOM PRIN1-TO-STRING LEAST-NEGATIVE-DOUBLE-FLOAT SEQUENCE *PACKAGE* PPRINT-LOGICAL-BLOCK RETURN BOOLE-C1 = DOCUMENTATION BOOLE-ORC1 PROGN IN-PACKAGE DECLAIM EVAL LOAD-TIME-VALUE DELETE-PACKAGE CHAR> STORE-VALUE GENTEMP BIGNUM FIRST DECODE-FLOAT BOOLE-2 READ-CHAR-NO-HANG FILE-LENGTH MEMBER-IF-NOT BUILT-IN-CLASS NSUBSTITUTE-IF PATHNAME-DIRECTORY DOTIMES THIRD SYMBOL-FUNCTION NSET-EXCLUSIVE-OR LOGANDC1 LET* NSUBSTITUTE-IF-NOT BROADCAST-STREAM FLOAT-RADIX CONJUGATE CERROR FINISH-OUTPUT ALLOCATE-INSTANCE GET-OUTPUT-STREAM-STRING READ-BYTE *READ-SUPPRESS* MOST-NEGATIVE-FIXNUM MEMBER-IF DIVISION-BY-ZERO SIMPLE-CONDITION-FORMAT-CONTROL MULTIPLE-VALUES-LIMIT MAPCAR REMHASH LEAST-NEGATIVE-SHORT-FLOAT SAFETY MAKE-ECHO-STREAM PATHNAME-HOST BOOLE-XOR CALL-METHOD SUBST-IF KEYWORD DEBUG BIT-ANDC1 TAILP WRITE-CHAR STRING-TRIM IDENTITY WRITE SETQ TENTH *LOAD-TRUENAME* BYTE-POSITION ENCODE-UNIVERSAL-TIME *COMPILE-FILE-PATHNAME* SYMBOL BOOLE-SET VECTORP MAPHASH VECTOR-POP MACHINE-INSTANCE COPY-TREE MACROEXPAND-1 DPB METHOD MAKE-BROADCAST-STREAM CATCH ROW-MAJOR-AREF COUNT-IF-NOT FTYPE SYMBOL-PACKAGE SHORT-SITE-NAME BOTH-CASE-P TYPECASE NOT CAAAAR DIRECTORY NSTRING-UPCASE SIMPLE-WARNING SIMPLE-BIT-VECTOR-P RATIONAL CALL-ARGUMENTS-LIMIT OR RASSOC-IF-NOT SHADOWING-IMPORT SIGNUM SINH MERGE-PATHNAMES FILE-NAMESTRING STRING-NOT-EQUAL GET-DISPATCH-MACRO-CHARACTER CHARACTER LEAST-POSITIVE-SINGLE-FLOAT ADD-METHOD STRING-LEFT-TRIM CADR INSPECT / SPECIAL DOUBLE-FLOAT-EPSILON INCF ARRAY-DIMENSIONS COUNT PPRINT-FILL LEAST-POSITIVE-SHORT-FLOAT WITH-COMPILATION-UNIT GETHASH EXPT SUBSETP FUNCTION CADDR MAKE-PACKAGE INTERN LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT ADJOIN PROGV BOOLE-AND *COMPILE-VERBOSE* + TRUNCATE STRING-NOT-LESSP REMF MAX NO-APPLICABLE-METHOD CDADAR * EVENP READ-FROM-STRING SLEEP ATAN LEAST-NEGATIVE-SINGLE-FLOAT > DECF SIMPLE-CONDITION MAPCAN WHEN LISP-IMPLEMENTATION-VERSION CLASS CHAR-NOT-LESSP PROBE-FILE T ASH INTERACTIVE-STREAM-P APPLY MAKE-STRING SIMPLE-BASE-STRING STANDARD-METHOD IMPORT POSITION-IF NINTH MOST-POSITIVE-FIXNUM APROPOS-LIST SHORT-FLOAT-EPSILON COMPUTE-APPLICABLE-METHODS BOOLE-NOR GCD READ-LINE VALUES-LIST STRINGP BOOLE-ANDC2 RESTART CDDAR SLOT-BOUNDP MUFFLE-WARNING CEILING READTABLE-CASE LDIFF HASH-TABLE-TEST BIT-ORC2 LAMBDA MULTIPLE-VALUE-CALL CAAAR 1- DELETE-IF *QUERY-IO* UNDEFINED-FUNCTION STRUCTURE PROG* FIND-ALL-SYMBOLS SIN YES-OR-NO-P TWO-WAY-STREAM-OUTPUT-STREAM PARSE-NAMESTRING *READTABLE* <= CHAR-LESSP DEFPARAMETER UNBOUND-SLOT /// CDAAAR DOUBLE-FLOAT-NEGATIVE-EPSILON STANDARD-CHAR LOCALLY MOST-POSITIVE-LONG-FLOAT LOGICAL-PATHNAME STANDARD IF OTHERWISE TWO-WAY-STREAM PPRINT-INDENT STREAM-ELEMENT-TYPE MASK-FIELD FILE-AUTHOR COPY-PPRINT-DISPATCH CADDDR COPY-ALIST FTRUNCATE DO-EXTERNAL-SYMBOLS >= READ-DELIMITED-LIST PPRINT-NEWLINE FIND-PACKAGE BIT-IOR MAP-INTO ARRAY-HAS-FILL-POINTER-P MINUSP DELETE SIMPLE-VECTOR STREAMP CTYPECASE CHAR= DO-ALL-SYMBOLS SIGNED-BYTE RATIO CDDDAR FIND-RESTART POSITION ARRAYP *RANDOM-STATE* DOUBLE-FLOAT LOGXOR LOAD-LOGICAL-PATHNAME-TRANSLATIONS SOFTWARE-VERSION CHAR-NAME SINGLE-FLOAT-EPSILON OPTIMIZE SLOT-MAKUNBOUND LAST LAMBDA-LIST-KEYWORDS ASSERT PRIN1 CLRHASH REMOVE-IF-NOT PACKAGE-SHADOWING-SYMBOLS SEVENTH BOOLE-1 MAKE-ARRAY MAKE-METHOD STRUCTURE-CLASS NSUBST-IF-NOT CHAR<= CLEAR-OUTPUT PEEK-CHAR PRINT-OBJECT COPY-SYMBOL COMPILER-MACRO-FUNCTION SYMBOL-NAME WITH-SLOTS CHAR-CODE CONSP ENSURE-GENERIC-FUNCTION WITH-PACKAGE-ITERATOR DEFMACRO VARIABLE FLOAT SCALE-FLOAT LIST* EIGHTH SHORT-FLOAT TYPE-OF NSET-DIFFERENCE CAADAR MAKE-CONDITION READ-CHAR CHAR>= ECHO-STREAM-INPUT-STREAM EXTENDED-CHAR CONDITION ABS MAKE-STRING-OUTPUT-STREAM FIND-METHOD BYTE DEFINE-MODIFY-MACRO STRING-LESSP Y-OR-N-P LENGTH GET-UNIVERSAL-TIME PRINT-UNREADABLE-OBJECT PLUSP ARRAY-ELEMENT-TYPE UNUSE-PACKAGE PPRINT-TAB GET-DECODED-TIME RENAME-PACKAGE ARITHMETIC-ERROR-OPERATION TERPRI ROOM ENDP STANDARD-CLASS LISTP FFLOOR CLASS-OF ALPHANUMERICP +++ STRING< LDB-TEST &ALLOW-OTHER-KEYS BIT-NOR MAPL DOLIST MERGE RPLACD IGNORE-ERRORS PACKAGE-NICKNAMES AND DEFTYPE MACROEXPAND CHECK-TYPE LOGNOT PPRINT USER-HOMEDIR-PATHNAME FILE-WRITE-DATE CDDDR ENSURE-DIRECTORIES-EXIST BREAK DEFUN WILD-PATHNAME-P MULTIPLE-VALUE-LIST SATISFIES FORCE-OUTPUT UPGRADED-ARRAY-ELEMENT-TYPE REMPROP UNEXPORT CONTROL-ERROR GET-PROPERTIES ACOSH LONG-SITE-NAME WITH-STANDARD-IO-SYNTAX DEFSETF SECOND BOOLE-IOR RENAME-FILE LOGBITP DEFINE-METHOD-COMBINATION INTERSECTION BIT-NAND SIMPLE-TYPE-ERROR SET-SYNTAX-FROM-CHAR TIME MAKE-SEQUENCE TAN CHAR-EQUAL FILL SUBTYPEP *PRINT-PRETTY* WRITE-TO-STRING NUNION INVOKE-DEBUGGER IMAGPART PPRINT-TABULAR WRITE-BYTE *PRINT-RIGHT-MARGIN* ++ *PRINT-LEVEL* RANDOM-STATE-P DENOMINATOR HASH-TABLE-REHASH-SIZE CELL-ERROR-NAME FILL-POINTER REAL LOGICAL-PATHNAME-TRANSLATIONS &BODY MOST-NEGATIVE-SHORT-FLOAT DEFVAR NSTRING-CAPITALIZE CHAR-NOT-GREATERP PATHNAME-NAME SXHASH SIMPLE-VECTOR-P FIND-IF-NOT FIND-SYMBOL GENERIC-FUNCTION BIT-ANDC2 CONCATENATED-STREAM BOOLE-ANDC1 SOFTWARE-TYPE *PRINT-ESCAPE* WARN TRANSLATE-LOGICAL-PATHNAME GRAPHIC-CHAR-P *LOAD-VERBOSE* GET LOG *TERMINAL-IO* RATIONALP *LOAD-PATHNAME* EQUALP SINGLE-FLOAT-NEGATIVE-EPSILON *PRINT-READABLY* COMPILED-FUNCTION-P CHAR MAKE-STRING-INPUT-STREAM METHOD-QUALIFIERS &AUX WARNING FLOATP MAPCON LOOP-FINISH ATANH STEP DO STRING/= TRUENAME INPUT-STREAM-P MAKE-INSTANCES-OBSOLETE SPEED FILE-ERROR-PATHNAME POSITION-IF-NOT MOST-POSITIVE-DOUBLE-FLOAT MAKE-SYMBOL BOUNDP *PRINT-MISER-WIDTH* PPRINT-POP LOGCOUNT *PRINT-ARRAY* PRINC-TO-STRING PPRINT-LINEAR NSUBSTITUTE USE-VALUE MAKE-LIST FIND-IF COPY-SEQ SET-MACRO-CHARACTER REDUCE CDADDR SUBSEQ CDAAR PACKAGE NTH RANDOM-STATE SIMPLE-STRING-P SQRT SYNONYM-STREAM-SYMBOL THE PACKAGE-USE-LIST *LOAD-PRINT* FBOUNDP REQUIRE CHAR-NOT-EQUAL CADAR NAME-CHAR RESTART-BIND WITH-HASH-TABLE-ITERATOR IGNORABLE DESCRIBE-OBJECT LIST-LENGTH STRING-GREATERP NREVERSE BOOLE-NAND CHAR-DOWNCASE COMPLEMENT PATHNAME-VERSION PROG *PRINT-CIRCLE* ARRAY-TOTAL-SIZE-LIMIT METHOD-COMBINATION-ERROR PSETQ UNBOUND-SLOT-INSTANCE LEAST-POSITIVE-DOUBLE-FLOAT PSETF REPLACE PACKAGE-ERROR NOTEVERY CHAR< ADJUSTABLE-ARRAY-P WITH-SIMPLE-RESTART SLOT-MISSING STREAM PROGRAM-ERROR COMPILATION-SPEED *TRACE-OUTPUT* STRING-UPCASE *FEATURES* EXP STRUCTURE-OBJECT PACKAGEP REM CAAR BROADCAST-STREAM-STREAMS MAKUNBOUND TWO-WAY-STREAM-INPUT-STREAM ECHO-STREAM READ-SEQUENCE MAPC &REST ENOUGH-NAMESTRING MOST-POSITIVE-SHORT-FLOAT SLOT-UNBOUND FORMATTER UNWIND-PROTECT WITH-OPEN-FILE COS LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT CHAR/= UNSIGNED-BYTE COSH LABELS ARRAY LOGAND NSUBST NTH-VALUE SYMBOLP &WHOLE VECTOR-PUSH STANDARD-OBJECT SHORT-FLOAT-NEGATIVE-EPSILON ODDP DEFSTRUCT DECLARE LIST-ALL-PACKAGES TYPE VALUES DESCRIBE ** SINGLE-FLOAT DELETE-FILE STRING<= STREAM-ERROR BASE-STRING LOWER-CASE-P LISTEN FIXNUM COPY-LIST ARITHMETIC-ERROR SLOT-VALUE SUBSTITUTE-IF-NOT TYPE-ERROR CALL-NEXT-METHOD LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT *COMPILE-PRINT* HASH-TABLE-SIZE MAKE-LOAD-FORM INTEGER-DECODE-FLOAT ARRAY-DIMENSION-LIMIT ARRAY-IN-BOUNDS-P MULTIPLE-VALUE-PROG1 READER-ERROR HASH-TABLE-P MAKE-LOAD-FORM-SAVING-SLOTS DYNAMIC-EXTENT *DEFAULT-PATHNAME-DEFAULTS* STRING= SERIOUS-CONDITION PATHNAME-MATCH-P GET-MACRO-CHARACTER LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT *GENSYM-COUNTER* RASSOC-IF MULTIPLE-VALUE-BIND 1+ INVALID-METHOD-ERROR ZEROP *MODULES* PI GET-INTERNAL-REAL-TIME FILE-ERROR *STANDARD-INPUT* LAMBDA-PARAMETERS-LIMIT BIT-VECTOR-P - SUBST SUBSTITUTE USE-PACKAGE MOD STRING INTEGER UNLESS SPACE UNINTERN FLOOR ARRAY-TOTAL-SIZE CAAADR OUTPUT-STREAM-P APROPOS NOTANY COMPILED-FUNCTION UPDATE-INSTANCE-FOR-REDEFINED-CLASS DEFINE-SYMBOL-MACRO UPGRADED-COMPLEX-PART-TYPE MAP BOOLE-C2 SBIT LOGORC2 NO-NEXT-METHOD EQ SVREF LEAST-POSITIVE-NORMALIZED-LONG-FLOAT PRINC HASH-TABLE-REHASH-THRESHOLD LOGEQV SIMPLE-ARRAY FORMAT SHARED-INITIALIZE LOAD CAADR PPRINT-DISPATCH BYTE-SIZE SUBST-IF-NOT ABORT MAKE-DISPATCH-MACRO-CHARACTER REALP STREAM-ERROR-STREAM RATIONALIZE PACKAGE-USED-BY-LIST WRITE-LINE PROG2 PACKAGE-ERROR-PACKAGE DELETE-IF-NOT RPLACA CDDADR *PRINT-CASE* UNION CDAADR NINTERSECTION FIFTH HASH-TABLE REST SYMBOL-MACROLET NIL COMPILER-MACRO) See also: The ANSI Standard, Macro COMMON-LISP:DEFPACKAGE The SBCL Manual, Variable SB-EXT:*ON-PACKAGE-VARIANCE* WARNING: IOLIB/BASE also exports the following symbols: (MOST-NEGATIVE-SINGLE-FLOAT PPRINT-TABULAR RESTART-BIND LOAD-LOGICAL-PATHNAME-TRANSLATIONS ALEXANDRIA:POSITIVE-INTEGER SPLIT-SEQUENCE:SPLIT-SEQUENCE-IF-NOT FCEILING ALEXANDRIA:NON-POSITIVE-DOUBLE-FLOAT ADJOIN HANDLER-CASE RESTART-NAME LOAD-TIME-VALUE CHAR= / MOST-POSITIVE-DOUBLE-FLOAT 1- MOST-POSITIVE-FIXNUM STRING-NOT-LESSP TYPECASE DEFCLASS ALEXANDRIA:MAP-PERMUTATIONS NOTEVERY ALEXANDRIA:MAP-IOTA MAKE-PACKAGE CONSTANTLY POSITION INVOKE-RESTART-INTERACTIVELY BIT-AND DECODE-FLOAT SLOT-BOUNDP CHAR-INT SYMBOL-FUNCTION CHAR-EQUAL PEEK-CHAR LOGNOT FUNDAMENTAL-BINARY-OUTPUT-STREAM ALEXANDRIA:MAPPEND ATAN PAIRLIS READ-LINE &REST ALEXANDRIA:DELETEF *PRINT-LENGTH* NAMESTRING CONJUGATE CDDAAR DIGIT-CHAR NUMBER SOME BOOLE-NAND PATHNAME-VERSION LCM COPY-TREE ALEXANDRIA:OF-TYPE READ-BYTE ALEXANDRIA:POSITIVE-RATIONAL ALEXANDRIA:POSITIVE-REAL UNION SPECIAL ALEXANDRIA:NTH-VALUE-OR MACHINE-TYPE UNBOUND-VARIABLE DELETE-DUPLICATES BOOLE-EQV FIND PRINC LOOP 1+ LOGIOR ARRAY-IN-BOUNDS-P CADAAR ALEXANDRIA:POSITIVE-LONG-FLOAT SHADOW STREAM-ERROR-STREAM FLOATING-POINT-UNDERFLOW AND TYPE-ERROR-DATUM LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT PACKAGE-USE-LIST STREAM MAKUNBOUND LOGAND *PRINT-ARRAY* UPGRADED-ARRAY-ELEMENT-TYPE SET FLOOR STRING< OUTPUT-STREAM-P COMPILE DEFINE-METHOD-COMBINATION READ-CHAR FDEFINITION ALEXANDRIA:MAXF FLOAT-PRECISION DELETE STRING/= ALEXANDRIA:EXTREMUM ALEXANDRIA:POSITIVE-FIXNUM-P GET-MACRO-CHARACTER ROTATEF OPEN-STREAM-P DECLARATION COPY-PPRINT-DISPATCH FLOATING-POINT-INVALID-OPERATION REALPART SINH MOST-NEGATIVE-LONG-FLOAT +++ HASH-TABLE-TEST INPUT-STREAM-P ASIN COPY-SYMBOL USE-PACKAGE SYNONYM-STREAM-SYMBOL ALEXANDRIA:MAPHASH-VALUES ALEXANDRIA:MAPHASH-KEYS CASE CCASE READ-DELIMITED-LIST *DEFAULT-PATHNAME-DEFAULTS* *PRINT-MISER-WIDTH* PPRINT RASSOC-IF ALEXANDRIA:NON-POSITIVE-SHORT-FLOAT-P SUBSEQ STREAM-READ-LINE ALEXANDRIA:NON-POSITIVE-RATIONAL-P ALEXANDRIA:DELETE-FROM-PLIST ALEXANDRIA:NON-POSITIVE-FLOAT-P NOTANY LISTEN STANDARD-CLASS ALEXANDRIA:CIRCULAR-TREE-P NSET-EXCLUSIVE-OR ARRAY-RANK-LIMIT ALEXANDRIA:WRITE-STRING-INTO-FILE CHECK-TYPE MAKE-BROADCAST-STREAM CDDDAR WITH-INPUT-FROM-STRING STREAM-TERPRI ARRAY-TOTAL-SIZE SIMPLE-CONDITION-FORMAT-ARGUMENTS SEARCH NSUBSTITUTE-IF WRITE-TO-STRING ALEXANDRIA:CIRCULAR-LIST PPRINT-NEWLINE ASINH WITH-SIMPLE-RESTART ALEXANDRIA:IF-LET FILL NREVERSE PACKAGE-USED-BY-LIST ECHO-STREAM-OUTPUT-STREAM MAKE-SEQUENCE LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT CADDAR RATIONALIZE SIMPLE-BIT-VECTOR MAPLIST SINGLE-FLOAT-NEGATIVE-EPSILON ECASE FUNCTION-LAMBDA-EXPRESSION LEAST-POSITIVE-SHORT-FLOAT REQUIRE LEAST-NEGATIVE-DOUBLE-FLOAT BASE-STRING ALEXANDRIA:PROPER-SEQUENCE STRING>= PATHNAME-DIRECTORY ARITHMETIC-ERROR ALEXANDRIA:SIMPLE-READER-ERROR STREAM-UNREAD-CHAR ALEXANDRIA:READ-STREAM-CONTENT-INTO-STRING SUBST ARRAYP CDAADR ALEXANDRIA:MAP-PRODUCT BIT CLOSE ALEXANDRIA:SIMPLE-STYLE-WARNING STORE-VALUE *PRINT-CIRCLE* FTRUNCATE ALEXANDRIA:STARTS-WITH-SUBSEQ PROCLAIM CDAR ALEXANDRIA:NEGATIVE-RATIONAL-P ASSOC STRUCTURE SORT PACKAGE-ERROR-PACKAGE REDUCE SPLIT-SEQUENCE:SPLIT-SEQUENCE ALEXANDRIA:ENSURE-CONS BOOLE-C1 FIND-ALL-SYMBOLS BOOLE-ORC2 MAKE-HASH-TABLE ALEXANDRIA:SWITCH FIRST &ENVIRONMENT IMAGPART NSUBLIS *GENSYM-COUNTER* SLOT-UNBOUND PATHNAME-TYPE RESTART CDAAAR STRING-UPCASE LABELS METHOD-COMBINATION-ERROR CLRHASH ALEXANDRIA:COPY-HASH-TABLE FUNDAMENTAL-CHARACTER-OUTPUT-STREAM ALPHA-CHAR-P RPLACD GETHASH ISQRT ALEXANDRIA:POSITIVE-LONG-FLOAT-P COUNT DECF ALEXANDRIA:STANDARD-DEVIATION SLOT-MISSING FUNDAMENTAL-STREAM WITH-ACCESSORS CHAR-UPCASE STRING-DOWNCASE ALEXANDRIA:POSITIVE-FLOAT-P ASSOC-IF-NOT BOOLE SIMPLE-CONDITION-FORMAT-CONTROL TIME CAAAAR CAAAR SINGLE-FLOAT-EPSILON BIT-NOT FUNDAMENTAL-CHARACTER-STREAM COMPLEX STREAM-FINISH-OUTPUT ADJUSTABLE-ARRAY-P LOGEQV REST ALEXANDRIA:NON-NEGATIVE-RATIONAL ATANH NSUBST-IF PRINT-NOT-READABLE-OBJECT DIRECTORY FORMAT CONTROL-ERROR LET* INTERN ALEXANDRIA:MAP-DERANGEMENTS FUNDAMENTAL-OUTPUT-STREAM LOGICAL-PATHNAME DIVISION-BY-ZERO CERROR INITIALIZE-INSTANCE LDB-TEST IGNORE STYLE-WARNING ALEXANDRIA:DEFINE-CONSTANT CHAR-DOWNCASE FUNCTIONP ALEXANDRIA:WITH-UNIQUE-NAMES STRING<= MAKE-METHOD LONG-FLOAT-NEGATIVE-EPSILON ALEXANDRIA:SIMPLE-PARSE-ERROR *READ-DEFAULT-FLOAT-FORMAT* ALEXANDRIA:NON-NEGATIVE-FIXNUM DISASSEMBLE TYPEP VECTOR INSPECT PATHNAMEP CAAR MERGE COSH ALEXANDRIA:EMPTYP UNUSE-PACKAGE INTEGER SLOT-EXISTS-P DELETE-IF-NOT FORMATTER ALEXANDRIA:NEGATIVE-RATIONAL *MACROEXPAND-HOOK* ALEXANDRIA:PLIST-ALIST STRING= ENSURE-GENERIC-FUNCTION ALEXANDRIA:FIRST-ELT PRINT-UNREADABLE-OBJECT ALEXANDRIA:PROPER-LIST-LENGTH CADDDR RESTART-CASE ALEXANDRIA:WRITE-BYTE-VECTOR-INTO-FILE FIND-CLASS IDENTITY MAP-INTO CLASS-NAME PRINT-NOT-READABLE REMOVE APROPOS-LIST UNBOUND-SLOT *COMPILE-FILE-PATHNAME* ALEXANDRIA:NON-POSITIVE-REAL COMPUTE-RESTARTS DEFINE-SYMBOL-MACRO SCALE-FLOAT TAILP SIXTH BOOLE-CLR SUBSTITUTE ADJUST-ARRAY LDB TERPRI FIFTH WITH-OPEN-FILE STABLE-SORT METHOD-COMBINATION WARNING SAFETY LOGXOR COUNT-IF-NOT ALEXANDRIA:SYMBOLICATE REM THE SUBLIS CHAR RANDOM-STATE-P VECTORP ALEXANDRIA:ALIST-HASH-TABLE PPRINT-EXIT-IF-LIST-EXHAUSTED SET-DISPATCH-MACRO-CHARACTER STRING-RIGHT-TRIM CLEAR-INPUT SHARED-INITIALIZE DEFPACKAGE ALEXANDRIA:COPY-STREAM CHAR-LESSP COMPILER-MACRO-FUNCTION ALEXANDRIA:SETP ALEXANDRIA:LASTCAR MULTIPLE-VALUE-CALL LOAD MAPHASH ALEXANDRIA:STRING-DESIGNATOR > NINTH MAPCON ALEXANDRIA:REMOVEF STEP ALEXANDRIA:POSITIVE-FLOAT AREF APPLY ALEXANDRIA:NON-NEGATIVE-REAL-P PPRINT-TAB CADADR LAMBDA-PARAMETERS-LIMIT NINTERSECTION LOGCOUNT PACKAGEP NSUBSTITUTE-IF-NOT ALEXANDRIA:UNIONF USE-VALUE ALEXANDRIA:MEAN RASSOC ROUND BROADCAST-STREAM-STREAMS ATOM COMPILER-MACRO SEQUENCE CALL-ARGUMENTS-LIMIT LOGORC2 SIGNED-BYTE ALEXANDRIA:NON-NEGATIVE-SINGLE-FLOAT ALEXANDRIA:ENSURE-CAR INTERSECTION ALEXANDRIA:ARRAY-INDEX DPB MEMBER STRUCTURE-OBJECT NUNION UNLESS VECTOR-POP MAPCAN APROPOS ALEXANDRIA:NEGATIVE-SHORT-FLOAT-P MAX SPACE CEILING NULL STREAM-ADVANCE-TO-COLUMN FUNCALL PROG STREAM-WRITE-SEQUENCE LISP-IMPLEMENTATION-TYPE ASSERT WRITE-CHAR SYNONYM-STREAM COERCE ALEXANDRIA:ENSURE-FUNCTIONF TANH LOG EXTENDED-CHAR DEFCONSTANT READ FILL-POINTER HASH-TABLE-P SUBSTITUTE-IF-NOT ALEXANDRIA:WITH-OUTPUT-TO-FILE MULTIPLE-VALUE-BIND HASH-TABLE-COUNT PROGN DRIBBLE ALEXANDRIA:BINOMIAL-COEFFICIENT ALEXANDRIA:NON-POSITIVE-FIXNUM-P ALEXANDRIA:COPY-ARRAY DEFGENERIC STORAGE-CONDITION ALEXANDRIA:DELETE-FROM-PLISTF BIT-NOR COUNT-IF CDADDR ALEXANDRIA:NON-NEGATIVE-SHORT-FLOAT-P TAGBODY ALEXANDRIA:MINF ALEXANDRIA:SEQUENCE-OF-LENGTH-P NUMBERP CODE-CHAR MAKE-LIST EVAL GET-DECODED-TIME >= ALEXANDRIA:POSITIVE-SHORT-FLOAT ALEXANDRIA:NON-POSITIVE-LONG-FLOAT-P CLASS PI FILE-NAMESTRING TRIVIAL-GRAY-STREAM-MIXIN BIT-ORC2 TAN FROUND ALEXANDRIA:REQUIRED-ARGUMENT CDDDR INCF FIXNUM GET-INTERNAL-RUN-TIME FLOATING-POINT-INEXACT SOFTWARE-VERSION ALEXANDRIA:NON-NEGATIVE-FLOAT COS PRINC-TO-STRING SPECIAL-OPERATOR-P SIN FUNCTION LOGBITP PATHNAME-DEVICE CONDITION CALL-NEXT-METHOD ALEXANDRIA:NEGATIVE-LONG-FLOAT-P LEAST-NEGATIVE-SHORT-FLOAT STREAM-ELEMENT-TYPE ALEXANDRIA:READ-STREAM-CONTENT-INTO-BYTE-VECTOR ALEXANDRIA:HASH-TABLE-KEYS VECTOR-PUSH-EXTEND ALEXANDRIA:NON-NEGATIVE-LONG-FLOAT-P &BODY PACKAGE-NAME PROVIDE ECHO-STREAM-INPUT-STREAM LIST* ALEXANDRIA:GAUSSIAN-RANDOM STREAM-READ-SEQUENCE DO* CELL-ERROR-NAME &KEY ALEXANDRIA:NEGATIVE-LONG-FLOAT NSET-DIFFERENCE ALEXANDRIA:NON-NEGATIVE-SINGLE-FLOAT-P ALEXANDRIA:APPENDF DO-ALL-SYMBOLS ROW-MAJOR-AREF ENOUGH-NAMESTRING REVAPPEND LAMBDA-LIST-KEYWORDS ALEXANDRIA:MAP-COMBINATIONS WITH-CONDITION-RESTARTS SIMPLE-TYPE-ERROR &OPTIONAL *MODULES* TYPE PACKAGE-SHADOWING-SYMBOLS SYMBOL-NAME INTEGER-LENGTH ALEXANDRIA:DESTRUCTURING-CASE REMPROP ENDP UPGRADED-COMPLEX-PART-TYPE ALEXANDRIA:NON-POSITIVE-DOUBLE-FLOAT-P SYMBOL-VALUE *ERROR-OUTPUT* ALEXANDRIA:SIMPLE-PROGRAM-ERROR ALEXANDRIA:SUBFACTORIAL ++ PPRINT-POP SHIFTF LOGNOR SET-SYNTAX-FROM-CHAR *PRINT-PPRINT-DISPATCH* ALEXANDRIA:NEGATIVE-DOUBLE-FLOAT STRING> FLOAT-DIGITS FILE-ERROR-PATHNAME ALEXANDRIA:IGNORE-SOME-CONDITIONS SIMPLE-VECTOR-P SLEEP BOOLE-SET *LOAD-PATHNAME* PACKAGE ERROR *PRINT-LEVEL* RASSOC-IF-NOT *COMPILE-FILE-TRUENAME* UPPER-CASE-P ALEXANDRIA:RANDOM-ELT WHEN ALEXANDRIA:READ-FILE-INTO-STRING REMOVE-DUPLICATES ZEROP SIMPLE-ARRAY IGNORABLE SECOND FUNDAMENTAL-CHARACTER-INPUT-STREAM GENTEMP // ACOS ALEXANDRIA:NEGATIVE-INTEGER-P SIMPLE-BASE-STRING INTEGER-DECODE-FLOAT SPLIT-SEQUENCE:SPLIT-SEQUENCE-IF CHAR>= ALEXANDRIA:NEGATIVE-INTEGER CAADDR CLASS-OF DO REMOVE-IF-NOT ARRAY-DIMENSIONS DO-EXTERNAL-SYMBOLS ALEXANDRIA:HASH-TABLE-VALUES SVREF ALEXANDRIA:VARIANCE COMPILE-FILE-PATHNAME FLOATP ALEXANDRIA:POSITIVE-SHORT-FLOAT-P SERIOUS-CONDITION BOOLE-NOR PATHNAME-MATCH-P REAL DOUBLE-FLOAT-NEGATIVE-EPSILON MACROEXPAND REMHASH ALEXANDRIA:NON-NEGATIVE-FIXNUM-P CDADAR FILE-ERROR *PRINT-READABLY* FILE-STREAM *** PLUSP BIT-ANDC2 ALEXANDRIA:MAKE-CIRCULAR-LIST MOST-POSITIVE-LONG-FLOAT ALEXANDRIA:UNWIND-PROTECT-CASE CHAR-CODE-LIMIT FLOAT BOTH-CASE-P ALEXANDRIA:NON-POSITIVE-SINGLE-FLOAT-P TRUNCATE LIST-LENGTH SUBST-IF-NOT CLEAR-OUTPUT STREAM-CLEAR-INPUT DYNAMIC-EXTENT NO-APPLICABLE-METHOD NO-NEXT-METHOD *PRINT-RADIX* MAPCAR CONS OPTIMIZE STREAM-EXTERNAL-FORMAT COMPLEMENT *PRINT-RIGHT-MARGIN* ARRAY-RANK PRIN1-TO-STRING CHAR<= DELETE-IF LOWER-CASE-P DENOMINATOR SUBSETP ALEXANDRIA:DOPLIST ALEXANDRIA:PROPER-LIST REPLACE ALEXANDRIA:NEGATIVE-REAL-P SET-DIFFERENCE PUSH ALEXANDRIA:WHEN-LET WITH-SLOTS MAKE-INSTANCES-OBSOLETE SIGNUM DEFINE-MODIFY-MACRO COMPILED-FUNCTION PROBE-FILE COMPILATION-SPEED STANDARD-CHAR MAKE-INSTANCE STRING-LEFT-TRIM BIT-VECTOR-P MACRO-FUNCTION ALEXANDRIA:CONJOIN WITH-OPEN-STREAM MAKE-STRING-INPUT-STREAM SIMPLE-ERROR VALUES SIGNAL ALEXANDRIA:READ-FILE-INTO-BYTE-VECTOR CAADR TRANSLATE-LOGICAL-PATHNAME *LOAD-TRUENAME* NSUBST-IF-NOT OR NSTRING-CAPITALIZE IN-PACKAGE GET PPRINT-LINEAR LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT COMPUTE-APPLICABLE-METHODS BROADCAST-STREAM UNSIGNED-BYTE *STANDARD-OUTPUT* INTEGERP EQL UNDEFINED-FUNCTION ACOSH READ-CHAR-NO-HANG BOOLE-ANDC2 REALP COPY-SEQ READTABLE SYMBOL-PACKAGE MAKE-CONCATENATED-STREAM PRINT THIRD SIMPLE-BIT-VECTOR-P CONCATENATED-STREAM-STREAMS *COMPILE-PRINT* COPY-STRUCTURE ALEXANDRIA:PARSE-BODY INVALID-METHOD-ERROR ** MOST-NEGATIVE-FIXNUM LEAST-POSITIVE-NORMALIZED-LONG-FLOAT ALEXANDRIA:REMOVE-FROM-PLISTF READER-ERROR ALEXANDRIA:WHICHEVER LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT STREAM-WRITE-STRING MULTIPLE-VALUE-LIST BOOLE-C2 ALEXANDRIA:NEGATIVE-FLOAT UNEXPORT DECLAIM LEAST-NEGATIVE-SINGLE-FLOAT CDDR NBUTLAST LENGTH ROOM ALEXANDRIA:NON-POSITIVE-FIXNUM DEFTYPE LISP-IMPLEMENTATION-VERSION WITH-OUTPUT-TO-STRING LAMBDA YES-OR-NO-P CHAR< PSETQ SYMBOL-PLIST ARRAY-HAS-FILL-POINTER-P METHOD FILE-WRITE-DATE ALEXANDRIA:CLAMP ALEXANDRIA:NEGATIVE-FIXNUM-P HASH-TABLE-SIZE PROGRAM-ERROR EVENP *PRINT-BASE* PATHNAME-NAME NSTRING-UPCASE CHAR/= ALEXANDRIA:MEDIAN LET PSETF BOOLE-2 ALEXANDRIA:NUNIONF FUNCTION-KEYWORDS ALEXANDRIA:REMOVE-FROM-PLIST END-OF-FILE CIS DEFSETF ALEXANDRIA:NEGATIVE-SINGLE-FLOAT EQUALP ALEXANDRIA:MAKE-GENSYM-LIST ALEXANDRIA:WITH-GENSYMS NUMERATOR SUBTYPEP GET-INTERNAL-REAL-TIME ALEXANDRIA:REVERSEF ALEXANDRIA:ARRAY-LENGTH EVAL-WHEN *PRINT-LINES* SETF ALEXANDRIA:FORMAT-SYMBOL VARIABLE TYPE-OF CHAR-NAME ALEXANDRIA:FLATTEN CDR CHAR> PPRINT-LOGICAL-BLOCK SOFTWARE-TYPE GET-DISPATCH-MACRO-CHARACTER *READTABLE* ABORT EIGHTH ALEXANDRIA:ENSURE-LIST STREAM-READ-CHAR-NO-HANG EXPT NOTINLINE CDADR DESCRIBE SIMPLE-WARNING ARITHMETIC-ERROR-OPERATION BIT-NAND WRITE-BYTE ALEXANDRIA:NON-POSITIVE-REAL-P STREAM-WRITE-BYTE ALEXANDRIA:COERCEF CHAR-GREATERP SEVENTH ALEXANDRIA:CURRY ALEXANDRIA:IOTA PPRINT-FILL *TRACE-OUTPUT* BYTE-SIZE STRING-TRIM MAKE-LOAD-FORM-SAVING-SLOTS *RANDOM-STATE* ALEXANDRIA:NON-POSITIVE-LONG-FLOAT ALEXANDRIA:HASH-TABLE-ALIST UPDATE-INSTANCE-FOR-DIFFERENT-CLASS STREAM-LINE-COLUMN ALEXANDRIA:NREVERSEF NRECONC KEYWORDP DOUBLE-FLOAT *DEBUG-IO* ACONS SIMPLE-CONDITION FUNDAMENTAL-BINARY-INPUT-STREAM MACROLET SATISFIES ALEXANDRIA:LENGTH= FMAKUNBOUND ALEXANDRIA:CIRCULAR-LIST-P ABS COPY-LIST COMPILE-FILE MEMBER-IF-NOT - RPLACA ALEXANDRIA:COUNT-PERMUTATIONS TRACE DESCRIBE-OBJECT STREAM-FORCE-OUTPUT ALEXANDRIA:PLIST-HASH-TABLE ALEXANDRIA:LERP ALEXANDRIA:NON-NEGATIVE-REAL ARITHMETIC-ERROR-OPERANDS MACHINE-INSTANCE ETYPECASE ALEXANDRIA:MAKE-KEYWORD WITH-PACKAGE-ITERATOR SPEED SUBST-IF MISMATCH LIST-ALL-PACKAGES *LOAD-VERBOSE* BIGNUM SETQ ALEXANDRIA:NON-NEGATIVE-SHORT-FLOAT ALEXANDRIA:LAST-ELT DECODE-UNIVERSAL-TIME LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT CHAR-NOT-EQUAL READ-PRESERVING-WHITESPACE GET-PROPERTIES STRINGP STANDARD-GENERIC-FUNCTION *BREAK-ON-SIGNALS* WRITE-LINE GET-UNIVERSAL-TIME DEFINE-SETF-EXPANDER SYMBOL VALUES-LIST CAR SYMBOL-MACROLET BLOCK METHOD-QUALIFIERS WRITE ALEXANDRIA:ALIST-PLIST PPRINT-DISPATCH GO LONG-FLOAT-EPSILON SINGLE-FLOAT MAKE-STRING-OUTPUT-STREAM FLOAT-RADIX ARRAY-DISPLACEMENT ALEXANDRIA:COPY-FILE USER-HOMEDIR-PATHNAME ALLOCATE-INSTANCE PROG* NTH-VALUE CHAR-NOT-GREATERP INVOKE-DEBUGGER ALEXANDRIA:NON-NEGATIVE-LONG-FLOAT ALEXANDRIA:WITH-INPUT-FROM-FILE NSTRING-DOWNCASE TYPE-ERROR-EXPECTED-TYPE DIRECTORY-NAMESTRING STRING-NOT-EQUAL VECTOR-PUSH ED SHORT-FLOAT LONG-SITE-NAME CAADAR BUILT-IN-CLASS MAPC BIT-ORC1 RATIONAL GET-SETF-EXPANSION KEYWORD LOCALLY ALEXANDRIA:ONCE-ONLY ALEXANDRIA:ENSURE-GETHASH NOT EQUAL DECLARE CDDDDR SET-PPRINT-DISPATCH = ALEXANDRIA:RCURRY NSUBST TRUENAME PROG1 SUBSTITUTE-IF INTERNAL-TIME-UNITS-PER-SECOND CONCATENATE PARSE-ERROR SHORT-SITE-NAME ALEXANDRIA:PROPER-LIST-P *READ-EVAL* RETURN-FROM MINUSP DOUBLE-FLOAT-EPSILON ALEXANDRIA:NAMED-LAMBDA ALEXANDRIA:NON-POSITIVE-INTEGER-P DELETE-FILE TWO-WAY-STREAM-OUTPUT-STREAM MEMBER-IF NSUBSTITUTE SBIT PROG2 READ-SEQUENCE CDDADR INTERACTIVE-STREAM-P STRING-LESSP ENSURE-DIRECTORIES-EXIST BIT-IOR LOGORC1 PPRINT-INDENT RENAME-PACKAGE ALPHANUMERICP CONSP ASSOC-IF DO-SYMBOLS DOTIMES APPEND MAP FILE-STRING-LENGTH GCD MULTIPLE-VALUE-PROG1 ARRAY-TOTAL-SIZE-LIMIT UNTRACE MAKE-RANDOM-STATE ALEXANDRIA:NEGATIVE-FLOAT-P ALEXANDRIA:POSITIVE-INTEGER-P NAME-CHAR CADAR CAAADR COND CELL-ERROR ENCODE-UNIVERSAL-TIME STRING-STREAM ALEXANDRIA:POSITIVE-DOUBLE-FLOAT ALEXANDRIA:POSITIVE-FIXNUM ALEXANDRIA:WHEN-LET* MAKE-PATHNAME NTHCDR ALEXANDRIA:SET-EQUAL ARRAY SXHASH CADR EQ SET-EXCLUSIVE-OR *QUERY-IO* LOGANDC2 IF CALL-METHOD RENAME-FILE STRING *DEBUGGER-HOOK* DEBUG ALEXANDRIA:NON-NEGATIVE-INTEGER MOD BOOLE-1 READTABLE-CASE BIT-XOR ALEXANDRIA:POSITIVE-REAL-P STANDARD-METHOD STREAM-LISTEN FILE-LENGTH FIND-METHOD *TERMINAL-IO* MACHINE-VERSION *PRINT-CASE* *PACKAGE* DOCUMENTATION ALEXANDRIA:ASSOC-VALUE BOOLEAN ALEXANDRIA:NON-POSITIVE-FLOAT LISTP ALEXANDRIA:NON-POSITIVE-INTEGER SLOT-MAKUNBOUND SLOT-VALUE + BYTE CHAR-CODE STANDARD-OBJECT ALEXANDRIA:NCONCF ALEXANDRIA:ENDS-WITH-SUBSEQ STREAM-FILE-POSITION COPY-READTABLE /// DEFVAR MACROEXPAND-1 PRINT-OBJECT DEFSTRUCT UPDATE-INSTANCE-FOR-REDEFINED-CLASS RANDOM-STATE DEPOSIT-FIELD &AUX STREAM-FRESH-LINE ALEXANDRIA:MULTIPLE-VALUE-COMPOSE BOOLE-ORC1 TRANSLATE-PATHNAME CATCH SHORT-FLOAT-NEGATIVE-EPSILON MAPL <= BOOLE-AND MUFFLE-WARNING READ-FROM-STRING *STANDARD-INPUT* NTH POP LOGICAL-PATHNAME-TRANSLATIONS ALEXANDRIA:ENSURE-FUNCTION STRUCTURE-CLASS PHASE THROW STANDARD CONTINUE SIMPLE-VECTOR ALEXANDRIA:POSITIVE-RATIONAL-P ALEXANDRIA:NON-POSITIVE-RATIONAL BYTE-POSITION RATIONALP MULTIPLE-VALUE-SETQ &ALLOW-OTHER-KEYS PRIN1 FILE-POSITION LDIFF WITH-STANDARD-IO-SYNTAX IGNORE-ERRORS ALEXANDRIA:PARSE-ORDINARY-LAMBDA-LIST TWO-WAY-STREAM FILE-AUTHOR FUNDAMENTAL-INPUT-STREAM CDAAR ALEXANDRIA:ENDS-WITH WILD-PATHNAME-P LEAST-POSITIVE-SINGLE-FLOAT NCONC ADD-METHOD HASH-TABLE ALEXANDRIA:POSITIVE-SINGLE-FLOAT-P FRESH-LINE CADDR HANDLER-BIND *READ-BASE* ALEXANDRIA:NON-POSITIVE-SHORT-FLOAT OTHERWISE HASH-TABLE-REHASH-THRESHOLD RATIO CHANGE-CLASS MIN QUOTE MAKE-DISPATCH-MACRO-CHARACTER ALEXANDRIA:COPY-SEQUENCE ELT FBOUNDP REMF EVERY DESTRUCTURING-BIND REMOVE-IF ALEXANDRIA:DESTRUCTURING-ECASE STRING-GREATERP ARRAY-ROW-MAJOR-INDEX OPEN ALEXANDRIA:NON-NEGATIVE-RATIONAL-P FIND-SYMBOL LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT ALEXANDRIA:TYPE= ALEXANDRIA:NEGATIVE-DOUBLE-FLOAT-P BIT-ANDC1 TWO-WAY-STREAM-INPUT-STREAM PACKAGE-ERROR *COMPILE-VERBOSE* FUNDAMENTAL-BINARY-STREAM WRITE-SEQUENCE ECHO-STREAM WRITE-STRING ALEXANDRIA:CSWITCH WITH-HASH-TABLE-ITERATOR READTABLEP MERGE-PATHNAMES BOOLE-IOR FIND-IF-NOT MAKE-LOAD-FORM TREE-EQUAL DEFINE-CONDITION CONCATENATED-STREAM PARSE-INTEGER STREAMP SQRT ALEXANDRIA:XOR HOST-NAMESTRING /= FINISH-OUTPUT STREAM-START-LINE-P GENSYM SHORT-FLOAT-EPSILON LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT TENTH * ASH PUSHNEW TYPE-ERROR FLOAT-SIGN BIT-EQV MAKE-STRING FIND-IF DIGIT-CHAR-P STRING-CAPITALIZE Y-OR-N-P STRING-EQUAL PATHNAME *LOAD-PRINT* ALEXANDRIA:MAKE-GENSYM ALEXANDRIA:DESTRUCTURING-CCASE < EXPORT *PRINT-PRETTY* DELETE-PACKAGE LIST DOLIST CHAR-NOT-LESSP POSITION-IF-NOT &WHOLE FTYPE MAKE-SYMBOL MAKE-SYNONYM-STREAM MULTIPLE-VALUES-LIMIT BIT-VECTOR ALEXANDRIA:NEGATIVE-SINGLE-FLOAT-P ALEXANDRIA:NEGATIVE-SHORT-FLOAT REINITIALIZE-INSTANCE MAKE-CONDITION GET-OUTPUT-STREAM-STRING UNBOUND-SLOT-INSTANCE MOST-NEGATIVE-SHORT-FLOAT FLOATING-POINT-OVERFLOW CHARACTER MAKE-TWO-WAY-STREAM REMOVE-METHOD BOOLE-XOR GETF LEAST-NEGATIVE-LONG-FLOAT LEAST-POSITIVE-DOUBLE-FLOAT STREAM-ERROR RANDOM CTYPECASE MOST-POSITIVE-SINGLE-FLOAT WARN FLET FIND-PACKAGE UNINTERN SHADOWING-IMPORT ALEXANDRIA:POSITIVE-SINGLE-FLOAT ALEXANDRIA:MULTIPLE-VALUE-PROG2 LOGNAND T BOUNDP LONG-FLOAT COPY-ALIST LAST ALEXANDRIA:NON-NEGATIVE-FLOAT-P UNREAD-CHAR ALEXANDRIA:ENSURE-SYMBOL PARSE-NAMESTRING ALEXANDRIA:DISJOIN SYMBOLP CHARACTERP ALEXANDRIA:FEATUREP ODDP ARRAY-DIMENSION ALEXANDRIA:COMPOSE NEXT-METHOD-P LOOP-FINISH MAKE-ECHO-STREAM MOST-NEGATIVE-DOUBLE-FLOAT LEAST-POSITIVE-LONG-FLOAT PROGV LOGANDC1 ALEXANDRIA:NON-NEGATIVE-DOUBLE-FLOAT BOOLE-ANDC1 BUTLAST MASK-FIELD ALEXANDRIA:RASSOC-VALUE ALEXANDRIA:HASH-TABLE-PLIST COMPILED-FUNCTION-P REVERSE ARRAY-ELEMENT-TYPE PATHNAME-HOST FIND-RESTART ALEXANDRIA:NEGATIVE-FIXNUM ALEXANDRIA:NON-NEGATIVE-INTEGER-P ALEXANDRIA:SHUFFLE STREAM-READ-BYTE POSITION-IF STREAM-CLEAR-OUTPUT COMPLEXP FOURTH GENERIC-FUNCTION BREAK STREAM-WRITE-CHAR *PRINT-ESCAPE* ALEXANDRIA:POSITIVE-DOUBLE-FLOAT-P *FEATURES* SET-MACRO-CHARACTER GRAPHIC-CHAR-P PACKAGE-NICKNAMES *PRINT-GENSYM* STRING-NOT-GREATERP SIMPLE-STRING-P DEFPARAMETER HASH-TABLE-REHASH-SIZE SCHAR WITH-COMPILATION-UNIT ARRAY-DIMENSION-LIMIT MOST-POSITIVE-SHORT-FLOAT ALEXANDRIA:NON-POSITIVE-SINGLE-FLOAT STANDARD-CHAR-P FFLOOR FORCE-OUTPUT INVOKE-RESTART ALEXANDRIA:NON-NEGATIVE-DOUBLE-FLOAT-P EXP IMPORT STREAM-READ-CHAR UNWIND-PROTECT ALEXANDRIA:FACTORIAL RETURN ALEXANDRIA:ESWITCH SIMPLE-STRING ALEXANDRIA:NEGATIVE-REAL LOGTEST *READ-SUPPRESS* BASE-CHAR MAKE-ARRAY ALEXANDRIA:STARTS-WITH INLINE ALEXANDRIA:ROTATE STREAM-PEEK-CHAR CDDAR NIL) See also: The ANSI Standard, Macro COMMON-LISP:DEFPACKAGE The SBCL Manual, Variable SB-EXT:*ON-PACKAGE-VARIANCE* ; ; compilation unit finished ; printed 4 notes WARNING: redefining LOG4CL-IMPL:APPENDER-ADDED in DEFGENERIC WARNING: redefining LOG4CL-IMPL:APPENDER-REMOVED in DEFGENERIC WARNING: redefining LOG4CL-IMPL::PROPERTY-ALIST in DEFGENERIC ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/unix-syscall-path-strings.lisp ; in: DEFUN SSTRING-TO-CSTRING ; (LENGTH IOLIB/SYSCALLS::SSTRING) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (CHAR IOLIB/SYSCALLS::SSTRING IOLIB/SYSCALLS::I) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR IOLIB/SYSCALLS::SSTRING (INCF IOLIB/SYSCALLS::I)) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFUN COUNT-SSTRING-OCTETS ; (LENGTH IOLIB/SYSCALLS::SSTRING) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (CHAR IOLIB/SYSCALLS::SSTRING IOLIB/SYSCALLS::I) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; (LOOP :WITH IOLIB/SYSCALLS::LEN := (LENGTH IOLIB/SYSCALLS::SSTRING) ; :WITH IOLIB/SYSCALLS::END-OFFSET := (1- IOLIB/SYSCALLS::LEN) ; :FOR IOLIB/SYSCALLS::I :BELOW ...) ; --> LET LET LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM2 ; (COND ; ((ZEROP IOLIB/SYSCALLS::CODE) ; (WHEN (< IOLIB/SYSCALLS::I IOLIB/SYSCALLS::END-OFFSET) ; (INCF IOLIB/SYSCALLS::I)) ; 1) ; ((< IOLIB/SYSCALLS::CODE 128) 1) ((< IOLIB/SYSCALLS::CODE 2048) 2) ; ((< IOLIB/SYSCALLS::CODE 65536) 3) ((< IOLIB/SYSCALLS::CODE 1114112) 4))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp ; in: DEFENTRYPOINT STRERROR ; (CFFI:WITH-FOREIGN-POINTER-AS-STRING ((IOLIB/SYSCALLS::BUF ; IOLIB/SYSCALLS::BUFSIZ) ; 1024) ; (IOLIB/SYSCALLS::%STRERROR IOLIB/SYSCALLS:ERRNO IOLIB/SYSCALLS::BUF ; IOLIB/SYSCALLS::BUFSIZ)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> PROGN VALUES ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFMETHOD PRINT-OBJECT ; (FORMAT IOLIB/SYSCALLS::S "~A" IOLIB/SYSCALLS::MESSAGE) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a NULL. ; (FORMAT IOLIB/SYSCALLS::S "Syscall ~S signalled error ~A(~S) ~S" ; IOLIB/SYSCALLS::SYSCALL IOLIB/SYSCALLS::IDENTIFIER ; (OR IOLIB/SYSCALLS::CODE "[No code]") ; (OR (IOLIB/SYSCALLS:STRERROR IOLIB/SYSCALLS::CODE) ; "[Can't get error string.]")) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a NULL. ; (FORMAT IOLIB/SYSCALLS::S " FD=~A" IOLIB/SYSCALLS::HANDLE) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a NULL. ; (FORMAT IOLIB/SYSCALLS::S " FD2=~A" IOLIB/SYSCALLS::HANDLE2) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a NULL. ; (IOLIB/SYSCALLS:STRERROR IOLIB/SYSCALLS::CODE) ; --> BLOCK MACROLET LET CFFI:WITH-FOREIGN-POINTER-AS-STRING ; --> CFFI-SYS:WITH-FOREIGN-POINTER WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET ; --> LET LET SYMBOL-MACROLET LET PROGN VALUES ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCFUN (MEMSET "memset") ; (CFFI:DEFCFUN (IOLIB/SYSCALLS:MEMSET "memset") ; :POINTER ; "Fill the first COUNT bytes of BUFFER with the constant VALUE." ; (IOLIB/SYSCALLS::BUFFER :POINTER) ; (IOLIB/SYSCALLS::VALUE :INT) ; (COUNT IOLIB/SYSCALLS:SIZE-T)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:MEMSET ; (IOLIB/SYSCALLS::BUFFER IOLIB/SYSCALLS::VALUE COUNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Fill the first COUNT bytes of BUFFER with the constant VALUE." ; (BLOCK IOLIB/SYSCALLS:MEMSET ; (LET ((#:G0 IOLIB/SYSCALLS::BUFFER)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "<return value>" ; in: DEFCFUN (MEMCPY "memcpy") ; (CFFI:DEFCFUN (IOLIB/SYSCALLS:MEMCPY "memcpy") ; :POINTER ; "Copy COUNT octets from SRC to DEST. ; The two memory areas must not overlap." ; (IOLIB/SYSCALLS::DEST :POINTER) ; (IOLIB/SYSCALLS::SRC :POINTER) ; (COUNT IOLIB/SYSCALLS:SIZE-T)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:MEMCPY ; (IOLIB/SYSCALLS::DEST IOLIB/SYSCALLS::SRC COUNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Copy COUNT octets from SRC to DEST. ; The two memory areas must not overlap." ; (BLOCK IOLIB/SYSCALLS:MEMCPY ; (LET ((#:G0 IOLIB/SYSCALLS::DEST)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "<return value>" ; in: DEFCFUN (MEMMOVE "memmove") ; (CFFI:DEFCFUN (IOLIB/SYSCALLS:MEMMOVE "memmove") ; :POINTER ; "Copy COUNT octets from SRC to DEST. ; The two memory areas may overlap." ; (IOLIB/SYSCALLS::DEST :POINTER) ; (IOLIB/SYSCALLS::SRC :POINTER) ; (COUNT IOLIB/SYSCALLS:SIZE-T)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:MEMMOVE ; (IOLIB/SYSCALLS::DEST IOLIB/SYSCALLS::SRC COUNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Copy COUNT octets from SRC to DEST. ; The two memory areas may overlap." ; (BLOCK IOLIB/SYSCALLS:MEMMOVE ; (LET ((#:G0 IOLIB/SYSCALLS::DEST)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "<return value>" ; in: DEFSYSCALL (LSEEK "lfp_lseek") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:LSEEK "lfp_lseek") ; (IOLIB/SYSCALLS:OFF-T :HANDLE IOLIB/SYSCALLS:FD) ; "Reposition the offset of the open file associated with the file descriptor FD ; to the argument OFFSET according to the directive WHENCE." ; (IOLIB/SYSCALLS:FD :INT) ; (IOLIB/SYSCALLS::OFFSET IOLIB/SYSCALLS:OFF-T) ; (IOLIB/SYSCALLS::WHENCE :INT)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:LSEEK ; (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::OFFSET IOLIB/SYSCALLS::WHENCE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Reposition the offset of the open file associated with the file descriptor FD ; to the argument OFFSET according to the directive WHENCE." ; (BLOCK IOLIB/SYSCALLS:LSEEK ; (LET ((#:G0 IOLIB/SYSCALLS:FD)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; in: DEFSYSCALL (%READLINK "readlink") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS::%READLINK "readlink") ; IOLIB/SYSCALLS:SSIZE-T ; (IOLIB/SYSCALLS::PATH IOLIB/SYSCALLS::SSTRING) ; (IOLIB/SYSCALLS::BUF :POINTER) ; (IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS:SIZE-T)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS::%READLINK ; (IOLIB/SYSCALLS::PATH IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK IOLIB/SYSCALLS::%READLINK ; (MULTIPLE-VALUE-BIND (#:G0 #:PARAM6) ; (CFFI:TRANSLATE-TO-FOREIGN IOLIB/SYSCALLS::PATH ; #<IOLIB/SYSCALLS::CSTRING-TYPE {1224C554F3}>) ; (UNWIND-PROTECT (PROGN #) ; (CFFI:FREE-TRANSLATED-OBJECT #:G0 # #:PARAM6))))) ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; in: DEFENTRYPOINT READLINK ; (IOLIB/SYSCALLS:CSTRING-TO-SSTRING IOLIB/SYSCALLS::BUF COUNT) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFSYSCALL (%REALPATH "realpath") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS::%REALPATH "realpath") ; IOLIB/SYSCALLS::SSTRING ; (IOLIB/SYSCALLS::PATH IOLIB/SYSCALLS::SSTRING) ; (IOLIB/SYSCALLS::RESOLVED-PATH :POINTER)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION UNWIND-PROTECT FLET BLOCK BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET LET* ; --> CFFI:CONVERT-FROM-FOREIGN ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%FOREIGN-FUNCALL "realpath" (:POINTER #:G0 :POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY :DEFAULT) ; #<IOLIB/SYSCALLS::CSTRING-TYPE {1224ECA8B3}>) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFENTRYPOINT REALPATH ; (IOLIB/SYSCALLS::%REALPATH IOLIB/SYSCALLS::PATH IOLIB/SYSCALLS::BUF) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNWIND-PROTECT ; --> FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET LET* ; --> CFFI:CONVERT-FROM-FOREIGN ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%FOREIGN-FUNCALL "realpath" (:POINTER #:G0 :POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY :DEFAULT) ; #<IOLIB/SYSCALLS::CSTRING-TYPE {1224F97873}>) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFSYSCALL (READ "read") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:READ "read") ; (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS:FD) ; "Read at most COUNT bytes from FD into the foreign area BUF." ; (IOLIB/SYSCALLS:FD :INT) ; (IOLIB/SYSCALLS::BUF :POINTER) ; (COUNT IOLIB/SYSCALLS:SIZE-T)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:READ ; (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::BUF COUNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Read at most COUNT bytes from FD into the foreign area BUF." ; (BLOCK IOLIB/SYSCALLS:READ ; (LET ((#:G0 IOLIB/SYSCALLS:FD)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; in: DEFSYSCALL (WRITE "write") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:WRITE "write") ; (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS:FD) ; "Write at most COUNT bytes to FD from the foreign area BUF." ; (IOLIB/SYSCALLS:FD :INT) ; (IOLIB/SYSCALLS::BUF :POINTER) ; (COUNT IOLIB/SYSCALLS:SIZE-T)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:WRITE ; (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::BUF COUNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Write at most COUNT bytes to FD from the foreign area BUF." ; (BLOCK IOLIB/SYSCALLS:WRITE ; (LET ((#:G0 IOLIB/SYSCALLS:FD)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; in: DEFSYSCALL (READV "readv") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:READV "readv") ; (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS:FD) ; "Read from FD into the first IOVCNT buffers of the IOV array." ; (IOLIB/SYSCALLS:FD :INT) ; (IOLIB/SYSCALLS::IOV :POINTER) ; (IOLIB/SYSCALLS::IOVCNT :INT)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:READV ; (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::IOV IOLIB/SYSCALLS::IOVCNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Read from FD into the first IOVCNT buffers of the IOV array." ; (BLOCK IOLIB/SYSCALLS:READV ; (LET ((#:G0 IOLIB/SYSCALLS:FD)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; in: DEFSYSCALL (WRITEV "writev") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:WRITEV "writev") ; (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS:FD) ; "Writes to FD the first IOVCNT buffers of the IOV array." ; (IOLIB/SYSCALLS:FD :INT) ; (IOLIB/SYSCALLS::IOV :POINTER) ; (IOLIB/SYSCALLS::IOVCNT :INT)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:WRITEV ; (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::IOV IOLIB/SYSCALLS::IOVCNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Writes to FD the first IOVCNT buffers of the IOV array." ; (BLOCK IOLIB/SYSCALLS:WRITEV ; (LET ((#:G0 IOLIB/SYSCALLS:FD)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; in: DEFSYSCALL (PREAD "lfp_pread") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:PREAD "lfp_pread") ; (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS:FD) ; "Read at most COUNT bytes from FD at offset OFFSET into the foreign area BUF." ; (IOLIB/SYSCALLS:FD :INT) ; (IOLIB/SYSCALLS::BUF :POINTER) ; (COUNT IOLIB/SYSCALLS:SIZE-T) ; (IOLIB/SYSCALLS::OFFSET IOLIB/SYSCALLS:OFF-T)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:PREAD ; (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::BUF COUNT IOLIB/SYSCALLS::OFFSET) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Read at most COUNT bytes from FD at offset OFFSET into the foreign area BUF." ; (BLOCK IOLIB/SYSCALLS:PREAD ; (LET ((#:G0 IOLIB/SYSCALLS:FD)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; in: DEFSYSCALL (PWRITE "lfp_pwrite") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:PWRITE "lfp_pwrite") ; (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS:FD) ; "Write at most COUNT bytes to FD at offset OFFSET from the foreign area BUF." ; (IOLIB/SYSCALLS:FD :INT) ; (IOLIB/SYSCALLS::BUF :POINTER) ; (COUNT IOLIB/SYSCALLS:SIZE-T) ; (IOLIB/SYSCALLS::OFFSET IOLIB/SYSCALLS:OFF-T)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:PWRITE ; (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::BUF COUNT IOLIB/SYSCALLS::OFFSET) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Write at most COUNT bytes to FD at offset OFFSET from the foreign area BUF." ; (BLOCK IOLIB/SYSCALLS:PWRITE ; (LET ((#:G0 IOLIB/SYSCALLS:FD)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; in: DEFSYSCALL (SENDFILE "lfp_sendfile") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS::SENDFILE "lfp_sendfile") ; (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS::INFD :HANDLE2 ; IOLIB/SYSCALLS::OUTFD) ; (IOLIB/SYSCALLS::INFD :INT) ; (IOLIB/SYSCALLS::OUTFD :INT) ; (IOLIB/SYSCALLS::OFFSET IOLIB/SYSCALLS:OFF-T) ; (IOLIB/SYSCALLS::NBYTES IOLIB/SYSCALLS:SIZE-T)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS::SENDFILE ; (IOLIB/SYSCALLS::INFD IOLIB/SYSCALLS::OUTFD IOLIB/SYSCALLS::OFFSET ; IOLIB/SYSCALLS::NBYTES) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK IOLIB/SYSCALLS::SENDFILE ; (LET ((#:G0 IOLIB/SYSCALLS::INFD)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; in: DEFINE-C-STRUCT-WRAPPER STAT ; (CFFI:DEFINE-C-STRUCT-WRAPPER IOLIB/SYSCALLS:STAT NIL) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LABELS LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 ; --> SB-PCL::PV-ENV LOCALLY LET BLOCK LET SYMBOL-MACROLET ; --> SB-PCL::OPTIMIZED-SET-SLOT-VALUE LET SB-PCL::INSTANCE-WRITE ; --> SB-PCL::ACCESSOR-SET-SLOT-VALUE FUNCALL ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20) ; ; note: doing unsigned word to integer coercion (cost 20) ; ; note: doing unsigned word to integer coercion (cost 20) ; ; note: doing unsigned word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFENTRYPOINT FUNCALL-STAT ; (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::BUF) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::BUF '(:STRUCT IOLIB/SYSCALLS:STAT)) ; (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::BUF) ; (MAKE-INSTANCE 'IOLIB/SYSCALLS:STAT :POINTER IOLIB/SYSCALLS::BUF)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET ; --> SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of ALLOC-ALIEN-STACK-SPACE ; in: DEFENTRYPOINT STAT ; (IOLIB/SYSCALLS::FUNCALL-STAT #'IOLIB/SYSCALLS::%STAT IOLIB/SYSCALLS::PATH) ; --> BLOCK MACROLET CFFI:WITH-FOREIGN-OBJECT CFFI-SYS:WITH-FOREIGN-POINTER ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> MAKE-INSTANCE ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFENTRYPOINT FSTAT ; (IOLIB/SYSCALLS::FUNCALL-STAT #'IOLIB/SYSCALLS::%FSTAT IOLIB/SYSCALLS:FD) ; --> BLOCK MACROLET CFFI:WITH-FOREIGN-OBJECT CFFI-SYS:WITH-FOREIGN-POINTER ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> MAKE-INSTANCE ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFENTRYPOINT LSTAT ; (IOLIB/SYSCALLS::FUNCALL-STAT #'IOLIB/SYSCALLS::%LSTAT IOLIB/SYSCALLS::PATH) ; --> BLOCK MACROLET CFFI:WITH-FOREIGN-OBJECT CFFI-SYS:WITH-FOREIGN-POINTER ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> MAKE-INSTANCE ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFENTRYPOINT MKSTEMP ; (CONCATENATE 'STRING IOLIB/SYSCALLS::TEMPLATE "XXXXXX") ; --> LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFENTRYPOINT MKOSTEMP ; (CONCATENATE 'STRING IOLIB/SYSCALLS::TEMPLATE "XXXXXX") ; --> LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFSYSCALL (%GETCWD "getcwd") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS::%GETCWD "getcwd") ; :POINTER ; (IOLIB/SYSCALLS::BUF :POINTER) ; (IOLIB/SYSCALLS:SIZE IOLIB/SYSCALLS:SIZE-T)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS::%GETCWD ; (IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS:SIZE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK IOLIB/SYSCALLS::%GETCWD ; (LET ((#:G0 IOLIB/SYSCALLS::BUF)) ; (LET (#) ; (LET* # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "<return value>" ; in: DEFENTRYPOINT GETCWD ; (IOLIB/SYSCALLS:WITH-CSTRING-TO-SSTRING (IOLIB/SYSCALLS::BUF ; IOLIB/SYSCALLS:+CSTRING-PATH-MAX+ ; IOLIB/SYSCALLS::BUFSIZE) ; (IOLIB/SYSCALLS::%GETCWD IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> PROGN ; ==> ; (IOLIB/SYSCALLS:CSTRING-TO-SSTRING IOLIB/SYSCALLS::BUF ; IOLIB/SYSCALLS::BUFSIZE) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFSYSCALL (%MKDTEMP "mkdtemp") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS::%MKDTEMP "mkdtemp") ; IOLIB/SYSCALLS::SSTRING ; (IOLIB/SYSCALLS::TEMPLATE IOLIB/SYSCALLS::SSTRING)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION UNWIND-PROTECT FLET BLOCK BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET* CFFI:CONVERT-FROM-FOREIGN ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%FOREIGN-FUNCALL "mkdtemp" (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY :DEFAULT) ; #<IOLIB/SYSCALLS::CSTRING-TYPE {12273328C3}>) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFENTRYPOINT MKDTEMP ; (CONCATENATE 'STRING IOLIB/SYSCALLS::TEMPLATE "XXXXXX") ; --> LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; (IOLIB/SYSCALLS::%MKDTEMP IOLIB/SYSCALLS::TEMPLATE) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNWIND-PROTECT ; --> FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET* ; --> CFFI:CONVERT-FROM-FOREIGN ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%FOREIGN-FUNCALL "mkdtemp" (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY :DEFAULT) ; #<IOLIB/SYSCALLS::CSTRING-TYPE {12273EEE53}>) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFSYSCALL (FD-CLOEXEC-P "lfp_is_fd_cloexec") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:FD-CLOEXEC-P "lfp_is_fd_cloexec") ; IOLIB/SYSCALLS:BOOL-DESIGNATOR ; (IOLIB/SYSCALLS:FD :INT)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET LET* IF MINUSP ; ==> ; 1 ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-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. ; in: DEFSYSCALL (FD-NONBLOCK-P "lfp_is_fd_nonblock") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:FD-NONBLOCK-P "lfp_is_fd_nonblock") ; IOLIB/SYSCALLS:BOOL-DESIGNATOR ; (IOLIB/SYSCALLS:FD :INT)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET LET* IF MINUSP ; ==> ; 1 ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-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. ; in: DEFSYSCALL (FD-OPEN-P "lfp_is_fd_open") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:FD-OPEN-P "lfp_is_fd_open") ; IOLIB/SYSCALLS:BOOL-DESIGNATOR ; (IOLIB/SYSCALLS:FD :INT)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET LET* IF MINUSP ; ==> ; 1 ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-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. ; in: DEFSYSCALL (FD-TTY-P "isatty") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:FD-TTY-P "isatty") ; IOLIB/SYSCALLS:BOOL-DESIGNATOR ; (IOLIB/SYSCALLS:FD :INT)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET LET* IF MINUSP ; ==> ; 1 ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-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. ; in: DEFENTRYPOINT PTSNAME ; (CFFI:FOREIGN-STRING-TO-LISP IOLIB/SYSCALLS::BUF) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCFUN (CMSG.FIRSTHDR "lfp_cmsg_firsthdr") ; (CFFI:DEFCFUN (IOLIB/SYSCALLS:CMSG.FIRSTHDR "lfp_cmsg_firsthdr") ; :POINTER ; (IOLIB/SYSCALLS::MSGH :POINTER)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CMSG.FIRSTHDR ; (IOLIB/SYSCALLS::MSGH) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK IOLIB/SYSCALLS:CMSG.FIRSTHDR ; (LET ((#:G0 IOLIB/SYSCALLS::MSGH)) ; (CFFI-SYS:%FOREIGN-FUNCALL "lfp_cmsg_firsthdr" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY :DEFAULT)))) ; ; note: doing SAP to pointer coercion (cost 20) to "<return value>" ; in: DEFCFUN (CMSG.NXTHDR "lfp_cmsg_nxthdr") ; (CFFI:DEFCFUN (IOLIB/SYSCALLS:CMSG.NXTHDR "lfp_cmsg_nxthdr") ; :POINTER ; (IOLIB/SYSCALLS::MSGH :POINTER) ; (IOLIB/SYSCALLS::CMSG :POINTER)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CMSG.NXTHDR ; (IOLIB/SYSCALLS::MSGH IOLIB/SYSCALLS::CMSG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK IOLIB/SYSCALLS:CMSG.NXTHDR ; (LET ((#:G0 IOLIB/SYSCALLS::MSGH)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "lfp_cmsg_nxthdr" # :CONVENTION :CDECL ; :LIBRARY :DEFAULT))))) ; ; note: doing SAP to pointer coercion (cost 20) to "<return value>" ; in: DEFCFUN (CMSG.SPACE "lfp_cmsg_space") ; (CFFI:DEFCFUN (IOLIB/SYSCALLS:CMSG.SPACE "lfp_cmsg_space") ; IOLIB/SYSCALLS:SIZE-T ; (LENGTH IOLIB/SYSCALLS:SIZE-T)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CMSG.SPACE ; (LENGTH) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK IOLIB/SYSCALLS:CMSG.SPACE ; (LET ((#:G0 LENGTH)) ; (CFFI-SYS:%FOREIGN-FUNCALL "lfp_cmsg_space" ; (:UNSIGNED-LONG #:G0 :UNSIGNED-LONG) ; :CONVENTION :CDECL :LIBRARY :DEFAULT)))) ; ; note: doing unsigned word to integer coercion (cost 20) to "<return value>" ; in: DEFCFUN (CMSG.LEN "lfp_cmsg_len") ; (CFFI:DEFCFUN (IOLIB/SYSCALLS:CMSG.LEN "lfp_cmsg_len") ; IOLIB/SYSCALLS:SIZE-T ; (LENGTH IOLIB/SYSCALLS:SIZE-T)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CMSG.LEN ; (LENGTH) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK IOLIB/SYSCALLS:CMSG.LEN ; (LET ((#:G0 LENGTH)) ; (CFFI-SYS:%FOREIGN-FUNCALL "lfp_cmsg_len" ; (:UNSIGNED-LONG #:G0 :UNSIGNED-LONG) ; :CONVENTION :CDECL :LIBRARY :DEFAULT)))) ; ; note: doing unsigned word to integer coercion (cost 20) to "<return value>" ; in: DEFCFUN (CMSG.DATA "lfp_cmsg_data") ; (CFFI:DEFCFUN (IOLIB/SYSCALLS:CMSG.DATA "lfp_cmsg_data") ; :POINTER ; (IOLIB/SYSCALLS::CMSG :POINTER)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CMSG.DATA ; (IOLIB/SYSCALLS::CMSG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK IOLIB/SYSCALLS:CMSG.DATA ; (LET ((#:G0 IOLIB/SYSCALLS::CMSG)) ; (CFFI-SYS:%FOREIGN-FUNCALL "lfp_cmsg_data" (:POINTER #:G0 :POINTER) ; :CONVENTION :CDECL :LIBRARY :DEFAULT)))) ; ; note: doing SAP to pointer coercion (cost 20) to "<return value>" ; in: DEFSYSCALL (OPENDIR "opendir") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:OPENDIR "opendir") ; :POINTER ; "Open directory PATH for listing of its contents." ; (IOLIB/SYSCALLS::PATH IOLIB/SYSCALLS::SSTRING)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:OPENDIR ; (IOLIB/SYSCALLS::PATH) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Open directory PATH for listing of its contents." ; (BLOCK IOLIB/SYSCALLS:OPENDIR ; (MULTIPLE-VALUE-BIND (#:G0 #:PARAM4) ; (CFFI:TRANSLATE-TO-FOREIGN IOLIB/SYSCALLS::PATH ; #<IOLIB/SYSCALLS::CSTRING-TYPE {1229214E93}>) ; (UNWIND-PROTECT (PROGN #) ; (CFFI:FREE-TRANSLATED-OBJECT #:G0 # #:PARAM4))))) ; ; note: doing SAP to pointer coercion (cost 20) to "<return value>" ; in: DEFENTRYPOINT READDIR ; (IOLIB/SYSCALLS:CSTRING-TO-SSTRING IOLIB/SYSCALLS:NAME) ; ; note: doing SAP to pointer coercion (cost 20) ; (VALUES (IOLIB/SYSCALLS:CSTRING-TO-SSTRING IOLIB/SYSCALLS:NAME) TYPE ; IOLIB/SYSCALLS:FILENO) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the third argument of PUSH-VALUES ; in: DEFSYSCALL (TELLDIR "telldir") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:TELLDIR "telldir") ; IOLIB/SYSCALLS:OFF-T ; "Return the current location in directory DIR." ; (IOLIB/SYSCALLS::DIRP :POINTER)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:TELLDIR ; (IOLIB/SYSCALLS::DIRP) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Return the current location in directory DIR." ; (BLOCK IOLIB/SYSCALLS:TELLDIR ; (LET ((#:G0 IOLIB/SYSCALLS::DIRP)) ; (LET* (# #) ; (IF # ; # ; #:RETVAL1))))) ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; in: DEFSYSCALL (MMAP "lfp_mmap") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:MMAP "lfp_mmap") ; (:POINTER :HANDLE IOLIB/SYSCALLS:FD) ; #<(SIMPLE-ARRAY CHARACTER ; (284)) Map file referenced by FD at offset OFFSET into address space of the ; calling process at address ADDR and length LENGTH. ; PROT describes the desired memory protection of the mapping. ; FLAGS determines wh... {12297EAB1F}> ; (IOLIB/SYSCALLS::ADDR :POINTER) ; (LENGTH IOLIB/SYSCALLS:SIZE-T) ; (IOLIB/SYSCALLS::PROT :INT) ; (IOLIB/SYSCALLS::FLAGS :INT) ; (IOLIB/SYSCALLS:FD :INT) ; (IOLIB/SYSCALLS::OFFSET IOLIB/SYSCALLS:OFF-T)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:MMAP ; (IOLIB/SYSCALLS::ADDR LENGTH IOLIB/SYSCALLS::PROT IOLIB/SYSCALLS::FLAGS ; IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::OFFSET) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (284)) Map file referenced by FD at offset OFFSET into address space of the ; calling process at address ADDR and length LENGTH. ; PROT describes the desired memory protection of the mapping. ; FLAGS determines wh... {12297EAB1F}> ; (BLOCK IOLIB/SYSCALLS:MMAP ; (LET ((#:G0 IOLIB/SYSCALLS::ADDR)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "<return value>" ; in: DEFENTRYPOINT GETRLIMIT ; (IOLIB/SYSCALLS:DEFENTRYPOINT IOLIB/SYSCALLS:GETRLIMIT ; (IOLIB/SYSCALLS::RESOURCE) ; "Return soft and hard limit of system resource RESOURCE." ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::RL ; '(:STRUCT IOLIB/SYSCALLS:RLIMIT)) ; (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:CUR MAX) IOLIB/SYSCALLS::RL ; (:STRUCT IOLIB/SYSCALLS:RLIMIT)) ; (IOLIB/SYSCALLS::%GETRLIMIT IOLIB/SYSCALLS::RESOURCE IOLIB/SYSCALLS::RL) ; (VALUES IOLIB/SYSCALLS:CUR MAX)))) ; --> IOLIB/BASE:DEFUN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:GETRLIMIT ; (IOLIB/SYSCALLS::RESOURCE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Return soft and hard limit of system resource RESOURCE." ; (BLOCK IOLIB/SYSCALLS:GETRLIMIT ; (MACROLET ((IOLIB/BASE:RETURN* # ; `#)) ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::RL '#) ; (CFFI:WITH-FOREIGN-SLOTS # ; # ; #))))) ; ; note: doing unsigned word to integer coercion (cost 20) to "<return value>" ; ; note: doing unsigned word to integer coercion (cost 20) to "<return value>" ; in: DEFENTRYPOINT GETRUSAGE ; (IOLIB/SYSCALLS:DEFENTRYPOINT IOLIB/SYSCALLS:GETRUSAGE ; (IOLIB/SYSCALLS::WHO) ; "Return resource usage measures of WHO." ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::RU ; '(:STRUCT IOLIB/SYSCALLS:RUSAGE)) ; (IOLIB/SYSCALLS::%GETRUSAGE IOLIB/SYSCALLS::WHO IOLIB/SYSCALLS::RU) ; (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:MAXRSS IOLIB/SYSCALLS:IXRSS ; IOLIB/SYSCALLS:IDRSS IOLIB/SYSCALLS:ISRSS ; IOLIB/SYSCALLS:MINFLT IOLIB/SYSCALLS:MAJFLT ; IOLIB/SYSCALLS:NSWAP IOLIB/SYSCALLS:INBLOCK ; IOLIB/SYSCALLS::OUBLOCK IOLIB/SYSCALLS:MSGSND ; IOLIB/SYSCALLS:MSGRCV IOLIB/SYSCALLS:NSIGNALS ; ...) ; IOLIB/SYSCALLS::RU ; (:STRUCT IOLIB/SYSCALLS:RUSAGE)) ; (VALUES (CFFI:FOREIGN-SLOT-VALUE # '# 'IOLIB/SYSCALLS:SEC) ; (CFFI:FOREIGN-SLOT-VALUE # '# 'IOLIB/SYSCALLS:USEC) ; (CFFI:FOREIGN-SLOT-VALUE # '# 'IOLIB/SYSCALLS:SEC) ; (CFFI:FOREIGN-SLOT-VALUE # '# 'IOLIB/SYSCALLS:USEC) ; IOLIB/SYSCALLS:MAXRSS IOLIB/SYSCALLS:IXRSS IOLIB/SYSCALLS:IDRSS ; IOLIB/SYSCALLS:ISRSS IOLIB/SYSCALLS:MINFLT ; IOLIB/SYSCALLS:MAJFLT IOLIB/SYSCALLS:NSWAP ...)))) ; --> IOLIB/BASE:DEFUN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:GETRUSAGE ; (IOLIB/SYSCALLS::WHO) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Return resource usage measures of WHO." ; (BLOCK IOLIB/SYSCALLS:GETRUSAGE ; (MACROLET ((IOLIB/BASE:RETURN* # ; `#)) ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::RU '#) ; (IOLIB/SYSCALLS::%GETRUSAGE IOLIB/SYSCALLS::WHO IOLIB/SYSCALLS::RU) ; (CFFI:WITH-FOREIGN-SLOTS # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; in: DEFENTRYPOINT CLOCK-GETRES ; (IOLIB/SYSCALLS:DEFENTRYPOINT IOLIB/SYSCALLS:CLOCK-GETRES ; (IOLIB/SYSCALLS::CLOCK-ID) ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::TS ; '(:STRUCT IOLIB/SYSCALLS:TIMESPEC)) ; (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:SEC IOLIB/SYSCALLS:NSEC) ; IOLIB/SYSCALLS::TS ; (:STRUCT IOLIB/SYSCALLS:TIMESPEC)) ; (IOLIB/SYSCALLS::%CLOCK-GETRES IOLIB/SYSCALLS::CLOCK-ID ; IOLIB/SYSCALLS::TS) ; (VALUES IOLIB/SYSCALLS:SEC IOLIB/SYSCALLS:NSEC)))) ; --> IOLIB/BASE:DEFUN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CLOCK-GETRES ; (IOLIB/SYSCALLS::CLOCK-ID) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK IOLIB/SYSCALLS:CLOCK-GETRES ; (MACROLET ((IOLIB/BASE:RETURN* # ; `#)) ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::TS '#) ; (CFFI:WITH-FOREIGN-SLOTS # ; # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; in: DEFENTRYPOINT CLOCK-GETTIME ; (IOLIB/SYSCALLS:DEFENTRYPOINT IOLIB/SYSCALLS:CLOCK-GETTIME ; (IOLIB/SYSCALLS::CLOCK-ID) ; "Returns the time of the clock CLOCKID." ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::TS ; '(:STRUCT IOLIB/SYSCALLS:TIMESPEC)) ; (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:SEC IOLIB/SYSCALLS:NSEC) ; IOLIB/SYSCALLS::TS ; (:STRUCT IOLIB/SYSCALLS:TIMESPEC)) ; (IOLIB/SYSCALLS::%CLOCK-GETTIME IOLIB/SYSCALLS::CLOCK-ID ; IOLIB/SYSCALLS::TS) ; (VALUES IOLIB/SYSCALLS:SEC IOLIB/SYSCALLS:NSEC)))) ; --> IOLIB/BASE:DEFUN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CLOCK-GETTIME ; (IOLIB/SYSCALLS::CLOCK-ID) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Returns the time of the clock CLOCKID." ; (BLOCK IOLIB/SYSCALLS:CLOCK-GETTIME ; (MACROLET ((IOLIB/BASE:RETURN* # ; `#)) ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::TS '#) ; (CFFI:WITH-FOREIGN-SLOTS # ; # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; in: DEFENTRYPOINT CLOCK-SETTIME ; (IOLIB/SYSCALLS:DEFENTRYPOINT IOLIB/SYSCALLS:CLOCK-SETTIME ; (IOLIB/SYSCALLS::CLOCK-ID) ; "Sets the time of the clock CLOCKID." ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::TS ; '(:STRUCT IOLIB/SYSCALLS:TIMESPEC)) ; (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:SEC IOLIB/SYSCALLS:NSEC) ; IOLIB/SYSCALLS::TS ; (:STRUCT IOLIB/SYSCALLS:TIMESPEC)) ; (IOLIB/SYSCALLS::%CLOCK-SETTIME IOLIB/SYSCALLS::CLOCK-ID ; IOLIB/SYSCALLS::TS) ; (VALUES IOLIB/SYSCALLS:SEC IOLIB/SYSCALLS:NSEC)))) ; --> IOLIB/BASE:DEFUN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CLOCK-SETTIME ; (IOLIB/SYSCALLS::CLOCK-ID) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Sets the time of the clock CLOCKID." ; (BLOCK IOLIB/SYSCALLS:CLOCK-SETTIME ; (MACROLET ((IOLIB/BASE:RETURN* # ; `#)) ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::TS '#) ; (CFFI:WITH-FOREIGN-SLOTS # ; # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; in: DEFENTRYPOINT GET-MONOTONIC-TIME ; (IOLIB/SYSCALLS:DEFENTRYPOINT IOLIB/SYSCALLS:GET-MONOTONIC-TIME ; NIL ; "Gets current time in seconds from a system's monotonic clock." ; (MULTIPLE-VALUE-BIND (IOLIB/SYSCALLS::SECONDS IOLIB/SYSCALLS::NANOSECONDS) ; (IOLIB/SYSCALLS:CLOCK-GETTIME IOLIB/SYSCALLS:CLOCK-MONOTONIC) ; (+ IOLIB/SYSCALLS::SECONDS (/ IOLIB/SYSCALLS::NANOSECONDS 1.0d9)))) ; --> IOLIB/BASE:DEFUN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:GET-MONOTONIC-TIME ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Gets current time in seconds from a system's monotonic clock." ; (BLOCK IOLIB/SYSCALLS:GET-MONOTONIC-TIME ; (MACROLET ((IOLIB/BASE:RETURN* # ; `#)) ; (MULTIPLE-VALUE-BIND ; (IOLIB/SYSCALLS::SECONDS IOLIB/SYSCALLS::NANOSECONDS) ; (IOLIB/SYSCALLS:CLOCK-GETTIME IOLIB/SYSCALLS:CLOCK-MONOTONIC) ; (+ IOLIB/SYSCALLS::SECONDS #))))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; in: DEFSYSCALL (OS-ENVIRON "lfp_get_environ") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:OS-ENVIRON "lfp_get_environ") ; :POINTER ; "Return a pointer to the current process environment.") ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:OS-ENVIRON ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Return a pointer to the current process environment." ; (BLOCK IOLIB/SYSCALLS:OS-ENVIRON ; (LET* ((#:RETVAL0 #) (#:ERRNO1 #)) ; (IF (CFFI-SYS:NULL-POINTER-P #:RETVAL0) ; (IOLIB/SYSCALLS:SIGNAL-SYSCALL-ERROR #:ERRNO1 "lfp_get_environ" ; NIL NIL) ; #:RETVAL0)))) ; ; note: doing SAP to pointer coercion (cost 20) to "<return value>" ; in: DEFENTRYPOINT GETENV ; (CFFI:FOREIGN-FUNCALL "getenv" :STRING IOLIB/SYSCALLS:NAME :STRING) ; --> MULTIPLE-VALUE-CALL FUNCTION UNWIND-PROTECT FLET BLOCK BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%FOREIGN-FUNCALL "getenv" (:POINTER #:G3 :POINTER) :CONVENTION ; :CDECL :LIBRARY :DEFAULT) ; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFENTRYPOINT CLEARENV ; (POSITION #\= STRING) ; ; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (SUBSEQ STRING 0 (POSITION #\= STRING)) ; ; 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 LIST. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (CFFI:MEM-AREF IOLIB/SYSCALLS::ENVPTR :STRING IOLIB/SYSCALLS::I) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%MEM-REF IOLIB/SYSCALLS::ENVPTR :POINTER (* IOLIB/SYSCALLS::I 8)) ; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFENTRYPOINT GETHOSTNAME ; (CFFI:WITH-FOREIGN-POINTER-AS-STRING ((IOLIB/SYSCALLS::CSTR ; IOLIB/SYSCALLS:SIZE) ; 256) ; (IOLIB/SYSCALLS::%GETHOSTNAME IOLIB/SYSCALLS::CSTR IOLIB/SYSCALLS:SIZE)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> PROGN VALUES ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFENTRYPOINT GETDOMAINNAME ; (CFFI:WITH-FOREIGN-POINTER-AS-STRING ((IOLIB/SYSCALLS::CSTR ; IOLIB/SYSCALLS:SIZE) ; 256) ; (IOLIB/SYSCALLS::%GETDOMAINNAME IOLIB/SYSCALLS::CSTR IOLIB/SYSCALLS:SIZE)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> PROGN VALUES ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFENTRYPOINT UNAME ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::BUF ; '(:STRUCT IOLIB/SYSCALLS:UTSNAME)) ; (IOLIB/SYSCALLS:BZERO IOLIB/SYSCALLS::BUF ; (IOLIB/SYSCALLS:SIZEOF '(:STRUCT IOLIB/SYSCALLS:UTSNAME))) ; (IOLIB/SYSCALLS::%UNAME IOLIB/SYSCALLS::BUF) ; (MACROLET ((IOLIB/SYSCALLS::UTSNAME-SLOT (IOLIB/SYSCALLS:NAME) ; `(CFFI:FOREIGN-STRING-TO-LISP #))) ; (VALUES (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:SYSNAME) ; (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:NODENAME) ; (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:RELEASE) ; (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:VERSION) ; (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:MACHINE)))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; ==> ; (LET ((#:VAR3 ; (SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN ; '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) #>))) ; (SB-ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE ; '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY ; (UNSIGNED 8) ; 390)> ; #:VAR3) ; (SYMBOL-MACROLET ((#:ALIEN2 (SB-ALIEN-INTERNALS:LOCAL-ALIEN '# #:VAR3))) ; (LET ((#:SIZE1 390) (IOLIB/SYSCALLS::BUF #)) ; (DECLARE (IGNORABLE #:SIZE1)) ; (IOLIB/SYSCALLS:BZERO IOLIB/SYSCALLS::BUF (IOLIB/SYSCALLS:SIZEOF '#)) ; (IOLIB/SYSCALLS::%UNAME IOLIB/SYSCALLS::BUF) ; (MACROLET (#) ; (VALUES # # # # #))))) ; ; note: doing SAP to pointer coercion (cost 20) to #:VAR3 ; (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:NODENAME) ; ; note: doing SAP to pointer coercion (cost 20) ; (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:RELEASE) ; ; note: doing SAP to pointer coercion (cost 20) ; (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:VERSION) ; ; note: doing SAP to pointer coercion (cost 20) ; (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:MACHINE) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN FUNCALL-GETPW ; (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::PW ; IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS::PWP) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; (CFFI-SYS:WITH-FOREIGN-POINTER (IOLIB/SYSCALLS::BUF ; IOLIB/SYSCALLS:+CSTRING-PATH-MAX+ ; IOLIB/SYSCALLS::BUFSIZE) ; (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:NAME IOLIB/SYSCALLS:PASSWD ; IOLIB/SYSCALLS:UID IOLIB/SYSCALLS:GID ; IOLIB/SYSCALLS:GECOS IOLIB/SYSCALLS:DIR ; IOLIB/SYSCALLS:SHELL) ; IOLIB/SYSCALLS::PW ; (:STRUCT IOLIB/SYSCALLS:PASSWD)) ; (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::PW ; IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS::PWP) ; (IF (CFFI-SYS:NULL-POINTER-P (CFFI:MEM-REF IOLIB/SYSCALLS::PWP :POINTER)) ; NIL ; (VALUES IOLIB/SYSCALLS:NAME IOLIB/SYSCALLS:PASSWD IOLIB/SYSCALLS:UID ; IOLIB/SYSCALLS:GID IOLIB/SYSCALLS:GECOS IOLIB/SYSCALLS:DIR ; IOLIB/SYSCALLS:SHELL)))) ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET ; --> SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of ALLOC-ALIEN-STACK-SPACE ; (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::PW ; IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS::PWP) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; (VALUES IOLIB/SYSCALLS:NAME IOLIB/SYSCALLS:PASSWD IOLIB/SYSCALLS:UID ; IOLIB/SYSCALLS:GID IOLIB/SYSCALLS:GECOS IOLIB/SYSCALLS:DIR ; IOLIB/SYSCALLS:SHELL) ; --> CFFI:FOREIGN-SLOT-VALUE CFFI:MEM-REF ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 0) ; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 8) ; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 24) ; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 32) ; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 40) ; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN FUNCALL-GETGR ; (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::GR ; IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS::GRP) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; (CFFI-SYS:WITH-FOREIGN-POINTER (IOLIB/SYSCALLS::BUF ; IOLIB/SYSCALLS:+CSTRING-PATH-MAX+ ; IOLIB/SYSCALLS::BUFSIZE) ; (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:NAME IOLIB/SYSCALLS:PASSWD ; IOLIB/SYSCALLS:GID) ; IOLIB/SYSCALLS::GR (:STRUCT IOLIB/SYSCALLS:GROUP)) ; (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::GR ; IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS::GRP) ; (IF (CFFI-SYS:NULL-POINTER-P (CFFI:MEM-REF IOLIB/SYSCALLS::GRP :POINTER)) ; NIL ; (VALUES IOLIB/SYSCALLS:NAME IOLIB/SYSCALLS:PASSWD ; IOLIB/SYSCALLS:GID)))) ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET ; --> SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of ALLOC-ALIEN-STACK-SPACE ; (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::GR ; IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS::GRP) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; (VALUES IOLIB/SYSCALLS:NAME IOLIB/SYSCALLS:PASSWD IOLIB/SYSCALLS:GID) ; --> CFFI:FOREIGN-SLOT-VALUE CFFI:MEM-REF ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 0) ; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 8) ; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>) ; ; note: doing SAP to pointer coercion (cost 20) ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/multiplex/backend-epoll.lisp ; in: DEFMETHOD HARVEST-EVENTS ; (IOLIB/MULTIPLEX::EPOLL-SLOT IOLIB/SYSCALLS:DATA) ; --> CFFI:CONVERT-FROM-FOREIGN CFFI-SYS:INC-POINTER ; ==> ; (CFFI:MEM-AREF IOLIB/MULTIPLEX::EVENTS 'IOLIB/SYSCALLS:EPOLL-EVENT ; IOLIB/MULTIPLEX::I) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT)) or (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT) instead. ; --> CFFI:CONVERT-FROM-FOREIGN CFFI-SYS:INC-POINTER CFFI:MEM-AREF ; ==> ; (CFFI:MEM-REF IOLIB/MULTIPLEX::EVENTS 'IOLIB/SYSCALLS:EPOLL-EVENT ; (* IOLIB/MULTIPLEX::I 12)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT)) or (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT) instead. ; (IOLIB/MULTIPLEX::EPOLL-SLOT IOLIB/SYSCALLS:EVENTS) ; --> CFFI:MEM-REF CFFI-SYS:%MEM-REF SB-SYS:SAP-REF-32 ; ==> ; (CFFI:MEM-AREF IOLIB/MULTIPLEX::EVENTS 'IOLIB/SYSCALLS:EPOLL-EVENT ; IOLIB/MULTIPLEX::I) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT)) or (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT) instead. ; --> CFFI:MEM-REF CFFI-SYS:%MEM-REF SB-SYS:SAP-REF-32 CFFI:MEM-AREF ; ==> ; (CFFI:MEM-REF IOLIB/MULTIPLEX::EVENTS 'IOLIB/SYSCALLS:EPOLL-EVENT ; (* IOLIB/MULTIPLEX::I 12)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT)) or (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "iolib/multiplex" "backend-epoll"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/sockets/dns/message.lisp ; in: DEFUN READ-DNS-POINTER-RECURSIVELY ; (ERROR 'IOLIB/SOCKETS::DNS-MESSAGE-ERROR) ; ; note: deleting unreachable code ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/support/pipe.lisp ; in: DEFMACRO -> ; (LAMBDA (CL-BUNNY::F CL-BUNNY::C CL-BUNNY::E) ; (COND ; ((AND (EQL CL-BUNNY::F 'CL-BUNNY::$) (EQL CL-BUNNY::C :EVAL)) ; (RETURN-FROM CL-BUNNY::FIND-$ T)) ; (T CL-BUNNY::F))) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/support/pipe.lisp ; in: DEFMACRO -> ; (LAMBDA (CL-BUNNY::F CL-BUNNY::C CL-BUNNY::E) ; (COND ; ((AND (EQL CL-BUNNY::F 'CL-BUNNY::$) (EQL CL-BUNNY::C :EVAL)) ; (RETURN-FROM CL-BUNNY::FIND-$ T)) ; (T CL-BUNNY::F))) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-bunny" "src" "support" "pipe"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/support/int-allocator.lisp ; in: DEFUN INT-ALLOCATOR-SET% ; (SETF (BIT CL-BUNNY::BITS CL-BUNNY::I) 1) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a BIT-VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN INT-ALLOCATOR-UNSET% ; (SETF (BIT CL-BUNNY::BITS CL-BUNNY::I) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a BIT-VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN INT-ALLOCATOR-ISSET% ; (BIT CL-BUNNY::BITS CL-BUNNY::I) ; ; note: unable to optimize due to type uncertainty: The first argument is a BIT-VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN INT-ALLOCATOR-ALLOCATE% ; (BIT CL-BUNNY::BITS CL-BUNNY::I) ; ; note: unable to optimize due to type uncertainty: The first argument is a BIT-VECTOR, not a SIMPLE-ARRAY. ; (+ MIN CL-BUNNY::I) ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/base/connection-base.lisp ; in: DEFUN CONNECTION.NEW ; (DEFUN CL-BUNNY:CONNECTION.NEW ; ( ; &OPTIONAL (CL-BUNNY::SPEC "amqp://") ; &KEY (CL-BUNNY::HEARTBEAT CL-BUNNY::+HEARTBEAT-INTERVAL+) ; CL-BUNNY::POOL-TAG) ; (ASSERT (OR (ALEXANDRIA:POSITIVE-INTEGER-P CL-BUNNY::HEARTBEAT) :DEFAULT)) ; (LET ((CL-BUNNY::SPEC (CL-BUNNY::MAKE-CONNECTION-SPEC CL-BUNNY::SPEC))) ; (UNLESS (= CL-BUNNY::HEARTBEAT CL-BUNNY::+HEARTBEAT-INTERVAL+) ; (SETF # CL-BUNNY::HEARTBEAT)) ; (CL-BUNNY::CONNECTION.NEW% (CL-BUNNY::GET-CONNECTION-TYPE CL-BUNNY::SPEC) ; CL-BUNNY::SPEC (OR CL-BUNNY::POOL-TAG (WITH-OUTPUT-TO-STRING # #))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-BUNNY:CONNECTION.NEW ; (&OPTIONAL (CL-BUNNY::SPEC "amqp://") &KEY ; (CL-BUNNY::HEARTBEAT CL-BUNNY::+HEARTBEAT-INTERVAL+) ; CL-BUNNY::POOL-TAG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-BUNNY:CONNECTION.NEW ; (ASSERT ; (OR (ALEXANDRIA:POSITIVE-INTEGER-P CL-BUNNY::HEARTBEAT) :DEFAULT)) ; (LET ((CL-BUNNY::SPEC #)) ; (UNLESS (= CL-BUNNY::HEARTBEAT CL-BUNNY::+HEARTBEAT-INTERVAL+) ; (SETF #)) ; (CL-BUNNY::CONNECTION.NEW% ; (CL-BUNNY::GET-CONNECTION-TYPE CL-BUNNY::SPEC) CL-BUNNY::SPEC ; (OR CL-BUNNY::POOL-TAG #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL (SPEC amqp://) &KEY (HEARTBEAT +HEARTBEAT-INTERVAL+) POOL-TAG) WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-bunny" "src" "base" "connection-base"> WARNING: redefining CL-BUNNY::CONNECTION-CHANNEL-MAX% in DEFGENERIC WARNING: redefining CL-BUNNY::CONNECTION-FRAME-MAX% in DEFGENERIC WARNING: redefining CL-BUNNY::CONNECTION-HEARTBEAT% in DEFGENERIC ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/connection/spec.lisp ; in: DEFSTRUCT CONNECTION-SPEC ; (DEFSTRUCT ; (CL-BUNNY:CONNECTION-SPEC (:CONSTRUCTOR CL-BUNNY::MAKE-CONNECTION-SPEC%)) ; (CL-BUNNY::HOST "localhost" :TYPE STRING) ; (CL-BUNNY::PORT 5672 :TYPE FIXNUM) ; (CL-BUNNY::VHOST "/" :TYPE STRING) ; (CL-BUNNY::LOGIN "guest" :TYPE STRING) ; (CL-BUNNY::PASSWORD "guest" :TYPE STRING) ; (CL-BUNNY::USE-TLS-P NIL :TYPE BOOLEAN) ; (CL-BUNNY::USE-IPV6-P NIL :TYPE BOOLEAN) ; (CL-BUNNY::CHANNEL-MAX CL-BUNNY::+CHANNEL-MAX+ :TYPE (UNSIGNED-BYTE 32)) ; (CL-BUNNY::FRAME-MAX CL-BUNNY::+FRAME-MAX+ :TYPE (UNSIGNED-BYTE 32)) ; (CL-BUNNY::HEARTBEAT-INTERVAL CL-BUNNY::+HEARTBEAT-INTERVAL+ :TYPE ; (UNSIGNED-BYTE 32)) ; ...) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-BUNNY:CONNECTION-SPEC {12253E2D63}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-BUNNY:CONNECTION-SPEC-HEARTBEAT-INTERVAL and (COMMON-LISP:SETF CL-BUNNY:CONNECTION-SPEC-HEARTBEAT-INTERVAL) could not be inlined because the structure definition for CL-BUNNY:CONNECTION-SPEC was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-bunny" "src" "connection" "spec"> WARNING: redefining CHANNEL-CONNECTION (#<STANDARD-CLASS CL-BUNNY::CONNECTION>) in DEFMETHOD ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/queue.lisp ; in: DEFUN QUEUE.DELETE ; (DEFUN CL-BUNNY:QUEUE.DELETE ; ( ; &OPTIONAL CL-BUNNY::QUEUE ; &KEY (CL-BUNNY::IF-UNUSED) (CL-BUNNY::IF-EMPTY) (CL-BUNNY::NOWAIT) ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (CL-BUNNY::CHANNEL.SEND% CL-BUNNY::CHANNEL ; (MAKE-INSTANCE 'CL-AMQP:AMQP-METHOD-QUEUE-DELETE :QUEUE ; (CL-BUNNY:QUEUE-NAME CL-BUNNY::QUEUE) :IF-UNUSED ; CL-BUNNY::IF-UNUSED :IF-EMPTY CL-BUNNY::IF-EMPTY :NOWAIT ; CL-BUNNY::NOWAIT) ; CL-BUNNY::QUEUE)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-BUNNY:QUEUE.DELETE ; (&OPTIONAL CL-BUNNY::QUEUE &KEY (CL-BUNNY::IF-UNUSED) ; (CL-BUNNY::IF-EMPTY) (CL-BUNNY::NOWAIT) ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-BUNNY:QUEUE.DELETE ; (CL-BUNNY::CHANNEL.SEND% CL-BUNNY::CHANNEL ; (MAKE-INSTANCE 'CL-AMQP:AMQP-METHOD-QUEUE-DELETE :QUEUE ; (CL-BUNNY:QUEUE-NAME CL-BUNNY::QUEUE) :IF-UNUSED ; CL-BUNNY::IF-UNUSED :IF-EMPTY CL-BUNNY::IF-EMPTY ; :NOWAIT CL-BUNNY::NOWAIT) ; CL-BUNNY::QUEUE))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL QUEUE &KEY (IF-UNUSED) (IF-EMPTY) (NOWAIT) (CHANNEL *CHANNEL*)) ; in: DEFUN QUEUE.GET ; (DEFUN CL-BUNNY:QUEUE.GET ; ( ; &OPTIONAL (CL-BUNNY::QUEUE "") ; &KEY (CL-BUNNY::NO-ACK NIL) (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (CL-BUNNY::CHANNEL.SEND% CL-BUNNY::CHANNEL ; (MAKE-INSTANCE 'CL-AMQP:AMQP-METHOD-BASIC-GET :QUEUE ; (CL-BUNNY:QUEUE-NAME CL-BUNNY::QUEUE) :NO-ACK ; CL-BUNNY::NO-ACK) ; (IF (TYPEP CL-BUNNY::REPLY 'CL-AMQP:AMQP-METHOD-BASIC-GET-EMPTY) ; (VALUES NIL (CL-AMQP:AMQP-METHOD-FIELD-CLUSTER-ID CL-BUNNY::REPLY)) ; (VALUES ; (MAKE-INSTANCE 'CL-BUNNY::MESSAGE :CHANNEL CL-BUNNY::CHANNEL :BODY # ; :PROPERTIES # :ROUTING-KEY # :EXCHANGE # ...) ; (CL-AMQP:AMQP-METHOD-FIELD-MESSAGE-COUNT CL-BUNNY::REPLY))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-BUNNY:QUEUE.GET ; (&OPTIONAL (CL-BUNNY::QUEUE "") &KEY (CL-BUNNY::NO-ACK NIL) ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-BUNNY:QUEUE.GET ; (CL-BUNNY::CHANNEL.SEND% CL-BUNNY::CHANNEL ; (MAKE-INSTANCE 'CL-AMQP:AMQP-METHOD-BASIC-GET :QUEUE ; (CL-BUNNY:QUEUE-NAME CL-BUNNY::QUEUE) :NO-ACK ; CL-BUNNY::NO-ACK) ; (IF (TYPEP CL-BUNNY::REPLY 'CL-AMQP:AMQP-METHOD-BASIC-GET-EMPTY) ; (VALUES NIL #) ; (VALUES # #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL (QUEUE ) &KEY (NO-ACK NIL) (CHANNEL *CHANNEL*)) WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-bunny" "src" "queue"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/exchange.lisp ; in: DEFCLASS EXCHANGE ; (CL-BUNNY::CHANNEL :TYPE CL-BUNNY::CHANNEL :INITFORM NIL :INITARG :CHANNEL ; :READER CL-BUNNY:EXCHANGE-CHANNEL) ; ==> ; NIL ; ; caught WARNING: ; Constant NIL conflicts with its asserted type CL-BUNNY::CHANNEL. ; See also: ; The SBCL Manual, Node "Handling of Types" ; in: DEFUN EXCHANGE.TOPIC ; (DEFUN CL-BUNNY:EXCHANGE.TOPIC ; ( ; &OPTIONAL CL-BUNNY::EXCHANGE ; &REST CL-BUNNY::ARGS ; &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.topic") ; (APPEND (LIST :TYPE "topic") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; (LIST :DURABLE T))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.TOPIC ; (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY ; CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-BUNNY:EXCHANGE.TOPIC ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.topic") ; (APPEND (LIST :TYPE "topic") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*)) ; ; caught STYLE-WARNING: ; The variable PASSIVE is defined but never used. ; ; caught STYLE-WARNING: ; The variable DURABLE is defined but never used. ; ; caught STYLE-WARNING: ; The variable AUTO-DELETE is defined but never used. ; ; caught STYLE-WARNING: ; The variable INTERNAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARGUMENTS is defined but never used. ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*) ; ; caught STYLE-WARNING: ; The variable CHANNEL is defined but never used. ; in: DEFUN EXCHANGE.FANOUT ; (DEFUN CL-BUNNY:EXCHANGE.FANOUT ; ( ; &OPTIONAL CL-BUNNY::EXCHANGE ; &REST CL-BUNNY::ARGS ; &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.fanout") ; (APPEND (LIST :TYPE "fanout") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; (LIST :DURABLE T))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.FANOUT ; (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY ; CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-BUNNY:EXCHANGE.FANOUT ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.fanout") ; (APPEND (LIST :TYPE "fanout") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*)) ; ; caught STYLE-WARNING: ; The variable PASSIVE is defined but never used. ; ; caught STYLE-WARNING: ; The variable DURABLE is defined but never used. ; ; caught STYLE-WARNING: ; The variable AUTO-DELETE is defined but never used. ; ; caught STYLE-WARNING: ; The variable INTERNAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARGUMENTS is defined but never used. ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*) ; ; caught STYLE-WARNING: ; The variable CHANNEL is defined but never used. ; in: DEFUN EXCHANGE.DIRECT ; (DEFUN CL-BUNNY:EXCHANGE.DIRECT ; ( ; &OPTIONAL CL-BUNNY::EXCHANGE ; &REST CL-BUNNY::ARGS ; &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.direct") ; (APPEND (LIST :TYPE "direct") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; (LIST :DURABLE T))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.DIRECT ; (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY ; CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-BUNNY:EXCHANGE.DIRECT ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.direct") ; (APPEND (LIST :TYPE "direct") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*)) ; ; caught STYLE-WARNING: ; The variable PASSIVE is defined but never used. ; ; caught STYLE-WARNING: ; The variable DURABLE is defined but never used. ; ; caught STYLE-WARNING: ; The variable AUTO-DELETE is defined but never used. ; ; caught STYLE-WARNING: ; The variable INTERNAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARGUMENTS is defined but never used. ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*) ; ; caught STYLE-WARNING: ; The variable CHANNEL is defined but never used. ; in: DEFUN EXCHANGE.HEADERS ; (DEFUN CL-BUNNY:EXCHANGE.HEADERS ; ( ; &OPTIONAL CL-BUNNY::EXCHANGE ; &REST CL-BUNNY::ARGS ; &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.headers") ; (APPEND (LIST :TYPE "headers") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; (LIST :DURABLE T))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.HEADERS ; (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY ; CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-BUNNY:EXCHANGE.HEADERS ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE ; (OR CL-BUNNY::EXCHANGE "amq.headers") ; (APPEND (LIST :TYPE "headers") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*)) ; ; caught STYLE-WARNING: ; The variable PASSIVE is defined but never used. ; ; caught STYLE-WARNING: ; The variable DURABLE is defined but never used. ; ; caught STYLE-WARNING: ; The variable AUTO-DELETE is defined but never used. ; ; caught STYLE-WARNING: ; The variable INTERNAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARGUMENTS is defined but never used. ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*) ; ; caught STYLE-WARNING: ; The variable CHANNEL is defined but never used. Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=2710624 "main thread" RUNNING {123FE70093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-bunny" "src" "exchange"> Backtrace for: #<SB-THREAD:THREAD tid=2710624 "main thread" RUNNING {123FE70093}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {122BBC1483}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {122BBC1483}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {122BBC1483}>) 3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bunny" "src" "exchange">))) 4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bunny" "src" "exchange">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bunny" "src" "exchange">) 6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bunny" "src" "exchange">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {120468B3A3}>) [fast-method] 9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {120468B3A3}>) [fast-method] 11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bunny"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bunny">) 13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bunny">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-bunny") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-bunny") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120468714B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120464608B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-bunny") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-bunny" "cl-bunny") 23: (DEPCHECK::MAGIC "cl-bunny" "cl-bunny" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-LfrMTKxm/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-bunny" "cl-bunny" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-LfrMTKxm/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-LfrMTKxm/depcheck-fail.txt")) 25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 27: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 28: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; caught 1 WARNING condition ; caught 38 STYLE-WARNING conditions ; printed 143 notes
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::INSTALL-PACKAGE-LOCAL-NICKNAMES 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::FROB-SUBSTRINGS in DEFUN WARNING: redefining UIOP/COMMON-LISP::COMPATFMT in DEFMACRO WARNING: redefining UIOP/UTILITY::ENSURE-FUNCTION-NOTINLINE in DEFUN 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/UTILITY:BOOLEAN-TO-FEATURE-EXPRESSION in DEFUN WARNING: redefining UIOP/UTILITY:SYMBOL-TEST-TO-FEATURE-EXPRESSION 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 (#<SB-PCL::CONDITION-CLASS UIOP/VERSION:DEPRECATED-FUNCTION-CONDITION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) 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::OS-MEZZANO-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/PATHNAME:TRANSLATE-PATHNAME* 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: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::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:COMPILE-FILE* 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 (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINES> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINE> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORMS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining UIOP/RUN-PROGRAM:VOMIT-OUTPUT-STREAM in DEFGENERIC WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) 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:RESOLVE-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/CONFIGURATION:UIOP-DIRECTORY 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 WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-colors/08d7a2af682802fce159e47ff3511112f24e892a/cl-colors-20250714-git/cl-colors.asd" contains definition for system "cl-colors-tests". Please only define "cl-colors" and secondary systems with a name starting with "cl-colors/" (e.g. "cl-colors/test") in that file. WARNING: redefining LOG4CL-IMPL:APPENDER-ADDED in DEFGENERIC WARNING: redefining LOG4CL-IMPL:APPENDER-REMOVED in DEFGENERIC WARNING: redefining LOG4CL-IMPL::PROPERTY-ALIST in DEFGENERIC WARNING: redefining CL-BUNNY::CONNECTION-CHANNEL-MAX% in DEFGENERIC WARNING: redefining CL-BUNNY::CONNECTION-FRAME-MAX% in DEFGENERIC WARNING: redefining CL-BUNNY::CONNECTION-HEARTBEAT% in DEFGENERIC WARNING: redefining CHANNEL-CONNECTION (#<STANDARD-CLASS CL-BUNNY::CONNECTION>) in DEFMETHOD ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/exchange.lisp ; in: DEFCLASS EXCHANGE ; (CL-BUNNY::CHANNEL :TYPE CL-BUNNY::CHANNEL :INITFORM NIL :INITARG :CHANNEL ; :READER CL-BUNNY:EXCHANGE-CHANNEL) ; ==> ; NIL ; ; caught WARNING: ; Constant NIL conflicts with its asserted type CL-BUNNY::CHANNEL. ; See also: ; The SBCL Manual, Node "Handling of Types" ; in: DEFUN EXCHANGE.TOPIC ; (DEFUN CL-BUNNY:EXCHANGE.TOPIC ; ( ; &OPTIONAL CL-BUNNY::EXCHANGE ; &REST CL-BUNNY::ARGS ; &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.topic") ; (APPEND (LIST :TYPE "topic") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; (LIST :DURABLE T))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.TOPIC ; (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY ; CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-BUNNY:EXCHANGE.TOPIC ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.topic") ; (APPEND (LIST :TYPE "topic") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*)) ; ; caught STYLE-WARNING: ; The variable PASSIVE is defined but never used. ; ; caught STYLE-WARNING: ; The variable DURABLE is defined but never used. ; ; caught STYLE-WARNING: ; The variable AUTO-DELETE is defined but never used. ; ; caught STYLE-WARNING: ; The variable INTERNAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARGUMENTS is defined but never used. ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*) ; ; caught STYLE-WARNING: ; The variable CHANNEL is defined but never used. ; in: DEFUN EXCHANGE.FANOUT ; (DEFUN CL-BUNNY:EXCHANGE.FANOUT ; ( ; &OPTIONAL CL-BUNNY::EXCHANGE ; &REST CL-BUNNY::ARGS ; &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.fanout") ; (APPEND (LIST :TYPE "fanout") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; (LIST :DURABLE T))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.FANOUT ; (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY ; CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-BUNNY:EXCHANGE.FANOUT ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.fanout") ; (APPEND (LIST :TYPE "fanout") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*)) ; ; caught STYLE-WARNING: ; The variable PASSIVE is defined but never used. ; ; caught STYLE-WARNING: ; The variable DURABLE is defined but never used. ; ; caught STYLE-WARNING: ; The variable AUTO-DELETE is defined but never used. ; ; caught STYLE-WARNING: ; The variable INTERNAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARGUMENTS is defined but never used. ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*) ; ; caught STYLE-WARNING: ; The variable CHANNEL is defined but never used. ; in: DEFUN EXCHANGE.DIRECT ; (DEFUN CL-BUNNY:EXCHANGE.DIRECT ; ( ; &OPTIONAL CL-BUNNY::EXCHANGE ; &REST CL-BUNNY::ARGS ; &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.direct") ; (APPEND (LIST :TYPE "direct") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; (LIST :DURABLE T))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.DIRECT ; (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY ; CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-BUNNY:EXCHANGE.DIRECT ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.direct") ; (APPEND (LIST :TYPE "direct") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*)) ; ; caught STYLE-WARNING: ; The variable PASSIVE is defined but never used. ; ; caught STYLE-WARNING: ; The variable DURABLE is defined but never used. ; ; caught STYLE-WARNING: ; The variable AUTO-DELETE is defined but never used. ; ; caught STYLE-WARNING: ; The variable INTERNAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARGUMENTS is defined but never used. ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*) ; ; caught STYLE-WARNING: ; The variable CHANNEL is defined but never used. ; in: DEFUN EXCHANGE.HEADERS ; (DEFUN CL-BUNNY:EXCHANGE.HEADERS ; ( ; &OPTIONAL CL-BUNNY::EXCHANGE ; &REST CL-BUNNY::ARGS ; &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.headers") ; (APPEND (LIST :TYPE "headers") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; (LIST :DURABLE T))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.HEADERS ; (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY ; CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-BUNNY:EXCHANGE.HEADERS ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE ; (OR CL-BUNNY::EXCHANGE "amq.headers") ; (APPEND (LIST :TYPE "headers") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*)) ; ; caught STYLE-WARNING: ; The variable PASSIVE is defined but never used. ; ; caught STYLE-WARNING: ; The variable DURABLE is defined but never used. ; ; caught STYLE-WARNING: ; The variable AUTO-DELETE is defined but never used. ; ; caught STYLE-WARNING: ; The variable INTERNAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARGUMENTS is defined but never used. ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*) ; ; caught STYLE-WARNING: ; The variable CHANNEL is defined but never used. Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=2710655 "main thread" RUNNING {1200F08003}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-bunny" "src" "exchange"> Backtrace for: #<SB-THREAD:THREAD tid=2710655 "main thread" RUNNING {1200F08003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121B65D8F3}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121B65D8F3}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121B65D8F3}>) 3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bunny" "src" "exchange">))) 4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bunny" "src" "exchange">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bunny" "src" "exchange">) 6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bunny" "src" "exchange">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204999843}>) [fast-method] 9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204999843}>) [fast-method] 11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bunny.test"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bunny.test">) 13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bunny.test">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-bunny.test") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-bunny.test") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120497D73B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120495500B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-bunny.test") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-bunny.test" "cl-bunny.test") 23: (DEPCHECK::MAGIC "cl-bunny.test" "cl-bunny.test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-XqfQwj7R/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-bunny.test" "cl-bunny.test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-XqfQwj7R/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-XqfQwj7R/depcheck-fail.txt")) 25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 27: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 28: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; caught 1 WARNING condition ; caught 28 STYLE-WARNING conditions
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::INSTALL-PACKAGE-LOCAL-NICKNAMES 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::FROB-SUBSTRINGS in DEFUN WARNING: redefining UIOP/COMMON-LISP::COMPATFMT in DEFMACRO WARNING: redefining UIOP/UTILITY::ENSURE-FUNCTION-NOTINLINE in DEFUN 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/UTILITY:BOOLEAN-TO-FEATURE-EXPRESSION in DEFUN WARNING: redefining UIOP/UTILITY:SYMBOL-TEST-TO-FEATURE-EXPRESSION 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 (#<SB-PCL::CONDITION-CLASS UIOP/VERSION:DEPRECATED-FUNCTION-CONDITION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) 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::OS-MEZZANO-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/PATHNAME:TRANSLATE-PATHNAME* 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: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::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:COMPILE-FILE* 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 (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINES> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINE> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORMS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining UIOP/RUN-PROGRAM:VOMIT-OUTPUT-STREAM in DEFGENERIC WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) 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:RESOLVE-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/CONFIGURATION:UIOP-DIRECTORY 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 WARNING: redefining LOG4CL-IMPL:APPENDER-ADDED in DEFGENERIC WARNING: redefining LOG4CL-IMPL:APPENDER-REMOVED in DEFGENERIC WARNING: redefining LOG4CL-IMPL::PROPERTY-ALIST in DEFGENERIC WARNING: redefining CL-BUNNY::CONNECTION-CHANNEL-MAX% in DEFGENERIC WARNING: redefining CL-BUNNY::CONNECTION-FRAME-MAX% in DEFGENERIC WARNING: redefining CL-BUNNY::CONNECTION-HEARTBEAT% in DEFGENERIC WARNING: redefining CHANNEL-CONNECTION (#<STANDARD-CLASS CL-BUNNY::CONNECTION>) in DEFMETHOD ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/exchange.lisp ; in: DEFCLASS EXCHANGE ; (CL-BUNNY::CHANNEL :TYPE CL-BUNNY::CHANNEL :INITFORM NIL :INITARG :CHANNEL ; :READER CL-BUNNY:EXCHANGE-CHANNEL) ; ==> ; NIL ; ; caught WARNING: ; Constant NIL conflicts with its asserted type CL-BUNNY::CHANNEL. ; See also: ; The SBCL Manual, Node "Handling of Types" ; in: DEFUN EXCHANGE.TOPIC ; (DEFUN CL-BUNNY:EXCHANGE.TOPIC ; ( ; &OPTIONAL CL-BUNNY::EXCHANGE ; &REST CL-BUNNY::ARGS ; &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.topic") ; (APPEND (LIST :TYPE "topic") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; (LIST :DURABLE T))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.TOPIC ; (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY ; CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-BUNNY:EXCHANGE.TOPIC ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.topic") ; (APPEND (LIST :TYPE "topic") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*)) ; ; caught STYLE-WARNING: ; The variable PASSIVE is defined but never used. ; ; caught STYLE-WARNING: ; The variable DURABLE is defined but never used. ; ; caught STYLE-WARNING: ; The variable AUTO-DELETE is defined but never used. ; ; caught STYLE-WARNING: ; The variable INTERNAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARGUMENTS is defined but never used. ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*) ; ; caught STYLE-WARNING: ; The variable CHANNEL is defined but never used. ; in: DEFUN EXCHANGE.FANOUT ; (DEFUN CL-BUNNY:EXCHANGE.FANOUT ; ( ; &OPTIONAL CL-BUNNY::EXCHANGE ; &REST CL-BUNNY::ARGS ; &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.fanout") ; (APPEND (LIST :TYPE "fanout") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; (LIST :DURABLE T))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.FANOUT ; (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY ; CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-BUNNY:EXCHANGE.FANOUT ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.fanout") ; (APPEND (LIST :TYPE "fanout") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*)) ; ; caught STYLE-WARNING: ; The variable PASSIVE is defined but never used. ; ; caught STYLE-WARNING: ; The variable DURABLE is defined but never used. ; ; caught STYLE-WARNING: ; The variable AUTO-DELETE is defined but never used. ; ; caught STYLE-WARNING: ; The variable INTERNAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARGUMENTS is defined but never used. ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*) ; ; caught STYLE-WARNING: ; The variable CHANNEL is defined but never used. ; in: DEFUN EXCHANGE.DIRECT ; (DEFUN CL-BUNNY:EXCHANGE.DIRECT ; ( ; &OPTIONAL CL-BUNNY::EXCHANGE ; &REST CL-BUNNY::ARGS ; &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.direct") ; (APPEND (LIST :TYPE "direct") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; (LIST :DURABLE T))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.DIRECT ; (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY ; CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-BUNNY:EXCHANGE.DIRECT ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.direct") ; (APPEND (LIST :TYPE "direct") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*)) ; ; caught STYLE-WARNING: ; The variable PASSIVE is defined but never used. ; ; caught STYLE-WARNING: ; The variable DURABLE is defined but never used. ; ; caught STYLE-WARNING: ; The variable AUTO-DELETE is defined but never used. ; ; caught STYLE-WARNING: ; The variable INTERNAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARGUMENTS is defined but never used. ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*) ; ; caught STYLE-WARNING: ; The variable CHANNEL is defined but never used. ; in: DEFUN EXCHANGE.HEADERS ; (DEFUN CL-BUNNY:EXCHANGE.HEADERS ; ( ; &OPTIONAL CL-BUNNY::EXCHANGE ; &REST CL-BUNNY::ARGS ; &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.headers") ; (APPEND (LIST :TYPE "headers") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; (LIST :DURABLE T))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.HEADERS ; (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY ; CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE ; CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-BUNNY:EXCHANGE.HEADERS ; (APPLY #'CL-BUNNY:EXCHANGE.DECLARE ; (OR CL-BUNNY::EXCHANGE "amq.headers") ; (APPEND (LIST :TYPE "headers") ; (IF CL-BUNNY::EXCHANGE ; CL-BUNNY::ARGS ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*)) ; ; caught STYLE-WARNING: ; The variable PASSIVE is defined but never used. ; ; caught STYLE-WARNING: ; The variable DURABLE is defined but never used. ; ; caught STYLE-WARNING: ; The variable AUTO-DELETE is defined but never used. ; ; caught STYLE-WARNING: ; The variable INTERNAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARGUMENTS is defined but never used. ; (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*) ; ; caught STYLE-WARNING: ; The variable CHANNEL is defined but never used. Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=2710651 "main thread" RUNNING {1200F08003}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-bunny" "src" "exchange"> Backtrace for: #<SB-THREAD:THREAD tid=2710651 "main thread" RUNNING {1200F08003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121B10D8F3}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121B10D8F3}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121B10D8F3}>) 3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bunny" "src" "exchange">))) 4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bunny" "src" "exchange">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bunny" "src" "exchange">) 6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bunny" "src" "exchange">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12045AB923}>) [fast-method] 9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12045AB923}>) [fast-method] 11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bunny.examples"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bunny.examples">) 13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bunny.examples">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-bunny.examples") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-bunny.examples") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12045B086B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120455F84B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-bunny.examples") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-bunny.examples" "cl-bunny.examples") 23: (DEPCHECK::MAGIC "cl-bunny.examples" "cl-bunny.examples" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-ZO4YmMVy/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-bunny.examples" "cl-bunny.examples" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-ZO4YmMVy/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-ZO4YmMVy/depcheck-fail.txt")) 25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 27: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 28: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; caught 1 WARNING condition ; caught 28 STYLE-WARNING conditions