SBCL 2.6.1 / 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 WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/pzmq/9a9a01e9695cdd71ca64e2cf3e56bfb5162f563c/pzmq-20260327-git/pzmq.asd" contains definition for system "pzmq-compat". Please only define "pzmq" and secondary systems with a name starting with "pzmq/" (e.g. "pzmq/test") in that file. WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/pzmq/9a9a01e9695cdd71ca64e2cf3e56bfb5162f563c/pzmq-20260327-git/pzmq.asd" contains definition for system "pzmq-test". Please only define "pzmq" and secondary systems with a name starting with "pzmq/" (e.g. "pzmq/test") in that file. WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/pzmq/9a9a01e9695cdd71ca64e2cf3e56bfb5162f563c/pzmq-20260327-git/pzmq.asd" contains definition for system "pzmq-examples". Please only define "pzmq" and secondary systems with a name starting with "pzmq/" (e.g. "pzmq/test") in that file. WARNING: redefining MAGICL::SVD-LISP in DEFUN WARNING: redefining MAGICL:SCALE! in DEFUN WARNING: redefining MAGICL:.+ in DEFUN WARNING: redefining MAGICL:.- in DEFUN WARNING: redefining MAGICL:.* in DEFUN WARNING: redefining MAGICL:./ in DEFUN WARNING: redefining MAGICL:MULT in DEFUN WARNING: redefining MAGICL:EIG in DEFUN WARNING: redefining MAGICL:HERMITIAN-EIG in DEFUN WARNING: redefining MAGICL:LU in DEFUN WARNING: redefining MAGICL:LU-SOLVE in DEFUN WARNING: redefining MAGICL:INV in DEFUN WARNING: redefining MAGICL:CSD-BLOCKS in DEFUN WARNING: redefining MAGICL:SVD in DEFUN WARNING: redefining MAGICL:SCHUR in DEFUN WARNING: redefining MAGICL:QZ in DEFUN WARNING: redefining MAGICL:QL in DEFUN WARNING: redefining MAGICL:QR in DEFUN WARNING: redefining MAGICL:RQ in DEFUN WARNING: redefining MAGICL:LQ in DEFUN ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/ast.lisp ; in: DEFSTRUCT DELAYED-EXPRESSION ; (DEFSTRUCT ; (CL-QUIL.FRONTEND:DELAYED-EXPRESSION ; (:CONSTRUCTOR CL-QUIL.FRONTEND::%DELAYED-EXPRESSION)) ; #<(SIMPLE-ARRAY CHARACTER ; (335)) A representation of an arithmetic expression with fillable "slots". ; ; PARAMS is a list of values to fill the slots with. These can be formal variables, but eventually must be a list of CONSTANTs. ; ; LAMB... {12196B8EAF}> ; (CL-QUIL.FRONTEND::PARAMS NIL) ; (CL-QUIL.FRONTEND::LAMBDA-PARAMS NIL :READ-ONLY T) ; (CL-QUIL.FRONTEND::EXPRESSION NIL :READ-ONLY T)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL.FRONTEND:DELAYED-EXPRESSION {12195FF893}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL.FRONTEND:DELAYED-EXPRESSION-EXPRESSION could not be inlined because the structure definition for CL-QUIL.FRONTEND:DELAYED-EXPRESSION 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. ; in: DEFSTRUCT PAULI-TERM ; (DEFSTRUCT (CL-QUIL.FRONTEND:PAULI-TERM) ; #<(SIMPLE-ARRAY CHARACTER ; (642)) Records a word of Pauli operators, together with an ordered list of qubit formals on which they act, as well as a scalar prefix. This is part of the internal representation of a EXP-PAULI-SUM-GATE-DE... {121A389D5F}> ; CL-QUIL.FRONTEND::PAULI-WORD ; CL-QUIL.FRONTEND::PREFACTOR ; CL-QUIL.FRONTEND::ARGUMENTS) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL.FRONTEND:PAULI-TERM {121A37A7F3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL.FRONTEND:PAULI-TERM-PAULI-WORD, CL-QUIL.FRONTEND:PAULI-TERM-PREFACTOR and CL-QUIL.FRONTEND:PAULI-TERM-ARGUMENTS could not be inlined because the structure definition for CL-QUIL.FRONTEND:PAULI-TERM 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. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/ast.lisp ; in: DEFUN EXPAND-CLASSICAL-INSTRUCTION-DEFINITIONS ; (LOOP :FOR CL-QUIL.FRONTEND::TYPE-TUPLE :IN CL-QUIL.FRONTEND::TYPES ; :FOR CL-QUIL.FRONTEND::TYPED-NAME := (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE) ; :DO (ASSERT ; (AND ; (= CL-QUIL.FRONTEND::NUM-ARGS ; (LENGTH CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (EVERY #'CL-QUIL.FRONTEND::VALID-TYPE-SYMBOL-P ; CL-QUIL.FRONTEND::TYPE-TUPLE))) ; :COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD ; ==> ; (LET* ((#:HEAD11 (SB-KERNEL:UNALIGNED-DX-CONS NIL)) ; (#:TAIL12 #:HEAD11) ; (CL-QUIL.FRONTEND::TYPED-NAMES NIL)) ; (DECLARE (DYNAMIC-EXTENT #:HEAD11) ; (SB-C::NO-DEBUG #:HEAD11 #:TAIL12) ; (LIST CL-QUIL.FRONTEND::TYPED-NAMES)) ; (SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD (#S(SB-LOOP::LOOP-COLLECTOR ; :NAME NIL ; :CLASS LIST ; :HISTORY (APPEND) ; :TEMPVARS (#:HEAD13 #:TAIL14) ; :SPECIFIED-TYPE NIL ; :DTYPE LIST ; :DATA NIL) ; #:HEAD13 #:TAIL14) ; (TAGBODY ; SB-LOOP::NEXT-LOOP ; (WHEN (ENDP #:L10) (GO SB-LOOP::END-LOOP)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPE-TUPLE (CAR #:L10)) ; (SB-LOOP::LOOP-DESETQ #:L10 (CDR #:L10)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPED-NAME ; (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (ASSERT (AND # #)) ; (SB-LOOP::LOOP-COLLECT-RPLACD ; (#:HEAD11 #:TAIL12 CL-QUIL.FRONTEND::TYPED-NAMES) ; (LIST CL-QUIL.FRONTEND::TYPED-NAME)) ; (SB-LOOP::LOOP-COLLECT-RPLACD (#:HEAD13 #:TAIL14) (LIST `# `# `# `#)) ; (GO SB-LOOP::NEXT-LOOP) ; SB-LOOP::END-LOOP ; (RETURN-FROM NIL (SB-LOOP::LOOP-COLLECT-ANSWER #:HEAD13))))) ; ; caught STYLE-WARNING: ; The variable TYPED-NAMES is assigned but never read. ; in: DEFUN EXPAND-CLASSICAL-INSTRUCTION-DEFINITIONS ; (LOOP :FOR CL-QUIL.FRONTEND::TYPE-TUPLE :IN CL-QUIL.FRONTEND::TYPES ; :FOR CL-QUIL.FRONTEND::TYPED-NAME := (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE) ; :DO (ASSERT ; (AND ; (= CL-QUIL.FRONTEND::NUM-ARGS ; (LENGTH CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (EVERY #'CL-QUIL.FRONTEND::VALID-TYPE-SYMBOL-P ; CL-QUIL.FRONTEND::TYPE-TUPLE))) ; :COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD ; ==> ; (LET* ((#:HEAD79 (SB-KERNEL:UNALIGNED-DX-CONS NIL)) ; (#:TAIL80 #:HEAD79) ; (CL-QUIL.FRONTEND::TYPED-NAMES NIL)) ; (DECLARE (DYNAMIC-EXTENT #:HEAD79) ; (SB-C::NO-DEBUG #:HEAD79 #:TAIL80) ; (LIST CL-QUIL.FRONTEND::TYPED-NAMES)) ; (SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD (#S(SB-LOOP::LOOP-COLLECTOR ; :NAME NIL ; :CLASS LIST ; :HISTORY (APPEND) ; :TEMPVARS (#:HEAD81 #:TAIL82) ; :SPECIFIED-TYPE NIL ; :DTYPE LIST ; :DATA NIL) ; #:HEAD81 #:TAIL82) ; (TAGBODY ; SB-LOOP::NEXT-LOOP ; (WHEN (ENDP #:L78) (GO SB-LOOP::END-LOOP)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPE-TUPLE (CAR #:L78)) ; (SB-LOOP::LOOP-DESETQ #:L78 (CDR #:L78)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPED-NAME ; (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (ASSERT (AND # #)) ; (SB-LOOP::LOOP-COLLECT-RPLACD ; (#:HEAD79 #:TAIL80 CL-QUIL.FRONTEND::TYPED-NAMES) ; (LIST CL-QUIL.FRONTEND::TYPED-NAME)) ; (SB-LOOP::LOOP-COLLECT-RPLACD (#:HEAD81 #:TAIL82) (LIST `# `# `# `#)) ; (GO SB-LOOP::NEXT-LOOP) ; SB-LOOP::END-LOOP ; (RETURN-FROM NIL (SB-LOOP::LOOP-COLLECT-ANSWER #:HEAD81))))) ; ; caught STYLE-WARNING: ; The variable TYPED-NAMES is assigned but never read. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil/frontend" "ast"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/parser.lisp ; in: DEFSTRUCT TOKEN ; (DEFSTRUCT ; (CL-QUIL.FRONTEND:TOKEN ; (:CONSTRUCTOR CL-QUIL.FRONTEND:TOK ; (TYPE &OPTIONAL CL-QUIL.FRONTEND::PAYLOAD ; (CL-QUIL.FRONTEND::LINE CL-QUIL.FRONTEND::*LINE-NUMBER*) ; (PATHNAME CL-QUIL.FRONTEND::*CURRENT-FILE*)))) ; "A lexical token." ; (CL-QUIL.FRONTEND::LINE NIL :TYPE (OR NULL (INTEGER 1)) :READ-ONLY T) ; (PATHNAME NIL :TYPE (OR NULL STRING PATHNAME) :READ-ONLY T) ; (TYPE NIL :TYPE SYMBOL :READ-ONLY T) ; (CL-QUIL.FRONTEND::PAYLOAD NIL :READ-ONLY T)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL.FRONTEND:TOKEN {122B57C993}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL.FRONTEND:TOKEN-TYPE and CL-QUIL.FRONTEND:TOKEN-PAYLOAD could not be inlined because the structure definition for CL-QUIL.FRONTEND:TOKEN 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-quil/frontend" "parser"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/clifford/stabilizer.lisp ; in: ; DECLAIM (INLINE TABLEAU-QUBITS TABLEAU-X (SETF TABLEAU-X) TABLEAU-Z (SETF TABLEAU-Z) TABLEAU-R (SETF TABLEAU-R) TABLEAU-SCRATCH (SETF TABLEAU-SCRATCH)) ; (DECLAIM ; (INLINE CL-QUIL.CLIFFORD::TABLEAU-QUBITS CL-QUIL.CLIFFORD::TABLEAU-X ; (SETF CL-QUIL.CLIFFORD::TABLEAU-X) CL-QUIL.CLIFFORD::TABLEAU-Z ; (SETF CL-QUIL.CLIFFORD::TABLEAU-Z) CL-QUIL.CLIFFORD::TABLEAU-R ; (SETF CL-QUIL.CLIFFORD::TABLEAU-R) CL-QUIL.CLIFFORD::TABLEAU-SCRATCH ; (SETF CL-QUIL.CLIFFORD::TABLEAU-SCRATCH))) ; ==> ; (SB-C::%PROCLAIM ; '(INLINE CL-QUIL.CLIFFORD::TABLEAU-QUBITS CL-QUIL.CLIFFORD::TABLEAU-X ; (SETF CL-QUIL.CLIFFORD::TABLEAU-X) CL-QUIL.CLIFFORD::TABLEAU-Z ; (SETF CL-QUIL.CLIFFORD::TABLEAU-Z) CL-QUIL.CLIFFORD::TABLEAU-R ; (SETF CL-QUIL.CLIFFORD::TABLEAU-R) CL-QUIL.CLIFFORD::TABLEAU-SCRATCH ; (SETF CL-QUIL.CLIFFORD::TABLEAU-SCRATCH)) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Proclaiming CL-QUIL.CLIFFORD::TABLEAU-QUBITS to be INLINE, but 1 call to it was previously compiled. A declaration of NOTINLINE at the call site will eliminate this warning, as will proclaiming and defining the function before its first potential use. ; in: DEFUN TABLEAU-MEASURE ; (DEFUN CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (CL-QUIL.CLIFFORD::TAB CL-QUIL.CLIFFORD::Q) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0)) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU CL-QUIL.CLIFFORD::TAB) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU-INDEX CL-QUIL.CLIFFORD::Q)) ; (LET* ((CL-QUIL.CLIFFORD::N ; (CL-QUIL.CLIFFORD::TABLEAU-QUBITS CL-QUIL.CLIFFORD::TAB)) ; (CL-QUIL.CLIFFORD::P ; (LOOP :FOR CL-QUIL.CLIFFORD::P :BELOW CL-QUIL.CLIFFORD::N ; :WHEN # ; :DO # ; :FINALLY #))) ; (DECLARE ; (TYPE (OR CL-QUIL.CLIFFORD::TABLEAU-INDEX NULL) CL-QUIL.CLIFFORD::P) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU-INDEX CL-QUIL.CLIFFORD::N)) ; (COND ; (CL-QUIL.CLIFFORD::P ; (CL-QUIL.CLIFFORD::TABLEAU-COPY-ROW CL-QUIL.CLIFFORD::TAB ; CL-QUIL.CLIFFORD::P #) ; (CL-QUIL.CLIFFORD::TABLEAU-SET-ROW-TO-PAULI CL-QUIL.CLIFFORD::TAB # #) ; (SETF #) (DOTIMES # #) (VALUES # NIL)) ; (T (CL-QUIL.CLIFFORD::TABLEAU-CLEAR-SCRATCH CL-QUIL.CLIFFORD::TAB) ; (LET # ; # ; # ; #))))) ; ==> ; (SB-IMPL::%DEFUN 'CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (SB-INT:NAMED-LAMBDA CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (CL-QUIL.CLIFFORD::TAB CL-QUIL.CLIFFORD::Q) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) ; (COMPILATION-SPEED 0)) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU CL-QUIL.CLIFFORD::TAB) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU-INDEX ; CL-QUIL.CLIFFORD::Q)) ; (BLOCK CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (LET* (# #) ; (DECLARE # ; #) ; (COND # #))))) ; ; caught STYLE-WARNING: ; Call to CL-QUIL.CLIFFORD::TABLEAU-COPY-ROW could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil/frontend" "clifford" "stabilizer"> WARNING: redefining CL-QUIL.FRONTEND::PRINT-PARSED-PROGRAM-GENERIC in DEFGENERIC ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/linear-algebra.lisp ; in: DEFUN-INLINABLE PSUM ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I)) ; ; note: doing complex float to pointer coercion (cost 13) ; (QVM:PSUM-DOTIMES (QVM::I (LENGTH QVM::STATE)) ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I)) ; ; note: doing complex float to pointer coercion (cost 13) ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/wavefunction.lisp ; in: DEFUN PROBABILITY ; (DEFUN QVM:PROBABILITY (QVM::AMPLITUDE) ; "Convert an amplitude into a probability." ; (DECLARE (TYPE QVM:CFLONUM QVM::AMPLITUDE)) ; (LET ((QVM::RE (REALPART QVM::AMPLITUDE)) ; (QVM::IM (IMAGPART QVM::AMPLITUDE))) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (+ (* QVM::RE QVM::RE) (* QVM::IM QVM::IM)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM:PROBABILITY ; (QVM::AMPLITUDE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Convert an amplitude into a probability." ; (DECLARE (TYPE QVM:CFLONUM QVM::AMPLITUDE)) ; (BLOCK QVM:PROBABILITY ; (LET ((QVM::RE #) (QVM::IM #)) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (+ (* QVM::RE QVM::RE) (* QVM::IM QVM::IM))))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; in: DEFUN-INLINABLE WAVEFUNCTION-GROUND-STATE-PROBABILITY ; (QVM:PSUM-DOTIMES (QVM::I (QVM::HALF (LENGTH QVM::WAVEFUNCTION))) ; (LET ((QVM::ADDRESS (QVM::INJECT-BIT QVM::I QVM::QUBIT))) ; (DECLARE (TYPE QVM:AMPLITUDE-ADDRESS QVM::ADDRESS)) ; (QVM:PROBABILITY (AREF QVM::WAVEFUNCTION QVM::ADDRESS)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; --> IF FLET LET* LOOP BLOCK LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY ; --> RETURN-FROM ; ==> ; #:SUM13 ; ; note: doing float to pointer coercion (cost 13) from #:SUM13 to "<return value>" ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION6 (#:START2 #:END3) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START2) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END3)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM1 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM1 to "<return value>" ; in: DEFUN-INLINABLE WAVEFUNCTION-EXCITED-STATE-PROBABILITY ; (QVM:PSUM-DOTIMES (QVM::I (QVM::HALF (LENGTH QVM::WAVEFUNCTION))) ; (LET ((QVM::ADDRESS (QVM::INDEX-TO-ADDRESS QVM::I QVM::QUBIT 1))) ; (DECLARE (TYPE QVM:AMPLITUDE-ADDRESS QVM::ADDRESS)) ; (QVM:PROBABILITY (AREF QVM::WAVEFUNCTION QVM::ADDRESS)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; --> IF FLET LET* LOOP BLOCK LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY ; --> RETURN-FROM ; ==> ; #:SUM13 ; ; note: doing float to pointer coercion (cost 13) from #:SUM13 to "<return value>" ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION6 (#:START2 #:END3) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START2) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END3)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM1 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM1 to "<return value>" ; in: DEFUN-INLINABLE APPLY-MATRIX-OPERATOR ; (APPLY QVM::KERNEL QVM::MATRIX QVM::WAVEFUNCTION (COERCE QVM::QUBITS 'LIST)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: KERNEL is not known to be a function ; in: DEFUN-INLINABLE %SERIAL-NORM ; (QVM:DEFUN-INLINABLE QVM::%SERIAL-NORM ; (QVM::WAVEFUNCTION) ; (LOOP :WITH QVM::S :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :BELOW (LENGTH QVM::WAVEFUNCTION) ; :DO ...)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::%SERIAL-NORM ; (QVM::WAVEFUNCTION) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK QVM::%SERIAL-NORM ; (LOOP :WITH QVM::S :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :BELOW (LENGTH QVM::WAVEFUNCTION) ; :DO ...))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; in: DEFUN-INLINABLE NORM ; (QVM:DEFUN-INLINABLE QVM::NORM ; (QVM::WAVEFUNCTION) ; "Compute the length/L2 norm of the wavefunction WAVEFUNCTION." ; (DECLARE (INLINE QVM:PROBABILITY QVM::PSUM)) ; (IF (<= QVM:*QUBITS-REQUIRED-FOR-PARALLELIZATION* ; (QVM::WAVEFUNCTION-QUBITS QVM::WAVEFUNCTION)) ; (SQRT ; (THE (QVM:FLONUM 0) (QVM::PSUM #'QVM:PROBABILITY QVM::WAVEFUNCTION))) ; (QVM::%SERIAL-NORM QVM::WAVEFUNCTION))) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::NORM ; (QVM::WAVEFUNCTION) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Compute the length/L2 norm of the wavefunction WAVEFUNCTION." ; (DECLARE (INLINE QVM:PROBABILITY QVM::PSUM)) ; (BLOCK QVM::NORM ; (IF (<= QVM:*QUBITS-REQUIRED-FOR-PARALLELIZATION* ; (QVM::WAVEFUNCTION-QUBITS QVM::WAVEFUNCTION)) ; (SQRT (THE # #)) ; (QVM::%SERIAL-NORM QVM::WAVEFUNCTION)))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; (QVM::PSUM #'QVM:PROBABILITY QVM::WAVEFUNCTION) ; --> BLOCK QVM:PSUM-DOTIMES LET IF FLET ; ==> ; (#:WORKER-FUNCTION8 (#:START4 #:END5) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START4) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END5)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM3 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM3 to "<return value>" ; in: DEFUN NORMALIZE-WAVEFUNCTION ; (QVM:FLONUM LENGTH) ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; (QVM:PDOTIMES (QVM::I (LENGTH QVM::WAVEFUNCTION) QVM::WAVEFUNCTION) ; (SETF (AREF QVM::WAVEFUNCTION QVM::I) ; (* QVM::INV-NORM (AREF QVM::WAVEFUNCTION QVM::I)))) ; --> IF LPARALLEL.COGNATE:PDOTIMES LET PROGN LPARALLEL.COGNATE::%PDOTIMES ; --> LAMBDA ; ==> ; #'(LAMBDA (QVM::I) ; (TAGBODY (SETF (AREF QVM::WAVEFUNCTION QVM::I) (* QVM::INV-NORM #)))) ; ; note: doing float to pointer coercion (cost 13), for: ; the second argument of CLOSURE-INIT ; (QVM::NORM QVM::WAVEFUNCTION) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM16 to "<return value>" ; in: DEFUN WF ; (QVM:CFLONUM ELT) ; --> BLOCK COERCE ; ==> ; 1 ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; in: DEFUN GAUSSIAN-RANDOM-COMPLEX ; (DEFUN QVM::GAUSSIAN-RANDOM-COMPLEX () ; "Return a complex number with Gaussian-random real and imaginary parts." ; (MULTIPLE-VALUE-BIND (QVM::RE QVM::IM) ; (ALEXANDRIA:GAUSSIAN-RANDOM) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (COMPLEX QVM::RE QVM::IM))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::GAUSSIAN-RANDOM-COMPLEX ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Return a complex number with Gaussian-random real and imaginary parts." ; (BLOCK QVM::GAUSSIAN-RANDOM-COMPLEX ; (MULTIPLE-VALUE-BIND (QVM::RE QVM::IM) ; (ALEXANDRIA:GAUSSIAN-RANDOM) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (COMPLEX QVM::RE QVM::IM)))) ; ; note: doing complex float to pointer coercion (cost 13) to "<return value>" ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/compile-gate.lisp ; in: DEFUN GENERATE-AMPLITUDE-ADDRESS-CODE ; (LDB (BYTE 1 QVM::I) QVM::FLAGS) ; ; note: doing unsigned word to integer coercion (cost 20) to "<return value>" ; in: DEFUN GENERATE-INNER-MATRIX-MULTIPLY-CODE ; (LOOP :FOR QVM::J :BELOW QVM::N ; :FOR QVM::C := (NTH QVM::J QVM::COLUMN) ; :FOR QVM::MIJ := ...) ; --> LET LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ ; ==> ; (SETQ QVM::MIJ (AREF QVM::MATRIX QVM::I QVM::J)) ; ; note: doing complex float to pointer coercion (cost 13) to MIJ ; `(* ,QVM::C ,(AREF QVM::MATRIX QVM::I QVM::J)) ; ; note: doing complex float to pointer coercion (cost 13), for: ; the third argument of LIST ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/measurement.lisp ; in: DEFMETHOD FORCE-MEASUREMENT (T T PURE-STATE T) ; (SQRT (- (QVM:FLONUM 1) QVM::EXCITED-PROBABILITY)) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (OR (COMPLEX DOUBLE-FLOAT) (DOUBLE-FLOAT 0.0d0 1.0d0)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; (/ (SQRT QVM::EXCITED-PROBABILITY)) ; ; note: doing float to pointer coercion (cost 13), for: ; the first result of inline float arithmetic ; in: DEFGENERIC GET-EXCITED-STATE-PROBABILITY ; (AREF QVM::RHO QVM::I QVM::I) ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; (REALPART (AREF QVM::RHO QVM::I QVM::I)) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (QVM:PSUM-DOTIMES (QVM::K (EXPT 2 (1- (QVM::NUM-QUBITS QVM::STATE)))) ; (LET ((QVM::I (QVM::INDEX-TO-ADDRESS QVM::K QVM::QUBIT 1))) ; (REALPART (AREF QVM::RHO QVM::I QVM::I)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM20 ; ; note: doing float to pointer coercion (cost 13) from #:SUM20 to "<return value>" ; in: DEFUN SAMPLE-WAVEFUNCTION-AS-DISTRIBUTION-IN-PARALLEL-TRULY ; (QVM:PSUM-DOTIMES (QVM::I ; (THE ALEXANDRIA:NON-NEGATIVE-FIXNUM (- QVM::MID MIN))) ; (LET ((QVM::I (THE ALEXANDRIA:NON-NEGATIVE-FIXNUM #))) ; (QVM:PROBABILITY (AREF QVM:WF QVM::I)))) ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION12 (#:START8 #:END9) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START8) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END9)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM7 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM7 to "<return value>" ; in: DEFUN SAMPLE-WAVEFUNCTION-MULTIPLE-TIMES ; (MT19937:RANDOM 1.0d0) ; --> BLOCK LET* - SCALE-FLOAT FLOAT ; ==> ; (+ (EXPT 2 52) MT19937::RANDOM-MANTISSA-BITS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 4503599627370496) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 4503599627370496) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a (INTEGER 4611686018427387904), not a (SIGNED-BYTE 64). ; in: DEFUN SAMPLE-WAVEFUNCTION-AS-DISTRIBUTION ; (AREF QVM::PS QVM::I) ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR DOUBLE-FLOAT), not a SIMPLE-ARRAY. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/matrix-operations.lisp ; in: DEFUN ORTHONORMALIZE-MATRIX! ; (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a COMPLEX. ; (SQRT CL-QUIL::N^2) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The result is a (VALUES (OR (FLOAT 0.0) (COMPLEX DOUBLE-FLOAT) (COMPLEX SINGLE-FLOAT)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.The result is a (VALUES (OR (FLOAT 0.0) (COMPLEX DOUBLE-FLOAT) (COMPLEX SINGLE-FLOAT)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &OPTIONAL). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &OPTIONAL). ; (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (LOOP :FOR CL-QUIL::I :BELOW CL-QUIL::NROWS ; :SUM (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q))) ; --> LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM17 ; (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; (/ (MAGICL:TREF CL-QUIL::M CL-QUIL::ROW CL-QUIL::COL) CL-QUIL::NORM) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (OR (FLOAT 0.0) (COMPLEX DOUBLE-FLOAT) (COMPLEX SINGLE-FLOAT)), not a SINGLE-FLOAT. ; The result is a (VALUES (OR FLOAT (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a T, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a (OR (FLOAT 0.0) (COMPLEX DOUBLE-FLOAT) (COMPLEX SINGLE-FLOAT)), not a SINGLE-FLOAT. ; The result is a (VALUES (OR FLOAT (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &OPTIONAL). ; etc. ; (* CL-QUIL::S (MAGICL:TREF CL-QUIL::Q CL-QUIL::ROW CL-QUIL::J)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (DECF (MAGICL:TREF CL-QUIL::V CL-QUIL::ROW CL-QUIL::K) ; (* CL-QUIL::S (MAGICL:TREF CL-QUIL::Q CL-QUIL::ROW CL-QUIL::J))) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/define-compiler.lisp ; in: DEFUN FIND-SHORTEST-COMPILER-PATH ; (DEFUN CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (CL-QUIL::COMPILERS CL-QUIL::TARGET-GATESET CL-QUIL::OCCURRENCE-TABLE ; &OPTIONAL CL-QUIL::QUBIT-COUNT) ; #<(SIMPLE-ARRAY CHARACTER ; (730)) Produces a path of compilers, drawn from COMPILERS, which convert all of the entries of OCCURRENCE-TABLE into "native gates" according to TARGET-GATESET. Returns an alternating chain of occurrence ta... {120CDC702F}> ; (LET ((CL-QUIL.FRONTEND:QUEUE ; (MAKE-INSTANCE 'CL-HEAP:PRIORITY-QUEUE :SORT-FUN #))) ; (FLET ((CL-QUIL::COLLECT-BINDINGS # ; #)) ; (LOOP :WITH CL-QUIL::VISITED-NODES := NIL ; :FOR (CL-QUIL::TASK . CL-QUIL::HISTORY) := (LIST ; CL-QUIL::OCCURRENCE-TABLE) :THEN (CL-HEAP:DEQUEUE ; CL-QUIL.FRONTEND:QUEUE) ; :UNLESS ...)))) ; ==> ; (SB-IMPL::%DEFUN 'CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (SB-INT:NAMED-LAMBDA CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (CL-QUIL::COMPILERS CL-QUIL::TARGET-GATESET ; CL-QUIL::OCCURRENCE-TABLE &OPTIONAL ; CL-QUIL::QUBIT-COUNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (730)) Produces a path of compilers, drawn from COMPILERS, which convert all of the entries of OCCURRENCE-TABLE into "native gates" according to TARGET-GATESET. Returns an alternating chain of occurrence ta... {120CDC702F}> ; (BLOCK CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (LET (#) ; (FLET # ; #))))) ; ; caught STYLE-WARNING: ; Call to CL-HEAP:DEQUEUE could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. ; ; caught STYLE-WARNING: ; Call to CL-HEAP:ENQUEUE could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil" "define-compiler"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compiler-hook.lisp ; in: DEFUN COMPILER-HOOK ; (DEFUN CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION ; &KEY (CL-QUIL::PROTOQUIL NIL) ; (CL-QUIL::REWIRING-TYPE ; (CL-QUIL::PROG-INITIAL-REWIRING-HEURISTIC ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (CL-QUIL::TRANSFORMS CL-QUIL::*STANDARD-PRE-COMPILATION-TRANSFORMS*) ; (CL-QUIL::DESTRUCTIVE NIL) ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; #<(SIMPLE-ARRAY CHARACTER ; (1034)) Runs a full compiler pass on a parsed-program object. ; ; Arguments: ; ; - PARSED-PROGRAM: The parsed program to compile ; ; - CHIP-SPECIFICATION: The chip specification describing the target chip ; ; Keyword... {122A57000F}> ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: entrance.") ; (UNLESS CL-QUIL::DESTRUCTIVE ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:COPY-INSTANCE ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (WHEN ; (AND (NOT (EQL ':NAIVE CL-QUIL::REWIRING-TYPE)) ; (> ; (CL-QUIL.FRONTEND:QUBITS-NEEDED CL-QUIL.FRONTEND:PARSED-PROGRAM) ; (LENGTH #)) ; (NOT ; (CL-QUIL.FRONTEND:PARSED-PROGRAM-HAS-PRESERVE-BLOCKS-P ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Compressing qubits.") ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:COMPRESS-QUBITS ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (DOLIST (CL-QUIL::XFORM CL-QUIL::TRANSFORMS) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Applying transform ~A." ; CL-QUIL::XFORM) ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:TRANSFORM CL-QUIL::XFORM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (CL-QUIL::WARM-CHIP-SPEC-LOOKUP-CACHE CL-QUIL::CHIP-SPECIFICATION) ; (LOOP :FOR CL-QUIL::MDESC :IN (CL-QUIL.FRONTEND:PARSED-PROGRAM-MEMORY-DEFINITIONS ; CL-QUIL.FRONTEND:PARSED-PROGRAM) ; :WHEN (CL-QUIL.FRONTEND:MEMORY-DESCRIPTOR-SHARING-PARENT ; CL-QUIL::MDESC) ; :DO (ERROR ; "Programs with aliased memory are currently unsupported.")) ; (WHEN (EQL ':NAIVE CL-QUIL::REWIRING-TYPE) ; (CL-QUIL::CHECK-PROGRAM-SKIPS-DEAD-QUBITS CL-QUIL.FRONTEND:PARSED-PROGRAM ; CL-QUIL::CHIP-SPECIFICATION)) ; (WHEN CL-QUIL::PROTOQUIL ; (CL-QUIL:CHECK-PROTOQUIL-PROGRAM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; ...) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION &KEY ; (CL-QUIL::PROTOQUIL NIL) ; (CL-QUIL::REWIRING-TYPE ; (CL-QUIL::PROG-INITIAL-REWIRING-HEURISTIC ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (CL-QUIL::TRANSFORMS CL-QUIL::*STANDARD-PRE-COMPILATION-TRANSFORMS*) ; (CL-QUIL::DESTRUCTIVE NIL) ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (1034)) Runs a full compiler pass on a parsed-program object. ; ; Arguments: ; ; - PARSED-PROGRAM: The parsed program to compile ; ; - CHIP-SPECIFICATION: The chip specification describing the target chip ; ; Keyword... {122A57000F}> ; (BLOCK CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: entrance.") ; (UNLESS CL-QUIL::DESTRUCTIVE (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (WHEN (AND (NOT #) (> # #) (NOT #)) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Compressing qubits.") ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (DOLIST (CL-QUIL::XFORM CL-QUIL::TRANSFORMS) ; (CL-QUIL.FRONTEND:FORMAT-NOISE ; "COMPILER-HOOK: Applying transform ~A." CL-QUIL::XFORM) ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (CL-QUIL::WARM-CHIP-SPEC-LOOKUP-CACHE CL-QUIL::CHIP-SPECIFICATION) ; (LOOP :FOR CL-QUIL::MDESC :IN (CL-QUIL.FRONTEND:PARSED-PROGRAM-MEMORY-DEFINITIONS ; CL-QUIL.FRONTEND:PARSED-PROGRAM) ; :WHEN (CL-QUIL.FRONTEND:MEMORY-DESCRIPTOR-SHARING-PARENT ; CL-QUIL::MDESC) ; :DO (ERROR ; "Programs with aliased memory are currently unsupported.")) ; (WHEN (EQL ':NAIVE CL-QUIL::REWIRING-TYPE) ; (CL-QUIL::CHECK-PROGRAM-SKIPS-DEAD-QUBITS ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (WHEN CL-QUIL::PROTOQUIL ; (CL-QUIL:CHECK-PROTOQUIL-PROGRAM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; (MULTIPLE-VALUE-BIND ; (CL-QUIL::INITIAL-REWIRING CL-QUIL::L2P-COMPONENTS) ; (CL-QUIL::PROG-INITIAL-REWIRING CL-QUIL.FRONTEND:PARSED-PROGRAM ; CL-QUIL::CHIP-SPECIFICATION :TYPE CL-QUIL::REWIRING-TYPE) ; (LET* (# # # #) ; (CL-QUIL::CHECK-PRESERVED-BLOCKS-SKIP-DEAD-QUBITS CL-QUIL::CFG ; CL-QUIL::CHIP-SPECIFICATION) ; (LET # ; #) ; (WHEN CL-QUIL::PROTOQUIL #) ; (LABELS # ; # ; # ; #))))) ; ; caught STYLE-WARNING: ; using the lexical binding of the symbol (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE*), not the ; dynamic binding, even though the name follows ; the usual naming convention (names like *FOO*) for special variables ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; ; caught STYLE-WARNING: ; The variable *ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil" "compiler-hook"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/chip/chip-specification.lisp ; in: DEFSTRUCT CHIP-SPECIFICATION ; (DEFSTRUCT CL-QUIL::CHIP-SPECIFICATION ; #<(SIMPLE-ARRAY CHARACTER ; (957)) Houses information about hardware components on a QPU. ; ; OBJECTS is an array. In its nth position, there is a vector of order n hardware objects on the chip. ; ; GENERIC-COMPILERS is a vector of functions... {122B24A13F}> ; (CL-QUIL::OBJECTS ; (MAKE-ARRAY 2 :INITIAL-CONTENTS ; (LIST (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) ; (CL-QUIL::MAKE-ADJUSTABLE-VECTOR))) ; :TYPE VECTOR) ; (CL-QUIL::GENERIC-COMPILERS (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) :TYPE VECTOR) ; (CL-QUIL::GENERIC-REWRITING-RULES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) :TYPE ; VECTOR) ; (CL-QUIL::LOOKUP-CACHE NIL :TYPE (OR NULL HASH-TABLE))) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::CHIP-SPECIFICATION {122B250233}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL::CHIP-SPECIFICATION-GENERIC-COMPILERS could not be inlined because the structure definition for CL-QUIL::CHIP-SPECIFICATION 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. ; in: DEFSTRUCT GATE-RECORD ; (DEFSTRUCT (CL-QUIL::GATE-RECORD (:COPIER NIL)) ; "Houses information about a hardware instantiation of a gate. ; ; FIDELITY stores the measured gate fidelity. ; ; DURATION stores the measured gate duration (in nanoseconds)." ; (CL-QUIL::FIDELITY CL-QUIL::+NEAR-PERFECT-FIDELITY+ :TYPE (OR NULL REAL)) ; (CL-QUIL::DURATION 1/100 :TYPE (OR NULL REAL))) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::GATE-RECORD {122B9358B3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::GATE-RECORD-FIDELITY and CL-QUIL::GATE-RECORD-DURATION could not be inlined because the structure definition for CL-QUIL::GATE-RECORD 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. ; in: DEFSTRUCT HARDWARE-OBJECT ; (DEFSTRUCT CL-QUIL::HARDWARE-OBJECT ; #<(SIMPLE-ARRAY CHARACTER ; (1556)) Houses information about a particular hardware object on a QPU. ; ; ORDER is a non-negative integer that counts the number of qubit subsidiaries of this hardware object. Equals (1- (length (vnth 0 (hardw... {122BB99C3F}> ; (CL-QUIL::ORDER 0 :TYPE UNSIGNED-BYTE :READ-ONLY T) ; (CL-QUIL::GATE-INFORMATION (MAKE-HASH-TABLE :TEST #'EQUALP)) ; (CL-QUIL::COMPILATION-METHODS (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::PERMUTATION-GATES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::REWRITING-RULES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::CXNS ; (MAKE-ARRAY 2 :INITIAL-CONTENTS ; (LIST (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) ; (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)))) ; (CL-QUIL::MISC-DATA (MAKE-HASH-TABLE :TEST #'EQUAL) :TYPE HASH-TABLE)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::HARDWARE-OBJECT {122BB3E5E3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::HARDWARE-OBJECT-COMPILATION-METHODS and CL-QUIL::HARDWARE-OBJECT-CXNS could not be inlined because the structure definition for CL-QUIL::HARDWARE-OBJECT 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-quil" "chip" "chip-specification"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compressor/compressor.lisp ; in: DEFSTRUCT PEEPHOLE-REWRITER-NODE ; (DEFSTRUCT CL-QUIL::PEEPHOLE-REWRITER-NODE ; "A node housing an instruction and attendant metadata used during peephole rewriting. Essentially a doubly-linked list." ; (CL-QUIL::INSTR NIL :TYPE CL-QUIL.FRONTEND:APPLICATION) ; (CL-QUIL::PREV NIL :TYPE (OR NULL CL-QUIL::PEEPHOLE-REWRITER-NODE)) ; (CL-QUIL::NEXT NIL :TYPE (OR NULL CL-QUIL::PEEPHOLE-REWRITER-NODE)) ; (CL-QUIL::CONTEXT NIL)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::PEEPHOLE-REWRITER-NODE {1239714D43}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::PEEPHOLE-REWRITER-NODE-INSTR and CL-QUIL::PEEPHOLE-REWRITER-NODE-NEXT could not be inlined because the structure definition for CL-QUIL::PEEPHOLE-REWRITER-NODE 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-quil" "compressor" "compressor"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compressor/wavefunctions.lisp ; in: DEFSTRUCT ANTISOCIAL-QVM ; (DEFSTRUCT CL-QUIL::ANTISOCIAL-QVM ; #<(SIMPLE-ARRAY CHARACTER ; (658)) ANTISOCIAL-QVM instances represent partially-tracked low-correlation wavefunctions. ; ; WFS is a vector. The jth entry points to the wavefunction component in which the jth external qubit lies. ; ; INTERNAL... {123AE3E30F}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {123AE42B23}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL::ANTISOCIAL-QVM-WFS could not be inlined because the structure definition for CL-QUIL::ANTISOCIAL-QVM 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-quil" "compressor" "wavefunctions"> ; ; caught ERROR: ; READ error during COMPILE-FILE: Package BENCHMARK does not exist. Line: 5, Column: 35, File-Position: 90 Stream: #<SB-INT:FORM-TRACKING-STREAM for "file /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/bench/package.lisp" {12072C87B3}> Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=731936 "main thread" RUNNING {1200030003}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qvm-benchmarks" "package"> Backtrace for: #<SB-THREAD:THREAD tid=731936 "main thread" RUNNING {1200030003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {12072CCD33}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {12072CCD33}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {12072CCD33}>) 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 "qvm-benchmarks" "package">))) 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 "qvm-benchmarks" "package">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "qvm-benchmarks" "package">) 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 "qvm-benchmarks" "package">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {120430B7A3}>) [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 {120430B7A3}>) [fast-method] 11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "quilc"> :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 "quilc">) 13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "quilc">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "quilc") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "quilc") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12042FDCEB}> :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) {12042C4D4B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "quilc") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "quilc" "quilc") 23: (DEPCHECK::MAGIC "quilc" "quilc" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-ItaVgBex/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "quilc" "quilc" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-ItaVgBex/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-ItaVgBex/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 2 fatal ERROR conditions ; caught 1 ERROR condition ; caught 16 STYLE-WARNING conditions ; printed 54 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/pzmq/9a9a01e9695cdd71ca64e2cf3e56bfb5162f563c/pzmq-20260327-git/pzmq.asd" contains definition for system "pzmq-compat". Please only define "pzmq" and secondary systems with a name starting with "pzmq/" (e.g. "pzmq/test") in that file. WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/pzmq/9a9a01e9695cdd71ca64e2cf3e56bfb5162f563c/pzmq-20260327-git/pzmq.asd" contains definition for system "pzmq-test". Please only define "pzmq" and secondary systems with a name starting with "pzmq/" (e.g. "pzmq/test") in that file. WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/pzmq/9a9a01e9695cdd71ca64e2cf3e56bfb5162f563c/pzmq-20260327-git/pzmq.asd" contains definition for system "pzmq-examples". Please only define "pzmq" and secondary systems with a name starting with "pzmq/" (e.g. "pzmq/test") in that file. WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/fiasco/25c6341ba51ec6b1c07a4ed18827f480f8e3fa89/fiasco-20260327-git/fiasco.asd" contains definition for system "fiasco-self-tests". Please only define "fiasco" and secondary systems with a name starting with "fiasco/" (e.g. "fiasco/test") in that file. WARNING: redefining MAGICL::SVD-LISP in DEFUN WARNING: redefining MAGICL:SCALE! in DEFUN WARNING: redefining MAGICL:.+ in DEFUN WARNING: redefining MAGICL:.- in DEFUN WARNING: redefining MAGICL:.* in DEFUN WARNING: redefining MAGICL:./ in DEFUN WARNING: redefining MAGICL:MULT in DEFUN WARNING: redefining MAGICL:EIG in DEFUN WARNING: redefining MAGICL:HERMITIAN-EIG in DEFUN WARNING: redefining MAGICL:LU in DEFUN WARNING: redefining MAGICL:LU-SOLVE in DEFUN WARNING: redefining MAGICL:INV in DEFUN WARNING: redefining MAGICL:CSD-BLOCKS in DEFUN WARNING: redefining MAGICL:SVD in DEFUN WARNING: redefining MAGICL:SCHUR in DEFUN WARNING: redefining MAGICL:QZ in DEFUN WARNING: redefining MAGICL:QL in DEFUN WARNING: redefining MAGICL:QR in DEFUN WARNING: redefining MAGICL:RQ in DEFUN WARNING: redefining MAGICL:LQ in DEFUN ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/ast.lisp ; in: DEFSTRUCT DELAYED-EXPRESSION ; (DEFSTRUCT ; (CL-QUIL.FRONTEND:DELAYED-EXPRESSION ; (:CONSTRUCTOR CL-QUIL.FRONTEND::%DELAYED-EXPRESSION)) ; #<(SIMPLE-ARRAY CHARACTER ; (335)) A representation of an arithmetic expression with fillable "slots". ; ; PARAMS is a list of values to fill the slots with. These can be formal variables, but eventually must be a list of CONSTANTs. ; ; LAMB... {1219818E3F}> ; (CL-QUIL.FRONTEND::PARAMS NIL) ; (CL-QUIL.FRONTEND::LAMBDA-PARAMS NIL :READ-ONLY T) ; (CL-QUIL.FRONTEND::EXPRESSION NIL :READ-ONLY T)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL.FRONTEND:DELAYED-EXPRESSION {12197676A3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL.FRONTEND:DELAYED-EXPRESSION-EXPRESSION could not be inlined because the structure definition for CL-QUIL.FRONTEND:DELAYED-EXPRESSION 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. ; in: DEFSTRUCT PAULI-TERM ; (DEFSTRUCT (CL-QUIL.FRONTEND:PAULI-TERM) ; #<(SIMPLE-ARRAY CHARACTER ; (642)) Records a word of Pauli operators, together with an ordered list of qubit formals on which they act, as well as a scalar prefix. This is part of the internal representation of a EXP-PAULI-SUM-GATE-DE... {121A4F253F}> ; CL-QUIL.FRONTEND::PAULI-WORD ; CL-QUIL.FRONTEND::PREFACTOR ; CL-QUIL.FRONTEND::ARGUMENTS) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL.FRONTEND:PAULI-TERM {121A4E2893}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL.FRONTEND:PAULI-TERM-PAULI-WORD, CL-QUIL.FRONTEND:PAULI-TERM-PREFACTOR and CL-QUIL.FRONTEND:PAULI-TERM-ARGUMENTS could not be inlined because the structure definition for CL-QUIL.FRONTEND:PAULI-TERM 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. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/ast.lisp ; in: DEFUN EXPAND-CLASSICAL-INSTRUCTION-DEFINITIONS ; (LOOP :FOR CL-QUIL.FRONTEND::TYPE-TUPLE :IN CL-QUIL.FRONTEND::TYPES ; :FOR CL-QUIL.FRONTEND::TYPED-NAME := (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE) ; :DO (ASSERT ; (AND ; (= CL-QUIL.FRONTEND::NUM-ARGS ; (LENGTH CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (EVERY #'CL-QUIL.FRONTEND::VALID-TYPE-SYMBOL-P ; CL-QUIL.FRONTEND::TYPE-TUPLE))) ; :COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD ; ==> ; (LET* ((#:HEAD11 (SB-KERNEL:UNALIGNED-DX-CONS NIL)) ; (#:TAIL12 #:HEAD11) ; (CL-QUIL.FRONTEND::TYPED-NAMES NIL)) ; (DECLARE (DYNAMIC-EXTENT #:HEAD11) ; (SB-C::NO-DEBUG #:HEAD11 #:TAIL12) ; (LIST CL-QUIL.FRONTEND::TYPED-NAMES)) ; (SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD (#S(SB-LOOP::LOOP-COLLECTOR ; :NAME NIL ; :CLASS LIST ; :HISTORY (APPEND) ; :TEMPVARS (#:HEAD13 #:TAIL14) ; :SPECIFIED-TYPE NIL ; :DTYPE LIST ; :DATA NIL) ; #:HEAD13 #:TAIL14) ; (TAGBODY ; SB-LOOP::NEXT-LOOP ; (WHEN (ENDP #:L10) (GO SB-LOOP::END-LOOP)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPE-TUPLE (CAR #:L10)) ; (SB-LOOP::LOOP-DESETQ #:L10 (CDR #:L10)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPED-NAME ; (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (ASSERT (AND # #)) ; (SB-LOOP::LOOP-COLLECT-RPLACD ; (#:HEAD11 #:TAIL12 CL-QUIL.FRONTEND::TYPED-NAMES) ; (LIST CL-QUIL.FRONTEND::TYPED-NAME)) ; (SB-LOOP::LOOP-COLLECT-RPLACD (#:HEAD13 #:TAIL14) (LIST `# `# `# `#)) ; (GO SB-LOOP::NEXT-LOOP) ; SB-LOOP::END-LOOP ; (RETURN-FROM NIL (SB-LOOP::LOOP-COLLECT-ANSWER #:HEAD13))))) ; ; caught STYLE-WARNING: ; The variable TYPED-NAMES is assigned but never read. ; in: DEFUN EXPAND-CLASSICAL-INSTRUCTION-DEFINITIONS ; (LOOP :FOR CL-QUIL.FRONTEND::TYPE-TUPLE :IN CL-QUIL.FRONTEND::TYPES ; :FOR CL-QUIL.FRONTEND::TYPED-NAME := (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE) ; :DO (ASSERT ; (AND ; (= CL-QUIL.FRONTEND::NUM-ARGS ; (LENGTH CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (EVERY #'CL-QUIL.FRONTEND::VALID-TYPE-SYMBOL-P ; CL-QUIL.FRONTEND::TYPE-TUPLE))) ; :COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD ; ==> ; (LET* ((#:HEAD79 (SB-KERNEL:UNALIGNED-DX-CONS NIL)) ; (#:TAIL80 #:HEAD79) ; (CL-QUIL.FRONTEND::TYPED-NAMES NIL)) ; (DECLARE (DYNAMIC-EXTENT #:HEAD79) ; (SB-C::NO-DEBUG #:HEAD79 #:TAIL80) ; (LIST CL-QUIL.FRONTEND::TYPED-NAMES)) ; (SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD (#S(SB-LOOP::LOOP-COLLECTOR ; :NAME NIL ; :CLASS LIST ; :HISTORY (APPEND) ; :TEMPVARS (#:HEAD81 #:TAIL82) ; :SPECIFIED-TYPE NIL ; :DTYPE LIST ; :DATA NIL) ; #:HEAD81 #:TAIL82) ; (TAGBODY ; SB-LOOP::NEXT-LOOP ; (WHEN (ENDP #:L78) (GO SB-LOOP::END-LOOP)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPE-TUPLE (CAR #:L78)) ; (SB-LOOP::LOOP-DESETQ #:L78 (CDR #:L78)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPED-NAME ; (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (ASSERT (AND # #)) ; (SB-LOOP::LOOP-COLLECT-RPLACD ; (#:HEAD79 #:TAIL80 CL-QUIL.FRONTEND::TYPED-NAMES) ; (LIST CL-QUIL.FRONTEND::TYPED-NAME)) ; (SB-LOOP::LOOP-COLLECT-RPLACD (#:HEAD81 #:TAIL82) (LIST `# `# `# `#)) ; (GO SB-LOOP::NEXT-LOOP) ; SB-LOOP::END-LOOP ; (RETURN-FROM NIL (SB-LOOP::LOOP-COLLECT-ANSWER #:HEAD81))))) ; ; caught STYLE-WARNING: ; The variable TYPED-NAMES is assigned but never read. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil/frontend" "ast"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/parser.lisp ; in: DEFSTRUCT TOKEN ; (DEFSTRUCT ; (CL-QUIL.FRONTEND:TOKEN ; (:CONSTRUCTOR CL-QUIL.FRONTEND:TOK ; (TYPE &OPTIONAL CL-QUIL.FRONTEND::PAYLOAD ; (CL-QUIL.FRONTEND::LINE CL-QUIL.FRONTEND::*LINE-NUMBER*) ; (PATHNAME CL-QUIL.FRONTEND::*CURRENT-FILE*)))) ; "A lexical token." ; (CL-QUIL.FRONTEND::LINE NIL :TYPE (OR NULL (INTEGER 1)) :READ-ONLY T) ; (PATHNAME NIL :TYPE (OR NULL STRING PATHNAME) :READ-ONLY T) ; (TYPE NIL :TYPE SYMBOL :READ-ONLY T) ; (CL-QUIL.FRONTEND::PAYLOAD NIL :READ-ONLY T)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL.FRONTEND:TOKEN {122B6C4973}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL.FRONTEND:TOKEN-TYPE and CL-QUIL.FRONTEND:TOKEN-PAYLOAD could not be inlined because the structure definition for CL-QUIL.FRONTEND:TOKEN 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-quil/frontend" "parser"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/clifford/stabilizer.lisp ; in: ; DECLAIM (INLINE TABLEAU-QUBITS TABLEAU-X (SETF TABLEAU-X) TABLEAU-Z (SETF TABLEAU-Z) TABLEAU-R (SETF TABLEAU-R) TABLEAU-SCRATCH (SETF TABLEAU-SCRATCH)) ; (DECLAIM ; (INLINE CL-QUIL.CLIFFORD::TABLEAU-QUBITS CL-QUIL.CLIFFORD::TABLEAU-X ; (SETF CL-QUIL.CLIFFORD::TABLEAU-X) CL-QUIL.CLIFFORD::TABLEAU-Z ; (SETF CL-QUIL.CLIFFORD::TABLEAU-Z) CL-QUIL.CLIFFORD::TABLEAU-R ; (SETF CL-QUIL.CLIFFORD::TABLEAU-R) CL-QUIL.CLIFFORD::TABLEAU-SCRATCH ; (SETF CL-QUIL.CLIFFORD::TABLEAU-SCRATCH))) ; ==> ; (SB-C::%PROCLAIM ; '(INLINE CL-QUIL.CLIFFORD::TABLEAU-QUBITS CL-QUIL.CLIFFORD::TABLEAU-X ; (SETF CL-QUIL.CLIFFORD::TABLEAU-X) CL-QUIL.CLIFFORD::TABLEAU-Z ; (SETF CL-QUIL.CLIFFORD::TABLEAU-Z) CL-QUIL.CLIFFORD::TABLEAU-R ; (SETF CL-QUIL.CLIFFORD::TABLEAU-R) CL-QUIL.CLIFFORD::TABLEAU-SCRATCH ; (SETF CL-QUIL.CLIFFORD::TABLEAU-SCRATCH)) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Proclaiming CL-QUIL.CLIFFORD::TABLEAU-QUBITS to be INLINE, but 1 call to it was previously compiled. A declaration of NOTINLINE at the call site will eliminate this warning, as will proclaiming and defining the function before its first potential use. ; in: DEFUN TABLEAU-MEASURE ; (DEFUN CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (CL-QUIL.CLIFFORD::TAB CL-QUIL.CLIFFORD::Q) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0)) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU CL-QUIL.CLIFFORD::TAB) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU-INDEX CL-QUIL.CLIFFORD::Q)) ; (LET* ((CL-QUIL.CLIFFORD::N ; (CL-QUIL.CLIFFORD::TABLEAU-QUBITS CL-QUIL.CLIFFORD::TAB)) ; (CL-QUIL.CLIFFORD::P ; (LOOP :FOR CL-QUIL.CLIFFORD::P :BELOW CL-QUIL.CLIFFORD::N ; :WHEN # ; :DO # ; :FINALLY #))) ; (DECLARE ; (TYPE (OR CL-QUIL.CLIFFORD::TABLEAU-INDEX NULL) CL-QUIL.CLIFFORD::P) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU-INDEX CL-QUIL.CLIFFORD::N)) ; (COND ; (CL-QUIL.CLIFFORD::P ; (CL-QUIL.CLIFFORD::TABLEAU-COPY-ROW CL-QUIL.CLIFFORD::TAB ; CL-QUIL.CLIFFORD::P #) ; (CL-QUIL.CLIFFORD::TABLEAU-SET-ROW-TO-PAULI CL-QUIL.CLIFFORD::TAB # #) ; (SETF #) (DOTIMES # #) (VALUES # NIL)) ; (T (CL-QUIL.CLIFFORD::TABLEAU-CLEAR-SCRATCH CL-QUIL.CLIFFORD::TAB) ; (LET # ; # ; # ; #))))) ; ==> ; (SB-IMPL::%DEFUN 'CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (SB-INT:NAMED-LAMBDA CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (CL-QUIL.CLIFFORD::TAB CL-QUIL.CLIFFORD::Q) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) ; (COMPILATION-SPEED 0)) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU CL-QUIL.CLIFFORD::TAB) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU-INDEX ; CL-QUIL.CLIFFORD::Q)) ; (BLOCK CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (LET* (# #) ; (DECLARE # ; #) ; (COND # #))))) ; ; caught STYLE-WARNING: ; Call to CL-QUIL.CLIFFORD::TABLEAU-COPY-ROW could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil/frontend" "clifford" "stabilizer"> WARNING: redefining CL-QUIL.FRONTEND::PRINT-PARSED-PROGRAM-GENERIC in DEFGENERIC ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/linear-algebra.lisp ; in: DEFUN-INLINABLE PSUM ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I)) ; ; note: doing complex float to pointer coercion (cost 13) ; (QVM:PSUM-DOTIMES (QVM::I (LENGTH QVM::STATE)) ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I)) ; ; note: doing complex float to pointer coercion (cost 13) ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/wavefunction.lisp ; in: DEFUN PROBABILITY ; (DEFUN QVM:PROBABILITY (QVM::AMPLITUDE) ; "Convert an amplitude into a probability." ; (DECLARE (TYPE QVM:CFLONUM QVM::AMPLITUDE)) ; (LET ((QVM::RE (REALPART QVM::AMPLITUDE)) ; (QVM::IM (IMAGPART QVM::AMPLITUDE))) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (+ (* QVM::RE QVM::RE) (* QVM::IM QVM::IM)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM:PROBABILITY ; (QVM::AMPLITUDE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Convert an amplitude into a probability." ; (DECLARE (TYPE QVM:CFLONUM QVM::AMPLITUDE)) ; (BLOCK QVM:PROBABILITY ; (LET ((QVM::RE #) (QVM::IM #)) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (+ (* QVM::RE QVM::RE) (* QVM::IM QVM::IM))))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; in: DEFUN-INLINABLE WAVEFUNCTION-GROUND-STATE-PROBABILITY ; (QVM:PSUM-DOTIMES (QVM::I (QVM::HALF (LENGTH QVM::WAVEFUNCTION))) ; (LET ((QVM::ADDRESS (QVM::INJECT-BIT QVM::I QVM::QUBIT))) ; (DECLARE (TYPE QVM:AMPLITUDE-ADDRESS QVM::ADDRESS)) ; (QVM:PROBABILITY (AREF QVM::WAVEFUNCTION QVM::ADDRESS)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; --> IF FLET LET* LOOP BLOCK LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY ; --> RETURN-FROM ; ==> ; #:SUM13 ; ; note: doing float to pointer coercion (cost 13) from #:SUM13 to "<return value>" ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION6 (#:START2 #:END3) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START2) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END3)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM1 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM1 to "<return value>" ; in: DEFUN-INLINABLE WAVEFUNCTION-EXCITED-STATE-PROBABILITY ; (QVM:PSUM-DOTIMES (QVM::I (QVM::HALF (LENGTH QVM::WAVEFUNCTION))) ; (LET ((QVM::ADDRESS (QVM::INDEX-TO-ADDRESS QVM::I QVM::QUBIT 1))) ; (DECLARE (TYPE QVM:AMPLITUDE-ADDRESS QVM::ADDRESS)) ; (QVM:PROBABILITY (AREF QVM::WAVEFUNCTION QVM::ADDRESS)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; --> IF FLET LET* LOOP BLOCK LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY ; --> RETURN-FROM ; ==> ; #:SUM13 ; ; note: doing float to pointer coercion (cost 13) from #:SUM13 to "<return value>" ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION6 (#:START2 #:END3) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START2) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END3)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM1 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM1 to "<return value>" ; in: DEFUN-INLINABLE APPLY-MATRIX-OPERATOR ; (APPLY QVM::KERNEL QVM::MATRIX QVM::WAVEFUNCTION (COERCE QVM::QUBITS 'LIST)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: KERNEL is not known to be a function ; in: DEFUN-INLINABLE %SERIAL-NORM ; (QVM:DEFUN-INLINABLE QVM::%SERIAL-NORM ; (QVM::WAVEFUNCTION) ; (LOOP :WITH QVM::S :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :BELOW (LENGTH QVM::WAVEFUNCTION) ; :DO ...)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::%SERIAL-NORM ; (QVM::WAVEFUNCTION) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK QVM::%SERIAL-NORM ; (LOOP :WITH QVM::S :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :BELOW (LENGTH QVM::WAVEFUNCTION) ; :DO ...))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; in: DEFUN-INLINABLE NORM ; (QVM:DEFUN-INLINABLE QVM::NORM ; (QVM::WAVEFUNCTION) ; "Compute the length/L2 norm of the wavefunction WAVEFUNCTION." ; (DECLARE (INLINE QVM:PROBABILITY QVM::PSUM)) ; (IF (<= QVM:*QUBITS-REQUIRED-FOR-PARALLELIZATION* ; (QVM::WAVEFUNCTION-QUBITS QVM::WAVEFUNCTION)) ; (SQRT ; (THE (QVM:FLONUM 0) (QVM::PSUM #'QVM:PROBABILITY QVM::WAVEFUNCTION))) ; (QVM::%SERIAL-NORM QVM::WAVEFUNCTION))) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::NORM ; (QVM::WAVEFUNCTION) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Compute the length/L2 norm of the wavefunction WAVEFUNCTION." ; (DECLARE (INLINE QVM:PROBABILITY QVM::PSUM)) ; (BLOCK QVM::NORM ; (IF (<= QVM:*QUBITS-REQUIRED-FOR-PARALLELIZATION* ; (QVM::WAVEFUNCTION-QUBITS QVM::WAVEFUNCTION)) ; (SQRT (THE # #)) ; (QVM::%SERIAL-NORM QVM::WAVEFUNCTION)))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; (QVM::PSUM #'QVM:PROBABILITY QVM::WAVEFUNCTION) ; --> BLOCK QVM:PSUM-DOTIMES LET IF FLET ; ==> ; (#:WORKER-FUNCTION8 (#:START4 #:END5) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START4) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END5)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM3 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM3 to "<return value>" ; in: DEFUN NORMALIZE-WAVEFUNCTION ; (QVM:FLONUM LENGTH) ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; (QVM:PDOTIMES (QVM::I (LENGTH QVM::WAVEFUNCTION) QVM::WAVEFUNCTION) ; (SETF (AREF QVM::WAVEFUNCTION QVM::I) ; (* QVM::INV-NORM (AREF QVM::WAVEFUNCTION QVM::I)))) ; --> IF LPARALLEL.COGNATE:PDOTIMES LET PROGN LPARALLEL.COGNATE::%PDOTIMES ; --> LAMBDA ; ==> ; #'(LAMBDA (QVM::I) ; (TAGBODY (SETF (AREF QVM::WAVEFUNCTION QVM::I) (* QVM::INV-NORM #)))) ; ; note: doing float to pointer coercion (cost 13), for: ; the second argument of CLOSURE-INIT ; (QVM::NORM QVM::WAVEFUNCTION) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM16 to "<return value>" ; in: DEFUN WF ; (QVM:CFLONUM ELT) ; --> BLOCK COERCE ; ==> ; 1 ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; in: DEFUN GAUSSIAN-RANDOM-COMPLEX ; (DEFUN QVM::GAUSSIAN-RANDOM-COMPLEX () ; "Return a complex number with Gaussian-random real and imaginary parts." ; (MULTIPLE-VALUE-BIND (QVM::RE QVM::IM) ; (ALEXANDRIA:GAUSSIAN-RANDOM) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (COMPLEX QVM::RE QVM::IM))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::GAUSSIAN-RANDOM-COMPLEX ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Return a complex number with Gaussian-random real and imaginary parts." ; (BLOCK QVM::GAUSSIAN-RANDOM-COMPLEX ; (MULTIPLE-VALUE-BIND (QVM::RE QVM::IM) ; (ALEXANDRIA:GAUSSIAN-RANDOM) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (COMPLEX QVM::RE QVM::IM)))) ; ; note: doing complex float to pointer coercion (cost 13) to "<return value>" ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/compile-gate.lisp ; in: DEFUN GENERATE-AMPLITUDE-ADDRESS-CODE ; (LDB (BYTE 1 QVM::I) QVM::FLAGS) ; ; note: doing unsigned word to integer coercion (cost 20) to "<return value>" ; in: DEFUN GENERATE-INNER-MATRIX-MULTIPLY-CODE ; (LOOP :FOR QVM::J :BELOW QVM::N ; :FOR QVM::C := (NTH QVM::J QVM::COLUMN) ; :FOR QVM::MIJ := ...) ; --> LET LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ ; ==> ; (SETQ QVM::MIJ (AREF QVM::MATRIX QVM::I QVM::J)) ; ; note: doing complex float to pointer coercion (cost 13) to MIJ ; `(* ,QVM::C ,(AREF QVM::MATRIX QVM::I QVM::J)) ; ; note: doing complex float to pointer coercion (cost 13), for: ; the third argument of LIST ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/measurement.lisp ; in: DEFMETHOD FORCE-MEASUREMENT (T T PURE-STATE T) ; (SQRT (- (QVM:FLONUM 1) QVM::EXCITED-PROBABILITY)) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (OR (COMPLEX DOUBLE-FLOAT) (DOUBLE-FLOAT 0.0d0 1.0d0)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; (/ (SQRT QVM::EXCITED-PROBABILITY)) ; ; note: doing float to pointer coercion (cost 13), for: ; the first result of inline float arithmetic ; in: DEFGENERIC GET-EXCITED-STATE-PROBABILITY ; (AREF QVM::RHO QVM::I QVM::I) ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; (REALPART (AREF QVM::RHO QVM::I QVM::I)) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (QVM:PSUM-DOTIMES (QVM::K (EXPT 2 (1- (QVM::NUM-QUBITS QVM::STATE)))) ; (LET ((QVM::I (QVM::INDEX-TO-ADDRESS QVM::K QVM::QUBIT 1))) ; (REALPART (AREF QVM::RHO QVM::I QVM::I)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM20 ; ; note: doing float to pointer coercion (cost 13) from #:SUM20 to "<return value>" ; in: DEFUN SAMPLE-WAVEFUNCTION-AS-DISTRIBUTION-IN-PARALLEL-TRULY ; (QVM:PSUM-DOTIMES (QVM::I ; (THE ALEXANDRIA:NON-NEGATIVE-FIXNUM (- QVM::MID MIN))) ; (LET ((QVM::I (THE ALEXANDRIA:NON-NEGATIVE-FIXNUM #))) ; (QVM:PROBABILITY (AREF QVM:WF QVM::I)))) ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION12 (#:START8 #:END9) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START8) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END9)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM7 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM7 to "<return value>" ; in: DEFUN SAMPLE-WAVEFUNCTION-MULTIPLE-TIMES ; (MT19937:RANDOM 1.0d0) ; --> BLOCK LET* - SCALE-FLOAT FLOAT ; ==> ; (+ (EXPT 2 52) MT19937::RANDOM-MANTISSA-BITS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 4503599627370496) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 4503599627370496) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a (INTEGER 4611686018427387904), not a (SIGNED-BYTE 64). ; in: DEFUN SAMPLE-WAVEFUNCTION-AS-DISTRIBUTION ; (AREF QVM::PS QVM::I) ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR DOUBLE-FLOAT), not a SIMPLE-ARRAY. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/matrix-operations.lisp ; in: DEFUN ORTHONORMALIZE-MATRIX! ; (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a COMPLEX. ; (SQRT CL-QUIL::N^2) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The result is a (VALUES (OR (FLOAT 0.0) (COMPLEX DOUBLE-FLOAT) (COMPLEX SINGLE-FLOAT)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.The result is a (VALUES (OR (FLOAT 0.0) (COMPLEX DOUBLE-FLOAT) (COMPLEX SINGLE-FLOAT)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &OPTIONAL). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &OPTIONAL). ; (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (LOOP :FOR CL-QUIL::I :BELOW CL-QUIL::NROWS ; :SUM (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q))) ; --> LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM17 ; (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; (/ (MAGICL:TREF CL-QUIL::M CL-QUIL::ROW CL-QUIL::COL) CL-QUIL::NORM) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (OR (FLOAT 0.0) (COMPLEX DOUBLE-FLOAT) (COMPLEX SINGLE-FLOAT)), not a SINGLE-FLOAT. ; The result is a (VALUES (OR FLOAT (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a T, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a (OR (FLOAT 0.0) (COMPLEX DOUBLE-FLOAT) (COMPLEX SINGLE-FLOAT)), not a SINGLE-FLOAT. ; The result is a (VALUES (OR FLOAT (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &OPTIONAL). ; etc. ; (* CL-QUIL::S (MAGICL:TREF CL-QUIL::Q CL-QUIL::ROW CL-QUIL::J)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (DECF (MAGICL:TREF CL-QUIL::V CL-QUIL::ROW CL-QUIL::K) ; (* CL-QUIL::S (MAGICL:TREF CL-QUIL::Q CL-QUIL::ROW CL-QUIL::J))) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/define-compiler.lisp ; in: DEFUN FIND-SHORTEST-COMPILER-PATH ; (DEFUN CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (CL-QUIL::COMPILERS CL-QUIL::TARGET-GATESET CL-QUIL::OCCURRENCE-TABLE ; &OPTIONAL CL-QUIL::QUBIT-COUNT) ; #<(SIMPLE-ARRAY CHARACTER ; (730)) Produces a path of compilers, drawn from COMPILERS, which convert all of the entries of OCCURRENCE-TABLE into "native gates" according to TARGET-GATESET. Returns an alternating chain of occurrence ta... {120CE10C2F}> ; (LET ((CL-QUIL.FRONTEND:QUEUE ; (MAKE-INSTANCE 'CL-HEAP:PRIORITY-QUEUE :SORT-FUN #))) ; (FLET ((CL-QUIL::COLLECT-BINDINGS # ; #)) ; (LOOP :WITH CL-QUIL::VISITED-NODES := NIL ; :FOR (CL-QUIL::TASK . CL-QUIL::HISTORY) := (LIST ; CL-QUIL::OCCURRENCE-TABLE) :THEN (CL-HEAP:DEQUEUE ; CL-QUIL.FRONTEND:QUEUE) ; :UNLESS ...)))) ; ==> ; (SB-IMPL::%DEFUN 'CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (SB-INT:NAMED-LAMBDA CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (CL-QUIL::COMPILERS CL-QUIL::TARGET-GATESET ; CL-QUIL::OCCURRENCE-TABLE &OPTIONAL ; CL-QUIL::QUBIT-COUNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (730)) Produces a path of compilers, drawn from COMPILERS, which convert all of the entries of OCCURRENCE-TABLE into "native gates" according to TARGET-GATESET. Returns an alternating chain of occurrence ta... {120CE10C2F}> ; (BLOCK CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (LET (#) ; (FLET # ; #))))) ; ; caught STYLE-WARNING: ; Call to CL-HEAP:DEQUEUE could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. ; ; caught STYLE-WARNING: ; Call to CL-HEAP:ENQUEUE could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil" "define-compiler"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compiler-hook.lisp ; in: DEFUN COMPILER-HOOK ; (DEFUN CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION ; &KEY (CL-QUIL::PROTOQUIL NIL) ; (CL-QUIL::REWIRING-TYPE ; (CL-QUIL::PROG-INITIAL-REWIRING-HEURISTIC ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (CL-QUIL::TRANSFORMS CL-QUIL::*STANDARD-PRE-COMPILATION-TRANSFORMS*) ; (CL-QUIL::DESTRUCTIVE NIL) ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; #<(SIMPLE-ARRAY CHARACTER ; (1034)) Runs a full compiler pass on a parsed-program object. ; ; Arguments: ; ; - PARSED-PROGRAM: The parsed program to compile ; ; - CHIP-SPECIFICATION: The chip specification describing the target chip ; ; Keyword... {122A54000F}> ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: entrance.") ; (UNLESS CL-QUIL::DESTRUCTIVE ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:COPY-INSTANCE ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (WHEN ; (AND (NOT (EQL ':NAIVE CL-QUIL::REWIRING-TYPE)) ; (> ; (CL-QUIL.FRONTEND:QUBITS-NEEDED CL-QUIL.FRONTEND:PARSED-PROGRAM) ; (LENGTH #)) ; (NOT ; (CL-QUIL.FRONTEND:PARSED-PROGRAM-HAS-PRESERVE-BLOCKS-P ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Compressing qubits.") ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:COMPRESS-QUBITS ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (DOLIST (CL-QUIL::XFORM CL-QUIL::TRANSFORMS) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Applying transform ~A." ; CL-QUIL::XFORM) ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:TRANSFORM CL-QUIL::XFORM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (CL-QUIL::WARM-CHIP-SPEC-LOOKUP-CACHE CL-QUIL::CHIP-SPECIFICATION) ; (LOOP :FOR CL-QUIL::MDESC :IN (CL-QUIL.FRONTEND:PARSED-PROGRAM-MEMORY-DEFINITIONS ; CL-QUIL.FRONTEND:PARSED-PROGRAM) ; :WHEN (CL-QUIL.FRONTEND:MEMORY-DESCRIPTOR-SHARING-PARENT ; CL-QUIL::MDESC) ; :DO (ERROR ; "Programs with aliased memory are currently unsupported.")) ; (WHEN (EQL ':NAIVE CL-QUIL::REWIRING-TYPE) ; (CL-QUIL::CHECK-PROGRAM-SKIPS-DEAD-QUBITS CL-QUIL.FRONTEND:PARSED-PROGRAM ; CL-QUIL::CHIP-SPECIFICATION)) ; (WHEN CL-QUIL::PROTOQUIL ; (CL-QUIL:CHECK-PROTOQUIL-PROGRAM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; ...) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION &KEY ; (CL-QUIL::PROTOQUIL NIL) ; (CL-QUIL::REWIRING-TYPE ; (CL-QUIL::PROG-INITIAL-REWIRING-HEURISTIC ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (CL-QUIL::TRANSFORMS CL-QUIL::*STANDARD-PRE-COMPILATION-TRANSFORMS*) ; (CL-QUIL::DESTRUCTIVE NIL) ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (1034)) Runs a full compiler pass on a parsed-program object. ; ; Arguments: ; ; - PARSED-PROGRAM: The parsed program to compile ; ; - CHIP-SPECIFICATION: The chip specification describing the target chip ; ; Keyword... {122A54000F}> ; (BLOCK CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: entrance.") ; (UNLESS CL-QUIL::DESTRUCTIVE (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (WHEN (AND (NOT #) (> # #) (NOT #)) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Compressing qubits.") ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (DOLIST (CL-QUIL::XFORM CL-QUIL::TRANSFORMS) ; (CL-QUIL.FRONTEND:FORMAT-NOISE ; "COMPILER-HOOK: Applying transform ~A." CL-QUIL::XFORM) ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (CL-QUIL::WARM-CHIP-SPEC-LOOKUP-CACHE CL-QUIL::CHIP-SPECIFICATION) ; (LOOP :FOR CL-QUIL::MDESC :IN (CL-QUIL.FRONTEND:PARSED-PROGRAM-MEMORY-DEFINITIONS ; CL-QUIL.FRONTEND:PARSED-PROGRAM) ; :WHEN (CL-QUIL.FRONTEND:MEMORY-DESCRIPTOR-SHARING-PARENT ; CL-QUIL::MDESC) ; :DO (ERROR ; "Programs with aliased memory are currently unsupported.")) ; (WHEN (EQL ':NAIVE CL-QUIL::REWIRING-TYPE) ; (CL-QUIL::CHECK-PROGRAM-SKIPS-DEAD-QUBITS ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (WHEN CL-QUIL::PROTOQUIL ; (CL-QUIL:CHECK-PROTOQUIL-PROGRAM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; (MULTIPLE-VALUE-BIND ; (CL-QUIL::INITIAL-REWIRING CL-QUIL::L2P-COMPONENTS) ; (CL-QUIL::PROG-INITIAL-REWIRING CL-QUIL.FRONTEND:PARSED-PROGRAM ; CL-QUIL::CHIP-SPECIFICATION :TYPE CL-QUIL::REWIRING-TYPE) ; (LET* (# # # #) ; (CL-QUIL::CHECK-PRESERVED-BLOCKS-SKIP-DEAD-QUBITS CL-QUIL::CFG ; CL-QUIL::CHIP-SPECIFICATION) ; (LET # ; #) ; (WHEN CL-QUIL::PROTOQUIL #) ; (LABELS # ; # ; # ; #))))) ; ; caught STYLE-WARNING: ; using the lexical binding of the symbol (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE*), not the ; dynamic binding, even though the name follows ; the usual naming convention (names like *FOO*) for special variables ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; ; caught STYLE-WARNING: ; The variable *ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil" "compiler-hook"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/chip/chip-specification.lisp ; in: DEFSTRUCT CHIP-SPECIFICATION ; (DEFSTRUCT CL-QUIL::CHIP-SPECIFICATION ; #<(SIMPLE-ARRAY CHARACTER ; (957)) Houses information about hardware components on a QPU. ; ; OBJECTS is an array. In its nth position, there is a vector of order n hardware objects on the chip. ; ; GENERIC-COMPILERS is a vector of functions... {122B221F3F}> ; (CL-QUIL::OBJECTS ; (MAKE-ARRAY 2 :INITIAL-CONTENTS ; (LIST (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) ; (CL-QUIL::MAKE-ADJUSTABLE-VECTOR))) ; :TYPE VECTOR) ; (CL-QUIL::GENERIC-COMPILERS (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) :TYPE VECTOR) ; (CL-QUIL::GENERIC-REWRITING-RULES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) :TYPE ; VECTOR) ; (CL-QUIL::LOOKUP-CACHE NIL :TYPE (OR NULL HASH-TABLE))) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::CHIP-SPECIFICATION {122B1D7853}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL::CHIP-SPECIFICATION-GENERIC-COMPILERS could not be inlined because the structure definition for CL-QUIL::CHIP-SPECIFICATION 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. ; in: DEFSTRUCT GATE-RECORD ; (DEFSTRUCT (CL-QUIL::GATE-RECORD (:COPIER NIL)) ; "Houses information about a hardware instantiation of a gate. ; ; FIDELITY stores the measured gate fidelity. ; ; DURATION stores the measured gate duration (in nanoseconds)." ; (CL-QUIL::FIDELITY CL-QUIL::+NEAR-PERFECT-FIDELITY+ :TYPE (OR NULL REAL)) ; (CL-QUIL::DURATION 1/100 :TYPE (OR NULL REAL))) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::GATE-RECORD {122B90D973}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::GATE-RECORD-FIDELITY and CL-QUIL::GATE-RECORD-DURATION could not be inlined because the structure definition for CL-QUIL::GATE-RECORD 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. ; in: DEFSTRUCT HARDWARE-OBJECT ; (DEFSTRUCT CL-QUIL::HARDWARE-OBJECT ; #<(SIMPLE-ARRAY CHARACTER ; (1556)) Houses information about a particular hardware object on a QPU. ; ; ORDER is a non-negative integer that counts the number of qubit subsidiaries of this hardware object. Equals (1- (length (vnth 0 (hardw... {122BB79DEF}> ; (CL-QUIL::ORDER 0 :TYPE UNSIGNED-BYTE :READ-ONLY T) ; (CL-QUIL::GATE-INFORMATION (MAKE-HASH-TABLE :TEST #'EQUALP)) ; (CL-QUIL::COMPILATION-METHODS (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::PERMUTATION-GATES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::REWRITING-RULES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::CXNS ; (MAKE-ARRAY 2 :INITIAL-CONTENTS ; (LIST (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) ; (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)))) ; (CL-QUIL::MISC-DATA (MAKE-HASH-TABLE :TEST #'EQUAL) :TYPE HASH-TABLE)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::HARDWARE-OBJECT {122BB1EA53}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::HARDWARE-OBJECT-COMPILATION-METHODS and CL-QUIL::HARDWARE-OBJECT-CXNS could not be inlined because the structure definition for CL-QUIL::HARDWARE-OBJECT 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-quil" "chip" "chip-specification"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compressor/compressor.lisp ; in: DEFSTRUCT PEEPHOLE-REWRITER-NODE ; (DEFSTRUCT CL-QUIL::PEEPHOLE-REWRITER-NODE ; "A node housing an instruction and attendant metadata used during peephole rewriting. Essentially a doubly-linked list." ; (CL-QUIL::INSTR NIL :TYPE CL-QUIL.FRONTEND:APPLICATION) ; (CL-QUIL::PREV NIL :TYPE (OR NULL CL-QUIL::PEEPHOLE-REWRITER-NODE)) ; (CL-QUIL::NEXT NIL :TYPE (OR NULL CL-QUIL::PEEPHOLE-REWRITER-NODE)) ; (CL-QUIL::CONTEXT NIL)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::PEEPHOLE-REWRITER-NODE {12396AE5C3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::PEEPHOLE-REWRITER-NODE-INSTR and CL-QUIL::PEEPHOLE-REWRITER-NODE-NEXT could not be inlined because the structure definition for CL-QUIL::PEEPHOLE-REWRITER-NODE 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-quil" "compressor" "compressor"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compressor/wavefunctions.lisp ; in: DEFSTRUCT ANTISOCIAL-QVM ; (DEFSTRUCT CL-QUIL::ANTISOCIAL-QVM ; #<(SIMPLE-ARRAY CHARACTER ; (658)) ANTISOCIAL-QVM instances represent partially-tracked low-correlation wavefunctions. ; ; WFS is a vector. The jth entry points to the wavefunction component in which the jth external qubit lies. ; ; INTERNAL... {123ADEDB3F}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {123ADE26B3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL::ANTISOCIAL-QVM-WFS could not be inlined because the structure definition for CL-QUIL::ANTISOCIAL-QVM 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-quil" "compressor" "wavefunctions"> ; ; caught ERROR: ; READ error during COMPILE-FILE: Package BENCHMARK does not exist. Line: 5, Column: 35, File-Position: 90 Stream: #<SB-INT:FORM-TRACKING-STREAM for "file /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/bench/package.lisp" {12071F6AC3}> Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=731918 "main thread" RUNNING {1200030003}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qvm-benchmarks" "package"> Backtrace for: #<SB-THREAD:THREAD tid=731918 "main thread" RUNNING {1200030003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1207203073}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1207203073}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1207203073}>) 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 "qvm-benchmarks" "package">))) 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 "qvm-benchmarks" "package">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "qvm-benchmarks" "package">) 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 "qvm-benchmarks" "package">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204337BA3}>) [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 {1204337BA3}>) [fast-method] 11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "quilc-tests"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "quilc-tests">) 13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "quilc-tests">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "quilc-tests") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "quilc-tests") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120434902B}> :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) {1204307F8B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "quilc-tests") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "quilc-tests" "quilc-tests") 23: (DEPCHECK::MAGIC "quilc-tests" "quilc-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-DPJDVwLa/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "quilc-tests" "quilc-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-DPJDVwLa/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-DPJDVwLa/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 2 fatal ERROR conditions ; caught 1 ERROR condition ; caught 16 STYLE-WARNING conditions ; printed 54 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/pzmq/9a9a01e9695cdd71ca64e2cf3e56bfb5162f563c/pzmq-20260327-git/pzmq.asd" contains definition for system "pzmq-compat". Please only define "pzmq" and secondary systems with a name starting with "pzmq/" (e.g. "pzmq/test") in that file. WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/pzmq/9a9a01e9695cdd71ca64e2cf3e56bfb5162f563c/pzmq-20260327-git/pzmq.asd" contains definition for system "pzmq-test". Please only define "pzmq" and secondary systems with a name starting with "pzmq/" (e.g. "pzmq/test") in that file. WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/pzmq/9a9a01e9695cdd71ca64e2cf3e56bfb5162f563c/pzmq-20260327-git/pzmq.asd" contains definition for system "pzmq-examples". Please only define "pzmq" and secondary systems with a name starting with "pzmq/" (e.g. "pzmq/test") in that file. Unhandled ASDF/FIND-COMPONENT:MISSING-DEPENDENCY in thread #<SB-THREAD:THREAD tid=731914 "main thread" RUNNING {1200030003}>: Component #:SBCL-LIBRARIAN not found, required by #<SYSTEM "libquilc"> Backtrace for: #<SB-THREAD:THREAD tid=731914 "main thread" RUNNING {1200030003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK Component #:SBCL-LIBRARIAN not found, required by #<SYSTEM "libquilc"> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* Component #:SBCL-LIBRARIAN not found, required by #<SYSTEM "libquilc">) 2: (INVOKE-DEBUGGER Component #:SBCL-LIBRARIAN not found, required by #<SYSTEM "libquilc">) 3: (ERROR ASDF/FIND-COMPONENT:MISSING-DEPENDENCY :REQUIRED-BY #<ASDF/SYSTEM:SYSTEM "libquilc"> :REQUIRES #:SBCL-LIBRARIAN) 4: (ASDF/FIND-COMPONENT:RESOLVE-DEPENDENCY-NAME #<ASDF/SYSTEM:SYSTEM "libquilc"> #:SBCL-LIBRARIAN NIL) 5: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "libquilc"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {120431636B}>) 6: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 7: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 8: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {12043037D3}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "libquilc"> T) 9: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "libquilc" "package"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {120431621B}>) 10: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 11: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 12: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {12043037D3}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "libquilc" "package"> T) 13: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "libquilc" "package"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {12043121FB}>) 14: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 15: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 16: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {12043037D3}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "libquilc" "package"> T) 17: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "libquilc"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {12042FE0EB}>) 18: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 19: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 20: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {12043037D3}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "libquilc"> T) 21: ((LAMBDA NIL :IN ASDF/PLAN:MAKE-PLAN)) 22: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "libquilc"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 23: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "libquilc">) 24: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 25: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "libquilc">) [fast-method] 26: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "libquilc") 27: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 28: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "libquilc") [fast-method] 29: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12042FB18B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 30: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 31: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12042BA18B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 32: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "libquilc") [fast-method] 33: (DEPCHECK::COMPUTE-DEPENDENCIES "libquilc" "libquilc") 34: (DEPCHECK::MAGIC "libquilc" "libquilc" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-kQah9FY7/depcheck-win.txt") 35: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "libquilc" "libquilc" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-kQah9FY7/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-kQah9FY7/depcheck-fail.txt")) 36: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 37: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 38: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 39: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting
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/pzmq/9a9a01e9695cdd71ca64e2cf3e56bfb5162f563c/pzmq-20260327-git/pzmq.asd" contains definition for system "pzmq-compat". Please only define "pzmq" and secondary systems with a name starting with "pzmq/" (e.g. "pzmq/test") in that file. WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/pzmq/9a9a01e9695cdd71ca64e2cf3e56bfb5162f563c/pzmq-20260327-git/pzmq.asd" contains definition for system "pzmq-test". Please only define "pzmq" and secondary systems with a name starting with "pzmq/" (e.g. "pzmq/test") in that file. WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/pzmq/9a9a01e9695cdd71ca64e2cf3e56bfb5162f563c/pzmq-20260327-git/pzmq.asd" contains definition for system "pzmq-examples". Please only define "pzmq" and secondary systems with a name starting with "pzmq/" (e.g. "pzmq/test") in that file. Unhandled ASDF/FIND-COMPONENT:MISSING-DEPENDENCY in thread #<SB-THREAD:THREAD tid=731910 "main thread" RUNNING {1200030003}>: Component #:SBCL-LIBRARIAN not found, required by #<SYSTEM "libquilc"> Backtrace for: #<SB-THREAD:THREAD tid=731910 "main thread" RUNNING {1200030003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK Component #:SBCL-LIBRARIAN not found, required by #<SYSTEM "libquilc"> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* Component #:SBCL-LIBRARIAN not found, required by #<SYSTEM "libquilc">) 2: (INVOKE-DEBUGGER Component #:SBCL-LIBRARIAN not found, required by #<SYSTEM "libquilc">) 3: (ERROR ASDF/FIND-COMPONENT:MISSING-DEPENDENCY :REQUIRED-BY #<ASDF/SYSTEM:SYSTEM "libquilc"> :REQUIRES #:SBCL-LIBRARIAN) 4: (ASDF/FIND-COMPONENT:RESOLVE-DEPENDENCY-NAME #<ASDF/SYSTEM:SYSTEM "libquilc"> #:SBCL-LIBRARIAN NIL) 5: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "libquilc"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {120E29C8DB}>) 6: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 7: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 8: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120432FB93}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "libquilc"> T) 9: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "libquilc" "package"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {120E29C7BB}>) 10: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 11: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 12: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120432FB93}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "libquilc" "package"> T) 13: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "libquilc" "package"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {120E29C69B}>) 14: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 15: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 16: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120432FB93}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "libquilc" "package"> T) 17: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "libquilc"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {120E29C57B}>) 18: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 19: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 20: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120432FB93}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "libquilc"> T) 21: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "libquilc-tests"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {120435E4EB}>) 22: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 23: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 24: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120432FB93}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "libquilc-tests"> T) 25: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "libquilc-tests" "package"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {120435E39B}>) 26: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 27: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 28: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120432FB93}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "libquilc-tests" "package"> T) 29: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "libquilc-tests" "package"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {120435A37B}>) 30: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 31: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 32: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120432FB93}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "libquilc-tests" "package"> T) 33: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "libquilc-tests"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {120434628B}>) 34: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 35: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 36: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120432FB93}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "libquilc-tests"> T) 37: ((LAMBDA NIL :IN ASDF/PLAN:MAKE-PLAN)) 38: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "libquilc-tests"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 39: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "libquilc-tests">) 40: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 41: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "libquilc-tests">) [fast-method] 42: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "libquilc-tests") 43: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 44: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "libquilc-tests") [fast-method] 45: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1204343E8B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 46: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 47: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1204302E8B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 48: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "libquilc-tests") [fast-method] 49: (DEPCHECK::COMPUTE-DEPENDENCIES "libquilc-tests" "libquilc-tests") 50: (DEPCHECK::MAGIC "libquilc-tests" "libquilc-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-dRjmiieJ/depcheck-win.txt") 51: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "libquilc-tests" "libquilc-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-dRjmiieJ/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-dRjmiieJ/depcheck-fail.txt")) 52: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 53: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 54: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 55: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/fiasco/25c6341ba51ec6b1c07a4ed18827f480f8e3fa89/fiasco-20260327-git/fiasco.asd" contains definition for system "fiasco-self-tests". Please only define "fiasco" and secondary systems with a name starting with "fiasco/" (e.g. "fiasco/test") in that file. WARNING: redefining CL-QUIL.MATCH::GATE-MATCHED-P in DEFGENERIC WARNING: redefining CL-QUIL.MATCH::GATES-COMMUTE-P in DEFGENERIC WARNING: redefining CL-QUIL.MATCH::EQUAL-GATE-OPERATION-P in DEFGENERIC WARNING: redefining CL-QUIL.MATCH::GATE-ACT-CONSEQUENTIALY-ON-QUBIT-P in DEFGENERIC Unhandled SB-INT:SIMPLE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=731686 "main thread" RUNNING {1200030003}>: Failed to find the TRUENAME of /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/tests/match-tests.lisp: No such file or directory Backtrace for: #<SB-THREAD:THREAD tid=731686 "main thread" RUNNING {1200030003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SB-INT:SIMPLE-FILE-ERROR "Failed to find the ~A of ~A" {120907A143}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<SB-INT:SIMPLE-FILE-ERROR "Failed to find the ~A of ~A" {120907A143}>) 2: (INVOKE-DEBUGGER #<SB-INT:SIMPLE-FILE-ERROR "Failed to find the ~A of ~A" {120907A143}>) 3: (ERROR SB-INT:SIMPLE-FILE-ERROR :PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/tests/match-tests.lisp" :MESSAGE "No such file or directory" :FORMAT-CONTROL "Failed to find the ~A of ~A" :FORMAT-ARGUMENTS (:TRUENAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/tests/match-tests.lisp")) 4: (SB-IMPL::FILE-PERROR #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/tests/match-tests.lisp" 2 "Failed to find the ~A of ~A" :TRUENAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/tests/match-tests.lisp") 5: (SB-IMPL::QUERY-FILE-SYSTEM #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/tests/match-tests.lisp" :TRUENAME T) 6: (TRUENAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/tests/match-tests.lisp") 7: (SB-C::VERIFY-SOURCE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/tests/match-tests.lisp") 8: (COMPILE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/tests/match-tests.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (209)) /home/quicklisp/.cache/common-lisp/sbcl-2.6.1-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/tests/match-tests-tmpQ371... {12090953CF}> :VERBOSE NIL :PRINT NIL :EXTERNAL-FORMAT :UTF-8 :PROGRESS NIL :TRACE-FILE NIL :BLOCK-COMPILE NIL :ENTRY-POINTS NIL :EMIT-CFASL NIL) 9: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<FUNCTION (LAMBDA NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*) {120907977B}> NIL) 10: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/tests/match-tests.lisp" NIL #<FUNCTION (LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) {120907924B}>) 11: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/tests/match-tests.lisp" :OUTPUT-FILE #P"/home/quicklisp/.cache/common-lisp/sbcl-2.6.1-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/tests/match-tests.fasl" :EXTERNAL-FORMAT :UTF-8 :WARNINGS-FILE NIL) 12: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-quil/match-tests" "match-tests">) 13: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-quil/match-tests" "match-tests">) 14: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 15: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-quil/match-tests" "match-tests">) [fast-method] 16: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {120462E7E3}>) [fast-method] 17: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 18: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {120462E7E3}>) [fast-method] 19: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil/match-tests"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 20: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil/match-tests">) 21: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 22: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil/match-tests">) [fast-method] 23: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-quil/match-tests") 24: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 25: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil/match-tests") [fast-method] 26: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120464016B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 27: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 28: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12045FF04B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 29: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil/match-tests") [fast-method] 30: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-quil" "cl-quil/match-tests") 31: (DEPCHECK::MAGIC "cl-quil" "cl-quil/match-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-6VkvFTpx/depcheck-win.txt") 32: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-quil" "cl-quil/match-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-6VkvFTpx/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-6VkvFTpx/depcheck-fail.txt")) 33: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 34: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 35: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 36: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 1 fatal ERROR condition
STYLE-WARNING: The new FTYPE proclamation for FSET::WB-BAG-TREE-TOTAL-COUNT(FUNCTION (FSET::WB-BAG-TREE) INTEGER)does not match the derived return type(FUNCTION ((OR LIST FSET::WB-BAG-TREE-NODE)) (VALUES NUMBER &OPTIONAL)) WARNING: redefining DEFTYPE type to be a class: FSET2:SET WARNING: redefining DEFTYPE type to be a class: FSET2:MAP WARNING: redefining DEFTYPE type to be a class: FSET2:WB-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:CH-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:SEQ WARNING: redefining DEFTYPE type to be a class: FSET2:WB-SEQ WARNING: redefining DEFTYPE type to be a class: FSET2:REPLAY-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:WB-REPLAY-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:CH-REPLAY-MAP 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/coalton/47f26152062ebefa5aade307bd821fdffb7b03b3/coalton-20260327-git/library/math/complex.ct ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES F32 ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:F32 ; SINGLE-FLOAT) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT COALTON:F32) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::F32-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F32-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F32-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::F32-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F32-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F32-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::F32-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON F32> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES F64 ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:F64 ; DOUBLE-FLOAT) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT COALTON:F64) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::F64-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F64-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F64-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::F64-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F64-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F64-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::F64-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON F64> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES FRACTION ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:FRACTION ; RATIONAL) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT ; COALTON:FRACTION) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::FRACTION-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::FRACTION-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::FRACTION-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::FRACTION-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION ; COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::FRACTION-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::FRACTION-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::FRACTION-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON FRACTION> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES INTEGER ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:INTEGER ; INTEGER :DIVISION NIL) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT ; COALTON:INTEGER) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::INTEGER-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::INTEGER-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::INTEGER-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::INTEGER-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER ; COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::INTEGER-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::INTEGER-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::INTEGER-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON INTEGER> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: SB-EXT:LOCK-PACKAGE "COALTON/MATH/COMPLEX" ; (LOCK-PACKAGE "COALTON/MATH/COMPLEX") ; ; note: deleting unreachable code Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=731813 "main thread" RUNNING {1200030003}>: COMPILE-FILE-ERROR while compiling #<CT-FILE "coalton/library" "math" "complex"> Backtrace for: #<SB-THREAD:THREAD tid=731813 "main thread" RUNNING {1200030003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1224980813}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1224980813}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1224980813}>) 3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">))) 4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">) 6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 7: ((:METHOD ASDF/ACTION:PERFORM :AROUND (ASDF/LISP-ACTION:COMPILE-OP ASDF/INTERFACE::CT-FILE)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">) [fast-method] 8: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">) [fast-method] 9: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204636863}>) [fast-method] 10: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 11: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204636863}>) [fast-method] 12: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil/foust"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 13: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil/foust">) 14: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 15: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil/foust">) [fast-method] 16: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-quil/foust") 17: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 18: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil/foust") [fast-method] 19: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120464828B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 20: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 21: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120460728B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 22: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil/foust") [fast-method] 23: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-quil" "cl-quil/foust") 24: (DEPCHECK::MAGIC "cl-quil" "cl-quil/foust" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-i2WbKJIl/depcheck-win.txt") 25: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-quil" "cl-quil/foust" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-i2WbKJIl/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-i2WbKJIl/depcheck-fail.txt")) 26: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 27: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 28: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 29: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; caught 4 ERROR conditions ; printed 1 note
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 STYLE-WARNING: The new FTYPE proclamation for FSET::WB-BAG-TREE-TOTAL-COUNT(FUNCTION (FSET::WB-BAG-TREE) INTEGER)does not match the derived return type(FUNCTION ((OR LIST FSET::WB-BAG-TREE-NODE)) (VALUES NUMBER &OPTIONAL)) WARNING: redefining DEFTYPE type to be a class: FSET2:SET WARNING: redefining DEFTYPE type to be a class: FSET2:MAP WARNING: redefining DEFTYPE type to be a class: FSET2:WB-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:CH-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:SEQ WARNING: redefining DEFTYPE type to be a class: FSET2:WB-SEQ WARNING: redefining DEFTYPE type to be a class: FSET2:REPLAY-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:WB-REPLAY-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:CH-REPLAY-MAP WARNING: redefining MAGICL::SVD-LISP in DEFUN WARNING: redefining MAGICL:SCALE! in DEFUN WARNING: redefining MAGICL:.+ in DEFUN WARNING: redefining MAGICL:.- in DEFUN WARNING: redefining MAGICL:.* in DEFUN WARNING: redefining MAGICL:./ in DEFUN WARNING: redefining MAGICL:MULT in DEFUN WARNING: redefining MAGICL:EIG in DEFUN WARNING: redefining MAGICL:HERMITIAN-EIG in DEFUN WARNING: redefining MAGICL:LU in DEFUN WARNING: redefining MAGICL:LU-SOLVE in DEFUN WARNING: redefining MAGICL:INV in DEFUN WARNING: redefining MAGICL:CSD-BLOCKS in DEFUN WARNING: redefining MAGICL:SVD in DEFUN WARNING: redefining MAGICL:SCHUR in DEFUN WARNING: redefining MAGICL:QZ in DEFUN WARNING: redefining MAGICL:QL in DEFUN WARNING: redefining MAGICL:QR in DEFUN WARNING: redefining MAGICL:RQ in DEFUN WARNING: redefining MAGICL:LQ in DEFUN ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/ast.lisp ; in: DEFSTRUCT DELAYED-EXPRESSION ; (DEFSTRUCT ; (CL-QUIL.FRONTEND:DELAYED-EXPRESSION ; (:CONSTRUCTOR CL-QUIL.FRONTEND::%DELAYED-EXPRESSION)) ; #<(SIMPLE-ARRAY CHARACTER ; (335)) A representation of an arithmetic expression with fillable "slots". ; ; PARAMS is a list of values to fill the slots with. These can be formal variables, but eventually must be a list of CONSTANTs. ; ; LAMB... {1221AB0E3F}> ; (CL-QUIL.FRONTEND::PARAMS NIL) ; (CL-QUIL.FRONTEND::LAMBDA-PARAMS NIL :READ-ONLY T) ; (CL-QUIL.FRONTEND::EXPRESSION NIL :READ-ONLY T)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL.FRONTEND:DELAYED-EXPRESSION {12219FF5C3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL.FRONTEND:DELAYED-EXPRESSION-EXPRESSION could not be inlined because the structure definition for CL-QUIL.FRONTEND:DELAYED-EXPRESSION 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. ; in: DEFSTRUCT PAULI-TERM ; (DEFSTRUCT (CL-QUIL.FRONTEND:PAULI-TERM) ; #<(SIMPLE-ARRAY CHARACTER ; (642)) Records a word of Pauli operators, together with an ordered list of qubit formals on which they act, as well as a scalar prefix. This is part of the internal representation of a EXP-PAULI-SUM-GATE-DE... {1222781E0F}> ; CL-QUIL.FRONTEND::PAULI-WORD ; CL-QUIL.FRONTEND::PREFACTOR ; CL-QUIL.FRONTEND::ARGUMENTS) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL.FRONTEND:PAULI-TERM {12227692A3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL.FRONTEND:PAULI-TERM-PAULI-WORD, CL-QUIL.FRONTEND:PAULI-TERM-PREFACTOR and CL-QUIL.FRONTEND:PAULI-TERM-ARGUMENTS could not be inlined because the structure definition for CL-QUIL.FRONTEND:PAULI-TERM 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. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/ast.lisp ; in: DEFUN EXPAND-CLASSICAL-INSTRUCTION-DEFINITIONS ; (LOOP :FOR CL-QUIL.FRONTEND::TYPE-TUPLE :IN CL-QUIL.FRONTEND::TYPES ; :FOR CL-QUIL.FRONTEND::TYPED-NAME := (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE) ; :DO (ASSERT ; (AND ; (= CL-QUIL.FRONTEND::NUM-ARGS ; (LENGTH CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (EVERY #'CL-QUIL.FRONTEND::VALID-TYPE-SYMBOL-P ; CL-QUIL.FRONTEND::TYPE-TUPLE))) ; :COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD ; ==> ; (LET* ((#:HEAD11 (SB-KERNEL:UNALIGNED-DX-CONS NIL)) ; (#:TAIL12 #:HEAD11) ; (CL-QUIL.FRONTEND::TYPED-NAMES NIL)) ; (DECLARE (DYNAMIC-EXTENT #:HEAD11) ; (SB-C::NO-DEBUG #:HEAD11 #:TAIL12) ; (LIST CL-QUIL.FRONTEND::TYPED-NAMES)) ; (SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD (#S(SB-LOOP::LOOP-COLLECTOR ; :NAME NIL ; :CLASS LIST ; :HISTORY (APPEND) ; :TEMPVARS (#:HEAD13 #:TAIL14) ; :SPECIFIED-TYPE NIL ; :DTYPE LIST ; :DATA NIL) ; #:HEAD13 #:TAIL14) ; (TAGBODY ; SB-LOOP::NEXT-LOOP ; (WHEN (ENDP #:L10) (GO SB-LOOP::END-LOOP)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPE-TUPLE (CAR #:L10)) ; (SB-LOOP::LOOP-DESETQ #:L10 (CDR #:L10)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPED-NAME ; (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (ASSERT (AND # #)) ; (SB-LOOP::LOOP-COLLECT-RPLACD ; (#:HEAD11 #:TAIL12 CL-QUIL.FRONTEND::TYPED-NAMES) ; (LIST CL-QUIL.FRONTEND::TYPED-NAME)) ; (SB-LOOP::LOOP-COLLECT-RPLACD (#:HEAD13 #:TAIL14) (LIST `# `# `# `#)) ; (GO SB-LOOP::NEXT-LOOP) ; SB-LOOP::END-LOOP ; (RETURN-FROM NIL (SB-LOOP::LOOP-COLLECT-ANSWER #:HEAD13))))) ; ; caught STYLE-WARNING: ; The variable TYPED-NAMES is assigned but never read. ; in: DEFUN EXPAND-CLASSICAL-INSTRUCTION-DEFINITIONS ; (LOOP :FOR CL-QUIL.FRONTEND::TYPE-TUPLE :IN CL-QUIL.FRONTEND::TYPES ; :FOR CL-QUIL.FRONTEND::TYPED-NAME := (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE) ; :DO (ASSERT ; (AND ; (= CL-QUIL.FRONTEND::NUM-ARGS ; (LENGTH CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (EVERY #'CL-QUIL.FRONTEND::VALID-TYPE-SYMBOL-P ; CL-QUIL.FRONTEND::TYPE-TUPLE))) ; :COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD ; ==> ; (LET* ((#:HEAD79 (SB-KERNEL:UNALIGNED-DX-CONS NIL)) ; (#:TAIL80 #:HEAD79) ; (CL-QUIL.FRONTEND::TYPED-NAMES NIL)) ; (DECLARE (DYNAMIC-EXTENT #:HEAD79) ; (SB-C::NO-DEBUG #:HEAD79 #:TAIL80) ; (LIST CL-QUIL.FRONTEND::TYPED-NAMES)) ; (SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD (#S(SB-LOOP::LOOP-COLLECTOR ; :NAME NIL ; :CLASS LIST ; :HISTORY (APPEND) ; :TEMPVARS (#:HEAD81 #:TAIL82) ; :SPECIFIED-TYPE NIL ; :DTYPE LIST ; :DATA NIL) ; #:HEAD81 #:TAIL82) ; (TAGBODY ; SB-LOOP::NEXT-LOOP ; (WHEN (ENDP #:L78) (GO SB-LOOP::END-LOOP)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPE-TUPLE (CAR #:L78)) ; (SB-LOOP::LOOP-DESETQ #:L78 (CDR #:L78)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPED-NAME ; (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (ASSERT (AND # #)) ; (SB-LOOP::LOOP-COLLECT-RPLACD ; (#:HEAD79 #:TAIL80 CL-QUIL.FRONTEND::TYPED-NAMES) ; (LIST CL-QUIL.FRONTEND::TYPED-NAME)) ; (SB-LOOP::LOOP-COLLECT-RPLACD (#:HEAD81 #:TAIL82) (LIST `# `# `# `#)) ; (GO SB-LOOP::NEXT-LOOP) ; SB-LOOP::END-LOOP ; (RETURN-FROM NIL (SB-LOOP::LOOP-COLLECT-ANSWER #:HEAD81))))) ; ; caught STYLE-WARNING: ; The variable TYPED-NAMES is assigned but never read. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil/frontend" "ast"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/parser.lisp ; in: DEFSTRUCT TOKEN ; (DEFSTRUCT ; (CL-QUIL.FRONTEND:TOKEN ; (:CONSTRUCTOR CL-QUIL.FRONTEND:TOK ; (TYPE &OPTIONAL CL-QUIL.FRONTEND::PAYLOAD ; (CL-QUIL.FRONTEND::LINE CL-QUIL.FRONTEND::*LINE-NUMBER*) ; (PATHNAME CL-QUIL.FRONTEND::*CURRENT-FILE*)))) ; "A lexical token." ; (CL-QUIL.FRONTEND::LINE NIL :TYPE (OR NULL (INTEGER 1)) :READ-ONLY T) ; (PATHNAME NIL :TYPE (OR NULL STRING PATHNAME) :READ-ONLY T) ; (TYPE NIL :TYPE SYMBOL :READ-ONLY T) ; (CL-QUIL.FRONTEND::PAYLOAD NIL :READ-ONLY T)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL.FRONTEND:TOKEN {1233B2C973}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL.FRONTEND:TOKEN-TYPE and CL-QUIL.FRONTEND:TOKEN-PAYLOAD could not be inlined because the structure definition for CL-QUIL.FRONTEND:TOKEN 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-quil/frontend" "parser"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/clifford/stabilizer.lisp ; in: ; DECLAIM (INLINE TABLEAU-QUBITS TABLEAU-X (SETF TABLEAU-X) TABLEAU-Z (SETF TABLEAU-Z) TABLEAU-R (SETF TABLEAU-R) TABLEAU-SCRATCH (SETF TABLEAU-SCRATCH)) ; (DECLAIM ; (INLINE CL-QUIL.CLIFFORD::TABLEAU-QUBITS CL-QUIL.CLIFFORD::TABLEAU-X ; (SETF CL-QUIL.CLIFFORD::TABLEAU-X) CL-QUIL.CLIFFORD::TABLEAU-Z ; (SETF CL-QUIL.CLIFFORD::TABLEAU-Z) CL-QUIL.CLIFFORD::TABLEAU-R ; (SETF CL-QUIL.CLIFFORD::TABLEAU-R) CL-QUIL.CLIFFORD::TABLEAU-SCRATCH ; (SETF CL-QUIL.CLIFFORD::TABLEAU-SCRATCH))) ; ==> ; (SB-C::%PROCLAIM ; '(INLINE CL-QUIL.CLIFFORD::TABLEAU-QUBITS CL-QUIL.CLIFFORD::TABLEAU-X ; (SETF CL-QUIL.CLIFFORD::TABLEAU-X) CL-QUIL.CLIFFORD::TABLEAU-Z ; (SETF CL-QUIL.CLIFFORD::TABLEAU-Z) CL-QUIL.CLIFFORD::TABLEAU-R ; (SETF CL-QUIL.CLIFFORD::TABLEAU-R) CL-QUIL.CLIFFORD::TABLEAU-SCRATCH ; (SETF CL-QUIL.CLIFFORD::TABLEAU-SCRATCH)) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Proclaiming CL-QUIL.CLIFFORD::TABLEAU-QUBITS to be INLINE, but 1 call to it was previously compiled. A declaration of NOTINLINE at the call site will eliminate this warning, as will proclaiming and defining the function before its first potential use. ; in: DEFUN TABLEAU-MEASURE ; (DEFUN CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (CL-QUIL.CLIFFORD::TAB CL-QUIL.CLIFFORD::Q) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0)) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU CL-QUIL.CLIFFORD::TAB) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU-INDEX CL-QUIL.CLIFFORD::Q)) ; (LET* ((CL-QUIL.CLIFFORD::N ; (CL-QUIL.CLIFFORD::TABLEAU-QUBITS CL-QUIL.CLIFFORD::TAB)) ; (CL-QUIL.CLIFFORD::P ; (LOOP :FOR CL-QUIL.CLIFFORD::P :BELOW CL-QUIL.CLIFFORD::N ; :WHEN # ; :DO # ; :FINALLY #))) ; (DECLARE ; (TYPE (OR CL-QUIL.CLIFFORD::TABLEAU-INDEX NULL) CL-QUIL.CLIFFORD::P) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU-INDEX CL-QUIL.CLIFFORD::N)) ; (COND ; (CL-QUIL.CLIFFORD::P ; (CL-QUIL.CLIFFORD::TABLEAU-COPY-ROW CL-QUIL.CLIFFORD::TAB ; CL-QUIL.CLIFFORD::P #) ; (CL-QUIL.CLIFFORD::TABLEAU-SET-ROW-TO-PAULI CL-QUIL.CLIFFORD::TAB # #) ; (SETF #) (DOTIMES # #) (VALUES # NIL)) ; (T (CL-QUIL.CLIFFORD::TABLEAU-CLEAR-SCRATCH CL-QUIL.CLIFFORD::TAB) ; (LET # ; # ; # ; #))))) ; ==> ; (SB-IMPL::%DEFUN 'CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (SB-INT:NAMED-LAMBDA CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (CL-QUIL.CLIFFORD::TAB CL-QUIL.CLIFFORD::Q) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) ; (COMPILATION-SPEED 0)) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU CL-QUIL.CLIFFORD::TAB) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU-INDEX ; CL-QUIL.CLIFFORD::Q)) ; (BLOCK CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (LET* (# #) ; (DECLARE # ; #) ; (COND # #))))) ; ; caught STYLE-WARNING: ; Call to CL-QUIL.CLIFFORD::TABLEAU-COPY-ROW could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil/frontend" "clifford" "stabilizer"> WARNING: redefining CL-QUIL.FRONTEND::PRINT-PARSED-PROGRAM-GENERIC in DEFGENERIC ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/linear-algebra.lisp ; in: DEFUN-INLINABLE PSUM ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I)) ; ; note: doing complex float to pointer coercion (cost 13) ; (QVM:PSUM-DOTIMES (QVM::I (LENGTH QVM::STATE)) ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I)) ; ; note: doing complex float to pointer coercion (cost 13) ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/wavefunction.lisp ; in: DEFUN PROBABILITY ; (DEFUN QVM:PROBABILITY (QVM::AMPLITUDE) ; "Convert an amplitude into a probability." ; (DECLARE (TYPE QVM:CFLONUM QVM::AMPLITUDE)) ; (LET ((QVM::RE (REALPART QVM::AMPLITUDE)) ; (QVM::IM (IMAGPART QVM::AMPLITUDE))) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (+ (* QVM::RE QVM::RE) (* QVM::IM QVM::IM)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM:PROBABILITY ; (QVM::AMPLITUDE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Convert an amplitude into a probability." ; (DECLARE (TYPE QVM:CFLONUM QVM::AMPLITUDE)) ; (BLOCK QVM:PROBABILITY ; (LET ((QVM::RE #) (QVM::IM #)) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (+ (* QVM::RE QVM::RE) (* QVM::IM QVM::IM))))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; in: DEFUN-INLINABLE WAVEFUNCTION-GROUND-STATE-PROBABILITY ; (QVM:PSUM-DOTIMES (QVM::I (QVM::HALF (LENGTH QVM::WAVEFUNCTION))) ; (LET ((QVM::ADDRESS (QVM::INJECT-BIT QVM::I QVM::QUBIT))) ; (DECLARE (TYPE QVM:AMPLITUDE-ADDRESS QVM::ADDRESS)) ; (QVM:PROBABILITY (AREF QVM::WAVEFUNCTION QVM::ADDRESS)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; --> IF FLET LET* LOOP BLOCK LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY ; --> RETURN-FROM ; ==> ; #:SUM13 ; ; note: doing float to pointer coercion (cost 13) from #:SUM13 to "<return value>" ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION6 (#:START2 #:END3) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START2) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END3)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM1 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM1 to "<return value>" ; in: DEFUN-INLINABLE WAVEFUNCTION-EXCITED-STATE-PROBABILITY ; (QVM:PSUM-DOTIMES (QVM::I (QVM::HALF (LENGTH QVM::WAVEFUNCTION))) ; (LET ((QVM::ADDRESS (QVM::INDEX-TO-ADDRESS QVM::I QVM::QUBIT 1))) ; (DECLARE (TYPE QVM:AMPLITUDE-ADDRESS QVM::ADDRESS)) ; (QVM:PROBABILITY (AREF QVM::WAVEFUNCTION QVM::ADDRESS)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; --> IF FLET LET* LOOP BLOCK LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY ; --> RETURN-FROM ; ==> ; #:SUM13 ; ; note: doing float to pointer coercion (cost 13) from #:SUM13 to "<return value>" ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION6 (#:START2 #:END3) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START2) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END3)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM1 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM1 to "<return value>" ; in: DEFUN-INLINABLE APPLY-MATRIX-OPERATOR ; (APPLY QVM::KERNEL QVM::MATRIX QVM::WAVEFUNCTION (COERCE QVM::QUBITS 'LIST)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: KERNEL is not known to be a function ; in: DEFUN-INLINABLE %SERIAL-NORM ; (QVM:DEFUN-INLINABLE QVM::%SERIAL-NORM ; (QVM::WAVEFUNCTION) ; (LOOP :WITH QVM::S :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :BELOW (LENGTH QVM::WAVEFUNCTION) ; :DO ...)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::%SERIAL-NORM ; (QVM::WAVEFUNCTION) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK QVM::%SERIAL-NORM ; (LOOP :WITH QVM::S :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :BELOW (LENGTH QVM::WAVEFUNCTION) ; :DO ...))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; in: DEFUN-INLINABLE NORM ; (QVM:DEFUN-INLINABLE QVM::NORM ; (QVM::WAVEFUNCTION) ; "Compute the length/L2 norm of the wavefunction WAVEFUNCTION." ; (DECLARE (INLINE QVM:PROBABILITY QVM::PSUM)) ; (IF (<= QVM:*QUBITS-REQUIRED-FOR-PARALLELIZATION* ; (QVM::WAVEFUNCTION-QUBITS QVM::WAVEFUNCTION)) ; (SQRT ; (THE (QVM:FLONUM 0) (QVM::PSUM #'QVM:PROBABILITY QVM::WAVEFUNCTION))) ; (QVM::%SERIAL-NORM QVM::WAVEFUNCTION))) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::NORM ; (QVM::WAVEFUNCTION) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Compute the length/L2 norm of the wavefunction WAVEFUNCTION." ; (DECLARE (INLINE QVM:PROBABILITY QVM::PSUM)) ; (BLOCK QVM::NORM ; (IF (<= QVM:*QUBITS-REQUIRED-FOR-PARALLELIZATION* ; (QVM::WAVEFUNCTION-QUBITS QVM::WAVEFUNCTION)) ; (SQRT (THE # #)) ; (QVM::%SERIAL-NORM QVM::WAVEFUNCTION)))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; (QVM::PSUM #'QVM:PROBABILITY QVM::WAVEFUNCTION) ; --> BLOCK QVM:PSUM-DOTIMES LET IF FLET ; ==> ; (#:WORKER-FUNCTION8 (#:START4 #:END5) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START4) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END5)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM3 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM3 to "<return value>" ; in: DEFUN NORMALIZE-WAVEFUNCTION ; (QVM:FLONUM LENGTH) ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; (QVM:PDOTIMES (QVM::I (LENGTH QVM::WAVEFUNCTION) QVM::WAVEFUNCTION) ; (SETF (AREF QVM::WAVEFUNCTION QVM::I) ; (* QVM::INV-NORM (AREF QVM::WAVEFUNCTION QVM::I)))) ; --> IF LPARALLEL.COGNATE:PDOTIMES LET PROGN LPARALLEL.COGNATE::%PDOTIMES ; --> LAMBDA ; ==> ; #'(LAMBDA (QVM::I) ; (TAGBODY (SETF (AREF QVM::WAVEFUNCTION QVM::I) (* QVM::INV-NORM #)))) ; ; note: doing float to pointer coercion (cost 13), for: ; the second argument of CLOSURE-INIT ; (QVM::NORM QVM::WAVEFUNCTION) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM16 to "<return value>" ; in: DEFUN WF ; (QVM:CFLONUM ELT) ; --> BLOCK COERCE ; ==> ; 1 ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; in: DEFUN GAUSSIAN-RANDOM-COMPLEX ; (DEFUN QVM::GAUSSIAN-RANDOM-COMPLEX () ; "Return a complex number with Gaussian-random real and imaginary parts." ; (MULTIPLE-VALUE-BIND (QVM::RE QVM::IM) ; (ALEXANDRIA:GAUSSIAN-RANDOM) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (COMPLEX QVM::RE QVM::IM))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::GAUSSIAN-RANDOM-COMPLEX ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Return a complex number with Gaussian-random real and imaginary parts." ; (BLOCK QVM::GAUSSIAN-RANDOM-COMPLEX ; (MULTIPLE-VALUE-BIND (QVM::RE QVM::IM) ; (ALEXANDRIA:GAUSSIAN-RANDOM) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (COMPLEX QVM::RE QVM::IM)))) ; ; note: doing complex float to pointer coercion (cost 13) to "<return value>" ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/compile-gate.lisp ; in: DEFUN GENERATE-AMPLITUDE-ADDRESS-CODE ; (LDB (BYTE 1 QVM::I) QVM::FLAGS) ; ; note: doing unsigned word to integer coercion (cost 20) to "<return value>" ; in: DEFUN GENERATE-INNER-MATRIX-MULTIPLY-CODE ; (LOOP :FOR QVM::J :BELOW QVM::N ; :FOR QVM::C := (NTH QVM::J QVM::COLUMN) ; :FOR QVM::MIJ := ...) ; --> LET LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ ; ==> ; (SETQ QVM::MIJ (AREF QVM::MATRIX QVM::I QVM::J)) ; ; note: doing complex float to pointer coercion (cost 13) to MIJ ; `(* ,QVM::C ,(AREF QVM::MATRIX QVM::I QVM::J)) ; ; note: doing complex float to pointer coercion (cost 13), for: ; the third argument of LIST ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/measurement.lisp ; in: DEFMETHOD FORCE-MEASUREMENT (T T PURE-STATE T) ; (SQRT (- (QVM:FLONUM 1) QVM::EXCITED-PROBABILITY)) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (OR (COMPLEX DOUBLE-FLOAT) (DOUBLE-FLOAT 0.0d0 1.0d0)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; (/ (SQRT QVM::EXCITED-PROBABILITY)) ; ; note: doing float to pointer coercion (cost 13), for: ; the first result of inline float arithmetic ; in: DEFGENERIC GET-EXCITED-STATE-PROBABILITY ; (AREF QVM::RHO QVM::I QVM::I) ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; (REALPART (AREF QVM::RHO QVM::I QVM::I)) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (QVM:PSUM-DOTIMES (QVM::K (EXPT 2 (1- (QVM::NUM-QUBITS QVM::STATE)))) ; (LET ((QVM::I (QVM::INDEX-TO-ADDRESS QVM::K QVM::QUBIT 1))) ; (REALPART (AREF QVM::RHO QVM::I QVM::I)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM20 ; ; note: doing float to pointer coercion (cost 13) from #:SUM20 to "<return value>" ; in: DEFUN SAMPLE-WAVEFUNCTION-AS-DISTRIBUTION-IN-PARALLEL-TRULY ; (QVM:PSUM-DOTIMES (QVM::I ; (THE ALEXANDRIA:NON-NEGATIVE-FIXNUM (- QVM::MID MIN))) ; (LET ((QVM::I (THE ALEXANDRIA:NON-NEGATIVE-FIXNUM #))) ; (QVM:PROBABILITY (AREF QVM:WF QVM::I)))) ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION12 (#:START8 #:END9) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START8) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END9)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM7 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM7 to "<return value>" ; in: DEFUN SAMPLE-WAVEFUNCTION-MULTIPLE-TIMES ; (MT19937:RANDOM 1.0d0) ; --> BLOCK LET* - SCALE-FLOAT FLOAT ; ==> ; (+ (EXPT 2 52) MT19937::RANDOM-MANTISSA-BITS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 4503599627370496) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 4503599627370496) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a (INTEGER 4611686018427387904), not a (SIGNED-BYTE 64). ; in: DEFUN SAMPLE-WAVEFUNCTION-AS-DISTRIBUTION ; (AREF QVM::PS QVM::I) ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR DOUBLE-FLOAT), not a SIMPLE-ARRAY. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/matrix-operations.lisp ; in: DEFUN ORTHONORMALIZE-MATRIX! ; (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a COMPLEX. ; (SQRT CL-QUIL::N^2) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The result is a (VALUES (OR (FLOAT 0.0) (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.The result is a (VALUES (OR (FLOAT 0.0) (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &OPTIONAL). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &OPTIONAL). ; (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (LOOP :FOR CL-QUIL::I :BELOW CL-QUIL::NROWS ; :SUM (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q))) ; --> LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM17 ; (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; (/ (MAGICL:TREF CL-QUIL::M CL-QUIL::ROW CL-QUIL::COL) CL-QUIL::NORM) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (OR (FLOAT 0.0) (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT. ; The result is a (VALUES (OR FLOAT (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a T, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a (OR (FLOAT 0.0) (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT. ; The result is a (VALUES (OR FLOAT (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &OPTIONAL). ; etc. ; (* CL-QUIL::S (MAGICL:TREF CL-QUIL::Q CL-QUIL::ROW CL-QUIL::J)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (DECF (MAGICL:TREF CL-QUIL::V CL-QUIL::ROW CL-QUIL::K) ; (* CL-QUIL::S (MAGICL:TREF CL-QUIL::Q CL-QUIL::ROW CL-QUIL::J))) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/define-compiler.lisp ; in: DEFUN FIND-SHORTEST-COMPILER-PATH ; (DEFUN CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (CL-QUIL::COMPILERS CL-QUIL::TARGET-GATESET CL-QUIL::OCCURRENCE-TABLE ; &OPTIONAL CL-QUIL::QUBIT-COUNT) ; #<(SIMPLE-ARRAY CHARACTER ; (730)) Produces a path of compilers, drawn from COMPILERS, which convert all of the entries of OCCURRENCE-TABLE into "native gates" according to TARGET-GATESET. Returns an alternating chain of occurrence ta... {121549E82F}> ; (LET ((CL-QUIL.FRONTEND:QUEUE ; (MAKE-INSTANCE 'CL-HEAP:PRIORITY-QUEUE :SORT-FUN #))) ; (FLET ((CL-QUIL::COLLECT-BINDINGS # ; #)) ; (LOOP :WITH CL-QUIL::VISITED-NODES := NIL ; :FOR (CL-QUIL::TASK . CL-QUIL::HISTORY) := (LIST ; CL-QUIL::OCCURRENCE-TABLE) :THEN (CL-HEAP:DEQUEUE ; CL-QUIL.FRONTEND:QUEUE) ; :UNLESS ...)))) ; ==> ; (SB-IMPL::%DEFUN 'CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (SB-INT:NAMED-LAMBDA CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (CL-QUIL::COMPILERS CL-QUIL::TARGET-GATESET ; CL-QUIL::OCCURRENCE-TABLE &OPTIONAL ; CL-QUIL::QUBIT-COUNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (730)) Produces a path of compilers, drawn from COMPILERS, which convert all of the entries of OCCURRENCE-TABLE into "native gates" according to TARGET-GATESET. Returns an alternating chain of occurrence ta... {121549E82F}> ; (BLOCK CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (LET (#) ; (FLET # ; #))))) ; ; caught STYLE-WARNING: ; Call to CL-HEAP:DEQUEUE could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. ; ; caught STYLE-WARNING: ; Call to CL-HEAP:ENQUEUE could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil" "define-compiler"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compiler-hook.lisp ; in: DEFUN COMPILER-HOOK ; (DEFUN CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION ; &KEY (CL-QUIL::PROTOQUIL NIL) ; (CL-QUIL::REWIRING-TYPE ; (CL-QUIL::PROG-INITIAL-REWIRING-HEURISTIC ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (CL-QUIL::TRANSFORMS CL-QUIL::*STANDARD-PRE-COMPILATION-TRANSFORMS*) ; (CL-QUIL::DESTRUCTIVE NIL) ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; #<(SIMPLE-ARRAY CHARACTER ; (1034)) Runs a full compiler pass on a parsed-program object. ; ; Arguments: ; ; - PARSED-PROGRAM: The parsed program to compile ; ; - CHIP-SPECIFICATION: The chip specification describing the target chip ; ; Keyword... {1232C8800F}> ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: entrance.") ; (UNLESS CL-QUIL::DESTRUCTIVE ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:COPY-INSTANCE ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (WHEN ; (AND (NOT (EQL ':NAIVE CL-QUIL::REWIRING-TYPE)) ; (> ; (CL-QUIL.FRONTEND:QUBITS-NEEDED CL-QUIL.FRONTEND:PARSED-PROGRAM) ; (LENGTH #)) ; (NOT ; (CL-QUIL.FRONTEND:PARSED-PROGRAM-HAS-PRESERVE-BLOCKS-P ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Compressing qubits.") ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:COMPRESS-QUBITS ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (DOLIST (CL-QUIL::XFORM CL-QUIL::TRANSFORMS) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Applying transform ~A." ; CL-QUIL::XFORM) ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:TRANSFORM CL-QUIL::XFORM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (CL-QUIL::WARM-CHIP-SPEC-LOOKUP-CACHE CL-QUIL::CHIP-SPECIFICATION) ; (LOOP :FOR CL-QUIL::MDESC :IN (CL-QUIL.FRONTEND:PARSED-PROGRAM-MEMORY-DEFINITIONS ; CL-QUIL.FRONTEND:PARSED-PROGRAM) ; :WHEN (CL-QUIL.FRONTEND:MEMORY-DESCRIPTOR-SHARING-PARENT ; CL-QUIL::MDESC) ; :DO (ERROR ; "Programs with aliased memory are currently unsupported.")) ; (WHEN (EQL ':NAIVE CL-QUIL::REWIRING-TYPE) ; (CL-QUIL::CHECK-PROGRAM-SKIPS-DEAD-QUBITS CL-QUIL.FRONTEND:PARSED-PROGRAM ; CL-QUIL::CHIP-SPECIFICATION)) ; (WHEN CL-QUIL::PROTOQUIL ; (CL-QUIL:CHECK-PROTOQUIL-PROGRAM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; ...) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION &KEY ; (CL-QUIL::PROTOQUIL NIL) ; (CL-QUIL::REWIRING-TYPE ; (CL-QUIL::PROG-INITIAL-REWIRING-HEURISTIC ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (CL-QUIL::TRANSFORMS CL-QUIL::*STANDARD-PRE-COMPILATION-TRANSFORMS*) ; (CL-QUIL::DESTRUCTIVE NIL) ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (1034)) Runs a full compiler pass on a parsed-program object. ; ; Arguments: ; ; - PARSED-PROGRAM: The parsed program to compile ; ; - CHIP-SPECIFICATION: The chip specification describing the target chip ; ; Keyword... {1232C8800F}> ; (BLOCK CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: entrance.") ; (UNLESS CL-QUIL::DESTRUCTIVE (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (WHEN (AND (NOT #) (> # #) (NOT #)) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Compressing qubits.") ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (DOLIST (CL-QUIL::XFORM CL-QUIL::TRANSFORMS) ; (CL-QUIL.FRONTEND:FORMAT-NOISE ; "COMPILER-HOOK: Applying transform ~A." CL-QUIL::XFORM) ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (CL-QUIL::WARM-CHIP-SPEC-LOOKUP-CACHE CL-QUIL::CHIP-SPECIFICATION) ; (LOOP :FOR CL-QUIL::MDESC :IN (CL-QUIL.FRONTEND:PARSED-PROGRAM-MEMORY-DEFINITIONS ; CL-QUIL.FRONTEND:PARSED-PROGRAM) ; :WHEN (CL-QUIL.FRONTEND:MEMORY-DESCRIPTOR-SHARING-PARENT ; CL-QUIL::MDESC) ; :DO (ERROR ; "Programs with aliased memory are currently unsupported.")) ; (WHEN (EQL ':NAIVE CL-QUIL::REWIRING-TYPE) ; (CL-QUIL::CHECK-PROGRAM-SKIPS-DEAD-QUBITS ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (WHEN CL-QUIL::PROTOQUIL ; (CL-QUIL:CHECK-PROTOQUIL-PROGRAM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; (MULTIPLE-VALUE-BIND ; (CL-QUIL::INITIAL-REWIRING CL-QUIL::L2P-COMPONENTS) ; (CL-QUIL::PROG-INITIAL-REWIRING CL-QUIL.FRONTEND:PARSED-PROGRAM ; CL-QUIL::CHIP-SPECIFICATION :TYPE CL-QUIL::REWIRING-TYPE) ; (LET* (# # # #) ; (CL-QUIL::CHECK-PRESERVED-BLOCKS-SKIP-DEAD-QUBITS CL-QUIL::CFG ; CL-QUIL::CHIP-SPECIFICATION) ; (LET # ; #) ; (WHEN CL-QUIL::PROTOQUIL #) ; (LABELS # ; # ; # ; #))))) ; ; caught STYLE-WARNING: ; using the lexical binding of the symbol (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE*), not the ; dynamic binding, even though the name follows ; the usual naming convention (names like *FOO*) for special variables ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; ; caught STYLE-WARNING: ; The variable *ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil" "compiler-hook"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/chip/chip-specification.lisp ; in: DEFSTRUCT CHIP-SPECIFICATION ; (DEFSTRUCT CL-QUIL::CHIP-SPECIFICATION ; #<(SIMPLE-ARRAY CHARACTER ; (957)) Houses information about hardware components on a QPU. ; ; OBJECTS is an array. In its nth position, there is a vector of order n hardware objects on the chip. ; ; GENERIC-COMPILERS is a vector of functions... {1233961F3F}> ; (CL-QUIL::OBJECTS ; (MAKE-ARRAY 2 :INITIAL-CONTENTS ; (LIST (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) ; (CL-QUIL::MAKE-ADJUSTABLE-VECTOR))) ; :TYPE VECTOR) ; (CL-QUIL::GENERIC-COMPILERS (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) :TYPE VECTOR) ; (CL-QUIL::GENERIC-REWRITING-RULES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) :TYPE ; VECTOR) ; (CL-QUIL::LOOKUP-CACHE NIL :TYPE (OR NULL HASH-TABLE))) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::CHIP-SPECIFICATION {1233968473}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL::CHIP-SPECIFICATION-GENERIC-COMPILERS could not be inlined because the structure definition for CL-QUIL::CHIP-SPECIFICATION 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. ; in: DEFSTRUCT GATE-RECORD ; (DEFSTRUCT (CL-QUIL::GATE-RECORD (:COPIER NIL)) ; "Houses information about a hardware instantiation of a gate. ; ; FIDELITY stores the measured gate fidelity. ; ; DURATION stores the measured gate duration (in nanoseconds)." ; (CL-QUIL::FIDELITY CL-QUIL::+NEAR-PERFECT-FIDELITY+ :TYPE (OR NULL REAL)) ; (CL-QUIL::DURATION 1/100 :TYPE (OR NULL REAL))) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::GATE-RECORD {1233FFFB33}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::GATE-RECORD-FIDELITY and CL-QUIL::GATE-RECORD-DURATION could not be inlined because the structure definition for CL-QUIL::GATE-RECORD 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. ; in: DEFSTRUCT HARDWARE-OBJECT ; (DEFSTRUCT CL-QUIL::HARDWARE-OBJECT ; #<(SIMPLE-ARRAY CHARACTER ; (1556)) Houses information about a particular hardware object on a QPU. ; ; ORDER is a non-negative integer that counts the number of qubit subsidiaries of this hardware object. Equals (1- (length (vnth 0 (hardw... {12342B1C3F}> ; (CL-QUIL::ORDER 0 :TYPE UNSIGNED-BYTE :READ-ONLY T) ; (CL-QUIL::GATE-INFORMATION (MAKE-HASH-TABLE :TEST #'EQUALP)) ; (CL-QUIL::COMPILATION-METHODS (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::PERMUTATION-GATES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::REWRITING-RULES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::CXNS ; (MAKE-ARRAY 2 :INITIAL-CONTENTS ; (LIST (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) ; (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)))) ; (CL-QUIL::MISC-DATA (MAKE-HASH-TABLE :TEST #'EQUAL) :TYPE HASH-TABLE)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::HARDWARE-OBJECT {1234256593}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::HARDWARE-OBJECT-COMPILATION-METHODS and CL-QUIL::HARDWARE-OBJECT-CXNS could not be inlined because the structure definition for CL-QUIL::HARDWARE-OBJECT 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-quil" "chip" "chip-specification"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compressor/compressor.lisp ; in: DEFSTRUCT PEEPHOLE-REWRITER-NODE ; (DEFSTRUCT CL-QUIL::PEEPHOLE-REWRITER-NODE ; "A node housing an instruction and attendant metadata used during peephole rewriting. Essentially a doubly-linked list." ; (CL-QUIL::INSTR NIL :TYPE CL-QUIL.FRONTEND:APPLICATION) ; (CL-QUIL::PREV NIL :TYPE (OR NULL CL-QUIL::PEEPHOLE-REWRITER-NODE)) ; (CL-QUIL::NEXT NIL :TYPE (OR NULL CL-QUIL::PEEPHOLE-REWRITER-NODE)) ; (CL-QUIL::CONTEXT NIL)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::PEEPHOLE-REWRITER-NODE {12068557F3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::PEEPHOLE-REWRITER-NODE-INSTR and CL-QUIL::PEEPHOLE-REWRITER-NODE-NEXT could not be inlined because the structure definition for CL-QUIL::PEEPHOLE-REWRITER-NODE 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-quil" "compressor" "compressor"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compressor/wavefunctions.lisp ; in: DEFSTRUCT ANTISOCIAL-QVM ; (DEFSTRUCT CL-QUIL::ANTISOCIAL-QVM ; #<(SIMPLE-ARRAY CHARACTER ; (658)) ANTISOCIAL-QVM instances represent partially-tracked low-correlation wavefunctions. ; ; WFS is a vector. The jth entry points to the wavefunction component in which the jth external qubit lies. ; ; INTERNAL... {1207F8E26F}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {1207F6B523}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL::ANTISOCIAL-QVM-WFS could not be inlined because the structure definition for CL-QUIL::ANTISOCIAL-QVM 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-quil" "compressor" "wavefunctions"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/coalton/47f26152062ebefa5aade307bd821fdffb7b03b3/coalton-20260327-git/library/math/complex.ct ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES F32 ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:F32 ; SINGLE-FLOAT) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT COALTON:F32) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::F32-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F32-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F32-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::F32-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F32-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F32-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::F32-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON F32> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES F64 ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:F64 ; DOUBLE-FLOAT) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT COALTON:F64) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::F64-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F64-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F64-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::F64-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F64-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F64-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::F64-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON F64> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES FRACTION ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:FRACTION ; RATIONAL) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT ; COALTON:FRACTION) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::FRACTION-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::FRACTION-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::FRACTION-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::FRACTION-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION ; COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::FRACTION-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::FRACTION-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::FRACTION-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON FRACTION> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES INTEGER ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:INTEGER ; INTEGER :DIVISION NIL) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT ; COALTON:INTEGER) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::INTEGER-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::INTEGER-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::INTEGER-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::INTEGER-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER ; COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::INTEGER-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::INTEGER-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::INTEGER-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON INTEGER> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: SB-EXT:LOCK-PACKAGE "COALTON/MATH/COMPLEX" ; (LOCK-PACKAGE "COALTON/MATH/COMPLEX") ; ; note: deleting unreachable code Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=731795 "main thread" RUNNING {1200030003}>: COMPILE-FILE-ERROR while compiling #<CT-FILE "coalton/library" "math" "complex"> Backtrace for: #<SB-THREAD:THREAD tid=731795 "main thread" RUNNING {1200030003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1220EFBFD3}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1220EFBFD3}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1220EFBFD3}>) 3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">))) 4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">) 6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 7: ((:METHOD ASDF/ACTION:PERFORM :AROUND (ASDF/LISP-ACTION:COMPILE-OP ASDF/INTERFACE::CT-FILE)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">) [fast-method] 8: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">) [fast-method] 9: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204636863}>) [fast-method] 10: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 11: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204636863}>) [fast-method] 12: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil/discrete"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 13: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil/discrete">) 14: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 15: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil/discrete">) [fast-method] 16: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-quil/discrete") 17: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 18: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil/discrete") [fast-method] 19: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120464828B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 20: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 21: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120460728B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 22: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil/discrete") [fast-method] 23: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-quil" "cl-quil/discrete") 24: (DEPCHECK::MAGIC "cl-quil" "cl-quil/discrete" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-YTxanBtM/depcheck-win.txt") 25: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-quil" "cl-quil/discrete" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-YTxanBtM/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-YTxanBtM/depcheck-fail.txt")) 26: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 27: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 28: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 29: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; caught 4 ERROR conditions ; caught 16 STYLE-WARNING conditions ; printed 55 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 STYLE-WARNING: The new FTYPE proclamation for FSET::WB-BAG-TREE-TOTAL-COUNT(FUNCTION (FSET::WB-BAG-TREE) INTEGER)does not match the derived return type(FUNCTION ((OR LIST FSET::WB-BAG-TREE-NODE)) (VALUES NUMBER &OPTIONAL)) WARNING: redefining DEFTYPE type to be a class: FSET2:SET WARNING: redefining DEFTYPE type to be a class: FSET2:MAP WARNING: redefining DEFTYPE type to be a class: FSET2:WB-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:CH-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:SEQ WARNING: redefining DEFTYPE type to be a class: FSET2:WB-SEQ WARNING: redefining DEFTYPE type to be a class: FSET2:REPLAY-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:WB-REPLAY-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:CH-REPLAY-MAP WARNING: redefining MAGICL::SVD-LISP in DEFUN WARNING: redefining MAGICL:SCALE! in DEFUN WARNING: redefining MAGICL:.+ in DEFUN WARNING: redefining MAGICL:.- in DEFUN WARNING: redefining MAGICL:.* in DEFUN WARNING: redefining MAGICL:./ in DEFUN WARNING: redefining MAGICL:MULT in DEFUN WARNING: redefining MAGICL:EIG in DEFUN WARNING: redefining MAGICL:HERMITIAN-EIG in DEFUN WARNING: redefining MAGICL:LU in DEFUN WARNING: redefining MAGICL:LU-SOLVE in DEFUN WARNING: redefining MAGICL:INV in DEFUN WARNING: redefining MAGICL:CSD-BLOCKS in DEFUN WARNING: redefining MAGICL:SVD in DEFUN WARNING: redefining MAGICL:SCHUR in DEFUN WARNING: redefining MAGICL:QZ in DEFUN WARNING: redefining MAGICL:QL in DEFUN WARNING: redefining MAGICL:QR in DEFUN WARNING: redefining MAGICL:RQ in DEFUN WARNING: redefining MAGICL:LQ in DEFUN ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/ast.lisp ; in: DEFSTRUCT DELAYED-EXPRESSION ; (DEFSTRUCT ; (CL-QUIL.FRONTEND:DELAYED-EXPRESSION ; (:CONSTRUCTOR CL-QUIL.FRONTEND::%DELAYED-EXPRESSION)) ; #<(SIMPLE-ARRAY CHARACTER ; (335)) A representation of an arithmetic expression with fillable "slots". ; ; PARAMS is a list of values to fill the slots with. These can be formal variables, but eventually must be a list of CONSTANTs. ; ; LAMB... {12219D916F}> ; (CL-QUIL.FRONTEND::PARAMS NIL) ; (CL-QUIL.FRONTEND::LAMBDA-PARAMS NIL :READ-ONLY T) ; (CL-QUIL.FRONTEND::EXPRESSION NIL :READ-ONLY T)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL.FRONTEND:DELAYED-EXPRESSION {12219276F3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL.FRONTEND:DELAYED-EXPRESSION-EXPRESSION could not be inlined because the structure definition for CL-QUIL.FRONTEND:DELAYED-EXPRESSION 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. ; in: DEFSTRUCT PAULI-TERM ; (DEFSTRUCT (CL-QUIL.FRONTEND:PAULI-TERM) ; #<(SIMPLE-ARRAY CHARACTER ; (642)) Records a word of Pauli operators, together with an ordered list of qubit formals on which they act, as well as a scalar prefix. This is part of the internal representation of a EXP-PAULI-SUM-GATE-DE... {12226AA43F}> ; CL-QUIL.FRONTEND::PAULI-WORD ; CL-QUIL.FRONTEND::PREFACTOR ; CL-QUIL.FRONTEND::ARGUMENTS) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL.FRONTEND:PAULI-TERM {1222691213}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL.FRONTEND:PAULI-TERM-PAULI-WORD, CL-QUIL.FRONTEND:PAULI-TERM-PREFACTOR and CL-QUIL.FRONTEND:PAULI-TERM-ARGUMENTS could not be inlined because the structure definition for CL-QUIL.FRONTEND:PAULI-TERM 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. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/ast.lisp ; in: DEFUN EXPAND-CLASSICAL-INSTRUCTION-DEFINITIONS ; (LOOP :FOR CL-QUIL.FRONTEND::TYPE-TUPLE :IN CL-QUIL.FRONTEND::TYPES ; :FOR CL-QUIL.FRONTEND::TYPED-NAME := (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE) ; :DO (ASSERT ; (AND ; (= CL-QUIL.FRONTEND::NUM-ARGS ; (LENGTH CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (EVERY #'CL-QUIL.FRONTEND::VALID-TYPE-SYMBOL-P ; CL-QUIL.FRONTEND::TYPE-TUPLE))) ; :COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD ; ==> ; (LET* ((#:HEAD11 (SB-KERNEL:UNALIGNED-DX-CONS NIL)) ; (#:TAIL12 #:HEAD11) ; (CL-QUIL.FRONTEND::TYPED-NAMES NIL)) ; (DECLARE (DYNAMIC-EXTENT #:HEAD11) ; (SB-C::NO-DEBUG #:HEAD11 #:TAIL12) ; (LIST CL-QUIL.FRONTEND::TYPED-NAMES)) ; (SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD (#S(SB-LOOP::LOOP-COLLECTOR ; :NAME NIL ; :CLASS LIST ; :HISTORY (APPEND) ; :TEMPVARS (#:HEAD13 #:TAIL14) ; :SPECIFIED-TYPE NIL ; :DTYPE LIST ; :DATA NIL) ; #:HEAD13 #:TAIL14) ; (TAGBODY ; SB-LOOP::NEXT-LOOP ; (WHEN (ENDP #:L10) (GO SB-LOOP::END-LOOP)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPE-TUPLE (CAR #:L10)) ; (SB-LOOP::LOOP-DESETQ #:L10 (CDR #:L10)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPED-NAME ; (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (ASSERT (AND # #)) ; (SB-LOOP::LOOP-COLLECT-RPLACD ; (#:HEAD11 #:TAIL12 CL-QUIL.FRONTEND::TYPED-NAMES) ; (LIST CL-QUIL.FRONTEND::TYPED-NAME)) ; (SB-LOOP::LOOP-COLLECT-RPLACD (#:HEAD13 #:TAIL14) (LIST `# `# `# `#)) ; (GO SB-LOOP::NEXT-LOOP) ; SB-LOOP::END-LOOP ; (RETURN-FROM NIL (SB-LOOP::LOOP-COLLECT-ANSWER #:HEAD13))))) ; ; caught STYLE-WARNING: ; The variable TYPED-NAMES is assigned but never read. ; in: DEFUN EXPAND-CLASSICAL-INSTRUCTION-DEFINITIONS ; (LOOP :FOR CL-QUIL.FRONTEND::TYPE-TUPLE :IN CL-QUIL.FRONTEND::TYPES ; :FOR CL-QUIL.FRONTEND::TYPED-NAME := (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE) ; :DO (ASSERT ; (AND ; (= CL-QUIL.FRONTEND::NUM-ARGS ; (LENGTH CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (EVERY #'CL-QUIL.FRONTEND::VALID-TYPE-SYMBOL-P ; CL-QUIL.FRONTEND::TYPE-TUPLE))) ; :COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD ; ==> ; (LET* ((#:HEAD79 (SB-KERNEL:UNALIGNED-DX-CONS NIL)) ; (#:TAIL80 #:HEAD79) ; (CL-QUIL.FRONTEND::TYPED-NAMES NIL)) ; (DECLARE (DYNAMIC-EXTENT #:HEAD79) ; (SB-C::NO-DEBUG #:HEAD79 #:TAIL80) ; (LIST CL-QUIL.FRONTEND::TYPED-NAMES)) ; (SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD (#S(SB-LOOP::LOOP-COLLECTOR ; :NAME NIL ; :CLASS LIST ; :HISTORY (APPEND) ; :TEMPVARS (#:HEAD81 #:TAIL82) ; :SPECIFIED-TYPE NIL ; :DTYPE LIST ; :DATA NIL) ; #:HEAD81 #:TAIL82) ; (TAGBODY ; SB-LOOP::NEXT-LOOP ; (WHEN (ENDP #:L78) (GO SB-LOOP::END-LOOP)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPE-TUPLE (CAR #:L78)) ; (SB-LOOP::LOOP-DESETQ #:L78 (CDR #:L78)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPED-NAME ; (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (ASSERT (AND # #)) ; (SB-LOOP::LOOP-COLLECT-RPLACD ; (#:HEAD79 #:TAIL80 CL-QUIL.FRONTEND::TYPED-NAMES) ; (LIST CL-QUIL.FRONTEND::TYPED-NAME)) ; (SB-LOOP::LOOP-COLLECT-RPLACD (#:HEAD81 #:TAIL82) (LIST `# `# `# `#)) ; (GO SB-LOOP::NEXT-LOOP) ; SB-LOOP::END-LOOP ; (RETURN-FROM NIL (SB-LOOP::LOOP-COLLECT-ANSWER #:HEAD81))))) ; ; caught STYLE-WARNING: ; The variable TYPED-NAMES is assigned but never read. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil/frontend" "ast"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/parser.lisp ; in: DEFSTRUCT TOKEN ; (DEFSTRUCT ; (CL-QUIL.FRONTEND:TOKEN ; (:CONSTRUCTOR CL-QUIL.FRONTEND:TOK ; (TYPE &OPTIONAL CL-QUIL.FRONTEND::PAYLOAD ; (CL-QUIL.FRONTEND::LINE CL-QUIL.FRONTEND::*LINE-NUMBER*) ; (PATHNAME CL-QUIL.FRONTEND::*CURRENT-FILE*)))) ; "A lexical token." ; (CL-QUIL.FRONTEND::LINE NIL :TYPE (OR NULL (INTEGER 1)) :READ-ONLY T) ; (PATHNAME NIL :TYPE (OR NULL STRING PATHNAME) :READ-ONLY T) ; (TYPE NIL :TYPE SYMBOL :READ-ONLY T) ; (CL-QUIL.FRONTEND::PAYLOAD NIL :READ-ONLY T)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL.FRONTEND:TOKEN {1233A5C973}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL.FRONTEND:TOKEN-TYPE and CL-QUIL.FRONTEND:TOKEN-PAYLOAD could not be inlined because the structure definition for CL-QUIL.FRONTEND:TOKEN 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-quil/frontend" "parser"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/clifford/stabilizer.lisp ; in: ; DECLAIM (INLINE TABLEAU-QUBITS TABLEAU-X (SETF TABLEAU-X) TABLEAU-Z (SETF TABLEAU-Z) TABLEAU-R (SETF TABLEAU-R) TABLEAU-SCRATCH (SETF TABLEAU-SCRATCH)) ; (DECLAIM ; (INLINE CL-QUIL.CLIFFORD::TABLEAU-QUBITS CL-QUIL.CLIFFORD::TABLEAU-X ; (SETF CL-QUIL.CLIFFORD::TABLEAU-X) CL-QUIL.CLIFFORD::TABLEAU-Z ; (SETF CL-QUIL.CLIFFORD::TABLEAU-Z) CL-QUIL.CLIFFORD::TABLEAU-R ; (SETF CL-QUIL.CLIFFORD::TABLEAU-R) CL-QUIL.CLIFFORD::TABLEAU-SCRATCH ; (SETF CL-QUIL.CLIFFORD::TABLEAU-SCRATCH))) ; ==> ; (SB-C::%PROCLAIM ; '(INLINE CL-QUIL.CLIFFORD::TABLEAU-QUBITS CL-QUIL.CLIFFORD::TABLEAU-X ; (SETF CL-QUIL.CLIFFORD::TABLEAU-X) CL-QUIL.CLIFFORD::TABLEAU-Z ; (SETF CL-QUIL.CLIFFORD::TABLEAU-Z) CL-QUIL.CLIFFORD::TABLEAU-R ; (SETF CL-QUIL.CLIFFORD::TABLEAU-R) CL-QUIL.CLIFFORD::TABLEAU-SCRATCH ; (SETF CL-QUIL.CLIFFORD::TABLEAU-SCRATCH)) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Proclaiming CL-QUIL.CLIFFORD::TABLEAU-QUBITS to be INLINE, but 1 call to it was previously compiled. A declaration of NOTINLINE at the call site will eliminate this warning, as will proclaiming and defining the function before its first potential use. ; in: DEFUN TABLEAU-MEASURE ; (DEFUN CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (CL-QUIL.CLIFFORD::TAB CL-QUIL.CLIFFORD::Q) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0)) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU CL-QUIL.CLIFFORD::TAB) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU-INDEX CL-QUIL.CLIFFORD::Q)) ; (LET* ((CL-QUIL.CLIFFORD::N ; (CL-QUIL.CLIFFORD::TABLEAU-QUBITS CL-QUIL.CLIFFORD::TAB)) ; (CL-QUIL.CLIFFORD::P ; (LOOP :FOR CL-QUIL.CLIFFORD::P :BELOW CL-QUIL.CLIFFORD::N ; :WHEN # ; :DO # ; :FINALLY #))) ; (DECLARE ; (TYPE (OR CL-QUIL.CLIFFORD::TABLEAU-INDEX NULL) CL-QUIL.CLIFFORD::P) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU-INDEX CL-QUIL.CLIFFORD::N)) ; (COND ; (CL-QUIL.CLIFFORD::P ; (CL-QUIL.CLIFFORD::TABLEAU-COPY-ROW CL-QUIL.CLIFFORD::TAB ; CL-QUIL.CLIFFORD::P #) ; (CL-QUIL.CLIFFORD::TABLEAU-SET-ROW-TO-PAULI CL-QUIL.CLIFFORD::TAB # #) ; (SETF #) (DOTIMES # #) (VALUES # NIL)) ; (T (CL-QUIL.CLIFFORD::TABLEAU-CLEAR-SCRATCH CL-QUIL.CLIFFORD::TAB) ; (LET # ; # ; # ; #))))) ; ==> ; (SB-IMPL::%DEFUN 'CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (SB-INT:NAMED-LAMBDA CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (CL-QUIL.CLIFFORD::TAB CL-QUIL.CLIFFORD::Q) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) ; (COMPILATION-SPEED 0)) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU CL-QUIL.CLIFFORD::TAB) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU-INDEX ; CL-QUIL.CLIFFORD::Q)) ; (BLOCK CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (LET* (# #) ; (DECLARE # ; #) ; (COND # #))))) ; ; caught STYLE-WARNING: ; Call to CL-QUIL.CLIFFORD::TABLEAU-COPY-ROW could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil/frontend" "clifford" "stabilizer"> WARNING: redefining CL-QUIL.FRONTEND::PRINT-PARSED-PROGRAM-GENERIC in DEFGENERIC ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/linear-algebra.lisp ; in: DEFUN-INLINABLE PSUM ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I)) ; ; note: doing complex float to pointer coercion (cost 13) ; (QVM:PSUM-DOTIMES (QVM::I (LENGTH QVM::STATE)) ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I)) ; ; note: doing complex float to pointer coercion (cost 13) ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/wavefunction.lisp ; in: DEFUN PROBABILITY ; (DEFUN QVM:PROBABILITY (QVM::AMPLITUDE) ; "Convert an amplitude into a probability." ; (DECLARE (TYPE QVM:CFLONUM QVM::AMPLITUDE)) ; (LET ((QVM::RE (REALPART QVM::AMPLITUDE)) ; (QVM::IM (IMAGPART QVM::AMPLITUDE))) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (+ (* QVM::RE QVM::RE) (* QVM::IM QVM::IM)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM:PROBABILITY ; (QVM::AMPLITUDE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Convert an amplitude into a probability." ; (DECLARE (TYPE QVM:CFLONUM QVM::AMPLITUDE)) ; (BLOCK QVM:PROBABILITY ; (LET ((QVM::RE #) (QVM::IM #)) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (+ (* QVM::RE QVM::RE) (* QVM::IM QVM::IM))))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; in: DEFUN-INLINABLE WAVEFUNCTION-GROUND-STATE-PROBABILITY ; (QVM:PSUM-DOTIMES (QVM::I (QVM::HALF (LENGTH QVM::WAVEFUNCTION))) ; (LET ((QVM::ADDRESS (QVM::INJECT-BIT QVM::I QVM::QUBIT))) ; (DECLARE (TYPE QVM:AMPLITUDE-ADDRESS QVM::ADDRESS)) ; (QVM:PROBABILITY (AREF QVM::WAVEFUNCTION QVM::ADDRESS)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; --> IF FLET LET* LOOP BLOCK LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY ; --> RETURN-FROM ; ==> ; #:SUM13 ; ; note: doing float to pointer coercion (cost 13) from #:SUM13 to "<return value>" ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION6 (#:START2 #:END3) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START2) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END3)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM1 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM1 to "<return value>" ; in: DEFUN-INLINABLE WAVEFUNCTION-EXCITED-STATE-PROBABILITY ; (QVM:PSUM-DOTIMES (QVM::I (QVM::HALF (LENGTH QVM::WAVEFUNCTION))) ; (LET ((QVM::ADDRESS (QVM::INDEX-TO-ADDRESS QVM::I QVM::QUBIT 1))) ; (DECLARE (TYPE QVM:AMPLITUDE-ADDRESS QVM::ADDRESS)) ; (QVM:PROBABILITY (AREF QVM::WAVEFUNCTION QVM::ADDRESS)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; --> IF FLET LET* LOOP BLOCK LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY ; --> RETURN-FROM ; ==> ; #:SUM13 ; ; note: doing float to pointer coercion (cost 13) from #:SUM13 to "<return value>" ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION6 (#:START2 #:END3) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START2) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END3)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM1 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM1 to "<return value>" ; in: DEFUN-INLINABLE APPLY-MATRIX-OPERATOR ; (APPLY QVM::KERNEL QVM::MATRIX QVM::WAVEFUNCTION (COERCE QVM::QUBITS 'LIST)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: KERNEL is not known to be a function ; in: DEFUN-INLINABLE %SERIAL-NORM ; (QVM:DEFUN-INLINABLE QVM::%SERIAL-NORM ; (QVM::WAVEFUNCTION) ; (LOOP :WITH QVM::S :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :BELOW (LENGTH QVM::WAVEFUNCTION) ; :DO ...)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::%SERIAL-NORM ; (QVM::WAVEFUNCTION) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK QVM::%SERIAL-NORM ; (LOOP :WITH QVM::S :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :BELOW (LENGTH QVM::WAVEFUNCTION) ; :DO ...))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; in: DEFUN-INLINABLE NORM ; (QVM:DEFUN-INLINABLE QVM::NORM ; (QVM::WAVEFUNCTION) ; "Compute the length/L2 norm of the wavefunction WAVEFUNCTION." ; (DECLARE (INLINE QVM:PROBABILITY QVM::PSUM)) ; (IF (<= QVM:*QUBITS-REQUIRED-FOR-PARALLELIZATION* ; (QVM::WAVEFUNCTION-QUBITS QVM::WAVEFUNCTION)) ; (SQRT ; (THE (QVM:FLONUM 0) (QVM::PSUM #'QVM:PROBABILITY QVM::WAVEFUNCTION))) ; (QVM::%SERIAL-NORM QVM::WAVEFUNCTION))) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::NORM ; (QVM::WAVEFUNCTION) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Compute the length/L2 norm of the wavefunction WAVEFUNCTION." ; (DECLARE (INLINE QVM:PROBABILITY QVM::PSUM)) ; (BLOCK QVM::NORM ; (IF (<= QVM:*QUBITS-REQUIRED-FOR-PARALLELIZATION* ; (QVM::WAVEFUNCTION-QUBITS QVM::WAVEFUNCTION)) ; (SQRT (THE # #)) ; (QVM::%SERIAL-NORM QVM::WAVEFUNCTION)))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; (QVM::PSUM #'QVM:PROBABILITY QVM::WAVEFUNCTION) ; --> BLOCK QVM:PSUM-DOTIMES LET IF FLET ; ==> ; (#:WORKER-FUNCTION8 (#:START4 #:END5) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START4) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END5)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM3 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM3 to "<return value>" ; in: DEFUN NORMALIZE-WAVEFUNCTION ; (QVM:FLONUM LENGTH) ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; (QVM:PDOTIMES (QVM::I (LENGTH QVM::WAVEFUNCTION) QVM::WAVEFUNCTION) ; (SETF (AREF QVM::WAVEFUNCTION QVM::I) ; (* QVM::INV-NORM (AREF QVM::WAVEFUNCTION QVM::I)))) ; --> IF LPARALLEL.COGNATE:PDOTIMES LET PROGN LPARALLEL.COGNATE::%PDOTIMES ; --> LAMBDA ; ==> ; #'(LAMBDA (QVM::I) ; (TAGBODY (SETF (AREF QVM::WAVEFUNCTION QVM::I) (* QVM::INV-NORM #)))) ; ; note: doing float to pointer coercion (cost 13), for: ; the second argument of CLOSURE-INIT ; (QVM::NORM QVM::WAVEFUNCTION) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM16 to "<return value>" ; in: DEFUN WF ; (QVM:CFLONUM ELT) ; --> BLOCK COERCE ; ==> ; 1 ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; in: DEFUN GAUSSIAN-RANDOM-COMPLEX ; (DEFUN QVM::GAUSSIAN-RANDOM-COMPLEX () ; "Return a complex number with Gaussian-random real and imaginary parts." ; (MULTIPLE-VALUE-BIND (QVM::RE QVM::IM) ; (ALEXANDRIA:GAUSSIAN-RANDOM) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (COMPLEX QVM::RE QVM::IM))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::GAUSSIAN-RANDOM-COMPLEX ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Return a complex number with Gaussian-random real and imaginary parts." ; (BLOCK QVM::GAUSSIAN-RANDOM-COMPLEX ; (MULTIPLE-VALUE-BIND (QVM::RE QVM::IM) ; (ALEXANDRIA:GAUSSIAN-RANDOM) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (COMPLEX QVM::RE QVM::IM)))) ; ; note: doing complex float to pointer coercion (cost 13) to "<return value>" ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/compile-gate.lisp ; in: DEFUN GENERATE-AMPLITUDE-ADDRESS-CODE ; (LDB (BYTE 1 QVM::I) QVM::FLAGS) ; ; note: doing unsigned word to integer coercion (cost 20) to "<return value>" ; in: DEFUN GENERATE-INNER-MATRIX-MULTIPLY-CODE ; (LOOP :FOR QVM::J :BELOW QVM::N ; :FOR QVM::C := (NTH QVM::J QVM::COLUMN) ; :FOR QVM::MIJ := ...) ; --> LET LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ ; ==> ; (SETQ QVM::MIJ (AREF QVM::MATRIX QVM::I QVM::J)) ; ; note: doing complex float to pointer coercion (cost 13) to MIJ ; `(* ,QVM::C ,(AREF QVM::MATRIX QVM::I QVM::J)) ; ; note: doing complex float to pointer coercion (cost 13), for: ; the third argument of LIST ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/measurement.lisp ; in: DEFMETHOD FORCE-MEASUREMENT (T T PURE-STATE T) ; (SQRT (- (QVM:FLONUM 1) QVM::EXCITED-PROBABILITY)) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (OR (COMPLEX DOUBLE-FLOAT) (DOUBLE-FLOAT 0.0d0 1.0d0)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; (/ (SQRT QVM::EXCITED-PROBABILITY)) ; ; note: doing float to pointer coercion (cost 13), for: ; the first result of inline float arithmetic ; in: DEFGENERIC GET-EXCITED-STATE-PROBABILITY ; (AREF QVM::RHO QVM::I QVM::I) ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; (REALPART (AREF QVM::RHO QVM::I QVM::I)) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (QVM:PSUM-DOTIMES (QVM::K (EXPT 2 (1- (QVM::NUM-QUBITS QVM::STATE)))) ; (LET ((QVM::I (QVM::INDEX-TO-ADDRESS QVM::K QVM::QUBIT 1))) ; (REALPART (AREF QVM::RHO QVM::I QVM::I)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM20 ; ; note: doing float to pointer coercion (cost 13) from #:SUM20 to "<return value>" ; in: DEFUN SAMPLE-WAVEFUNCTION-AS-DISTRIBUTION-IN-PARALLEL-TRULY ; (QVM:PSUM-DOTIMES (QVM::I ; (THE ALEXANDRIA:NON-NEGATIVE-FIXNUM (- QVM::MID MIN))) ; (LET ((QVM::I (THE ALEXANDRIA:NON-NEGATIVE-FIXNUM #))) ; (QVM:PROBABILITY (AREF QVM:WF QVM::I)))) ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION12 (#:START8 #:END9) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START8) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END9)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM7 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM7 to "<return value>" ; in: DEFUN SAMPLE-WAVEFUNCTION-MULTIPLE-TIMES ; (MT19937:RANDOM 1.0d0) ; --> BLOCK LET* - SCALE-FLOAT FLOAT ; ==> ; (+ (EXPT 2 52) MT19937::RANDOM-MANTISSA-BITS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 4503599627370496) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 4503599627370496) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a (INTEGER 4611686018427387904), not a (SIGNED-BYTE 64). ; in: DEFUN SAMPLE-WAVEFUNCTION-AS-DISTRIBUTION ; (AREF QVM::PS QVM::I) ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR DOUBLE-FLOAT), not a SIMPLE-ARRAY. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/matrix-operations.lisp ; in: DEFUN ORTHONORMALIZE-MATRIX! ; (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a COMPLEX. ; (SQRT CL-QUIL::N^2) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The result is a (VALUES (OR (FLOAT 0.0) (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.The result is a (VALUES (OR (FLOAT 0.0) (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &OPTIONAL). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &OPTIONAL). ; (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (LOOP :FOR CL-QUIL::I :BELOW CL-QUIL::NROWS ; :SUM (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q))) ; --> LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM17 ; (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; (/ (MAGICL:TREF CL-QUIL::M CL-QUIL::ROW CL-QUIL::COL) CL-QUIL::NORM) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (OR (FLOAT 0.0) (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT. ; The result is a (VALUES (OR FLOAT (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a T, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a (OR (FLOAT 0.0) (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT. ; The result is a (VALUES (OR FLOAT (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &OPTIONAL). ; etc. ; (* CL-QUIL::S (MAGICL:TREF CL-QUIL::Q CL-QUIL::ROW CL-QUIL::J)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (DECF (MAGICL:TREF CL-QUIL::V CL-QUIL::ROW CL-QUIL::K) ; (* CL-QUIL::S (MAGICL:TREF CL-QUIL::Q CL-QUIL::ROW CL-QUIL::J))) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/define-compiler.lisp ; in: DEFUN FIND-SHORTEST-COMPILER-PATH ; (DEFUN CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (CL-QUIL::COMPILERS CL-QUIL::TARGET-GATESET CL-QUIL::OCCURRENCE-TABLE ; &OPTIONAL CL-QUIL::QUBIT-COUNT) ; #<(SIMPLE-ARRAY CHARACTER ; (730)) Produces a path of compilers, drawn from COMPILERS, which convert all of the entries of OCCURRENCE-TABLE into "native gates" according to TARGET-GATESET. Returns an alternating chain of occurrence ta... {121536DF8F}> ; (LET ((CL-QUIL.FRONTEND:QUEUE ; (MAKE-INSTANCE 'CL-HEAP:PRIORITY-QUEUE :SORT-FUN #))) ; (FLET ((CL-QUIL::COLLECT-BINDINGS # ; #)) ; (LOOP :WITH CL-QUIL::VISITED-NODES := NIL ; :FOR (CL-QUIL::TASK . CL-QUIL::HISTORY) := (LIST ; CL-QUIL::OCCURRENCE-TABLE) :THEN (CL-HEAP:DEQUEUE ; CL-QUIL.FRONTEND:QUEUE) ; :UNLESS ...)))) ; ==> ; (SB-IMPL::%DEFUN 'CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (SB-INT:NAMED-LAMBDA CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (CL-QUIL::COMPILERS CL-QUIL::TARGET-GATESET ; CL-QUIL::OCCURRENCE-TABLE &OPTIONAL ; CL-QUIL::QUBIT-COUNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (730)) Produces a path of compilers, drawn from COMPILERS, which convert all of the entries of OCCURRENCE-TABLE into "native gates" according to TARGET-GATESET. Returns an alternating chain of occurrence ta... {121536DF8F}> ; (BLOCK CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (LET (#) ; (FLET # ; #))))) ; ; caught STYLE-WARNING: ; Call to CL-HEAP:DEQUEUE could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. ; ; caught STYLE-WARNING: ; Call to CL-HEAP:ENQUEUE could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil" "define-compiler"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compiler-hook.lisp ; in: DEFUN COMPILER-HOOK ; (DEFUN CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION ; &KEY (CL-QUIL::PROTOQUIL NIL) ; (CL-QUIL::REWIRING-TYPE ; (CL-QUIL::PROG-INITIAL-REWIRING-HEURISTIC ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (CL-QUIL::TRANSFORMS CL-QUIL::*STANDARD-PRE-COMPILATION-TRANSFORMS*) ; (CL-QUIL::DESTRUCTIVE NIL) ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; #<(SIMPLE-ARRAY CHARACTER ; (1034)) Runs a full compiler pass on a parsed-program object. ; ; Arguments: ; ; - PARSED-PROGRAM: The parsed program to compile ; ; - CHIP-SPECIFICATION: The chip specification describing the target chip ; ; Keyword... {1232B9800F}> ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: entrance.") ; (UNLESS CL-QUIL::DESTRUCTIVE ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:COPY-INSTANCE ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (WHEN ; (AND (NOT (EQL ':NAIVE CL-QUIL::REWIRING-TYPE)) ; (> ; (CL-QUIL.FRONTEND:QUBITS-NEEDED CL-QUIL.FRONTEND:PARSED-PROGRAM) ; (LENGTH #)) ; (NOT ; (CL-QUIL.FRONTEND:PARSED-PROGRAM-HAS-PRESERVE-BLOCKS-P ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Compressing qubits.") ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:COMPRESS-QUBITS ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (DOLIST (CL-QUIL::XFORM CL-QUIL::TRANSFORMS) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Applying transform ~A." ; CL-QUIL::XFORM) ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:TRANSFORM CL-QUIL::XFORM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (CL-QUIL::WARM-CHIP-SPEC-LOOKUP-CACHE CL-QUIL::CHIP-SPECIFICATION) ; (LOOP :FOR CL-QUIL::MDESC :IN (CL-QUIL.FRONTEND:PARSED-PROGRAM-MEMORY-DEFINITIONS ; CL-QUIL.FRONTEND:PARSED-PROGRAM) ; :WHEN (CL-QUIL.FRONTEND:MEMORY-DESCRIPTOR-SHARING-PARENT ; CL-QUIL::MDESC) ; :DO (ERROR ; "Programs with aliased memory are currently unsupported.")) ; (WHEN (EQL ':NAIVE CL-QUIL::REWIRING-TYPE) ; (CL-QUIL::CHECK-PROGRAM-SKIPS-DEAD-QUBITS CL-QUIL.FRONTEND:PARSED-PROGRAM ; CL-QUIL::CHIP-SPECIFICATION)) ; (WHEN CL-QUIL::PROTOQUIL ; (CL-QUIL:CHECK-PROTOQUIL-PROGRAM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; ...) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION &KEY ; (CL-QUIL::PROTOQUIL NIL) ; (CL-QUIL::REWIRING-TYPE ; (CL-QUIL::PROG-INITIAL-REWIRING-HEURISTIC ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (CL-QUIL::TRANSFORMS CL-QUIL::*STANDARD-PRE-COMPILATION-TRANSFORMS*) ; (CL-QUIL::DESTRUCTIVE NIL) ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (1034)) Runs a full compiler pass on a parsed-program object. ; ; Arguments: ; ; - PARSED-PROGRAM: The parsed program to compile ; ; - CHIP-SPECIFICATION: The chip specification describing the target chip ; ; Keyword... {1232B9800F}> ; (BLOCK CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: entrance.") ; (UNLESS CL-QUIL::DESTRUCTIVE (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (WHEN (AND (NOT #) (> # #) (NOT #)) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Compressing qubits.") ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (DOLIST (CL-QUIL::XFORM CL-QUIL::TRANSFORMS) ; (CL-QUIL.FRONTEND:FORMAT-NOISE ; "COMPILER-HOOK: Applying transform ~A." CL-QUIL::XFORM) ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (CL-QUIL::WARM-CHIP-SPEC-LOOKUP-CACHE CL-QUIL::CHIP-SPECIFICATION) ; (LOOP :FOR CL-QUIL::MDESC :IN (CL-QUIL.FRONTEND:PARSED-PROGRAM-MEMORY-DEFINITIONS ; CL-QUIL.FRONTEND:PARSED-PROGRAM) ; :WHEN (CL-QUIL.FRONTEND:MEMORY-DESCRIPTOR-SHARING-PARENT ; CL-QUIL::MDESC) ; :DO (ERROR ; "Programs with aliased memory are currently unsupported.")) ; (WHEN (EQL ':NAIVE CL-QUIL::REWIRING-TYPE) ; (CL-QUIL::CHECK-PROGRAM-SKIPS-DEAD-QUBITS ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (WHEN CL-QUIL::PROTOQUIL ; (CL-QUIL:CHECK-PROTOQUIL-PROGRAM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; (MULTIPLE-VALUE-BIND ; (CL-QUIL::INITIAL-REWIRING CL-QUIL::L2P-COMPONENTS) ; (CL-QUIL::PROG-INITIAL-REWIRING CL-QUIL.FRONTEND:PARSED-PROGRAM ; CL-QUIL::CHIP-SPECIFICATION :TYPE CL-QUIL::REWIRING-TYPE) ; (LET* (# # # #) ; (CL-QUIL::CHECK-PRESERVED-BLOCKS-SKIP-DEAD-QUBITS CL-QUIL::CFG ; CL-QUIL::CHIP-SPECIFICATION) ; (LET # ; #) ; (WHEN CL-QUIL::PROTOQUIL #) ; (LABELS # ; # ; # ; #))))) ; ; caught STYLE-WARNING: ; using the lexical binding of the symbol (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE*), not the ; dynamic binding, even though the name follows ; the usual naming convention (names like *FOO*) for special variables ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; ; caught STYLE-WARNING: ; The variable *ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil" "compiler-hook"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/chip/chip-specification.lisp ; in: DEFSTRUCT CHIP-SPECIFICATION ; (DEFSTRUCT CL-QUIL::CHIP-SPECIFICATION ; #<(SIMPLE-ARRAY CHARACTER ; (957)) Houses information about hardware components on a QPU. ; ; OBJECTS is an array. In its nth position, there is a vector of order n hardware objects on the chip. ; ; GENERIC-COMPILERS is a vector of functions... {1233881F3F}> ; (CL-QUIL::OBJECTS ; (MAKE-ARRAY 2 :INITIAL-CONTENTS ; (LIST (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) ; (CL-QUIL::MAKE-ADJUSTABLE-VECTOR))) ; :TYPE VECTOR) ; (CL-QUIL::GENERIC-COMPILERS (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) :TYPE VECTOR) ; (CL-QUIL::GENERIC-REWRITING-RULES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) :TYPE ; VECTOR) ; (CL-QUIL::LOOKUP-CACHE NIL :TYPE (OR NULL HASH-TABLE))) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::CHIP-SPECIFICATION {12338785D3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL::CHIP-SPECIFICATION-GENERIC-COMPILERS could not be inlined because the structure definition for CL-QUIL::CHIP-SPECIFICATION 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. ; in: DEFSTRUCT GATE-RECORD ; (DEFSTRUCT (CL-QUIL::GATE-RECORD (:COPIER NIL)) ; "Houses information about a hardware instantiation of a gate. ; ; FIDELITY stores the measured gate fidelity. ; ; DURATION stores the measured gate duration (in nanoseconds)." ; (CL-QUIL::FIDELITY CL-QUIL::+NEAR-PERFECT-FIDELITY+ :TYPE (OR NULL REAL)) ; (CL-QUIL::DURATION 1/100 :TYPE (OR NULL REAL))) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::GATE-RECORD {1233F98003}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::GATE-RECORD-FIDELITY and CL-QUIL::GATE-RECORD-DURATION could not be inlined because the structure definition for CL-QUIL::GATE-RECORD 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. ; in: DEFSTRUCT HARDWARE-OBJECT ; (DEFSTRUCT CL-QUIL::HARDWARE-OBJECT ; #<(SIMPLE-ARRAY CHARACTER ; (1556)) Houses information about a particular hardware object on a QPU. ; ; ORDER is a non-negative integer that counts the number of qubit subsidiaries of this hardware object. Equals (1- (length (vnth 0 (hardw... {12341C9C3F}> ; (CL-QUIL::ORDER 0 :TYPE UNSIGNED-BYTE :READ-ONLY T) ; (CL-QUIL::GATE-INFORMATION (MAKE-HASH-TABLE :TEST #'EQUALP)) ; (CL-QUIL::COMPILATION-METHODS (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::PERMUTATION-GATES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::REWRITING-RULES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::CXNS ; (MAKE-ARRAY 2 :INITIAL-CONTENTS ; (LIST (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) ; (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)))) ; (CL-QUIL::MISC-DATA (MAKE-HASH-TABLE :TEST #'EQUAL) :TYPE HASH-TABLE)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::HARDWARE-OBJECT {1234167383}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::HARDWARE-OBJECT-COMPILATION-METHODS and CL-QUIL::HARDWARE-OBJECT-CXNS could not be inlined because the structure definition for CL-QUIL::HARDWARE-OBJECT 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-quil" "chip" "chip-specification"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compressor/compressor.lisp ; in: DEFSTRUCT PEEPHOLE-REWRITER-NODE ; (DEFSTRUCT CL-QUIL::PEEPHOLE-REWRITER-NODE ; "A node housing an instruction and attendant metadata used during peephole rewriting. Essentially a doubly-linked list." ; (CL-QUIL::INSTR NIL :TYPE CL-QUIL.FRONTEND:APPLICATION) ; (CL-QUIL::PREV NIL :TYPE (OR NULL CL-QUIL::PEEPHOLE-REWRITER-NODE)) ; (CL-QUIL::NEXT NIL :TYPE (OR NULL CL-QUIL::PEEPHOLE-REWRITER-NODE)) ; (CL-QUIL::CONTEXT NIL)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::PEEPHOLE-REWRITER-NODE {120679CB43}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::PEEPHOLE-REWRITER-NODE-INSTR and CL-QUIL::PEEPHOLE-REWRITER-NODE-NEXT could not be inlined because the structure definition for CL-QUIL::PEEPHOLE-REWRITER-NODE 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-quil" "compressor" "compressor"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compressor/wavefunctions.lisp ; in: DEFSTRUCT ANTISOCIAL-QVM ; (DEFSTRUCT CL-QUIL::ANTISOCIAL-QVM ; #<(SIMPLE-ARRAY CHARACTER ; (658)) ANTISOCIAL-QVM instances represent partially-tracked low-correlation wavefunctions. ; ; WFS is a vector. The jth entry points to the wavefunction component in which the jth external qubit lies. ; ; INTERNAL... {1207EC64DF}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {1207EB3333}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL::ANTISOCIAL-QVM-WFS could not be inlined because the structure definition for CL-QUIL::ANTISOCIAL-QVM 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-quil" "compressor" "wavefunctions"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/coalton/47f26152062ebefa5aade307bd821fdffb7b03b3/coalton-20260327-git/library/math/complex.ct ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES F32 ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:F32 ; SINGLE-FLOAT) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT COALTON:F32) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::F32-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F32-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F32-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::F32-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F32-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F32-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::F32-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON F32> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES F64 ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:F64 ; DOUBLE-FLOAT) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT COALTON:F64) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::F64-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F64-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F64-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::F64-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F64-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F64-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::F64-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON F64> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES FRACTION ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:FRACTION ; RATIONAL) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT ; COALTON:FRACTION) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::FRACTION-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::FRACTION-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::FRACTION-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::FRACTION-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION ; COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::FRACTION-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::FRACTION-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::FRACTION-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON FRACTION> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES INTEGER ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:INTEGER ; INTEGER :DIVISION NIL) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT ; COALTON:INTEGER) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::INTEGER-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::INTEGER-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::INTEGER-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::INTEGER-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER ; COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::INTEGER-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::INTEGER-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::INTEGER-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON INTEGER> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: SB-EXT:LOCK-PACKAGE "COALTON/MATH/COMPLEX" ; (LOCK-PACKAGE "COALTON/MATH/COMPLEX") ; ; note: deleting unreachable code Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=731817 "main thread" RUNNING {1200030003}>: COMPILE-FILE-ERROR while compiling #<CT-FILE "coalton/library" "math" "complex"> Backtrace for: #<SB-THREAD:THREAD tid=731817 "main thread" RUNNING {1200030003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1220C14083}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1220C14083}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1220C14083}>) 3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">))) 4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">) 6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 7: ((:METHOD ASDF/ACTION:PERFORM :AROUND (ASDF/LISP-ACTION:COMPILE-OP ASDF/INTERFACE::CT-FILE)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">) [fast-method] 8: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">) [fast-method] 9: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204636863}>) [fast-method] 10: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 11: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204636863}>) [fast-method] 12: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil/coalton"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 13: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil/coalton">) 14: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 15: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil/coalton">) [fast-method] 16: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-quil/coalton") 17: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 18: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil/coalton") [fast-method] 19: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120463FFCB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 20: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 21: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1204606FCB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 22: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil/coalton") [fast-method] 23: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-quil" "cl-quil/coalton") 24: (DEPCHECK::MAGIC "cl-quil" "cl-quil/coalton" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Q7dWT6dY/depcheck-win.txt") 25: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-quil" "cl-quil/coalton" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Q7dWT6dY/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Q7dWT6dY/depcheck-fail.txt")) 26: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 27: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 28: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 29: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; caught 4 ERROR conditions ; caught 16 STYLE-WARNING conditions ; printed 55 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/fiasco/25c6341ba51ec6b1c07a4ed18827f480f8e3fa89/fiasco-20260327-git/fiasco.asd" contains definition for system "fiasco-self-tests". Please only define "fiasco" and secondary systems with a name starting with "fiasco/" (e.g. "fiasco/test") in that file. WARNING: redefining MAGICL::SVD-LISP in DEFUN WARNING: redefining MAGICL:SCALE! in DEFUN WARNING: redefining MAGICL:.+ in DEFUN WARNING: redefining MAGICL:.- in DEFUN WARNING: redefining MAGICL:.* in DEFUN WARNING: redefining MAGICL:./ in DEFUN WARNING: redefining MAGICL:MULT in DEFUN WARNING: redefining MAGICL:EIG in DEFUN WARNING: redefining MAGICL:HERMITIAN-EIG in DEFUN WARNING: redefining MAGICL:LU in DEFUN WARNING: redefining MAGICL:LU-SOLVE in DEFUN WARNING: redefining MAGICL:INV in DEFUN WARNING: redefining MAGICL:CSD-BLOCKS in DEFUN WARNING: redefining MAGICL:SVD in DEFUN WARNING: redefining MAGICL:SCHUR in DEFUN WARNING: redefining MAGICL:QZ in DEFUN WARNING: redefining MAGICL:QL in DEFUN WARNING: redefining MAGICL:QR in DEFUN WARNING: redefining MAGICL:RQ in DEFUN WARNING: redefining MAGICL:LQ in DEFUN WARNING: redefining CL-QUIL.FRONTEND::PRINT-PARSED-PROGRAM-GENERIC in DEFGENERIC ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/linear-algebra.lisp ; in: DEFUN-INLINABLE PSUM ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I)) ; ; note: doing complex float to pointer coercion (cost 13) ; (QVM:PSUM-DOTIMES (QVM::I (LENGTH QVM::STATE)) ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I)) ; ; note: doing complex float to pointer coercion (cost 13) ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/wavefunction.lisp ; in: DEFUN PROBABILITY ; (DEFUN QVM:PROBABILITY (QVM::AMPLITUDE) ; "Convert an amplitude into a probability." ; (DECLARE (TYPE QVM:CFLONUM QVM::AMPLITUDE)) ; (LET ((QVM::RE (REALPART QVM::AMPLITUDE)) ; (QVM::IM (IMAGPART QVM::AMPLITUDE))) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (+ (* QVM::RE QVM::RE) (* QVM::IM QVM::IM)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM:PROBABILITY ; (QVM::AMPLITUDE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Convert an amplitude into a probability." ; (DECLARE (TYPE QVM:CFLONUM QVM::AMPLITUDE)) ; (BLOCK QVM:PROBABILITY ; (LET ((QVM::RE #) (QVM::IM #)) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (+ (* QVM::RE QVM::RE) (* QVM::IM QVM::IM))))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; in: DEFUN-INLINABLE WAVEFUNCTION-GROUND-STATE-PROBABILITY ; (QVM:PSUM-DOTIMES (QVM::I (QVM::HALF (LENGTH QVM::WAVEFUNCTION))) ; (LET ((QVM::ADDRESS (QVM::INJECT-BIT QVM::I QVM::QUBIT))) ; (DECLARE (TYPE QVM:AMPLITUDE-ADDRESS QVM::ADDRESS)) ; (QVM:PROBABILITY (AREF QVM::WAVEFUNCTION QVM::ADDRESS)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; --> IF FLET LET* LOOP BLOCK LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY ; --> RETURN-FROM ; ==> ; #:SUM13 ; ; note: doing float to pointer coercion (cost 13) from #:SUM13 to "<return value>" ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION6 (#:START2 #:END3) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START2) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END3)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM1 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM1 to "<return value>" ; in: DEFUN-INLINABLE WAVEFUNCTION-EXCITED-STATE-PROBABILITY ; (QVM:PSUM-DOTIMES (QVM::I (QVM::HALF (LENGTH QVM::WAVEFUNCTION))) ; (LET ((QVM::ADDRESS (QVM::INDEX-TO-ADDRESS QVM::I QVM::QUBIT 1))) ; (DECLARE (TYPE QVM:AMPLITUDE-ADDRESS QVM::ADDRESS)) ; (QVM:PROBABILITY (AREF QVM::WAVEFUNCTION QVM::ADDRESS)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; --> IF FLET LET* LOOP BLOCK LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY ; --> RETURN-FROM ; ==> ; #:SUM13 ; ; note: doing float to pointer coercion (cost 13) from #:SUM13 to "<return value>" ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION6 (#:START2 #:END3) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START2) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END3)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM1 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM1 to "<return value>" ; in: DEFUN-INLINABLE APPLY-MATRIX-OPERATOR ; (APPLY QVM::KERNEL QVM::MATRIX QVM::WAVEFUNCTION (COERCE QVM::QUBITS 'LIST)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: KERNEL is not known to be a function ; in: DEFUN-INLINABLE %SERIAL-NORM ; (QVM:DEFUN-INLINABLE QVM::%SERIAL-NORM ; (QVM::WAVEFUNCTION) ; (LOOP :WITH QVM::S :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :BELOW (LENGTH QVM::WAVEFUNCTION) ; :DO ...)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::%SERIAL-NORM ; (QVM::WAVEFUNCTION) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK QVM::%SERIAL-NORM ; (LOOP :WITH QVM::S :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :BELOW (LENGTH QVM::WAVEFUNCTION) ; :DO ...))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; in: DEFUN-INLINABLE NORM ; (QVM:DEFUN-INLINABLE QVM::NORM ; (QVM::WAVEFUNCTION) ; "Compute the length/L2 norm of the wavefunction WAVEFUNCTION." ; (DECLARE (INLINE QVM:PROBABILITY QVM::PSUM)) ; (IF (<= QVM:*QUBITS-REQUIRED-FOR-PARALLELIZATION* ; (QVM::WAVEFUNCTION-QUBITS QVM::WAVEFUNCTION)) ; (SQRT ; (THE (QVM:FLONUM 0) (QVM::PSUM #'QVM:PROBABILITY QVM::WAVEFUNCTION))) ; (QVM::%SERIAL-NORM QVM::WAVEFUNCTION))) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::NORM ; (QVM::WAVEFUNCTION) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Compute the length/L2 norm of the wavefunction WAVEFUNCTION." ; (DECLARE (INLINE QVM:PROBABILITY QVM::PSUM)) ; (BLOCK QVM::NORM ; (IF (<= QVM:*QUBITS-REQUIRED-FOR-PARALLELIZATION* ; (QVM::WAVEFUNCTION-QUBITS QVM::WAVEFUNCTION)) ; (SQRT (THE # #)) ; (QVM::%SERIAL-NORM QVM::WAVEFUNCTION)))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; (QVM::PSUM #'QVM:PROBABILITY QVM::WAVEFUNCTION) ; --> BLOCK QVM:PSUM-DOTIMES LET IF FLET ; ==> ; (#:WORKER-FUNCTION8 (#:START4 #:END5) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START4) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END5)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM3 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM3 to "<return value>" ; in: DEFUN NORMALIZE-WAVEFUNCTION ; (QVM:FLONUM LENGTH) ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; (QVM:PDOTIMES (QVM::I (LENGTH QVM::WAVEFUNCTION) QVM::WAVEFUNCTION) ; (SETF (AREF QVM::WAVEFUNCTION QVM::I) ; (* QVM::INV-NORM (AREF QVM::WAVEFUNCTION QVM::I)))) ; --> IF LPARALLEL.COGNATE:PDOTIMES LET PROGN LPARALLEL.COGNATE::%PDOTIMES ; --> LAMBDA ; ==> ; #'(LAMBDA (QVM::I) ; (TAGBODY (SETF (AREF QVM::WAVEFUNCTION QVM::I) (* QVM::INV-NORM #)))) ; ; note: doing float to pointer coercion (cost 13), for: ; the second argument of CLOSURE-INIT ; (QVM::NORM QVM::WAVEFUNCTION) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM16 to "<return value>" ; in: DEFUN WF ; (QVM:CFLONUM ELT) ; --> BLOCK COERCE ; ==> ; 1 ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; in: DEFUN GAUSSIAN-RANDOM-COMPLEX ; (DEFUN QVM::GAUSSIAN-RANDOM-COMPLEX () ; "Return a complex number with Gaussian-random real and imaginary parts." ; (MULTIPLE-VALUE-BIND (QVM::RE QVM::IM) ; (ALEXANDRIA:GAUSSIAN-RANDOM) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (COMPLEX QVM::RE QVM::IM))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::GAUSSIAN-RANDOM-COMPLEX ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Return a complex number with Gaussian-random real and imaginary parts." ; (BLOCK QVM::GAUSSIAN-RANDOM-COMPLEX ; (MULTIPLE-VALUE-BIND (QVM::RE QVM::IM) ; (ALEXANDRIA:GAUSSIAN-RANDOM) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (COMPLEX QVM::RE QVM::IM)))) ; ; note: doing complex float to pointer coercion (cost 13) to "<return value>" ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/compile-gate.lisp ; in: DEFUN GENERATE-AMPLITUDE-ADDRESS-CODE ; (LDB (BYTE 1 QVM::I) QVM::FLAGS) ; ; note: doing unsigned word to integer coercion (cost 20) to "<return value>" ; in: DEFUN GENERATE-INNER-MATRIX-MULTIPLY-CODE ; (LOOP :FOR QVM::J :BELOW QVM::N ; :FOR QVM::C := (NTH QVM::J QVM::COLUMN) ; :FOR QVM::MIJ := ...) ; --> LET LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ ; ==> ; (SETQ QVM::MIJ (AREF QVM::MATRIX QVM::I QVM::J)) ; ; note: doing complex float to pointer coercion (cost 13) to MIJ ; `(* ,QVM::C ,(AREF QVM::MATRIX QVM::I QVM::J)) ; ; note: doing complex float to pointer coercion (cost 13), for: ; the third argument of LIST ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/measurement.lisp ; in: DEFMETHOD FORCE-MEASUREMENT (T T PURE-STATE T) ; (SQRT (- (QVM:FLONUM 1) QVM::EXCITED-PROBABILITY)) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (OR (COMPLEX DOUBLE-FLOAT) (DOUBLE-FLOAT 0.0d0 1.0d0)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; (/ (SQRT QVM::EXCITED-PROBABILITY)) ; ; note: doing float to pointer coercion (cost 13), for: ; the first result of inline float arithmetic ; in: DEFGENERIC GET-EXCITED-STATE-PROBABILITY ; (AREF QVM::RHO QVM::I QVM::I) ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; (REALPART (AREF QVM::RHO QVM::I QVM::I)) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (QVM:PSUM-DOTIMES (QVM::K (EXPT 2 (1- (QVM::NUM-QUBITS QVM::STATE)))) ; (LET ((QVM::I (QVM::INDEX-TO-ADDRESS QVM::K QVM::QUBIT 1))) ; (REALPART (AREF QVM::RHO QVM::I QVM::I)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM20 ; ; note: doing float to pointer coercion (cost 13) from #:SUM20 to "<return value>" ; in: DEFUN SAMPLE-WAVEFUNCTION-AS-DISTRIBUTION-IN-PARALLEL-TRULY ; (QVM:PSUM-DOTIMES (QVM::I ; (THE ALEXANDRIA:NON-NEGATIVE-FIXNUM (- QVM::MID MIN))) ; (LET ((QVM::I (THE ALEXANDRIA:NON-NEGATIVE-FIXNUM #))) ; (QVM:PROBABILITY (AREF QVM:WF QVM::I)))) ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION12 (#:START8 #:END9) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START8) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END9)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM7 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM7 to "<return value>" ; in: DEFUN SAMPLE-WAVEFUNCTION-MULTIPLE-TIMES ; (MT19937:RANDOM 1.0d0) ; --> BLOCK LET* - SCALE-FLOAT FLOAT ; ==> ; (+ (EXPT 2 52) MT19937::RANDOM-MANTISSA-BITS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 4503599627370496) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 4503599627370496) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a (INTEGER 4611686018427387904), not a (SIGNED-BYTE 64). ; in: DEFUN SAMPLE-WAVEFUNCTION-AS-DISTRIBUTION ; (AREF QVM::PS QVM::I) ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR DOUBLE-FLOAT), not a SIMPLE-ARRAY. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/matrix-operations.lisp ; in: DEFUN ORTHONORMALIZE-MATRIX! ; (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a COMPLEX. ; (SQRT CL-QUIL::N^2) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The result is a (VALUES (OR (FLOAT 0.0) (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.The result is a (VALUES (OR (FLOAT 0.0) (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &OPTIONAL). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &OPTIONAL). ; (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (LOOP :FOR CL-QUIL::I :BELOW CL-QUIL::NROWS ; :SUM (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q))) ; --> LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM17 ; (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; (/ (MAGICL:TREF CL-QUIL::M CL-QUIL::ROW CL-QUIL::COL) CL-QUIL::NORM) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (OR (FLOAT 0.0) (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT. ; The result is a (VALUES (OR FLOAT (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a T, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a (OR (FLOAT 0.0) (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT. ; The result is a (VALUES (OR FLOAT (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &OPTIONAL). ; etc. ; (* CL-QUIL::S (MAGICL:TREF CL-QUIL::Q CL-QUIL::ROW CL-QUIL::J)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (DECF (MAGICL:TREF CL-QUIL::V CL-QUIL::ROW CL-QUIL::K) ; (* CL-QUIL::S (MAGICL:TREF CL-QUIL::Q CL-QUIL::ROW CL-QUIL::J))) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/define-compiler.lisp ; in: DEFUN FIND-SHORTEST-COMPILER-PATH ; (DEFUN CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (CL-QUIL::COMPILERS CL-QUIL::TARGET-GATESET CL-QUIL::OCCURRENCE-TABLE ; &OPTIONAL CL-QUIL::QUBIT-COUNT) ; #<(SIMPLE-ARRAY CHARACTER ; (730)) Produces a path of compilers, drawn from COMPILERS, which convert all of the entries of OCCURRENCE-TABLE into "native gates" according to TARGET-GATESET. Returns an alternating chain of occurrence ta... {1210D0546F}> ; (LET ((CL-QUIL.FRONTEND:QUEUE ; (MAKE-INSTANCE 'CL-HEAP:PRIORITY-QUEUE :SORT-FUN #))) ; (FLET ((CL-QUIL::COLLECT-BINDINGS # ; #)) ; (LOOP :WITH CL-QUIL::VISITED-NODES := NIL ; :FOR (CL-QUIL::TASK . CL-QUIL::HISTORY) := (LIST ; CL-QUIL::OCCURRENCE-TABLE) :THEN (CL-HEAP:DEQUEUE ; CL-QUIL.FRONTEND:QUEUE) ; :UNLESS ...)))) ; ==> ; (SB-IMPL::%DEFUN 'CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (SB-INT:NAMED-LAMBDA CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (CL-QUIL::COMPILERS CL-QUIL::TARGET-GATESET ; CL-QUIL::OCCURRENCE-TABLE &OPTIONAL ; CL-QUIL::QUBIT-COUNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (730)) Produces a path of compilers, drawn from COMPILERS, which convert all of the entries of OCCURRENCE-TABLE into "native gates" according to TARGET-GATESET. Returns an alternating chain of occurrence ta... {1210D0546F}> ; (BLOCK CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (LET (#) ; (FLET # ; #))))) ; ; caught STYLE-WARNING: ; Call to CL-HEAP:DEQUEUE could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. ; ; caught STYLE-WARNING: ; Call to CL-HEAP:ENQUEUE could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil" "define-compiler"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compiler-hook.lisp ; in: DEFUN COMPILER-HOOK ; (DEFUN CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION ; &KEY (CL-QUIL::PROTOQUIL NIL) ; (CL-QUIL::REWIRING-TYPE ; (CL-QUIL::PROG-INITIAL-REWIRING-HEURISTIC ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (CL-QUIL::TRANSFORMS CL-QUIL::*STANDARD-PRE-COMPILATION-TRANSFORMS*) ; (CL-QUIL::DESTRUCTIVE NIL) ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; #<(SIMPLE-ARRAY CHARACTER ; (1034)) Runs a full compiler pass on a parsed-program object. ; ; Arguments: ; ; - PARSED-PROGRAM: The parsed program to compile ; ; - CHIP-SPECIFICATION: The chip specification describing the target chip ; ; Keyword... {122E3E800F}> ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: entrance.") ; (UNLESS CL-QUIL::DESTRUCTIVE ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:COPY-INSTANCE ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (WHEN ; (AND (NOT (EQL ':NAIVE CL-QUIL::REWIRING-TYPE)) ; (> ; (CL-QUIL.FRONTEND:QUBITS-NEEDED CL-QUIL.FRONTEND:PARSED-PROGRAM) ; (LENGTH #)) ; (NOT ; (CL-QUIL.FRONTEND:PARSED-PROGRAM-HAS-PRESERVE-BLOCKS-P ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Compressing qubits.") ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:COMPRESS-QUBITS ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (DOLIST (CL-QUIL::XFORM CL-QUIL::TRANSFORMS) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Applying transform ~A." ; CL-QUIL::XFORM) ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:TRANSFORM CL-QUIL::XFORM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (CL-QUIL::WARM-CHIP-SPEC-LOOKUP-CACHE CL-QUIL::CHIP-SPECIFICATION) ; (LOOP :FOR CL-QUIL::MDESC :IN (CL-QUIL.FRONTEND:PARSED-PROGRAM-MEMORY-DEFINITIONS ; CL-QUIL.FRONTEND:PARSED-PROGRAM) ; :WHEN (CL-QUIL.FRONTEND:MEMORY-DESCRIPTOR-SHARING-PARENT ; CL-QUIL::MDESC) ; :DO (ERROR ; "Programs with aliased memory are currently unsupported.")) ; (WHEN (EQL ':NAIVE CL-QUIL::REWIRING-TYPE) ; (CL-QUIL::CHECK-PROGRAM-SKIPS-DEAD-QUBITS CL-QUIL.FRONTEND:PARSED-PROGRAM ; CL-QUIL::CHIP-SPECIFICATION)) ; (WHEN CL-QUIL::PROTOQUIL ; (CL-QUIL:CHECK-PROTOQUIL-PROGRAM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; ...) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION &KEY ; (CL-QUIL::PROTOQUIL NIL) ; (CL-QUIL::REWIRING-TYPE ; (CL-QUIL::PROG-INITIAL-REWIRING-HEURISTIC ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (CL-QUIL::TRANSFORMS CL-QUIL::*STANDARD-PRE-COMPILATION-TRANSFORMS*) ; (CL-QUIL::DESTRUCTIVE NIL) ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (1034)) Runs a full compiler pass on a parsed-program object. ; ; Arguments: ; ; - PARSED-PROGRAM: The parsed program to compile ; ; - CHIP-SPECIFICATION: The chip specification describing the target chip ; ; Keyword... {122E3E800F}> ; (BLOCK CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: entrance.") ; (UNLESS CL-QUIL::DESTRUCTIVE (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (WHEN (AND (NOT #) (> # #) (NOT #)) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Compressing qubits.") ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (DOLIST (CL-QUIL::XFORM CL-QUIL::TRANSFORMS) ; (CL-QUIL.FRONTEND:FORMAT-NOISE ; "COMPILER-HOOK: Applying transform ~A." CL-QUIL::XFORM) ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (CL-QUIL::WARM-CHIP-SPEC-LOOKUP-CACHE CL-QUIL::CHIP-SPECIFICATION) ; (LOOP :FOR CL-QUIL::MDESC :IN (CL-QUIL.FRONTEND:PARSED-PROGRAM-MEMORY-DEFINITIONS ; CL-QUIL.FRONTEND:PARSED-PROGRAM) ; :WHEN (CL-QUIL.FRONTEND:MEMORY-DESCRIPTOR-SHARING-PARENT ; CL-QUIL::MDESC) ; :DO (ERROR ; "Programs with aliased memory are currently unsupported.")) ; (WHEN (EQL ':NAIVE CL-QUIL::REWIRING-TYPE) ; (CL-QUIL::CHECK-PROGRAM-SKIPS-DEAD-QUBITS ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (WHEN CL-QUIL::PROTOQUIL ; (CL-QUIL:CHECK-PROTOQUIL-PROGRAM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; (MULTIPLE-VALUE-BIND ; (CL-QUIL::INITIAL-REWIRING CL-QUIL::L2P-COMPONENTS) ; (CL-QUIL::PROG-INITIAL-REWIRING CL-QUIL.FRONTEND:PARSED-PROGRAM ; CL-QUIL::CHIP-SPECIFICATION :TYPE CL-QUIL::REWIRING-TYPE) ; (LET* (# # # #) ; (CL-QUIL::CHECK-PRESERVED-BLOCKS-SKIP-DEAD-QUBITS CL-QUIL::CFG ; CL-QUIL::CHIP-SPECIFICATION) ; (LET # ; #) ; (WHEN CL-QUIL::PROTOQUIL #) ; (LABELS # ; # ; # ; #))))) ; ; caught STYLE-WARNING: ; using the lexical binding of the symbol (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE*), not the ; dynamic binding, even though the name follows ; the usual naming convention (names like *FOO*) for special variables ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; ; caught STYLE-WARNING: ; The variable *ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil" "compiler-hook"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/chip/chip-specification.lisp ; in: DEFSTRUCT CHIP-SPECIFICATION ; (DEFSTRUCT CL-QUIL::CHIP-SPECIFICATION ; #<(SIMPLE-ARRAY CHARACTER ; (957)) Houses information about hardware components on a QPU. ; ; OBJECTS is an array. In its nth position, there is a vector of order n hardware objects on the chip. ; ; GENERIC-COMPILERS is a vector of functions... {122F0D9F3F}> ; (CL-QUIL::OBJECTS ; (MAKE-ARRAY 2 :INITIAL-CONTENTS ; (LIST (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) ; (CL-QUIL::MAKE-ADJUSTABLE-VECTOR))) ; :TYPE VECTOR) ; (CL-QUIL::GENERIC-COMPILERS (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) :TYPE VECTOR) ; (CL-QUIL::GENERIC-REWRITING-RULES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) :TYPE ; VECTOR) ; (CL-QUIL::LOOKUP-CACHE NIL :TYPE (OR NULL HASH-TABLE))) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::CHIP-SPECIFICATION {122F0D0853}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL::CHIP-SPECIFICATION-GENERIC-COMPILERS could not be inlined because the structure definition for CL-QUIL::CHIP-SPECIFICATION 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. ; in: DEFSTRUCT GATE-RECORD ; (DEFSTRUCT (CL-QUIL::GATE-RECORD (:COPIER NIL)) ; "Houses information about a hardware instantiation of a gate. ; ; FIDELITY stores the measured gate fidelity. ; ; DURATION stores the measured gate duration (in nanoseconds)." ; (CL-QUIL::FIDELITY CL-QUIL::+NEAR-PERFECT-FIDELITY+ :TYPE (OR NULL REAL)) ; (CL-QUIL::DURATION 1/100 :TYPE (OR NULL REAL))) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::GATE-RECORD {122F767E13}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::GATE-RECORD-FIDELITY and CL-QUIL::GATE-RECORD-DURATION could not be inlined because the structure definition for CL-QUIL::GATE-RECORD 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. ; in: DEFSTRUCT HARDWARE-OBJECT ; (DEFSTRUCT CL-QUIL::HARDWARE-OBJECT ; #<(SIMPLE-ARRAY CHARACTER ; (1556)) Houses information about a particular hardware object on a QPU. ; ; ORDER is a non-negative integer that counts the number of qubit subsidiaries of this hardware object. Equals (1- (length (vnth 0 (hardw... {122FA2247F}> ; (CL-QUIL::ORDER 0 :TYPE UNSIGNED-BYTE :READ-ONLY T) ; (CL-QUIL::GATE-INFORMATION (MAKE-HASH-TABLE :TEST #'EQUALP)) ; (CL-QUIL::COMPILATION-METHODS (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::PERMUTATION-GATES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::REWRITING-RULES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::CXNS ; (MAKE-ARRAY 2 :INITIAL-CONTENTS ; (LIST (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) ; (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)))) ; (CL-QUIL::MISC-DATA (MAKE-HASH-TABLE :TEST #'EQUAL) :TYPE HASH-TABLE)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::HARDWARE-OBJECT {122F9A7933}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::HARDWARE-OBJECT-COMPILATION-METHODS and CL-QUIL::HARDWARE-OBJECT-CXNS could not be inlined because the structure definition for CL-QUIL::HARDWARE-OBJECT 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-quil" "chip" "chip-specification"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compressor/compressor.lisp ; in: DEFSTRUCT PEEPHOLE-REWRITER-NODE ; (DEFSTRUCT CL-QUIL::PEEPHOLE-REWRITER-NODE ; "A node housing an instruction and attendant metadata used during peephole rewriting. Essentially a doubly-linked list." ; (CL-QUIL::INSTR NIL :TYPE CL-QUIL.FRONTEND:APPLICATION) ; (CL-QUIL::PREV NIL :TYPE (OR NULL CL-QUIL::PEEPHOLE-REWRITER-NODE)) ; (CL-QUIL::NEXT NIL :TYPE (OR NULL CL-QUIL::PEEPHOLE-REWRITER-NODE)) ; (CL-QUIL::CONTEXT NIL)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::PEEPHOLE-REWRITER-NODE {123D54DEC3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::PEEPHOLE-REWRITER-NODE-INSTR and CL-QUIL::PEEPHOLE-REWRITER-NODE-NEXT could not be inlined because the structure definition for CL-QUIL::PEEPHOLE-REWRITER-NODE 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-quil" "compressor" "compressor"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compressor/wavefunctions.lisp ; in: DEFSTRUCT ANTISOCIAL-QVM ; (DEFSTRUCT CL-QUIL::ANTISOCIAL-QVM ; #<(SIMPLE-ARRAY CHARACTER ; (658)) ANTISOCIAL-QVM instances represent partially-tracked low-correlation wavefunctions. ; ; WFS is a vector. The jth entry points to the wavefunction component in which the jth external qubit lies. ; ; INTERNAL... {123ECC638F}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {123ECCA713}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL::ANTISOCIAL-QVM-WFS could not be inlined because the structure definition for CL-QUIL::ANTISOCIAL-QVM 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-quil" "compressor" "wavefunctions"> ; ; caught ERROR: ; READ error during COMPILE-FILE: Package QUIL does not exist. Line: 12, Column: 35, File-Position: 567 Stream: #<SB-INT:FORM-TRACKING-STREAM for "file /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/tests/chip-library/suite.lisp" {120B8483A3}> Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=731855 "main thread" RUNNING {1200030003}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-quil/chip-library-tests" "suite"> Backtrace for: #<SB-THREAD:THREAD tid=731855 "main thread" RUNNING {1200030003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {120B861D93}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {120B861D93}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {120B861D93}>) 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-quil/chip-library-tests" "suite">))) 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-quil/chip-library-tests" "suite">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-quil/chip-library-tests" "suite">) 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-quil/chip-library-tests" "suite">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204636863}>) [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 {1204636863}>) [fast-method] 11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil/chip-library-tests"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil/chip-library-tests">) 13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil/chip-library-tests">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-quil/chip-library-tests") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil/chip-library-tests") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120463FFCB}> :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) {1204606FCB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil/chip-library-tests") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-quil" "cl-quil/chip-library-tests") 23: (DEPCHECK::MAGIC "cl-quil" "cl-quil/chip-library-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-QxphzeA5/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-quil" "cl-quil/chip-library-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-QxphzeA5/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-QxphzeA5/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 2 fatal ERROR conditions ; caught 1 ERROR condition ; caught 9 STYLE-WARNING conditions ; printed 54 notes
STYLE-WARNING: The new FTYPE proclamation for FSET::WB-BAG-TREE-TOTAL-COUNT(FUNCTION (FSET::WB-BAG-TREE) INTEGER)does not match the derived return type(FUNCTION ((OR LIST FSET::WB-BAG-TREE-NODE)) (VALUES NUMBER &OPTIONAL)) WARNING: redefining DEFTYPE type to be a class: FSET2:SET WARNING: redefining DEFTYPE type to be a class: FSET2:MAP WARNING: redefining DEFTYPE type to be a class: FSET2:WB-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:CH-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:SEQ WARNING: redefining DEFTYPE type to be a class: FSET2:WB-SEQ WARNING: redefining DEFTYPE type to be a class: FSET2:REPLAY-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:WB-REPLAY-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:CH-REPLAY-MAP WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/fiasco/25c6341ba51ec6b1c07a4ed18827f480f8e3fa89/fiasco-20260327-git/fiasco.asd" contains definition for system "fiasco-self-tests". Please only define "fiasco" and secondary systems with a name starting with "fiasco/" (e.g. "fiasco/test") in that file. WARNING: redefining UIOP/PACKAGE:FIND-PACKAGE* in DEFUN WARNING: redefining UIOP/PACKAGE:FIND-SYMBOL* in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-CALL in DEFUN WARNING: redefining UIOP/PACKAGE:INTERN* in DEFUN WARNING: redefining UIOP/PACKAGE:EXPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:IMPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:SHADOWING-IMPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:SHADOW* in DEFUN WARNING: redefining UIOP/PACKAGE:MAKE-SYMBOL* in DEFUN WARNING: redefining UIOP/PACKAGE:UNINTERN* in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-SHADOWING-P in DEFUN WARNING: redefining UIOP/PACKAGE:HOME-PACKAGE-P in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-PACKAGE-NAME in DEFUN WARNING: redefining UIOP/PACKAGE:STANDARD-COMMON-LISP-SYMBOL-P in DEFUN WARNING: redefining UIOP/PACKAGE:REIFY-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:UNREIFY-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:REIFY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:UNREIFY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::RECORD-FISHY in DEFUN WARNING: redefining UIOP/PACKAGE::WHEN-PACKAGE-FISHINESS in DEFMACRO WARNING: redefining UIOP/PACKAGE::NOTE-PACKAGE-FISHINESS in DEFMACRO WARNING: redefining UIOP/PACKAGE::SET-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::MAKE-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::GET-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL-IN-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:REHOME-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE-UNUSED in DEFUN WARNING: redefining UIOP/PACKAGE:DELETE-PACKAGE* in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGE-NAMES in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGES-FROM-NAMES in DEFUN WARNING: redefining UIOP/PACKAGE:FRESH-PACKAGE-NAME in DEFUN WARNING: redefining UIOP/PACKAGE:RENAME-PACKAGE-AWAY in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGE-DEFINITION-FORM in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-SHADOWING-IMPORT in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORTED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORT in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-INHERITED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-MIX in DEFUN WARNING: redefining UIOP/PACKAGE::RECYCLE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::SYMBOL-RECYCLED-P in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED-TO-USER in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORT in DEFUN WARNING: redefining UIOP/PACKAGE::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/coalton/47f26152062ebefa5aade307bd821fdffb7b03b3/coalton-20260327-git/library/math/complex.ct ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES F32 ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:F32 ; SINGLE-FLOAT) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT COALTON:F32) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::F32-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F32-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F32-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::F32-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F32-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F32-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::F32-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON F32> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES F64 ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:F64 ; DOUBLE-FLOAT) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT COALTON:F64) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::F64-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F64-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F64-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::F64-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F64-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F64-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::F64-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON F64> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES FRACTION ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:FRACTION ; RATIONAL) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT ; COALTON:FRACTION) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::FRACTION-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::FRACTION-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::FRACTION-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::FRACTION-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION ; COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::FRACTION-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::FRACTION-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::FRACTION-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON FRACTION> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES INTEGER ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:INTEGER ; INTEGER :DIVISION NIL) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT ; COALTON:INTEGER) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::INTEGER-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::INTEGER-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::INTEGER-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::INTEGER-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER ; COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::INTEGER-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::INTEGER-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::INTEGER-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON INTEGER> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: SB-EXT:LOCK-PACKAGE "COALTON/MATH/COMPLEX" ; (LOCK-PACKAGE "COALTON/MATH/COMPLEX") ; ; note: deleting unreachable code Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=731665 "main thread" RUNNING {1200030003}>: COMPILE-FILE-ERROR while compiling #<CT-FILE "coalton/library" "math" "complex"> Backtrace for: #<SB-THREAD:THREAD tid=731665 "main thread" RUNNING {1200030003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1224AF0763}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1224AF0763}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1224AF0763}>) 3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">))) 4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">) 6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 7: ((:METHOD ASDF/ACTION:PERFORM :AROUND (ASDF/LISP-ACTION:COMPILE-OP ASDF/INTERFACE::CT-FILE)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">) [fast-method] 8: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">) [fast-method] 9: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12043F22F3}>) [fast-method] 10: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 11: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12043F22F3}>) [fast-method] 12: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil-tests/foust-tests"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 13: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil-tests/foust-tests">) 14: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 15: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil-tests/foust-tests">) [fast-method] 16: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-quil-tests/foust-tests") 17: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 18: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil-tests/foust-tests") [fast-method] 19: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12043ED15B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 20: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 21: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12043AC0CB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 22: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil-tests/foust-tests") [fast-method] 23: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-quil-tests" "cl-quil-tests/foust-tests") 24: (DEPCHECK::MAGIC "cl-quil-tests" "cl-quil-tests/foust-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-aybVBGIZ/depcheck-win.txt") 25: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-quil-tests" "cl-quil-tests/foust-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-aybVBGIZ/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-aybVBGIZ/depcheck-fail.txt")) 26: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 27: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 28: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 29: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; caught 4 ERROR conditions ; printed 1 note
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 STYLE-WARNING: The new FTYPE proclamation for FSET::WB-BAG-TREE-TOTAL-COUNT(FUNCTION (FSET::WB-BAG-TREE) INTEGER)does not match the derived return type(FUNCTION ((OR LIST FSET::WB-BAG-TREE-NODE)) (VALUES NUMBER &OPTIONAL)) WARNING: redefining DEFTYPE type to be a class: FSET2:SET WARNING: redefining DEFTYPE type to be a class: FSET2:MAP WARNING: redefining DEFTYPE type to be a class: FSET2:WB-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:CH-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:SEQ WARNING: redefining DEFTYPE type to be a class: FSET2:WB-SEQ WARNING: redefining DEFTYPE type to be a class: FSET2:REPLAY-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:WB-REPLAY-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:CH-REPLAY-MAP WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/fiasco/25c6341ba51ec6b1c07a4ed18827f480f8e3fa89/fiasco-20260327-git/fiasco.asd" contains definition for system "fiasco-self-tests". Please only define "fiasco" and secondary systems with a name starting with "fiasco/" (e.g. "fiasco/test") in that file. WARNING: redefining MAGICL::SVD-LISP in DEFUN WARNING: redefining MAGICL:SCALE! in DEFUN WARNING: redefining MAGICL:.+ in DEFUN WARNING: redefining MAGICL:.- in DEFUN WARNING: redefining MAGICL:.* in DEFUN WARNING: redefining MAGICL:./ in DEFUN WARNING: redefining MAGICL:MULT in DEFUN WARNING: redefining MAGICL:EIG in DEFUN WARNING: redefining MAGICL:HERMITIAN-EIG in DEFUN WARNING: redefining MAGICL:LU in DEFUN WARNING: redefining MAGICL:LU-SOLVE in DEFUN WARNING: redefining MAGICL:INV in DEFUN WARNING: redefining MAGICL:CSD-BLOCKS in DEFUN WARNING: redefining MAGICL:SVD in DEFUN WARNING: redefining MAGICL:SCHUR in DEFUN WARNING: redefining MAGICL:QZ in DEFUN WARNING: redefining MAGICL:QL in DEFUN WARNING: redefining MAGICL:QR in DEFUN WARNING: redefining MAGICL:RQ in DEFUN WARNING: redefining MAGICL:LQ in DEFUN ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/ast.lisp ; in: DEFSTRUCT DELAYED-EXPRESSION ; (DEFSTRUCT ; (CL-QUIL.FRONTEND:DELAYED-EXPRESSION ; (:CONSTRUCTOR CL-QUIL.FRONTEND::%DELAYED-EXPRESSION)) ; #<(SIMPLE-ARRAY CHARACTER ; (335)) A representation of an arithmetic expression with fillable "slots". ; ; PARAMS is a list of values to fill the slots with. These can be formal variables, but eventually must be a list of CONSTANTs. ; ; LAMB... {1221C28E3F}> ; (CL-QUIL.FRONTEND::PARAMS NIL) ; (CL-QUIL.FRONTEND::LAMBDA-PARAMS NIL :READ-ONLY T) ; (CL-QUIL.FRONTEND::EXPRESSION NIL :READ-ONLY T)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL.FRONTEND:DELAYED-EXPRESSION {1221BCCF23}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL.FRONTEND:DELAYED-EXPRESSION-EXPRESSION could not be inlined because the structure definition for CL-QUIL.FRONTEND:DELAYED-EXPRESSION 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. ; in: DEFSTRUCT PAULI-TERM ; (DEFSTRUCT (CL-QUIL.FRONTEND:PAULI-TERM) ; #<(SIMPLE-ARRAY CHARACTER ; (642)) Records a word of Pauli operators, together with an ordered list of qubit formals on which they act, as well as a scalar prefix. This is part of the internal representation of a EXP-PAULI-SUM-GATE-DE... {1222909ABF}> ; CL-QUIL.FRONTEND::PAULI-WORD ; CL-QUIL.FRONTEND::PREFACTOR ; CL-QUIL.FRONTEND::ARGUMENTS) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL.FRONTEND:PAULI-TERM {12228F9213}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL.FRONTEND:PAULI-TERM-PAULI-WORD, CL-QUIL.FRONTEND:PAULI-TERM-PREFACTOR and CL-QUIL.FRONTEND:PAULI-TERM-ARGUMENTS could not be inlined because the structure definition for CL-QUIL.FRONTEND:PAULI-TERM 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. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/ast.lisp ; in: DEFUN EXPAND-CLASSICAL-INSTRUCTION-DEFINITIONS ; (LOOP :FOR CL-QUIL.FRONTEND::TYPE-TUPLE :IN CL-QUIL.FRONTEND::TYPES ; :FOR CL-QUIL.FRONTEND::TYPED-NAME := (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE) ; :DO (ASSERT ; (AND ; (= CL-QUIL.FRONTEND::NUM-ARGS ; (LENGTH CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (EVERY #'CL-QUIL.FRONTEND::VALID-TYPE-SYMBOL-P ; CL-QUIL.FRONTEND::TYPE-TUPLE))) ; :COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD ; ==> ; (LET* ((#:HEAD11 (SB-KERNEL:UNALIGNED-DX-CONS NIL)) ; (#:TAIL12 #:HEAD11) ; (CL-QUIL.FRONTEND::TYPED-NAMES NIL)) ; (DECLARE (DYNAMIC-EXTENT #:HEAD11) ; (SB-C::NO-DEBUG #:HEAD11 #:TAIL12) ; (LIST CL-QUIL.FRONTEND::TYPED-NAMES)) ; (SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD (#S(SB-LOOP::LOOP-COLLECTOR ; :NAME NIL ; :CLASS LIST ; :HISTORY (APPEND) ; :TEMPVARS (#:HEAD13 #:TAIL14) ; :SPECIFIED-TYPE NIL ; :DTYPE LIST ; :DATA NIL) ; #:HEAD13 #:TAIL14) ; (TAGBODY ; SB-LOOP::NEXT-LOOP ; (WHEN (ENDP #:L10) (GO SB-LOOP::END-LOOP)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPE-TUPLE (CAR #:L10)) ; (SB-LOOP::LOOP-DESETQ #:L10 (CDR #:L10)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPED-NAME ; (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (ASSERT (AND # #)) ; (SB-LOOP::LOOP-COLLECT-RPLACD ; (#:HEAD11 #:TAIL12 CL-QUIL.FRONTEND::TYPED-NAMES) ; (LIST CL-QUIL.FRONTEND::TYPED-NAME)) ; (SB-LOOP::LOOP-COLLECT-RPLACD (#:HEAD13 #:TAIL14) (LIST `# `# `# `#)) ; (GO SB-LOOP::NEXT-LOOP) ; SB-LOOP::END-LOOP ; (RETURN-FROM NIL (SB-LOOP::LOOP-COLLECT-ANSWER #:HEAD13))))) ; ; caught STYLE-WARNING: ; The variable TYPED-NAMES is assigned but never read. ; in: DEFUN EXPAND-CLASSICAL-INSTRUCTION-DEFINITIONS ; (LOOP :FOR CL-QUIL.FRONTEND::TYPE-TUPLE :IN CL-QUIL.FRONTEND::TYPES ; :FOR CL-QUIL.FRONTEND::TYPED-NAME := (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE) ; :DO (ASSERT ; (AND ; (= CL-QUIL.FRONTEND::NUM-ARGS ; (LENGTH CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (EVERY #'CL-QUIL.FRONTEND::VALID-TYPE-SYMBOL-P ; CL-QUIL.FRONTEND::TYPE-TUPLE))) ; :COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD ; ==> ; (LET* ((#:HEAD79 (SB-KERNEL:UNALIGNED-DX-CONS NIL)) ; (#:TAIL80 #:HEAD79) ; (CL-QUIL.FRONTEND::TYPED-NAMES NIL)) ; (DECLARE (DYNAMIC-EXTENT #:HEAD79) ; (SB-C::NO-DEBUG #:HEAD79 #:TAIL80) ; (LIST CL-QUIL.FRONTEND::TYPED-NAMES)) ; (SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD (#S(SB-LOOP::LOOP-COLLECTOR ; :NAME NIL ; :CLASS LIST ; :HISTORY (APPEND) ; :TEMPVARS (#:HEAD81 #:TAIL82) ; :SPECIFIED-TYPE NIL ; :DTYPE LIST ; :DATA NIL) ; #:HEAD81 #:TAIL82) ; (TAGBODY ; SB-LOOP::NEXT-LOOP ; (WHEN (ENDP #:L78) (GO SB-LOOP::END-LOOP)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPE-TUPLE (CAR #:L78)) ; (SB-LOOP::LOOP-DESETQ #:L78 (CDR #:L78)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPED-NAME ; (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (ASSERT (AND # #)) ; (SB-LOOP::LOOP-COLLECT-RPLACD ; (#:HEAD79 #:TAIL80 CL-QUIL.FRONTEND::TYPED-NAMES) ; (LIST CL-QUIL.FRONTEND::TYPED-NAME)) ; (SB-LOOP::LOOP-COLLECT-RPLACD (#:HEAD81 #:TAIL82) (LIST `# `# `# `#)) ; (GO SB-LOOP::NEXT-LOOP) ; SB-LOOP::END-LOOP ; (RETURN-FROM NIL (SB-LOOP::LOOP-COLLECT-ANSWER #:HEAD81))))) ; ; caught STYLE-WARNING: ; The variable TYPED-NAMES is assigned but never read. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil/frontend" "ast"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/parser.lisp ; in: DEFSTRUCT TOKEN ; (DEFSTRUCT ; (CL-QUIL.FRONTEND:TOKEN ; (:CONSTRUCTOR CL-QUIL.FRONTEND:TOK ; (TYPE &OPTIONAL CL-QUIL.FRONTEND::PAYLOAD ; (CL-QUIL.FRONTEND::LINE CL-QUIL.FRONTEND::*LINE-NUMBER*) ; (PATHNAME CL-QUIL.FRONTEND::*CURRENT-FILE*)))) ; "A lexical token." ; (CL-QUIL.FRONTEND::LINE NIL :TYPE (OR NULL (INTEGER 1)) :READ-ONLY T) ; (PATHNAME NIL :TYPE (OR NULL STRING PATHNAME) :READ-ONLY T) ; (TYPE NIL :TYPE SYMBOL :READ-ONLY T) ; (CL-QUIL.FRONTEND::PAYLOAD NIL :READ-ONLY T)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL.FRONTEND:TOKEN {1233CD4973}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL.FRONTEND:TOKEN-TYPE and CL-QUIL.FRONTEND:TOKEN-PAYLOAD could not be inlined because the structure definition for CL-QUIL.FRONTEND:TOKEN 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-quil/frontend" "parser"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/clifford/stabilizer.lisp ; in: ; DECLAIM (INLINE TABLEAU-QUBITS TABLEAU-X (SETF TABLEAU-X) TABLEAU-Z (SETF TABLEAU-Z) TABLEAU-R (SETF TABLEAU-R) TABLEAU-SCRATCH (SETF TABLEAU-SCRATCH)) ; (DECLAIM ; (INLINE CL-QUIL.CLIFFORD::TABLEAU-QUBITS CL-QUIL.CLIFFORD::TABLEAU-X ; (SETF CL-QUIL.CLIFFORD::TABLEAU-X) CL-QUIL.CLIFFORD::TABLEAU-Z ; (SETF CL-QUIL.CLIFFORD::TABLEAU-Z) CL-QUIL.CLIFFORD::TABLEAU-R ; (SETF CL-QUIL.CLIFFORD::TABLEAU-R) CL-QUIL.CLIFFORD::TABLEAU-SCRATCH ; (SETF CL-QUIL.CLIFFORD::TABLEAU-SCRATCH))) ; ==> ; (SB-C::%PROCLAIM ; '(INLINE CL-QUIL.CLIFFORD::TABLEAU-QUBITS CL-QUIL.CLIFFORD::TABLEAU-X ; (SETF CL-QUIL.CLIFFORD::TABLEAU-X) CL-QUIL.CLIFFORD::TABLEAU-Z ; (SETF CL-QUIL.CLIFFORD::TABLEAU-Z) CL-QUIL.CLIFFORD::TABLEAU-R ; (SETF CL-QUIL.CLIFFORD::TABLEAU-R) CL-QUIL.CLIFFORD::TABLEAU-SCRATCH ; (SETF CL-QUIL.CLIFFORD::TABLEAU-SCRATCH)) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Proclaiming CL-QUIL.CLIFFORD::TABLEAU-QUBITS to be INLINE, but 1 call to it was previously compiled. A declaration of NOTINLINE at the call site will eliminate this warning, as will proclaiming and defining the function before its first potential use. ; in: DEFUN TABLEAU-MEASURE ; (DEFUN CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (CL-QUIL.CLIFFORD::TAB CL-QUIL.CLIFFORD::Q) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0)) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU CL-QUIL.CLIFFORD::TAB) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU-INDEX CL-QUIL.CLIFFORD::Q)) ; (LET* ((CL-QUIL.CLIFFORD::N ; (CL-QUIL.CLIFFORD::TABLEAU-QUBITS CL-QUIL.CLIFFORD::TAB)) ; (CL-QUIL.CLIFFORD::P ; (LOOP :FOR CL-QUIL.CLIFFORD::P :BELOW CL-QUIL.CLIFFORD::N ; :WHEN # ; :DO # ; :FINALLY #))) ; (DECLARE ; (TYPE (OR CL-QUIL.CLIFFORD::TABLEAU-INDEX NULL) CL-QUIL.CLIFFORD::P) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU-INDEX CL-QUIL.CLIFFORD::N)) ; (COND ; (CL-QUIL.CLIFFORD::P ; (CL-QUIL.CLIFFORD::TABLEAU-COPY-ROW CL-QUIL.CLIFFORD::TAB ; CL-QUIL.CLIFFORD::P #) ; (CL-QUIL.CLIFFORD::TABLEAU-SET-ROW-TO-PAULI CL-QUIL.CLIFFORD::TAB # #) ; (SETF #) (DOTIMES # #) (VALUES # NIL)) ; (T (CL-QUIL.CLIFFORD::TABLEAU-CLEAR-SCRATCH CL-QUIL.CLIFFORD::TAB) ; (LET # ; # ; # ; #))))) ; ==> ; (SB-IMPL::%DEFUN 'CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (SB-INT:NAMED-LAMBDA CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (CL-QUIL.CLIFFORD::TAB CL-QUIL.CLIFFORD::Q) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) ; (COMPILATION-SPEED 0)) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU CL-QUIL.CLIFFORD::TAB) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU-INDEX ; CL-QUIL.CLIFFORD::Q)) ; (BLOCK CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (LET* (# #) ; (DECLARE # ; #) ; (COND # #))))) ; ; caught STYLE-WARNING: ; Call to CL-QUIL.CLIFFORD::TABLEAU-COPY-ROW could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil/frontend" "clifford" "stabilizer"> WARNING: redefining CL-QUIL.FRONTEND::PRINT-PARSED-PROGRAM-GENERIC in DEFGENERIC ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/linear-algebra.lisp ; in: DEFUN-INLINABLE PSUM ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I)) ; ; note: doing complex float to pointer coercion (cost 13) ; (QVM:PSUM-DOTIMES (QVM::I (LENGTH QVM::STATE)) ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I)) ; ; note: doing complex float to pointer coercion (cost 13) ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/wavefunction.lisp ; in: DEFUN PROBABILITY ; (DEFUN QVM:PROBABILITY (QVM::AMPLITUDE) ; "Convert an amplitude into a probability." ; (DECLARE (TYPE QVM:CFLONUM QVM::AMPLITUDE)) ; (LET ((QVM::RE (REALPART QVM::AMPLITUDE)) ; (QVM::IM (IMAGPART QVM::AMPLITUDE))) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (+ (* QVM::RE QVM::RE) (* QVM::IM QVM::IM)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM:PROBABILITY ; (QVM::AMPLITUDE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Convert an amplitude into a probability." ; (DECLARE (TYPE QVM:CFLONUM QVM::AMPLITUDE)) ; (BLOCK QVM:PROBABILITY ; (LET ((QVM::RE #) (QVM::IM #)) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (+ (* QVM::RE QVM::RE) (* QVM::IM QVM::IM))))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; in: DEFUN-INLINABLE WAVEFUNCTION-GROUND-STATE-PROBABILITY ; (QVM:PSUM-DOTIMES (QVM::I (QVM::HALF (LENGTH QVM::WAVEFUNCTION))) ; (LET ((QVM::ADDRESS (QVM::INJECT-BIT QVM::I QVM::QUBIT))) ; (DECLARE (TYPE QVM:AMPLITUDE-ADDRESS QVM::ADDRESS)) ; (QVM:PROBABILITY (AREF QVM::WAVEFUNCTION QVM::ADDRESS)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; --> IF FLET LET* LOOP BLOCK LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY ; --> RETURN-FROM ; ==> ; #:SUM13 ; ; note: doing float to pointer coercion (cost 13) from #:SUM13 to "<return value>" ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION6 (#:START2 #:END3) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START2) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END3)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM1 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM1 to "<return value>" ; in: DEFUN-INLINABLE WAVEFUNCTION-EXCITED-STATE-PROBABILITY ; (QVM:PSUM-DOTIMES (QVM::I (QVM::HALF (LENGTH QVM::WAVEFUNCTION))) ; (LET ((QVM::ADDRESS (QVM::INDEX-TO-ADDRESS QVM::I QVM::QUBIT 1))) ; (DECLARE (TYPE QVM:AMPLITUDE-ADDRESS QVM::ADDRESS)) ; (QVM:PROBABILITY (AREF QVM::WAVEFUNCTION QVM::ADDRESS)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; --> IF FLET LET* LOOP BLOCK LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY ; --> RETURN-FROM ; ==> ; #:SUM13 ; ; note: doing float to pointer coercion (cost 13) from #:SUM13 to "<return value>" ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION6 (#:START2 #:END3) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START2) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END3)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM1 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM1 to "<return value>" ; in: DEFUN-INLINABLE APPLY-MATRIX-OPERATOR ; (APPLY QVM::KERNEL QVM::MATRIX QVM::WAVEFUNCTION (COERCE QVM::QUBITS 'LIST)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: KERNEL is not known to be a function ; in: DEFUN-INLINABLE %SERIAL-NORM ; (QVM:DEFUN-INLINABLE QVM::%SERIAL-NORM ; (QVM::WAVEFUNCTION) ; (LOOP :WITH QVM::S :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :BELOW (LENGTH QVM::WAVEFUNCTION) ; :DO ...)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::%SERIAL-NORM ; (QVM::WAVEFUNCTION) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK QVM::%SERIAL-NORM ; (LOOP :WITH QVM::S :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :BELOW (LENGTH QVM::WAVEFUNCTION) ; :DO ...))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; in: DEFUN-INLINABLE NORM ; (QVM:DEFUN-INLINABLE QVM::NORM ; (QVM::WAVEFUNCTION) ; "Compute the length/L2 norm of the wavefunction WAVEFUNCTION." ; (DECLARE (INLINE QVM:PROBABILITY QVM::PSUM)) ; (IF (<= QVM:*QUBITS-REQUIRED-FOR-PARALLELIZATION* ; (QVM::WAVEFUNCTION-QUBITS QVM::WAVEFUNCTION)) ; (SQRT ; (THE (QVM:FLONUM 0) (QVM::PSUM #'QVM:PROBABILITY QVM::WAVEFUNCTION))) ; (QVM::%SERIAL-NORM QVM::WAVEFUNCTION))) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::NORM ; (QVM::WAVEFUNCTION) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Compute the length/L2 norm of the wavefunction WAVEFUNCTION." ; (DECLARE (INLINE QVM:PROBABILITY QVM::PSUM)) ; (BLOCK QVM::NORM ; (IF (<= QVM:*QUBITS-REQUIRED-FOR-PARALLELIZATION* ; (QVM::WAVEFUNCTION-QUBITS QVM::WAVEFUNCTION)) ; (SQRT (THE # #)) ; (QVM::%SERIAL-NORM QVM::WAVEFUNCTION)))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; (QVM::PSUM #'QVM:PROBABILITY QVM::WAVEFUNCTION) ; --> BLOCK QVM:PSUM-DOTIMES LET IF FLET ; ==> ; (#:WORKER-FUNCTION8 (#:START4 #:END5) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START4) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END5)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM3 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM3 to "<return value>" ; in: DEFUN NORMALIZE-WAVEFUNCTION ; (QVM:FLONUM LENGTH) ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; (QVM:PDOTIMES (QVM::I (LENGTH QVM::WAVEFUNCTION) QVM::WAVEFUNCTION) ; (SETF (AREF QVM::WAVEFUNCTION QVM::I) ; (* QVM::INV-NORM (AREF QVM::WAVEFUNCTION QVM::I)))) ; --> IF LPARALLEL.COGNATE:PDOTIMES LET PROGN LPARALLEL.COGNATE::%PDOTIMES ; --> LAMBDA ; ==> ; #'(LAMBDA (QVM::I) ; (TAGBODY (SETF (AREF QVM::WAVEFUNCTION QVM::I) (* QVM::INV-NORM #)))) ; ; note: doing float to pointer coercion (cost 13), for: ; the second argument of CLOSURE-INIT ; (QVM::NORM QVM::WAVEFUNCTION) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM16 to "<return value>" ; in: DEFUN WF ; (QVM:CFLONUM ELT) ; --> BLOCK COERCE ; ==> ; 1 ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; in: DEFUN GAUSSIAN-RANDOM-COMPLEX ; (DEFUN QVM::GAUSSIAN-RANDOM-COMPLEX () ; "Return a complex number with Gaussian-random real and imaginary parts." ; (MULTIPLE-VALUE-BIND (QVM::RE QVM::IM) ; (ALEXANDRIA:GAUSSIAN-RANDOM) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (COMPLEX QVM::RE QVM::IM))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::GAUSSIAN-RANDOM-COMPLEX ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Return a complex number with Gaussian-random real and imaginary parts." ; (BLOCK QVM::GAUSSIAN-RANDOM-COMPLEX ; (MULTIPLE-VALUE-BIND (QVM::RE QVM::IM) ; (ALEXANDRIA:GAUSSIAN-RANDOM) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (COMPLEX QVM::RE QVM::IM)))) ; ; note: doing complex float to pointer coercion (cost 13) to "<return value>" ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/compile-gate.lisp ; in: DEFUN GENERATE-AMPLITUDE-ADDRESS-CODE ; (LDB (BYTE 1 QVM::I) QVM::FLAGS) ; ; note: doing unsigned word to integer coercion (cost 20) to "<return value>" ; in: DEFUN GENERATE-INNER-MATRIX-MULTIPLY-CODE ; (LOOP :FOR QVM::J :BELOW QVM::N ; :FOR QVM::C := (NTH QVM::J QVM::COLUMN) ; :FOR QVM::MIJ := ...) ; --> LET LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ ; ==> ; (SETQ QVM::MIJ (AREF QVM::MATRIX QVM::I QVM::J)) ; ; note: doing complex float to pointer coercion (cost 13) to MIJ ; `(* ,QVM::C ,(AREF QVM::MATRIX QVM::I QVM::J)) ; ; note: doing complex float to pointer coercion (cost 13), for: ; the third argument of LIST ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/measurement.lisp ; in: DEFMETHOD FORCE-MEASUREMENT (T T PURE-STATE T) ; (SQRT (- (QVM:FLONUM 1) QVM::EXCITED-PROBABILITY)) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (OR (COMPLEX DOUBLE-FLOAT) (DOUBLE-FLOAT 0.0d0 1.0d0)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; (/ (SQRT QVM::EXCITED-PROBABILITY)) ; ; note: doing float to pointer coercion (cost 13), for: ; the first result of inline float arithmetic ; in: DEFGENERIC GET-EXCITED-STATE-PROBABILITY ; (AREF QVM::RHO QVM::I QVM::I) ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; (REALPART (AREF QVM::RHO QVM::I QVM::I)) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (QVM:PSUM-DOTIMES (QVM::K (EXPT 2 (1- (QVM::NUM-QUBITS QVM::STATE)))) ; (LET ((QVM::I (QVM::INDEX-TO-ADDRESS QVM::K QVM::QUBIT 1))) ; (REALPART (AREF QVM::RHO QVM::I QVM::I)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM20 ; ; note: doing float to pointer coercion (cost 13) from #:SUM20 to "<return value>" ; in: DEFUN SAMPLE-WAVEFUNCTION-AS-DISTRIBUTION-IN-PARALLEL-TRULY ; (QVM:PSUM-DOTIMES (QVM::I ; (THE ALEXANDRIA:NON-NEGATIVE-FIXNUM (- QVM::MID MIN))) ; (LET ((QVM::I (THE ALEXANDRIA:NON-NEGATIVE-FIXNUM #))) ; (QVM:PROBABILITY (AREF QVM:WF QVM::I)))) ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION12 (#:START8 #:END9) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START8) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END9)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM7 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM7 to "<return value>" ; in: DEFUN SAMPLE-WAVEFUNCTION-MULTIPLE-TIMES ; (MT19937:RANDOM 1.0d0) ; --> BLOCK LET* - SCALE-FLOAT FLOAT ; ==> ; (+ (EXPT 2 52) MT19937::RANDOM-MANTISSA-BITS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 4503599627370496) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 4503599627370496) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a (INTEGER 4611686018427387904), not a (SIGNED-BYTE 64). ; in: DEFUN SAMPLE-WAVEFUNCTION-AS-DISTRIBUTION ; (AREF QVM::PS QVM::I) ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR DOUBLE-FLOAT), not a SIMPLE-ARRAY. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/matrix-operations.lisp ; in: DEFUN ORTHONORMALIZE-MATRIX! ; (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a COMPLEX. ; (SQRT CL-QUIL::N^2) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The result is a (VALUES (OR (FLOAT 0.0) (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.The result is a (VALUES (OR (FLOAT 0.0) (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &OPTIONAL). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &OPTIONAL). ; (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (LOOP :FOR CL-QUIL::I :BELOW CL-QUIL::NROWS ; :SUM (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q))) ; --> LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM17 ; (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; (/ (MAGICL:TREF CL-QUIL::M CL-QUIL::ROW CL-QUIL::COL) CL-QUIL::NORM) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (OR (FLOAT 0.0) (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT. ; The result is a (VALUES (OR FLOAT (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a T, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a (OR (FLOAT 0.0) (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT. ; The result is a (VALUES (OR FLOAT (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &OPTIONAL). ; etc. ; (* CL-QUIL::S (MAGICL:TREF CL-QUIL::Q CL-QUIL::ROW CL-QUIL::J)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (DECF (MAGICL:TREF CL-QUIL::V CL-QUIL::ROW CL-QUIL::K) ; (* CL-QUIL::S (MAGICL:TREF CL-QUIL::Q CL-QUIL::ROW CL-QUIL::J))) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/define-compiler.lisp ; in: DEFUN FIND-SHORTEST-COMPILER-PATH ; (DEFUN CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (CL-QUIL::COMPILERS CL-QUIL::TARGET-GATESET CL-QUIL::OCCURRENCE-TABLE ; &OPTIONAL CL-QUIL::QUBIT-COUNT) ; #<(SIMPLE-ARRAY CHARACTER ; (730)) Produces a path of compilers, drawn from COMPILERS, which convert all of the entries of OCCURRENCE-TABLE into "native gates" according to TARGET-GATESET. Returns an alternating chain of occurrence ta... {12156D689F}> ; (LET ((CL-QUIL.FRONTEND:QUEUE ; (MAKE-INSTANCE 'CL-HEAP:PRIORITY-QUEUE :SORT-FUN #))) ; (FLET ((CL-QUIL::COLLECT-BINDINGS # ; #)) ; (LOOP :WITH CL-QUIL::VISITED-NODES := NIL ; :FOR (CL-QUIL::TASK . CL-QUIL::HISTORY) := (LIST ; CL-QUIL::OCCURRENCE-TABLE) :THEN (CL-HEAP:DEQUEUE ; CL-QUIL.FRONTEND:QUEUE) ; :UNLESS ...)))) ; ==> ; (SB-IMPL::%DEFUN 'CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (SB-INT:NAMED-LAMBDA CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (CL-QUIL::COMPILERS CL-QUIL::TARGET-GATESET ; CL-QUIL::OCCURRENCE-TABLE &OPTIONAL ; CL-QUIL::QUBIT-COUNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (730)) Produces a path of compilers, drawn from COMPILERS, which convert all of the entries of OCCURRENCE-TABLE into "native gates" according to TARGET-GATESET. Returns an alternating chain of occurrence ta... {12156D689F}> ; (BLOCK CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (LET (#) ; (FLET # ; #))))) ; ; caught STYLE-WARNING: ; Call to CL-HEAP:DEQUEUE could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. ; ; caught STYLE-WARNING: ; Call to CL-HEAP:ENQUEUE could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil" "define-compiler"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compiler-hook.lisp ; in: DEFUN COMPILER-HOOK ; (DEFUN CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION ; &KEY (CL-QUIL::PROTOQUIL NIL) ; (CL-QUIL::REWIRING-TYPE ; (CL-QUIL::PROG-INITIAL-REWIRING-HEURISTIC ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (CL-QUIL::TRANSFORMS CL-QUIL::*STANDARD-PRE-COMPILATION-TRANSFORMS*) ; (CL-QUIL::DESTRUCTIVE NIL) ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; #<(SIMPLE-ARRAY CHARACTER ; (1034)) Runs a full compiler pass on a parsed-program object. ; ; Arguments: ; ; - PARSED-PROGRAM: The parsed program to compile ; ; - CHIP-SPECIFICATION: The chip specification describing the target chip ; ; Keyword... {1232F1000F}> ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: entrance.") ; (UNLESS CL-QUIL::DESTRUCTIVE ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:COPY-INSTANCE ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (WHEN ; (AND (NOT (EQL ':NAIVE CL-QUIL::REWIRING-TYPE)) ; (> ; (CL-QUIL.FRONTEND:QUBITS-NEEDED CL-QUIL.FRONTEND:PARSED-PROGRAM) ; (LENGTH #)) ; (NOT ; (CL-QUIL.FRONTEND:PARSED-PROGRAM-HAS-PRESERVE-BLOCKS-P ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Compressing qubits.") ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:COMPRESS-QUBITS ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (DOLIST (CL-QUIL::XFORM CL-QUIL::TRANSFORMS) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Applying transform ~A." ; CL-QUIL::XFORM) ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:TRANSFORM CL-QUIL::XFORM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (CL-QUIL::WARM-CHIP-SPEC-LOOKUP-CACHE CL-QUIL::CHIP-SPECIFICATION) ; (LOOP :FOR CL-QUIL::MDESC :IN (CL-QUIL.FRONTEND:PARSED-PROGRAM-MEMORY-DEFINITIONS ; CL-QUIL.FRONTEND:PARSED-PROGRAM) ; :WHEN (CL-QUIL.FRONTEND:MEMORY-DESCRIPTOR-SHARING-PARENT ; CL-QUIL::MDESC) ; :DO (ERROR ; "Programs with aliased memory are currently unsupported.")) ; (WHEN (EQL ':NAIVE CL-QUIL::REWIRING-TYPE) ; (CL-QUIL::CHECK-PROGRAM-SKIPS-DEAD-QUBITS CL-QUIL.FRONTEND:PARSED-PROGRAM ; CL-QUIL::CHIP-SPECIFICATION)) ; (WHEN CL-QUIL::PROTOQUIL ; (CL-QUIL:CHECK-PROTOQUIL-PROGRAM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; ...) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION &KEY ; (CL-QUIL::PROTOQUIL NIL) ; (CL-QUIL::REWIRING-TYPE ; (CL-QUIL::PROG-INITIAL-REWIRING-HEURISTIC ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (CL-QUIL::TRANSFORMS CL-QUIL::*STANDARD-PRE-COMPILATION-TRANSFORMS*) ; (CL-QUIL::DESTRUCTIVE NIL) ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (1034)) Runs a full compiler pass on a parsed-program object. ; ; Arguments: ; ; - PARSED-PROGRAM: The parsed program to compile ; ; - CHIP-SPECIFICATION: The chip specification describing the target chip ; ; Keyword... {1232F1000F}> ; (BLOCK CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: entrance.") ; (UNLESS CL-QUIL::DESTRUCTIVE (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (WHEN (AND (NOT #) (> # #) (NOT #)) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Compressing qubits.") ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (DOLIST (CL-QUIL::XFORM CL-QUIL::TRANSFORMS) ; (CL-QUIL.FRONTEND:FORMAT-NOISE ; "COMPILER-HOOK: Applying transform ~A." CL-QUIL::XFORM) ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (CL-QUIL::WARM-CHIP-SPEC-LOOKUP-CACHE CL-QUIL::CHIP-SPECIFICATION) ; (LOOP :FOR CL-QUIL::MDESC :IN (CL-QUIL.FRONTEND:PARSED-PROGRAM-MEMORY-DEFINITIONS ; CL-QUIL.FRONTEND:PARSED-PROGRAM) ; :WHEN (CL-QUIL.FRONTEND:MEMORY-DESCRIPTOR-SHARING-PARENT ; CL-QUIL::MDESC) ; :DO (ERROR ; "Programs with aliased memory are currently unsupported.")) ; (WHEN (EQL ':NAIVE CL-QUIL::REWIRING-TYPE) ; (CL-QUIL::CHECK-PROGRAM-SKIPS-DEAD-QUBITS ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (WHEN CL-QUIL::PROTOQUIL ; (CL-QUIL:CHECK-PROTOQUIL-PROGRAM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; (MULTIPLE-VALUE-BIND ; (CL-QUIL::INITIAL-REWIRING CL-QUIL::L2P-COMPONENTS) ; (CL-QUIL::PROG-INITIAL-REWIRING CL-QUIL.FRONTEND:PARSED-PROGRAM ; CL-QUIL::CHIP-SPECIFICATION :TYPE CL-QUIL::REWIRING-TYPE) ; (LET* (# # # #) ; (CL-QUIL::CHECK-PRESERVED-BLOCKS-SKIP-DEAD-QUBITS CL-QUIL::CFG ; CL-QUIL::CHIP-SPECIFICATION) ; (LET # ; #) ; (WHEN CL-QUIL::PROTOQUIL #) ; (LABELS # ; # ; # ; #))))) ; ; caught STYLE-WARNING: ; using the lexical binding of the symbol (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE*), not the ; dynamic binding, even though the name follows ; the usual naming convention (names like *FOO*) for special variables ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; ; caught STYLE-WARNING: ; The variable *ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil" "compiler-hook"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/chip/chip-specification.lisp ; in: DEFSTRUCT CHIP-SPECIFICATION ; (DEFSTRUCT CL-QUIL::CHIP-SPECIFICATION ; #<(SIMPLE-ARRAY CHARACTER ; (957)) Houses information about hardware components on a QPU. ; ; OBJECTS is an array. In its nth position, there is a vector of order n hardware objects on the chip. ; ; GENERIC-COMPILERS is a vector of functions... {1233BF1F3F}> ; (CL-QUIL::OBJECTS ; (MAKE-ARRAY 2 :INITIAL-CONTENTS ; (LIST (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) ; (CL-QUIL::MAKE-ADJUSTABLE-VECTOR))) ; :TYPE VECTOR) ; (CL-QUIL::GENERIC-COMPILERS (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) :TYPE VECTOR) ; (CL-QUIL::GENERIC-REWRITING-RULES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) :TYPE ; VECTOR) ; (CL-QUIL::LOOKUP-CACHE NIL :TYPE (OR NULL HASH-TABLE))) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::CHIP-SPECIFICATION {1233BE8623}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL::CHIP-SPECIFICATION-GENERIC-COMPILERS could not be inlined because the structure definition for CL-QUIL::CHIP-SPECIFICATION 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. ; in: DEFSTRUCT GATE-RECORD ; (DEFSTRUCT (CL-QUIL::GATE-RECORD (:COPIER NIL)) ; "Houses information about a hardware instantiation of a gate. ; ; FIDELITY stores the measured gate fidelity. ; ; DURATION stores the measured gate duration (in nanoseconds)." ; (CL-QUIL::FIDELITY CL-QUIL::+NEAR-PERFECT-FIDELITY+ :TYPE (OR NULL REAL)) ; (CL-QUIL::DURATION 1/100 :TYPE (OR NULL REAL))) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::GATE-RECORD {1234287BC3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::GATE-RECORD-FIDELITY and CL-QUIL::GATE-RECORD-DURATION could not be inlined because the structure definition for CL-QUIL::GATE-RECORD 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. ; in: DEFSTRUCT HARDWARE-OBJECT ; (DEFSTRUCT CL-QUIL::HARDWARE-OBJECT ; #<(SIMPLE-ARRAY CHARACTER ; (1556)) Houses information about a particular hardware object on a QPU. ; ; ORDER is a non-negative integer that counts the number of qubit subsidiaries of this hardware object. Equals (1- (length (vnth 0 (hardw... {123454182F}> ; (CL-QUIL::ORDER 0 :TYPE UNSIGNED-BYTE :READ-ONLY T) ; (CL-QUIL::GATE-INFORMATION (MAKE-HASH-TABLE :TEST #'EQUALP)) ; (CL-QUIL::COMPILATION-METHODS (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::PERMUTATION-GATES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::REWRITING-RULES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::CXNS ; (MAKE-ARRAY 2 :INITIAL-CONTENTS ; (LIST (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) ; (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)))) ; (CL-QUIL::MISC-DATA (MAKE-HASH-TABLE :TEST #'EQUAL) :TYPE HASH-TABLE)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::HARDWARE-OBJECT {12344E6693}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::HARDWARE-OBJECT-COMPILATION-METHODS and CL-QUIL::HARDWARE-OBJECT-CXNS could not be inlined because the structure definition for CL-QUIL::HARDWARE-OBJECT 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-quil" "chip" "chip-specification"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compressor/compressor.lisp ; in: DEFSTRUCT PEEPHOLE-REWRITER-NODE ; (DEFSTRUCT CL-QUIL::PEEPHOLE-REWRITER-NODE ; "A node housing an instruction and attendant metadata used during peephole rewriting. Essentially a doubly-linked list." ; (CL-QUIL::INSTR NIL :TYPE CL-QUIL.FRONTEND:APPLICATION) ; (CL-QUIL::PREV NIL :TYPE (OR NULL CL-QUIL::PEEPHOLE-REWRITER-NODE)) ; (CL-QUIL::NEXT NIL :TYPE (OR NULL CL-QUIL::PEEPHOLE-REWRITER-NODE)) ; (CL-QUIL::CONTEXT NIL)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::PEEPHOLE-REWRITER-NODE {1206D82403}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::PEEPHOLE-REWRITER-NODE-INSTR and CL-QUIL::PEEPHOLE-REWRITER-NODE-NEXT could not be inlined because the structure definition for CL-QUIL::PEEPHOLE-REWRITER-NODE 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-quil" "compressor" "compressor"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compressor/wavefunctions.lisp ; in: DEFSTRUCT ANTISOCIAL-QVM ; (DEFSTRUCT CL-QUIL::ANTISOCIAL-QVM ; #<(SIMPLE-ARRAY CHARACTER ; (658)) ANTISOCIAL-QVM instances represent partially-tracked low-correlation wavefunctions. ; ; WFS is a vector. The jth entry points to the wavefunction component in which the jth external qubit lies. ; ; INTERNAL... {12084973CF}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {1208464973}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL::ANTISOCIAL-QVM-WFS could not be inlined because the structure definition for CL-QUIL::ANTISOCIAL-QVM 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-quil" "compressor" "wavefunctions"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/coalton/47f26152062ebefa5aade307bd821fdffb7b03b3/coalton-20260327-git/library/math/complex.ct ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES F32 ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:F32 ; SINGLE-FLOAT) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT COALTON:F32) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::F32-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F32-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F32-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::F32-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F32-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F32-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::F32-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON F32> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES F64 ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:F64 ; DOUBLE-FLOAT) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT COALTON:F64) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::F64-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F64-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F64-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::F64-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F64-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F64-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::F64-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON F64> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES FRACTION ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:FRACTION ; RATIONAL) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT ; COALTON:FRACTION) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::FRACTION-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::FRACTION-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::FRACTION-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::FRACTION-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION ; COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::FRACTION-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::FRACTION-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::FRACTION-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON FRACTION> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES INTEGER ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:INTEGER ; INTEGER :DIVISION NIL) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT ; COALTON:INTEGER) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::INTEGER-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::INTEGER-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::INTEGER-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::INTEGER-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER ; COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::INTEGER-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::INTEGER-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::INTEGER-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON INTEGER> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: SB-EXT:LOCK-PACKAGE "COALTON/MATH/COMPLEX" ; (LOCK-PACKAGE "COALTON/MATH/COMPLEX") ; ; note: deleting unreachable code Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=731646 "main thread" RUNNING {1200030003}>: COMPILE-FILE-ERROR while compiling #<CT-FILE "coalton/library" "math" "complex"> Backtrace for: #<SB-THREAD:THREAD tid=731646 "main thread" RUNNING {1200030003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1221433FD3}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1221433FD3}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1221433FD3}>) 3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">))) 4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">) 6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 7: ((:METHOD ASDF/ACTION:PERFORM :AROUND (ASDF/LISP-ACTION:COMPILE-OP ASDF/INTERFACE::CT-FILE)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">) [fast-method] 8: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">) [fast-method] 9: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12043F22F3}>) [fast-method] 10: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 11: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12043F22F3}>) [fast-method] 12: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil-tests/discrete-tests"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 13: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil-tests/discrete-tests">) 14: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 15: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil-tests/discrete-tests">) [fast-method] 16: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-quil-tests/discrete-tests") 17: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 18: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil-tests/discrete-tests") [fast-method] 19: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12043ED15B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 20: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 21: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12043AC0CB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 22: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil-tests/discrete-tests") [fast-method] 23: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-quil-tests" "cl-quil-tests/discrete-tests") 24: (DEPCHECK::MAGIC "cl-quil-tests" "cl-quil-tests/discrete-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-BfH3AjF9/depcheck-win.txt") 25: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-quil-tests" "cl-quil-tests/discrete-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-BfH3AjF9/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-BfH3AjF9/depcheck-fail.txt")) 26: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 27: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 28: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 29: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; caught 4 ERROR conditions ; caught 16 STYLE-WARNING conditions ; printed 55 notes
STYLE-WARNING: The new FTYPE proclamation for FSET::WB-BAG-TREE-TOTAL-COUNT(FUNCTION (FSET::WB-BAG-TREE) INTEGER)does not match the derived return type(FUNCTION ((OR LIST FSET::WB-BAG-TREE-NODE)) (VALUES NUMBER &OPTIONAL)) WARNING: redefining DEFTYPE type to be a class: FSET2:SET WARNING: redefining DEFTYPE type to be a class: FSET2:MAP WARNING: redefining DEFTYPE type to be a class: FSET2:WB-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:CH-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:SEQ WARNING: redefining DEFTYPE type to be a class: FSET2:WB-SEQ WARNING: redefining DEFTYPE type to be a class: FSET2:REPLAY-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:WB-REPLAY-MAP WARNING: redefining DEFTYPE type to be a class: FSET2:CH-REPLAY-MAP ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/coalton/47f26152062ebefa5aade307bd821fdffb7b03b3/coalton-20260327-git/src/parser/types.lisp ; in: DEFUN SPLIT-INPUT-FORMS-KEYWORD-TAIL ; (COALTON-IMPL/PARSER/BASE:PARSE-ERROR "Malformed function type" ; (COALTON-IMPL/PARSER/BASE:NOTE ; COALTON-IMPL/PARSER/TYPES::SOURCE ; COALTON-IMPL/PARSER/TYPES::CURRENT ; "invalid `&key` placement")) ; ; note: deleting unreachable code ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/coalton/47f26152062ebefa5aade307bd821fdffb7b03b3/coalton-20260327-git/src/parser/macro.lisp ; in: DEFUN REBUILD-CST ; (GETHASH COALTON-IMPL/PARSER/MACRO::FORM ; COALTON-IMPL/PARSER/MACRO::SEEN-FORMS) ; ; caught STYLE-WARNING: ; Result is a (VALUES T BOOLEAN &OPTIONAL), ; not a (VALUES CONCRETE-SYNTAX-TREE:CST &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "coalton-compiler" "parser" "macro"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/coalton/47f26152062ebefa5aade307bd821fdffb7b03b3/coalton-20260327-git/src/parser/expression.lisp ; in: DEFUN SHOW-SYMBOL ; (DEFUN COALTON-IMPL/PARSER/EXPRESSION::SHOW-SYMBOL ; (COALTON-IMPL/PARSER/EXPRESSION::NAME) ; (DECLARE (TYPE STRING COALTON-IMPL/PARSER/EXPRESSION::NAME) ; (VALUES (OR NULL SYMBOL) &OPTIONAL)) ; (LET ((PACKAGE (FIND-PACKAGE "COALTON/SHOW"))) ; (AND PACKAGE (FIND-SYMBOL COALTON-IMPL/PARSER/EXPRESSION::NAME PACKAGE)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION THE ; ==> ; 1 ; ; caught STYLE-WARNING: ; Derived type of (FIND-SYMBOL COALTON-IMPL/PARSER/EXPRESSION::NAME PACKAGE) is (VALUES SYMBOL (MEMBER NIL :INHERITED :EXTERNAL :INTERNAL) &OPTIONAL), conflicting with its asserted type (VALUES SYMBOL &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "coalton-compiler" "parser" "expression"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/coalton/47f26152062ebefa5aade307bd821fdffb7b03b3/coalton-20260327-git/src/runtime/function-entry.lisp ; in: DEFUN CALL-COALTON-FUNCTION ; (APPLY FUNCTION COALTON-IMPL/RUNTIME/FUNCTION-ENTRY::ARGS) ; ; note: deleting unreachable code ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/coalton/47f26152062ebefa5aade307bd821fdffb7b03b3/coalton-20260327-git/src/typechecker/environment.lisp ; in: DEFUN SYNCHRONIZE-TYPE-VARIABLE-COUNTER ; (DOLIST ; (COALTON-IMPL/TYPECHECKER/ENVIRONMENT::ENTRY ; COALTON-IMPL/TYPECHECKER/ENVIRONMENT::OBJECT) ; (COALTON-IMPL/TYPECHECKER/ENVIRONMENT::SCAN ; COALTON-IMPL/TYPECHECKER/ENVIRONMENT::ENTRY)) ; ; note: deleting unreachable code ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/coalton/47f26152062ebefa5aade307bd821fdffb7b03b3/coalton-20260327-git/src/typechecker/define.lisp ; in: DEFUN INFER-IMPLS-BINDING-TYPE ; (COALTON-IMPL/TYPECHECKER/TC-ENV:TC-ENV-ADD-DEFINITION ; COALTON-IMPL/TYPECHECKER/DEFINE::ENV COALTON-IMPL/TYPECHECKER/DEFINE::NAME ; (COALTON-IMPL/TYPECHECKER/SCHEME:MAKE-TY-SCHEME :KINDS NIL :TYPE ; (COALTON-IMPL/TYPECHECKER/PREDICATE:QUALIFY ; NIL ; COALTON-IMPL/TYPECHECKER/DEFINE::ANNOTATED-TY))) ; ; note: deleting unreachable code ; (COALTON-IMPL/TYPECHECKER/DEFINE::BINDING-INLINE-ANNOTATION-TYPE ; (COALTON-IMPL/TYPECHECKER/DEFINE::BINDING) ; (DECLARE ; (TYPE ; (OR COALTON-IMPL/PARSER/TOPLEVEL:TOPLEVEL-DEFINE ; COALTON-IMPL/PARSER/EXPRESSION:NODE-LET-BINDING) ; COALTON-IMPL/TYPECHECKER/DEFINE::BINDING) ; (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL)) ; (LET ((COALTON-IMPL/TYPECHECKER/DEFINE::VALUE ; (COALTON-IMPL/PARSER/BINDING:BINDING-VALUE ; COALTON-IMPL/TYPECHECKER/DEFINE::BINDING))) ; (WHEN ; (TYPEP COALTON-IMPL/TYPECHECKER/DEFINE::VALUE ; 'COALTON-IMPL/PARSER/EXPRESSION:NODE-THE) ; (COALTON-IMPL/TYPECHECKER/PARSE-TYPE:PARSE-TYPE ; (COALTON-IMPL/PARSER/EXPRESSION:NODE-THE-TYPE ; COALTON-IMPL/TYPECHECKER/DEFINE::VALUE) ; (COALTON-IMPL/TYPECHECKER/TC-ENV:TC-ENV-ENV ; COALTON-IMPL/TYPECHECKER/DEFINE::ENV))))) ; ==> ; 1 ; ; caught STYLE-WARNING: ; Derived type of (COALTON-IMPL/TYPECHECKER/PARSE-TYPE:PARSE-TYPE (COALTON-IMPL/PARSER/EXPRESSION:NODE-THE-TYPE COALTON-IMPL/TYPECHECKER/DEFINE::VALUE) (COALTON-IMPL/TYPECHECKER/TC-ENV:TC-ENV-ENV COALTON-IMPL/TYPECHECKER/DEFINE::ENV)) is (VALUES COALTON-IMPL/TYPECHECKER/TYPES:TY (SATISFIES COALTON-IMPL/TYPECHECKER/KINDS::KSUBSTITUTION-LIST-P) &OPTIONAL), conflicting with its asserted type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "coalton-compiler" "typechecker" "define"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/coalton/47f26152062ebefa5aade307bd821fdffb7b03b3/coalton-20260327-git/src/codegen/resolve-instance.lisp ; in: DEFUN RESOLVE-STATIC-DICT ; (COALTON-IMPL/TYPECHECKER/ENVIRONMENT:LOOKUP-CLASS-INSTANCE ; COALTON-IMPL/CODEGEN/RESOLVE-INSTANCE::ENV ; COALTON-IMPL/CODEGEN/RESOLVE-INSTANCE::PRED) ; ; caught STYLE-WARNING: ; Result is a (VALUES (OR COALTON-IMPL/TYPECHECKER/ENVIRONMENT:TY-CLASS-INSTANCE NULL) &OPTIONAL (OR (AND (SATISFIES COALTON-IMPL/TYPECHECKER/SUBSTITUTIONS::SUBSTITUTION-LIST-P) CONS) (AND (SATISFIES COALTON-IMPL/TYPECHECKER/SUBSTITUTIONS::SUBSTITUTION-LIST-P) NULL))), ; not a (VALUES COALTON-IMPL/CODEGEN/AST:NODE &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "coalton-compiler" "codegen" "resolve-instance"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/coalton/47f26152062ebefa5aade307bd821fdffb7b03b3/coalton-20260327-git/src/codegen/codegen-class.lisp ; in: DEFUN MAKE-METHOD-FUN ; (DEFUN COALTON-IMPL/CODEGEN/CODEGEN-CLASS::MAKE-METHOD-FUN ; (METHOD PACKAGE CLASS COALTON-IMPL/CODEGEN/CODEGEN-CLASS::ENV) ; (DECLARE (TYPE COALTON-IMPL/TYPECHECKER/ENVIRONMENT:TY-CLASS-METHOD METHOD) ; (TYPE COALTON-IMPL/TYPECHECKER/ENVIRONMENT:ENVIRONMENT ; COALTON-IMPL/CODEGEN/CODEGEN-CLASS::ENV)) ; (LET* ((COALTON-IMPL/CODEGEN/CODEGEN-CLASS::QUAL-TY ; (COALTON-IMPL/TYPECHECKER/SCHEME:FRESH-INST #)) ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::VISIBLE-TYPE ; (COALTON-IMPL/TYPECHECKER/PREDICATE:QUALIFIED-TY-TYPE ; COALTON-IMPL/CODEGEN/CODEGEN-CLASS::QUAL-TY)) ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-CONTRAINT-ARGS ; (LENGTH #)) ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::KEYWORD-SPECS ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-WRAPPER-KEYWORD-SPECS ; COALTON-IMPL/CODEGEN/CODEGEN-CLASS::VISIBLE-TYPE)) ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::ARITY ; (+ # COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-CONTRAINT-ARGS)) ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::PARAMS ; (LOOP :FOR COALTON-IMPL/CODEGEN/CODEGEN-CLASS::I :FROM 0 :BELOW COALTON-IMPL/CODEGEN/CODEGEN-CLASS::ARITY ; :COLLECT #)) ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::CLASS-CODEGEN-SYM ; (COALTON-IMPL/TYPECHECKER/ENVIRONMENT:TY-CLASS-CODEGEN-SYM CLASS)) ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-NAME ; (COALTON-IMPL/TYPECHECKER/ENVIRONMENT:TY-CLASS-METHOD-NAME METHOD)) ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-DOCSTRING ; (COALTON-IMPL/SOURCE:DOCSTRING METHOD)) ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-ACCESSOR ; (ALEXANDRIA:FORMAT-SYMBOL # "~A-~A" ; COALTON-IMPL/CODEGEN/CODEGEN-CLASS::CLASS-CODEGEN-SYM ; COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-NAME))) ; `((DECLAIM (INLINE ,COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-NAME)) ; (DEFUN ,COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-NAME ; ,(COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-WRAPPER-LAMBDA-LIST ; COALTON-IMPL/CODEGEN/CODEGEN-CLASS::PARAMS ; COALTON-IMPL/CODEGEN/CODEGEN-CLASS::KEYWORD-SPECS) ; (DECLARE #) ; (DECLARE #) ; ,(COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-WRAPPER-CALL ; COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-ACCESSOR ; COALTON-IMPL/CODEGEN/CODEGEN-CLASS::PARAMS ; COALTON-IMPL/CODEGEN/CODEGEN-CLASS::KEYWORD-SPECS)) ; (COALTON-IMPL/GLOBAL-LEXICAL:DEFINE-GLOBAL-LEXICAL ; ,COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-NAME ; COALTON-IMPL/RUNTIME/FUNCTION-ENTRY:FUNCTION-ENTRY) ; (SETF ,COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-NAME ,#) ; ,@(WHEN COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-DOCSTRING `(# #))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA COALTON-IMPL/CODEGEN/CODEGEN-CLASS::MAKE-METHOD-FUN ; (METHOD PACKAGE CLASS COALTON-IMPL/CODEGEN/CODEGEN-CLASS::ENV) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE ; (TYPE COALTON-IMPL/TYPECHECKER/ENVIRONMENT:TY-CLASS-METHOD METHOD) ; (TYPE COALTON-IMPL/TYPECHECKER/ENVIRONMENT:ENVIRONMENT ; COALTON-IMPL/CODEGEN/CODEGEN-CLASS::ENV)) ; (BLOCK COALTON-IMPL/CODEGEN/CODEGEN-CLASS::MAKE-METHOD-FUN ; (LET* ((COALTON-IMPL/CODEGEN/CODEGEN-CLASS::QUAL-TY #) ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::VISIBLE-TYPE #) ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-CONTRAINT-ARGS #) ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::KEYWORD-SPECS #) ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::ARITY #) ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::PARAMS #) ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::CLASS-CODEGEN-SYM #) ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-NAME #) ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-DOCSTRING #) ; (COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-ACCESSOR #)) ; `((DECLAIM #) ; (DEFUN ,COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-NAME ,# # # ,#) ; (COALTON-IMPL/GLOBAL-LEXICAL:DEFINE-GLOBAL-LEXICAL ; ,COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-NAME ; COALTON-IMPL/RUNTIME/FUNCTION-ENTRY:FUNCTION-ENTRY) ; (SETF #) ; ,@(WHEN COALTON-IMPL/CODEGEN/CODEGEN-CLASS::METHOD-DOCSTRING `#))))) ; ; caught STYLE-WARNING: ; The variable ENV is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "coalton-compiler" "codegen" "codegen-class"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/coalton/47f26152062ebefa5aade307bd821fdffb7b03b3/coalton-20260327-git/src/codegen/constant-propagation.lisp ; in: DEFUN CONSTANT-NODE-P ; (COALTON-IMPL/CODEGEN/AST:NODE-VARIABLE-VALUE COALTON-IMPL/CODEGEN/AST:NODE) ; ; note: deleting unreachable code ; (COND ; ((AND ; (EQ 'COALTON:BOOLEAN ; (COALTON-IMPL/CODEGEN/AST:NODE-TYPE COALTON-IMPL/CODEGEN/AST:NODE)) ; (MEMBER ; (COALTON-IMPL/CODEGEN/AST:NODE-VARIABLE-VALUE ; COALTON-IMPL/CODEGEN/AST:NODE) ; '(COALTON:TRUE COALTON:FALSE))) ; COALTON-IMPL/CODEGEN/AST:NODE) ; ((COALTON-IMPL/TYPECHECKER/ENVIRONMENT:LOOKUP-INSTANCE-BY-CODEGEN-SYM ; COALTON-IMPL/CODEGEN/CONSTANT-PROPAGATION::ENV ; (COALTON-IMPL/CODEGEN/AST:NODE-VARIABLE-VALUE ; COALTON-IMPL/CODEGEN/AST:NODE) ; :NO-ERROR T) ; COALTON-IMPL/CODEGEN/AST:NODE) ; (T ; (COALTON-IMPL/CODEGEN/CONSTANT-PROPAGATION::CONSTANT-VAR-VALUE ; (COALTON-IMPL/CODEGEN/AST:NODE-VARIABLE-VALUE ; COALTON-IMPL/CODEGEN/AST:NODE) ; COALTON-IMPL/CODEGEN/CONSTANT-PROPAGATION::CONSTANT-BINDINGS :NO-ERROR T))) ; ==> ; COALTON-IMPL/CODEGEN/AST:NODE ; ; note: deleting unreachable code ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; printed 6 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 ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/coalton/47f26152062ebefa5aade307bd821fdffb7b03b3/coalton-20260327-git/library/bits.ct ; in: DEFINE-REVERSE-BITS U64 ; (COALTON/BITS::DEFINE-REVERSE-BITS COALTON:U64 64) ; --> PROGN PROGN LOCALLY DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK THE LOCALLY THE LET VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of FAST-%ASH/RIGHT/UNSIGNED ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/coalton/47f26152062ebefa5aade307bd821fdffb7b03b3/coalton-20260327-git/library/math/complex.ct ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES F32 ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:F32 ; SINGLE-FLOAT) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT COALTON:F32) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::F32-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F32-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F32-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::F32-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F32-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F32-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::F32-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F32 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F32)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON F32> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES F64 ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:F64 ; DOUBLE-FLOAT) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT COALTON:F64) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::F64-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F64-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F64-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::F64-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::F64-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64 COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::F64-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::F64-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:F64 ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64 COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:F64)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON F64> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES FRACTION ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:FRACTION ; RATIONAL) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT ; COALTON:FRACTION) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::FRACTION-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::FRACTION-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::FRACTION-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::FRACTION-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION ; COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::FRACTION-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::FRACTION-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::FRACTION-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:FRACTION ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:FRACTION)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON FRACTION> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: %DEFINE-NATIVE-COMPLEX-INSTANCES INTEGER ; (COALTON/MATH/COMPLEX::%DEFINE-NATIVE-COMPLEX-INSTANCES COALTON:INTEGER ; INTEGER :DIVISION NIL) ; ==> ; (COALTON:COALTON-TOPLEVEL ; (COALTON:DEFINE-INSTANCE (COALTON/MATH/COMPLEX:COMPLEXCOMPONENT ; COALTON:INTEGER) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:COMPLEX COALTON/MATH/COMPLEX::A ; COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:REAL-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #))) ; (COALTON:INLINE) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX:IMAG-PART COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP # ; # ; #)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX:CONJUGATE ; COALTON/MATH/COMPLEX::INTEGER-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::INTEGER-COMPLEX-CONJUGATE ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::INTEGER-COMPLEX-CONJUGATE ; COALTON/MATH/COMPLEX::A) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> #) ; (COALTON/MATH/COMPLEX::A) ; (DECLARE #) ; (CONJUGATE COALTON/MATH/COMPLEX::A)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::INTEGER-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER ; COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:INLINE) ; (COALTON:DECLARE COALTON/MATH/COMPLEX::INTEGER-COMPLEX-EQUAL ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER COALTON:-> ; COALTON:BOOLEAN)) ; (COALTON:DEFINE (COALTON/MATH/COMPLEX::INTEGER-COMPLEX-EQUAL ; COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (COALTON++:UNSAFE ; (COALTON:LISP (COALTON:-> COALTON:BOOLEAN) ; (COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B) ; (DECLARE #) ; (= COALTON/MATH/COMPLEX::A COALTON/MATH/COMPLEX::B)))) ; (COALTON:SPECIALIZE COALTON/MATH/COMPLEX::COMPLEX-PLUS ; COALTON/MATH/COMPLEX::INTEGER-COMPLEX-PLUS ; (COALTON/MATH/COMPLEX:COMPLEX COALTON:INTEGER ; COALTON/CLASSES:* ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER ; COALTON:-> ; COALTON/MATH/COMPLEX:COMPLEX ; COALTON:INTEGER)) ; (COALTON:INLINE) ; ...) ; ; caught COMMON-LISP:ERROR: ; (during macroexpansion of (COALTON-TOPLEVEL (DEFINE-INSTANCE # ...) ...)) ; The values (#<COALTON-IMPL/TYPECHECKER/TYPES:TYCON INTEGER> COMMON-LISP:NIL) are not of type (VALUES (OR NULL COALTON-IMPL/TYPECHECKER/TYPES:TY) &OPTIONAL) ; in: SB-EXT:LOCK-PACKAGE "COALTON/MATH/COMPLEX" ; (LOCK-PACKAGE "COALTON/MATH/COMPLEX") ; ; note: deleting unreachable code Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=731623 "main thread" RUNNING {1200030003}>: COMPILE-FILE-ERROR while compiling #<CT-FILE "coalton/library" "math" "complex"> Backtrace for: #<SB-THREAD:THREAD tid=731623 "main thread" RUNNING {1200030003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1206D8BFD3}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1206D8BFD3}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1206D8BFD3}>) 3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">))) 4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">) 6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 7: ((:METHOD ASDF/ACTION:PERFORM :AROUND (ASDF/LISP-ACTION:COMPILE-OP ASDF/INTERFACE::CT-FILE)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">) [fast-method] 8: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/INTERFACE::CT-FILE "coalton/library" "math" "complex">) [fast-method] 9: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12043CFFD3}>) [fast-method] 10: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 11: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12043CFFD3}>) [fast-method] 12: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil-benchmarking/foust"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 13: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil-benchmarking/foust">) 14: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 15: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil-benchmarking/foust">) [fast-method] 16: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-quil-benchmarking/foust") 17: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 18: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil-benchmarking/foust") [fast-method] 19: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12043EE36B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 20: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 21: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12043AD30B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 22: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil-benchmarking/foust") [fast-method] 23: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-quil-benchmarking" "cl-quil-benchmarking/foust") 24: (DEPCHECK::MAGIC "cl-quil-benchmarking" "cl-quil-benchmarking/foust" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-vPNtn1Ar/depcheck-win.txt") 25: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-quil-benchmarking" "cl-quil-benchmarking/foust" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-vPNtn1Ar/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-vPNtn1Ar/depcheck-fail.txt")) 26: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 27: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 28: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 29: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; caught 4 ERROR conditions ; printed 2 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: redefining MAGICL::SVD-LISP in DEFUN WARNING: redefining MAGICL:SCALE! in DEFUN WARNING: redefining MAGICL:.+ in DEFUN WARNING: redefining MAGICL:.- in DEFUN WARNING: redefining MAGICL:.* in DEFUN WARNING: redefining MAGICL:./ in DEFUN WARNING: redefining MAGICL:MULT in DEFUN WARNING: redefining MAGICL:EIG in DEFUN WARNING: redefining MAGICL:HERMITIAN-EIG in DEFUN WARNING: redefining MAGICL:LU in DEFUN WARNING: redefining MAGICL:LU-SOLVE in DEFUN WARNING: redefining MAGICL:INV in DEFUN WARNING: redefining MAGICL:CSD-BLOCKS in DEFUN WARNING: redefining MAGICL:SVD in DEFUN WARNING: redefining MAGICL:SCHUR in DEFUN WARNING: redefining MAGICL:QZ in DEFUN WARNING: redefining MAGICL:QL in DEFUN WARNING: redefining MAGICL:QR in DEFUN WARNING: redefining MAGICL:RQ in DEFUN WARNING: redefining MAGICL:LQ in DEFUN ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/ast.lisp ; in: DEFSTRUCT DELAYED-EXPRESSION ; (DEFSTRUCT ; (CL-QUIL.FRONTEND:DELAYED-EXPRESSION ; (:CONSTRUCTOR CL-QUIL.FRONTEND::%DELAYED-EXPRESSION)) ; #<(SIMPLE-ARRAY CHARACTER ; (335)) A representation of an arithmetic expression with fillable "slots". ; ; PARAMS is a list of values to fill the slots with. These can be formal variables, but eventually must be a list of CONSTANTs. ; ; LAMB... {12186E8C3F}> ; (CL-QUIL.FRONTEND::PARAMS NIL) ; (CL-QUIL.FRONTEND::LAMBDA-PARAMS NIL :READ-ONLY T) ; (CL-QUIL.FRONTEND::EXPRESSION NIL :READ-ONLY T)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL.FRONTEND:DELAYED-EXPRESSION {121862F723}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL.FRONTEND:DELAYED-EXPRESSION-EXPRESSION could not be inlined because the structure definition for CL-QUIL.FRONTEND:DELAYED-EXPRESSION 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. ; in: DEFSTRUCT PAULI-TERM ; (DEFSTRUCT (CL-QUIL.FRONTEND:PAULI-TERM) ; #<(SIMPLE-ARRAY CHARACTER ; (642)) Records a word of Pauli operators, together with an ordered list of qubit formals on which they act, as well as a scalar prefix. This is part of the internal representation of a EXP-PAULI-SUM-GATE-DE... {12193B9EEF}> ; CL-QUIL.FRONTEND::PAULI-WORD ; CL-QUIL.FRONTEND::PREFACTOR ; CL-QUIL.FRONTEND::ARGUMENTS) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL.FRONTEND:PAULI-TERM {12193A9213}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL.FRONTEND:PAULI-TERM-PAULI-WORD, CL-QUIL.FRONTEND:PAULI-TERM-PREFACTOR and CL-QUIL.FRONTEND:PAULI-TERM-ARGUMENTS could not be inlined because the structure definition for CL-QUIL.FRONTEND:PAULI-TERM 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. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/ast.lisp ; in: DEFUN EXPAND-CLASSICAL-INSTRUCTION-DEFINITIONS ; (LOOP :FOR CL-QUIL.FRONTEND::TYPE-TUPLE :IN CL-QUIL.FRONTEND::TYPES ; :FOR CL-QUIL.FRONTEND::TYPED-NAME := (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE) ; :DO (ASSERT ; (AND ; (= CL-QUIL.FRONTEND::NUM-ARGS ; (LENGTH CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (EVERY #'CL-QUIL.FRONTEND::VALID-TYPE-SYMBOL-P ; CL-QUIL.FRONTEND::TYPE-TUPLE))) ; :COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD ; ==> ; (LET* ((#:HEAD11 (SB-KERNEL:UNALIGNED-DX-CONS NIL)) ; (#:TAIL12 #:HEAD11) ; (CL-QUIL.FRONTEND::TYPED-NAMES NIL)) ; (DECLARE (DYNAMIC-EXTENT #:HEAD11) ; (SB-C::NO-DEBUG #:HEAD11 #:TAIL12) ; (LIST CL-QUIL.FRONTEND::TYPED-NAMES)) ; (SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD (#S(SB-LOOP::LOOP-COLLECTOR ; :NAME NIL ; :CLASS LIST ; :HISTORY (APPEND) ; :TEMPVARS (#:HEAD13 #:TAIL14) ; :SPECIFIED-TYPE NIL ; :DTYPE LIST ; :DATA NIL) ; #:HEAD13 #:TAIL14) ; (TAGBODY ; SB-LOOP::NEXT-LOOP ; (WHEN (ENDP #:L10) (GO SB-LOOP::END-LOOP)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPE-TUPLE (CAR #:L10)) ; (SB-LOOP::LOOP-DESETQ #:L10 (CDR #:L10)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPED-NAME ; (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (ASSERT (AND # #)) ; (SB-LOOP::LOOP-COLLECT-RPLACD ; (#:HEAD11 #:TAIL12 CL-QUIL.FRONTEND::TYPED-NAMES) ; (LIST CL-QUIL.FRONTEND::TYPED-NAME)) ; (SB-LOOP::LOOP-COLLECT-RPLACD (#:HEAD13 #:TAIL14) (LIST `# `# `# `#)) ; (GO SB-LOOP::NEXT-LOOP) ; SB-LOOP::END-LOOP ; (RETURN-FROM NIL (SB-LOOP::LOOP-COLLECT-ANSWER #:HEAD13))))) ; ; caught STYLE-WARNING: ; The variable TYPED-NAMES is assigned but never read. ; in: DEFUN EXPAND-CLASSICAL-INSTRUCTION-DEFINITIONS ; (LOOP :FOR CL-QUIL.FRONTEND::TYPE-TUPLE :IN CL-QUIL.FRONTEND::TYPES ; :FOR CL-QUIL.FRONTEND::TYPED-NAME := (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE) ; :DO (ASSERT ; (AND ; (= CL-QUIL.FRONTEND::NUM-ARGS ; (LENGTH CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (EVERY #'CL-QUIL.FRONTEND::VALID-TYPE-SYMBOL-P ; CL-QUIL.FRONTEND::TYPE-TUPLE))) ; :COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD ; ==> ; (LET* ((#:HEAD79 (SB-KERNEL:UNALIGNED-DX-CONS NIL)) ; (#:TAIL80 #:HEAD79) ; (CL-QUIL.FRONTEND::TYPED-NAMES NIL)) ; (DECLARE (DYNAMIC-EXTENT #:HEAD79) ; (SB-C::NO-DEBUG #:HEAD79 #:TAIL80) ; (LIST CL-QUIL.FRONTEND::TYPED-NAMES)) ; (SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD (#S(SB-LOOP::LOOP-COLLECTOR ; :NAME NIL ; :CLASS LIST ; :HISTORY (APPEND) ; :TEMPVARS (#:HEAD81 #:TAIL82) ; :SPECIFIED-TYPE NIL ; :DTYPE LIST ; :DATA NIL) ; #:HEAD81 #:TAIL82) ; (TAGBODY ; SB-LOOP::NEXT-LOOP ; (WHEN (ENDP #:L78) (GO SB-LOOP::END-LOOP)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPE-TUPLE (CAR #:L78)) ; (SB-LOOP::LOOP-DESETQ #:L78 (CDR #:L78)) ; (SB-LOOP::LOOP-DESETQ CL-QUIL.FRONTEND::TYPED-NAME ; (CL-QUIL.FRONTEND::MAKE-TYPED-NAME ; CL-QUIL.FRONTEND::NAME ; CL-QUIL.FRONTEND::TYPE-TUPLE)) ; (ASSERT (AND # #)) ; (SB-LOOP::LOOP-COLLECT-RPLACD ; (#:HEAD79 #:TAIL80 CL-QUIL.FRONTEND::TYPED-NAMES) ; (LIST CL-QUIL.FRONTEND::TYPED-NAME)) ; (SB-LOOP::LOOP-COLLECT-RPLACD (#:HEAD81 #:TAIL82) (LIST `# `# `# `#)) ; (GO SB-LOOP::NEXT-LOOP) ; SB-LOOP::END-LOOP ; (RETURN-FROM NIL (SB-LOOP::LOOP-COLLECT-ANSWER #:HEAD81))))) ; ; caught STYLE-WARNING: ; The variable TYPED-NAMES is assigned but never read. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil/frontend" "ast"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/parser.lisp ; in: DEFSTRUCT TOKEN ; (DEFSTRUCT ; (CL-QUIL.FRONTEND:TOKEN ; (:CONSTRUCTOR CL-QUIL.FRONTEND:TOK ; (TYPE &OPTIONAL CL-QUIL.FRONTEND::PAYLOAD ; (CL-QUIL.FRONTEND::LINE CL-QUIL.FRONTEND::*LINE-NUMBER*) ; (PATHNAME CL-QUIL.FRONTEND::*CURRENT-FILE*)))) ; "A lexical token." ; (CL-QUIL.FRONTEND::LINE NIL :TYPE (OR NULL (INTEGER 1)) :READ-ONLY T) ; (PATHNAME NIL :TYPE (OR NULL STRING PATHNAME) :READ-ONLY T) ; (TYPE NIL :TYPE SYMBOL :READ-ONLY T) ; (CL-QUIL.FRONTEND::PAYLOAD NIL :READ-ONLY T)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL.FRONTEND:TOKEN {122A5A4973}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL.FRONTEND:TOKEN-TYPE and CL-QUIL.FRONTEND:TOKEN-PAYLOAD could not be inlined because the structure definition for CL-QUIL.FRONTEND:TOKEN 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-quil/frontend" "parser"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/clifford/stabilizer.lisp ; in: ; DECLAIM (INLINE TABLEAU-QUBITS TABLEAU-X (SETF TABLEAU-X) TABLEAU-Z (SETF TABLEAU-Z) TABLEAU-R (SETF TABLEAU-R) TABLEAU-SCRATCH (SETF TABLEAU-SCRATCH)) ; (DECLAIM ; (INLINE CL-QUIL.CLIFFORD::TABLEAU-QUBITS CL-QUIL.CLIFFORD::TABLEAU-X ; (SETF CL-QUIL.CLIFFORD::TABLEAU-X) CL-QUIL.CLIFFORD::TABLEAU-Z ; (SETF CL-QUIL.CLIFFORD::TABLEAU-Z) CL-QUIL.CLIFFORD::TABLEAU-R ; (SETF CL-QUIL.CLIFFORD::TABLEAU-R) CL-QUIL.CLIFFORD::TABLEAU-SCRATCH ; (SETF CL-QUIL.CLIFFORD::TABLEAU-SCRATCH))) ; ==> ; (SB-C::%PROCLAIM ; '(INLINE CL-QUIL.CLIFFORD::TABLEAU-QUBITS CL-QUIL.CLIFFORD::TABLEAU-X ; (SETF CL-QUIL.CLIFFORD::TABLEAU-X) CL-QUIL.CLIFFORD::TABLEAU-Z ; (SETF CL-QUIL.CLIFFORD::TABLEAU-Z) CL-QUIL.CLIFFORD::TABLEAU-R ; (SETF CL-QUIL.CLIFFORD::TABLEAU-R) CL-QUIL.CLIFFORD::TABLEAU-SCRATCH ; (SETF CL-QUIL.CLIFFORD::TABLEAU-SCRATCH)) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Proclaiming CL-QUIL.CLIFFORD::TABLEAU-QUBITS to be INLINE, but 1 call to it was previously compiled. A declaration of NOTINLINE at the call site will eliminate this warning, as will proclaiming and defining the function before its first potential use. ; in: DEFUN TABLEAU-MEASURE ; (DEFUN CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (CL-QUIL.CLIFFORD::TAB CL-QUIL.CLIFFORD::Q) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0)) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU CL-QUIL.CLIFFORD::TAB) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU-INDEX CL-QUIL.CLIFFORD::Q)) ; (LET* ((CL-QUIL.CLIFFORD::N ; (CL-QUIL.CLIFFORD::TABLEAU-QUBITS CL-QUIL.CLIFFORD::TAB)) ; (CL-QUIL.CLIFFORD::P ; (LOOP :FOR CL-QUIL.CLIFFORD::P :BELOW CL-QUIL.CLIFFORD::N ; :WHEN # ; :DO # ; :FINALLY #))) ; (DECLARE ; (TYPE (OR CL-QUIL.CLIFFORD::TABLEAU-INDEX NULL) CL-QUIL.CLIFFORD::P) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU-INDEX CL-QUIL.CLIFFORD::N)) ; (COND ; (CL-QUIL.CLIFFORD::P ; (CL-QUIL.CLIFFORD::TABLEAU-COPY-ROW CL-QUIL.CLIFFORD::TAB ; CL-QUIL.CLIFFORD::P #) ; (CL-QUIL.CLIFFORD::TABLEAU-SET-ROW-TO-PAULI CL-QUIL.CLIFFORD::TAB # #) ; (SETF #) (DOTIMES # #) (VALUES # NIL)) ; (T (CL-QUIL.CLIFFORD::TABLEAU-CLEAR-SCRATCH CL-QUIL.CLIFFORD::TAB) ; (LET # ; # ; # ; #))))) ; ==> ; (SB-IMPL::%DEFUN 'CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (SB-INT:NAMED-LAMBDA CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (CL-QUIL.CLIFFORD::TAB CL-QUIL.CLIFFORD::Q) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) ; (COMPILATION-SPEED 0)) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU CL-QUIL.CLIFFORD::TAB) ; (TYPE CL-QUIL.CLIFFORD::TABLEAU-INDEX ; CL-QUIL.CLIFFORD::Q)) ; (BLOCK CL-QUIL.CLIFFORD::TABLEAU-MEASURE ; (LET* (# #) ; (DECLARE # ; #) ; (COND # #))))) ; ; caught STYLE-WARNING: ; Call to CL-QUIL.CLIFFORD::TABLEAU-COPY-ROW could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil/frontend" "clifford" "stabilizer"> WARNING: redefining CL-QUIL.FRONTEND::PRINT-PARSED-PROGRAM-GENERIC in DEFGENERIC ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/linear-algebra.lisp ; in: DEFUN-INLINABLE PSUM ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I)) ; ; note: doing complex float to pointer coercion (cost 13) ; (QVM:PSUM-DOTIMES (QVM::I (LENGTH QVM::STATE)) ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; (FUNCALL QVM::F (AREF QVM::STATE QVM::I)) ; ; note: doing complex float to pointer coercion (cost 13) ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/wavefunction.lisp ; in: DEFUN PROBABILITY ; (DEFUN QVM:PROBABILITY (QVM::AMPLITUDE) ; "Convert an amplitude into a probability." ; (DECLARE (TYPE QVM:CFLONUM QVM::AMPLITUDE)) ; (LET ((QVM::RE (REALPART QVM::AMPLITUDE)) ; (QVM::IM (IMAGPART QVM::AMPLITUDE))) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (+ (* QVM::RE QVM::RE) (* QVM::IM QVM::IM)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM:PROBABILITY ; (QVM::AMPLITUDE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Convert an amplitude into a probability." ; (DECLARE (TYPE QVM:CFLONUM QVM::AMPLITUDE)) ; (BLOCK QVM:PROBABILITY ; (LET ((QVM::RE #) (QVM::IM #)) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (+ (* QVM::RE QVM::RE) (* QVM::IM QVM::IM))))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; in: DEFUN-INLINABLE WAVEFUNCTION-GROUND-STATE-PROBABILITY ; (QVM:PSUM-DOTIMES (QVM::I (QVM::HALF (LENGTH QVM::WAVEFUNCTION))) ; (LET ((QVM::ADDRESS (QVM::INJECT-BIT QVM::I QVM::QUBIT))) ; (DECLARE (TYPE QVM:AMPLITUDE-ADDRESS QVM::ADDRESS)) ; (QVM:PROBABILITY (AREF QVM::WAVEFUNCTION QVM::ADDRESS)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; --> IF FLET LET* LOOP BLOCK LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY ; --> RETURN-FROM ; ==> ; #:SUM13 ; ; note: doing float to pointer coercion (cost 13) from #:SUM13 to "<return value>" ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION6 (#:START2 #:END3) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START2) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END3)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM1 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM1 to "<return value>" ; in: DEFUN-INLINABLE WAVEFUNCTION-EXCITED-STATE-PROBABILITY ; (QVM:PSUM-DOTIMES (QVM::I (QVM::HALF (LENGTH QVM::WAVEFUNCTION))) ; (LET ((QVM::ADDRESS (QVM::INDEX-TO-ADDRESS QVM::I QVM::QUBIT 1))) ; (DECLARE (TYPE QVM:AMPLITUDE-ADDRESS QVM::ADDRESS)) ; (QVM:PROBABILITY (AREF QVM::WAVEFUNCTION QVM::ADDRESS)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM0 ; ; note: doing float to pointer coercion (cost 13) from #:SUM0 to "<return value>" ; --> IF FLET LET* LOOP BLOCK LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY ; --> RETURN-FROM ; ==> ; #:SUM13 ; ; note: doing float to pointer coercion (cost 13) from #:SUM13 to "<return value>" ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION6 (#:START2 #:END3) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START2) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END3)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM1 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM1 to "<return value>" ; in: DEFUN-INLINABLE APPLY-MATRIX-OPERATOR ; (APPLY QVM::KERNEL QVM::MATRIX QVM::WAVEFUNCTION (COERCE QVM::QUBITS 'LIST)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: KERNEL is not known to be a function ; in: DEFUN-INLINABLE %SERIAL-NORM ; (QVM:DEFUN-INLINABLE QVM::%SERIAL-NORM ; (QVM::WAVEFUNCTION) ; (LOOP :WITH QVM::S :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :BELOW (LENGTH QVM::WAVEFUNCTION) ; :DO ...)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::%SERIAL-NORM ; (QVM::WAVEFUNCTION) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK QVM::%SERIAL-NORM ; (LOOP :WITH QVM::S :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :BELOW (LENGTH QVM::WAVEFUNCTION) ; :DO ...))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; in: DEFUN-INLINABLE NORM ; (QVM:DEFUN-INLINABLE QVM::NORM ; (QVM::WAVEFUNCTION) ; "Compute the length/L2 norm of the wavefunction WAVEFUNCTION." ; (DECLARE (INLINE QVM:PROBABILITY QVM::PSUM)) ; (IF (<= QVM:*QUBITS-REQUIRED-FOR-PARALLELIZATION* ; (QVM::WAVEFUNCTION-QUBITS QVM::WAVEFUNCTION)) ; (SQRT ; (THE (QVM:FLONUM 0) (QVM::PSUM #'QVM:PROBABILITY QVM::WAVEFUNCTION))) ; (QVM::%SERIAL-NORM QVM::WAVEFUNCTION))) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::NORM ; (QVM::WAVEFUNCTION) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Compute the length/L2 norm of the wavefunction WAVEFUNCTION." ; (DECLARE (INLINE QVM:PROBABILITY QVM::PSUM)) ; (BLOCK QVM::NORM ; (IF (<= QVM:*QUBITS-REQUIRED-FOR-PARALLELIZATION* ; (QVM::WAVEFUNCTION-QUBITS QVM::WAVEFUNCTION)) ; (SQRT (THE # #)) ; (QVM::%SERIAL-NORM QVM::WAVEFUNCTION)))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; (QVM::PSUM #'QVM:PROBABILITY QVM::WAVEFUNCTION) ; --> BLOCK QVM:PSUM-DOTIMES LET IF FLET ; ==> ; (#:WORKER-FUNCTION8 (#:START4 #:END5) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START4) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END5)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM3 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM3 to "<return value>" ; in: DEFUN NORMALIZE-WAVEFUNCTION ; (QVM:FLONUM LENGTH) ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; (QVM:PDOTIMES (QVM::I (LENGTH QVM::WAVEFUNCTION) QVM::WAVEFUNCTION) ; (SETF (AREF QVM::WAVEFUNCTION QVM::I) ; (* QVM::INV-NORM (AREF QVM::WAVEFUNCTION QVM::I)))) ; --> IF LPARALLEL.COGNATE:PDOTIMES LET PROGN LPARALLEL.COGNATE::%PDOTIMES ; --> LAMBDA ; ==> ; #'(LAMBDA (QVM::I) ; (TAGBODY (SETF (AREF QVM::WAVEFUNCTION QVM::I) (* QVM::INV-NORM #)))) ; ; note: doing float to pointer coercion (cost 13), for: ; the second argument of CLOSURE-INIT ; (QVM::NORM QVM::WAVEFUNCTION) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM16 to "<return value>" ; in: DEFUN WF ; (QVM:CFLONUM ELT) ; --> BLOCK COERCE ; ==> ; 1 ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (OR SINGLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; in: DEFUN GAUSSIAN-RANDOM-COMPLEX ; (DEFUN QVM::GAUSSIAN-RANDOM-COMPLEX () ; "Return a complex number with Gaussian-random real and imaginary parts." ; (MULTIPLE-VALUE-BIND (QVM::RE QVM::IM) ; (ALEXANDRIA:GAUSSIAN-RANDOM) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (COMPLEX QVM::RE QVM::IM))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA QVM::GAUSSIAN-RANDOM-COMPLEX ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Return a complex number with Gaussian-random real and imaginary parts." ; (BLOCK QVM::GAUSSIAN-RANDOM-COMPLEX ; (MULTIPLE-VALUE-BIND (QVM::RE QVM::IM) ; (ALEXANDRIA:GAUSSIAN-RANDOM) ; (DECLARE (TYPE QVM:FLONUM QVM::RE QVM::IM)) ; (COMPLEX QVM::RE QVM::IM)))) ; ; note: doing complex float to pointer coercion (cost 13) to "<return value>" ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/compile-gate.lisp ; in: DEFUN GENERATE-AMPLITUDE-ADDRESS-CODE ; (LDB (BYTE 1 QVM::I) QVM::FLAGS) ; ; note: doing unsigned word to integer coercion (cost 20) to "<return value>" ; in: DEFUN GENERATE-INNER-MATRIX-MULTIPLY-CODE ; (LOOP :FOR QVM::J :BELOW QVM::N ; :FOR QVM::C := (NTH QVM::J QVM::COLUMN) ; :FOR QVM::MIJ := ...) ; --> LET LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ ; ==> ; (SETQ QVM::MIJ (AREF QVM::MATRIX QVM::I QVM::J)) ; ; note: doing complex float to pointer coercion (cost 13) to MIJ ; `(* ,QVM::C ,(AREF QVM::MATRIX QVM::I QVM::J)) ; ; note: doing complex float to pointer coercion (cost 13), for: ; the third argument of LIST ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/src/measurement.lisp ; in: DEFMETHOD FORCE-MEASUREMENT (T T PURE-STATE T) ; (SQRT (- (QVM:FLONUM 1) QVM::EXCITED-PROBABILITY)) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (OR (COMPLEX DOUBLE-FLOAT) (DOUBLE-FLOAT 0.0d0 1.0d0)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; (/ (SQRT QVM::EXCITED-PROBABILITY)) ; ; note: doing float to pointer coercion (cost 13), for: ; the first result of inline float arithmetic ; in: DEFGENERIC GET-EXCITED-STATE-PROBABILITY ; (AREF QVM::RHO QVM::I QVM::I) ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; (REALPART (AREF QVM::RHO QVM::I QVM::I)) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (QVM:PSUM-DOTIMES (QVM::K (EXPT 2 (1- (QVM::NUM-QUBITS QVM::STATE)))) ; (LET ((QVM::I (QVM::INDEX-TO-ADDRESS QVM::K QVM::QUBIT 1))) ; (REALPART (AREF QVM::RHO QVM::I QVM::I)))) ; --> IF LOCALLY LOOP BLOCK LET LET TAGBODY RETURN RETURN-FROM ; ==> ; #:SUM20 ; ; note: doing float to pointer coercion (cost 13) from #:SUM20 to "<return value>" ; in: DEFUN SAMPLE-WAVEFUNCTION-AS-DISTRIBUTION-IN-PARALLEL-TRULY ; (QVM:PSUM-DOTIMES (QVM::I ; (THE ALEXANDRIA:NON-NEGATIVE-FIXNUM (- QVM::MID MIN))) ; (LET ((QVM::I (THE ALEXANDRIA:NON-NEGATIVE-FIXNUM #))) ; (QVM:PROBABILITY (AREF QVM:WF QVM::I)))) ; --> IF FLET ; ==> ; (#:WORKER-FUNCTION12 (#:START8 #:END9) ; (DECLARE (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:START8) ; (TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM #:END9)) ; (LOCALLY ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (DEBUG 0) (SPACE 0) (COMPILATION-SPEED 0))) ; (LOOP :WITH #:PARTIAL-SUM7 :OF-TYPE QVM:FLONUM := (QVM:FLONUM 0) ; :FOR QVM::I :OF-TYPE ALEXANDRIA:NON-NEGATIVE-FIXNUM :FROM ...))) ; ; note: doing float to pointer coercion (cost 13) from #:PARTIAL-SUM7 to "<return value>" ; in: DEFUN SAMPLE-WAVEFUNCTION-MULTIPLE-TIMES ; (MT19937:RANDOM 1.0d0) ; --> BLOCK LET* - SCALE-FLOAT FLOAT ; ==> ; (+ (EXPT 2 52) MT19937::RANDOM-MANTISSA-BITS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 4503599627370496) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 4503599627370496) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a (INTEGER 4611686018427387904), not a (SIGNED-BYTE 64). ; in: DEFUN SAMPLE-WAVEFUNCTION-AS-DISTRIBUTION ; (AREF QVM::PS QVM::I) ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR DOUBLE-FLOAT), not a SIMPLE-ARRAY. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/matrix-operations.lisp ; in: DEFUN ORTHONORMALIZE-MATRIX! ; (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a COMPLEX. ; (SQRT CL-QUIL::N^2) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The result is a (VALUES (OR (FLOAT 0.0) (COMPLEX DOUBLE-FLOAT) (COMPLEX SINGLE-FLOAT)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.The result is a (VALUES (OR (FLOAT 0.0) (COMPLEX DOUBLE-FLOAT) (COMPLEX SINGLE-FLOAT)) &OPTIONAL), not a (VALUES FLOAT &REST T). ; (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &OPTIONAL). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &OPTIONAL). ; (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (LOOP :FOR CL-QUIL::I :BELOW CL-QUIL::NROWS ; :SUM (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q))) ; --> LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM17 ; (* (CONJUGATE (MAGICL:TREF CL-QUIL::A CL-QUIL::I CL-QUIL::P)) ; (MAGICL:TREF CL-QUIL::B CL-QUIL::I CL-QUIL::Q))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; (/ (MAGICL:TREF CL-QUIL::M CL-QUIL::ROW CL-QUIL::COL) CL-QUIL::NORM) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (OR (FLOAT 0.0) (COMPLEX DOUBLE-FLOAT) (COMPLEX SINGLE-FLOAT)), not a SINGLE-FLOAT. ; The result is a (VALUES (OR FLOAT (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a T, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a (OR (FLOAT 0.0) (COMPLEX DOUBLE-FLOAT) (COMPLEX SINGLE-FLOAT)), not a SINGLE-FLOAT. ; The result is a (VALUES (OR FLOAT (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &OPTIONAL). ; etc. ; (* CL-QUIL::S (MAGICL:TREF CL-QUIL::Q CL-QUIL::ROW CL-QUIL::J)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (DECF (MAGICL:TREF CL-QUIL::V CL-QUIL::ROW CL-QUIL::K) ; (* CL-QUIL::S (MAGICL:TREF CL-QUIL::Q CL-QUIL::ROW CL-QUIL::J))) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/define-compiler.lisp ; in: DEFUN FIND-SHORTEST-COMPILER-PATH ; (DEFUN CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (CL-QUIL::COMPILERS CL-QUIL::TARGET-GATESET CL-QUIL::OCCURRENCE-TABLE ; &OPTIONAL CL-QUIL::QUBIT-COUNT) ; #<(SIMPLE-ARRAY CHARACTER ; (730)) Produces a path of compilers, drawn from COMPILERS, which convert all of the entries of OCCURRENCE-TABLE into "native gates" according to TARGET-GATESET. Returns an alternating chain of occurrence ta... {120C03881F}> ; (LET ((CL-QUIL.FRONTEND:QUEUE ; (MAKE-INSTANCE 'CL-HEAP:PRIORITY-QUEUE :SORT-FUN #))) ; (FLET ((CL-QUIL::COLLECT-BINDINGS # ; #)) ; (LOOP :WITH CL-QUIL::VISITED-NODES := NIL ; :FOR (CL-QUIL::TASK . CL-QUIL::HISTORY) := (LIST ; CL-QUIL::OCCURRENCE-TABLE) :THEN (CL-HEAP:DEQUEUE ; CL-QUIL.FRONTEND:QUEUE) ; :UNLESS ...)))) ; ==> ; (SB-IMPL::%DEFUN 'CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (SB-INT:NAMED-LAMBDA CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (CL-QUIL::COMPILERS CL-QUIL::TARGET-GATESET ; CL-QUIL::OCCURRENCE-TABLE &OPTIONAL ; CL-QUIL::QUBIT-COUNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (730)) Produces a path of compilers, drawn from COMPILERS, which convert all of the entries of OCCURRENCE-TABLE into "native gates" according to TARGET-GATESET. Returns an alternating chain of occurrence ta... {120C03881F}> ; (BLOCK CL-QUIL::FIND-SHORTEST-COMPILER-PATH ; (LET (#) ; (FLET # ; #))))) ; ; caught STYLE-WARNING: ; Call to CL-HEAP:DEQUEUE could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. ; ; caught STYLE-WARNING: ; Call to CL-HEAP:ENQUEUE could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil" "define-compiler"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compiler-hook.lisp ; in: DEFUN COMPILER-HOOK ; (DEFUN CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION ; &KEY (CL-QUIL::PROTOQUIL NIL) ; (CL-QUIL::REWIRING-TYPE ; (CL-QUIL::PROG-INITIAL-REWIRING-HEURISTIC ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (CL-QUIL::TRANSFORMS CL-QUIL::*STANDARD-PRE-COMPILATION-TRANSFORMS*) ; (CL-QUIL::DESTRUCTIVE NIL) ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; #<(SIMPLE-ARRAY CHARACTER ; (1034)) Runs a full compiler pass on a parsed-program object. ; ; Arguments: ; ; - PARSED-PROGRAM: The parsed program to compile ; ; - CHIP-SPECIFICATION: The chip specification describing the target chip ; ; Keyword... {122972101F}> ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: entrance.") ; (UNLESS CL-QUIL::DESTRUCTIVE ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:COPY-INSTANCE ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (WHEN ; (AND (NOT (EQL ':NAIVE CL-QUIL::REWIRING-TYPE)) ; (> ; (CL-QUIL.FRONTEND:QUBITS-NEEDED CL-QUIL.FRONTEND:PARSED-PROGRAM) ; (LENGTH #)) ; (NOT ; (CL-QUIL.FRONTEND:PARSED-PROGRAM-HAS-PRESERVE-BLOCKS-P ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Compressing qubits.") ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:COMPRESS-QUBITS ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (DOLIST (CL-QUIL::XFORM CL-QUIL::TRANSFORMS) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Applying transform ~A." ; CL-QUIL::XFORM) ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM ; (CL-QUIL.FRONTEND:TRANSFORM CL-QUIL::XFORM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (CL-QUIL::WARM-CHIP-SPEC-LOOKUP-CACHE CL-QUIL::CHIP-SPECIFICATION) ; (LOOP :FOR CL-QUIL::MDESC :IN (CL-QUIL.FRONTEND:PARSED-PROGRAM-MEMORY-DEFINITIONS ; CL-QUIL.FRONTEND:PARSED-PROGRAM) ; :WHEN (CL-QUIL.FRONTEND:MEMORY-DESCRIPTOR-SHARING-PARENT ; CL-QUIL::MDESC) ; :DO (ERROR ; "Programs with aliased memory are currently unsupported.")) ; (WHEN (EQL ':NAIVE CL-QUIL::REWIRING-TYPE) ; (CL-QUIL::CHECK-PROGRAM-SKIPS-DEAD-QUBITS CL-QUIL.FRONTEND:PARSED-PROGRAM ; CL-QUIL::CHIP-SPECIFICATION)) ; (WHEN CL-QUIL::PROTOQUIL ; (CL-QUIL:CHECK-PROTOQUIL-PROGRAM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; ...) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION &KEY ; (CL-QUIL::PROTOQUIL NIL) ; (CL-QUIL::REWIRING-TYPE ; (CL-QUIL::PROG-INITIAL-REWIRING-HEURISTIC ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (CL-QUIL::TRANSFORMS CL-QUIL::*STANDARD-PRE-COMPILATION-TRANSFORMS*) ; (CL-QUIL::DESTRUCTIVE NIL) ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM ; CL-QUIL.FRONTEND:PARSED-PROGRAM))) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (1034)) Runs a full compiler pass on a parsed-program object. ; ; Arguments: ; ; - PARSED-PROGRAM: The parsed program to compile ; ; - CHIP-SPECIFICATION: The chip specification describing the target chip ; ; Keyword... {122972101F}> ; (BLOCK CL-QUIL:COMPILER-HOOK ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: entrance.") ; (UNLESS CL-QUIL::DESTRUCTIVE (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (WHEN (AND (NOT #) (> # #) (NOT #)) ; (CL-QUIL.FRONTEND:FORMAT-NOISE "COMPILER-HOOK: Compressing qubits.") ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (DOLIST (CL-QUIL::XFORM CL-QUIL::TRANSFORMS) ; (CL-QUIL.FRONTEND:FORMAT-NOISE ; "COMPILER-HOOK: Applying transform ~A." CL-QUIL::XFORM) ; (SETF CL-QUIL.FRONTEND:PARSED-PROGRAM #)) ; (CL-QUIL::WARM-CHIP-SPEC-LOOKUP-CACHE CL-QUIL::CHIP-SPECIFICATION) ; (LOOP :FOR CL-QUIL::MDESC :IN (CL-QUIL.FRONTEND:PARSED-PROGRAM-MEMORY-DEFINITIONS ; CL-QUIL.FRONTEND:PARSED-PROGRAM) ; :WHEN (CL-QUIL.FRONTEND:MEMORY-DESCRIPTOR-SHARING-PARENT ; CL-QUIL::MDESC) ; :DO (ERROR ; "Programs with aliased memory are currently unsupported.")) ; (WHEN (EQL ':NAIVE CL-QUIL::REWIRING-TYPE) ; (CL-QUIL::CHECK-PROGRAM-SKIPS-DEAD-QUBITS ; CL-QUIL.FRONTEND:PARSED-PROGRAM CL-QUIL::CHIP-SPECIFICATION)) ; (WHEN CL-QUIL::PROTOQUIL ; (CL-QUIL:CHECK-PROTOQUIL-PROGRAM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; (MULTIPLE-VALUE-BIND ; (CL-QUIL::INITIAL-REWIRING CL-QUIL::L2P-COMPONENTS) ; (CL-QUIL::PROG-INITIAL-REWIRING CL-QUIL.FRONTEND:PARSED-PROGRAM ; CL-QUIL::CHIP-SPECIFICATION :TYPE CL-QUIL::REWIRING-TYPE) ; (LET* (# # # #) ; (CL-QUIL::CHECK-PRESERVED-BLOCKS-SKIP-DEAD-QUBITS CL-QUIL::CFG ; CL-QUIL::CHIP-SPECIFICATION) ; (LET # ; #) ; (WHEN CL-QUIL::PROTOQUIL #) ; (LABELS # ; # ; # ; #))))) ; ; caught STYLE-WARNING: ; using the lexical binding of the symbol (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE*), not the ; dynamic binding, even though the name follows ; the usual naming convention (names like *FOO*) for special variables ; (CL-QUIL::*ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* ; (CL-QUIL::PROG-REWIRING-SEARCH-ALGORITHM CL-QUIL.FRONTEND:PARSED-PROGRAM)) ; ; caught STYLE-WARNING: ; The variable *ADDRESSER-REWIRING-SWAP-SEARCH-TYPE* is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-quil" "compiler-hook"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/chip/chip-specification.lisp ; in: DEFSTRUCT CHIP-SPECIFICATION ; (DEFSTRUCT CL-QUIL::CHIP-SPECIFICATION ; #<(SIMPLE-ARRAY CHARACTER ; (957)) Houses information about hardware components on a QPU. ; ; OBJECTS is an array. In its nth position, there is a vector of order n hardware objects on the chip. ; ; GENERIC-COMPILERS is a vector of functions... {122A409F3F}> ; (CL-QUIL::OBJECTS ; (MAKE-ARRAY 2 :INITIAL-CONTENTS ; (LIST (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) ; (CL-QUIL::MAKE-ADJUSTABLE-VECTOR))) ; :TYPE VECTOR) ; (CL-QUIL::GENERIC-COMPILERS (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) :TYPE VECTOR) ; (CL-QUIL::GENERIC-REWRITING-RULES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) :TYPE ; VECTOR) ; (CL-QUIL::LOOKUP-CACHE NIL :TYPE (OR NULL HASH-TABLE))) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::CHIP-SPECIFICATION {122A3B78D3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL::CHIP-SPECIFICATION-GENERIC-COMPILERS could not be inlined because the structure definition for CL-QUIL::CHIP-SPECIFICATION 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. ; in: DEFSTRUCT GATE-RECORD ; (DEFSTRUCT (CL-QUIL::GATE-RECORD (:COPIER NIL)) ; "Houses information about a hardware instantiation of a gate. ; ; FIDELITY stores the measured gate fidelity. ; ; DURATION stores the measured gate duration (in nanoseconds)." ; (CL-QUIL::FIDELITY CL-QUIL::+NEAR-PERFECT-FIDELITY+ :TYPE (OR NULL REAL)) ; (CL-QUIL::DURATION 1/100 :TYPE (OR NULL REAL))) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::GATE-RECORD {122AAF49E3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::GATE-RECORD-FIDELITY and CL-QUIL::GATE-RECORD-DURATION could not be inlined because the structure definition for CL-QUIL::GATE-RECORD 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. ; in: DEFSTRUCT HARDWARE-OBJECT ; (DEFSTRUCT CL-QUIL::HARDWARE-OBJECT ; #<(SIMPLE-ARRAY CHARACTER ; (1556)) Houses information about a particular hardware object on a QPU. ; ; ORDER is a non-negative integer that counts the number of qubit subsidiaries of this hardware object. Equals (1- (length (vnth 0 (hardw... {122AD5982F}> ; (CL-QUIL::ORDER 0 :TYPE UNSIGNED-BYTE :READ-ONLY T) ; (CL-QUIL::GATE-INFORMATION (MAKE-HASH-TABLE :TEST #'EQUALP)) ; (CL-QUIL::COMPILATION-METHODS (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::PERMUTATION-GATES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::REWRITING-RULES (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)) ; (CL-QUIL::CXNS ; (MAKE-ARRAY 2 :INITIAL-CONTENTS ; (LIST (CL-QUIL::MAKE-ADJUSTABLE-VECTOR) ; (CL-QUIL::MAKE-ADJUSTABLE-VECTOR)))) ; (CL-QUIL::MISC-DATA (MAKE-HASH-TABLE :TEST #'EQUAL) :TYPE HASH-TABLE)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::HARDWARE-OBJECT {122AD3C433}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::HARDWARE-OBJECT-COMPILATION-METHODS and CL-QUIL::HARDWARE-OBJECT-CXNS could not be inlined because the structure definition for CL-QUIL::HARDWARE-OBJECT 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-quil" "chip" "chip-specification"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compressor/compressor.lisp ; in: DEFSTRUCT PEEPHOLE-REWRITER-NODE ; (DEFSTRUCT CL-QUIL::PEEPHOLE-REWRITER-NODE ; "A node housing an instruction and attendant metadata used during peephole rewriting. Essentially a doubly-linked list." ; (CL-QUIL::INSTR NIL :TYPE CL-QUIL.FRONTEND:APPLICATION) ; (CL-QUIL::PREV NIL :TYPE (OR NULL CL-QUIL::PEEPHOLE-REWRITER-NODE)) ; (CL-QUIL::NEXT NIL :TYPE (OR NULL CL-QUIL::PEEPHOLE-REWRITER-NODE)) ; (CL-QUIL::CONTEXT NIL)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::PEEPHOLE-REWRITER-NODE {12388A4123}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CL-QUIL::PEEPHOLE-REWRITER-NODE-INSTR and CL-QUIL::PEEPHOLE-REWRITER-NODE-NEXT could not be inlined because the structure definition for CL-QUIL::PEEPHOLE-REWRITER-NODE 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-quil" "compressor" "compressor"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/5a166af06e0cfb49acc264701d461863dc5822fd/quilc-20260327-git/src/compressor/wavefunctions.lisp ; in: DEFSTRUCT ANTISOCIAL-QVM ; (DEFSTRUCT CL-QUIL::ANTISOCIAL-QVM ; #<(SIMPLE-ARRAY CHARACTER ; (658)) ANTISOCIAL-QVM instances represent partially-tracked low-correlation wavefunctions. ; ; WFS is a vector. The jth entry points to the wavefunction component in which the jth external qubit lies. ; ; INTERNAL... {1239FD24BF}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {1239FB4473}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>)) ; ; caught STYLE-WARNING: ; Previously compiled call to CL-QUIL::ANTISOCIAL-QVM-WFS could not be inlined because the structure definition for CL-QUIL::ANTISOCIAL-QVM 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-quil" "compressor" "wavefunctions"> ; ; caught ERROR: ; READ error during COMPILE-FILE: Package BENCHMARK does not exist. Line: 5, Column: 35, File-Position: 90 Stream: #<SB-INT:FORM-TRACKING-STREAM for "file /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/55b3f956c3b8232b3778511641553c71653b2b03/qvm-20260327-git/bench/package.lisp" {120629AED3}> Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=731627 "main thread" RUNNING {1200030003}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qvm-benchmarks" "package"> Backtrace for: #<SB-THREAD:THREAD tid=731627 "main thread" RUNNING {1200030003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {120629F4C3}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {120629F4C3}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {120629F4C3}>) 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 "qvm-benchmarks" "package">))) 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 "qvm-benchmarks" "package">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "qvm-benchmarks" "package">) 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 "qvm-benchmarks" "package">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12043CFFE3}>) [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 {12043CFFE3}>) [fast-method] 11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil-benchmarking"> :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-quil-benchmarking">) 13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil-benchmarking">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-quil-benchmarking") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil-benchmarking") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12043EC5EB}> :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) {12043AB5CB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil-benchmarking") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-quil-benchmarking" "cl-quil-benchmarking") 23: (DEPCHECK::MAGIC "cl-quil-benchmarking" "cl-quil-benchmarking" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-uLcOjRnn/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-quil-benchmarking" "cl-quil-benchmarking" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-uLcOjRnn/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-uLcOjRnn/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 2 fatal ERROR conditions ; caught 1 ERROR condition ; caught 16 STYLE-WARNING conditions ; printed 54 notes