SBCL 2.5.5.114-85e41f89c / ASDF 3.3.5
WARNING: redefining UIOP/PACKAGE:FIND-PACKAGE* in DEFUN WARNING: redefining UIOP/PACKAGE:FIND-SYMBOL* in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-CALL in DEFUN WARNING: redefining UIOP/PACKAGE:INTERN* in DEFUN WARNING: redefining UIOP/PACKAGE:EXPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:IMPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:SHADOWING-IMPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:SHADOW* in DEFUN WARNING: redefining UIOP/PACKAGE:MAKE-SYMBOL* in DEFUN WARNING: redefining UIOP/PACKAGE:UNINTERN* in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-SHADOWING-P in DEFUN WARNING: redefining UIOP/PACKAGE:HOME-PACKAGE-P in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-PACKAGE-NAME in DEFUN WARNING: redefining UIOP/PACKAGE:STANDARD-COMMON-LISP-SYMBOL-P in DEFUN WARNING: redefining UIOP/PACKAGE:REIFY-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:UNREIFY-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:REIFY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:UNREIFY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::RECORD-FISHY in DEFUN WARNING: redefining UIOP/PACKAGE::WHEN-PACKAGE-FISHINESS in DEFMACRO WARNING: redefining UIOP/PACKAGE::NOTE-PACKAGE-FISHINESS in DEFMACRO WARNING: redefining UIOP/PACKAGE::SET-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::MAKE-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::GET-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL-IN-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:REHOME-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE-UNUSED in DEFUN WARNING: redefining UIOP/PACKAGE:DELETE-PACKAGE* in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGE-NAMES in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGES-FROM-NAMES in DEFUN WARNING: redefining UIOP/PACKAGE:FRESH-PACKAGE-NAME in DEFUN WARNING: redefining UIOP/PACKAGE:RENAME-PACKAGE-AWAY in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGE-DEFINITION-FORM in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-SHADOWING-IMPORT in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORTED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORT in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-INHERITED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-MIX in DEFUN WARNING: redefining UIOP/PACKAGE::RECYCLE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::SYMBOL-RECYCLED-P in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED-TO-USER in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORT in DEFUN WARNING: redefining UIOP/PACKAGE::INSTALL-PACKAGE-LOCAL-NICKNAMES in DEFUN WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:PARSE-DEFINE-PACKAGE-FORM in DEFUN WARNING: redefining UIOP/PACKAGE:DEFINE-PACKAGE in DEFMACRO WARNING: redefining UIOP/COMMON-LISP::FROB-SUBSTRINGS in DEFUN WARNING: redefining UIOP/COMMON-LISP::COMPATFMT in DEFMACRO WARNING: redefining UIOP/UTILITY::ENSURE-FUNCTION-NOTINLINE in DEFUN WARNING: redefining UIOP/UTILITY:WITH-UPGRADABILITY in DEFMACRO WARNING: redefining UIOP/UTILITY:UIOP-DEBUG in DEFMACRO WARNING: redefining UIOP/UTILITY:LOAD-UIOP-DEBUG-UTILITY in DEFUN WARNING: redefining UIOP/UTILITY:NEST in DEFMACRO WARNING: redefining UIOP/UTILITY:IF-LET in DEFMACRO WARNING: redefining UIOP/UTILITY:PARSE-BODY in DEFUN WARNING: redefining UIOP/UTILITY:WHILE-COLLECTING in DEFMACRO WARNING: redefining UIOP/UTILITY:APPENDF in DEFMACRO WARNING: redefining UIOP/UTILITY:LENGTH=N-P in DEFUN WARNING: redefining UIOP/UTILITY:ENSURE-LIST in DEFUN WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEY in DEFUN WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEYS in DEFUN WARNING: redefining UIOP/UTILITY:EMPTYP in DEFUN WARNING: redefining UIOP/UTILITY:CHARACTER-TYPE-INDEX in DEFUN WARNING: redefining UIOP/UTILITY:BASE-STRING-P in DEFUN WARNING: redefining UIOP/UTILITY:STRINGS-COMMON-ELEMENT-TYPE in DEFUN WARNING: redefining UIOP/UTILITY:REDUCE/STRCAT in DEFUN WARNING: redefining UIOP/UTILITY:STRCAT in DEFUN WARNING: redefining UIOP/UTILITY:FIRST-CHAR in DEFUN WARNING: redefining UIOP/UTILITY:LAST-CHAR in DEFUN WARNING: redefining UIOP/UTILITY:SPLIT-STRING in DEFUN WARNING: redefining UIOP/UTILITY:STRING-PREFIX-P in DEFUN WARNING: redefining UIOP/UTILITY:STRING-SUFFIX-P in DEFUN WARNING: redefining UIOP/UTILITY:STRING-ENCLOSED-P in DEFUN WARNING: redefining UIOP/UTILITY:STRIPLN in DEFUN WARNING: redefining UIOP/UTILITY:STANDARD-CASE-SYMBOL-NAME in DEFUN WARNING: redefining UIOP/UTILITY:FIND-STANDARD-CASE-SYMBOL in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP*< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP<= in DEFUN WARNING: redefining UIOP/UTILITY:EARLIER-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS-EARLIEST in DEFUN WARNING: redefining UIOP/UTILITY:EARLIEST-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:LATER-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS-LATEST in DEFUN WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP-F in DEFMACRO WARNING: redefining UIOP/UTILITY:ENSURE-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:ACCESS-AT in DEFUN WARNING: redefining UIOP/UTILITY:ACCESS-AT-COUNT in DEFUN WARNING: redefining UIOP/UTILITY:CALL-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:CALL-FUNCTIONS in DEFUN WARNING: redefining UIOP/UTILITY:REGISTER-HOOK-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:COERCE-CLASS in DEFUN WARNING: redefining UIOP/UTILITY:ENSURE-GETHASH in DEFUN WARNING: redefining UIOP/UTILITY:LIST-TO-HASH-SET in DEFUN WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC< in DEFUN WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC<= in DEFUN WARNING: redefining UIOP/UTILITY:STYLE-WARN in DEFUN WARNING: redefining UIOP/UTILITY:MATCH-CONDITION-P in DEFUN WARNING: redefining UIOP/UTILITY:MATCH-ANY-CONDITION-P in DEFUN WARNING: redefining UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS in DEFUN WARNING: redefining UIOP/UTILITY:WITH-MUFFLED-CONDITIONS in DEFMACRO WARNING: redefining UIOP/UTILITY:NOT-IMPLEMENTED-ERROR in DEFUN WARNING: redefining UIOP/UTILITY:PARAMETER-ERROR in DEFUN WARNING: redefining UIOP/UTILITY:BOOLEAN-TO-FEATURE-EXPRESSION in DEFUN WARNING: redefining UIOP/UTILITY:SYMBOL-TEST-TO-FEATURE-EXPRESSION in DEFUN WARNING: redefining UIOP/VERSION:UNPARSE-VERSION in DEFUN WARNING: redefining UIOP/VERSION:PARSE-VERSION in DEFUN WARNING: redefining UIOP/VERSION:NEXT-VERSION in DEFUN WARNING: redefining UIOP/VERSION:VERSION< in DEFUN WARNING: redefining UIOP/VERSION:VERSION<= in DEFUN WARNING: redefining UIOP/VERSION::DEPRECATED-FUNCTION-CONDITION-KIND in DEFUN WARNING: redefining PRINT-OBJECT (#<SB-PCL::CONDITION-CLASS UIOP/VERSION:DEPRECATED-FUNCTION-CONDITION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining UIOP/VERSION::NOTIFY-DEPRECATED-FUNCTION in DEFUN WARNING: redefining UIOP/VERSION:VERSION-DEPRECATION in DEFUN WARNING: redefining UIOP/VERSION:WITH-DEPRECATION in DEFMACRO WARNING: redefining UIOP/OS:FEATUREP in DEFUN WARNING: redefining UIOP/OS:OS-MACOSX-P in DEFUN WARNING: redefining UIOP/OS:OS-UNIX-P in DEFUN WARNING: redefining UIOP/OS:OS-WINDOWS-P in DEFUN WARNING: redefining UIOP/OS:OS-GENERA-P in DEFUN WARNING: redefining UIOP/OS::OS-OLDMAC-P in DEFUN WARNING: redefining UIOP/OS::OS-HAIKU-P in DEFUN WARNING: redefining UIOP/OS::OS-MEZZANO-P in DEFUN WARNING: redefining UIOP/OS:DETECT-OS in DEFUN WARNING: redefining UIOP/OS:OS-COND in DEFMACRO WARNING: redefining UIOP/OS:GETENV in DEFUN WARNING: redefining UIOP/OS:GETENVP in DEFUN WARNING: redefining UIOP/OS::FIRST-FEATURE in DEFUN WARNING: redefining UIOP/OS:IMPLEMENTATION-TYPE in DEFUN WARNING: redefining UIOP/OS:OPERATING-SYSTEM in DEFUN WARNING: redefining UIOP/OS:ARCHITECTURE in DEFUN WARNING: redefining UIOP/OS:LISP-VERSION-STRING in DEFUN WARNING: redefining UIOP/OS:IMPLEMENTATION-IDENTIFIER in DEFUN WARNING: redefining UIOP/OS:HOSTNAME in DEFUN WARNING: redefining UIOP/OS:GETCWD in DEFUN WARNING: redefining UIOP/OS:CHDIR in DEFUN WARNING: redefining UIOP/OS:READ-NULL-TERMINATED-STRING in DEFUN WARNING: redefining UIOP/OS:READ-LITTLE-ENDIAN in DEFUN WARNING: redefining UIOP/OS:PARSE-FILE-LOCATION-INFO in DEFUN WARNING: redefining UIOP/OS:PARSE-WINDOWS-SHORTCUT in DEFUN WARNING: redefining UIOP/PATHNAME:NORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:DENORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAME-DIRECTORY-COMPONENTS in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME* in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-COMPONENT-LOGICAL in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-LOGICAL in DEFUN WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAMES* in DEFUN WARNING: redefining UIOP/PATHNAME:LOGICAL-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PHYSICAL-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PHYSICALIZE-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:NIL-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:WITH-PATHNAME-DEFAULTS in DEFMACRO WARNING: redefining UIOP/PATHNAME:PATHNAME-EQUAL in DEFUN WARNING: redefining UIOP/PATHNAME:ABSOLUTE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:HIDDEN-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:FILE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-PARENT-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORY-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SPLIT-UNIX-NAMESTRING-DIRECTORY-COMPONENTS in DEFUN WARNING: redefining UIOP/PATHNAME:SPLIT-NAME-TYPE in DEFUN WARNING: redefining UIOP/PATHNAME:PARSE-UNIX-NAMESTRING in DEFUN WARNING: redefining UIOP/PATHNAME:UNIX-NAMESTRING in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHNAME* in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-ROOT in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-HOST-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-ABSOLUTE-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHP in DEFUN WARNING: redefining UIOP/PATHNAME:ENOUGH-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:WITH-ENOUGH-PATHNAME in DEFMACRO WARNING: redefining UIOP/PATHNAME:WILDEN in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVIZE-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVIZE-PATHNAME-DIRECTORY in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORY-SEPARATOR-FOR-HOST in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORIZE-PATHNAME-HOST-DEVICE in DEFUN WARNING: redefining UIOP/PATHNAME:TRANSLATE-PATHNAME* in DEFUN WARNING: redefining UIOP/FILESYSTEM:NATIVE-NAMESTRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:PARSE-NATIVE-NAMESTRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:TRUENAME* in DEFUN WARNING: redefining UIOP/FILESYSTEM:SAFE-FILE-WRITE-DATE in DEFUN WARNING: redefining UIOP/FILESYSTEM:PROBE-FILE* in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-EXISTS-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:FILE-EXISTS-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY* in DEFUN WARNING: redefining UIOP/FILESYSTEM:FILTER-LOGICAL-DIRECTORY-RESULTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-FILES in DEFUN WARNING: redefining UIOP/FILESYSTEM:SUBDIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:COLLECT-SUB*DIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:TRUENAMIZE in DEFUN WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS in DEFUN WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS* in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-PATHNAME in DEFUN WARNING: redefining UIOP/FILESYSTEM:GET-PATHNAME-DEFAULTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:CALL-WITH-CURRENT-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:WITH-CURRENT-DIRECTORY in DEFMACRO WARNING: redefining UIOP/FILESYSTEM:INTER-DIRECTORY-SEPARATOR in DEFUN WARNING: redefining UIOP/FILESYSTEM:SPLIT-NATIVE-PATHNAMES-STRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAME in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAMES in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-PATHNAME-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:ENSURE-ALL-DIRECTORIES-EXIST in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-FILE-IF-EXISTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:RENAME-FILE-OVERWRITING-TARGET in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-EMPTY-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-DIRECTORY-TREE in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDIN in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDOUT in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDERR in DEFUN WARNING: redefining UIOP/STREAM:ALWAYS-DEFAULT-ENCODING in DEFUN WARNING: redefining UIOP/STREAM:DETECT-ENCODING in DEFUN WARNING: redefining UIOP/STREAM:DEFAULT-ENCODING-EXTERNAL-FORMAT in DEFUN WARNING: redefining UIOP/STREAM:ENCODING-EXTERNAL-FORMAT in DEFUN WARNING: redefining UIOP/STREAM:WITH-SAFE-IO-SYNTAX in DEFMACRO WARNING: redefining UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FROM-STRING in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-OUTPUT-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-OUTPUT-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::CALL-WITH-OUTPUT in DEFUN WARNING: redefining UIOP/STREAM:OUTPUT-STRING in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-INPUT-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-INPUT-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::CALL-WITH-INPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-INPUT in DEFMACRO WARNING: redefining UIOP/STREAM:INPUT-STRING in DEFUN WARNING: redefining UIOP/STREAM:NULL-DEVICE-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-INPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-NULL-INPUT in DEFMACRO WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-OUTPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-NULL-OUTPUT in DEFMACRO WARNING: redefining UIOP/STREAM:FINISH-OUTPUTS in DEFUN WARNING: redefining UIOP/STREAM:FORMAT! in DEFUN WARNING: redefining UIOP/STREAM:SAFE-FORMAT! in DEFUN WARNING: redefining UIOP/STREAM:COPY-STREAM-TO-STREAM in DEFUN WARNING: redefining UIOP/STREAM:CONCATENATE-FILES in DEFUN WARNING: redefining UIOP/STREAM:COPY-FILE in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-STRING in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINES in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINE in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORMS in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORM in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-STRING in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-LINES in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-LINE in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-FORMS in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-FORM in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-LINE in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-FORM in DEFUN WARNING: redefining UIOP/STREAM:EVAL-INPUT in DEFUN WARNING: redefining UIOP/STREAM:EVAL-THUNK in DEFUN WARNING: redefining UIOP/STREAM:STANDARD-EVAL-THUNK in DEFUN WARNING: redefining UIOP/STREAM:PRINTLN in DEFUN WARNING: redefining UIOP/STREAM:WRITELN in DEFUN WARNING: redefining UIOP/STREAM:DEFAULT-TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:SETUP-TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-TEMPORARY-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-TEMPORARY-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::GET-TEMPORARY-FILE in DEFUN WARNING: redefining UIOP/STREAM:ADD-PATHNAME-SUFFIX in DEFUN WARNING: redefining UIOP/STREAM:TMPIZE-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-STAGING-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:WITH-STAGING-PATHNAME in DEFMACRO WARNING: redefining UIOP/STREAM:FILE-STREAM-P in DEFUN WARNING: redefining UIOP/STREAM:FILE-OR-SYNONYM-STREAM-P in DEFUN WARNING: redefining UIOP/IMAGE:QUIT in DEFUN WARNING: redefining UIOP/IMAGE:DIE in DEFUN WARNING: redefining UIOP/IMAGE:RAW-PRINT-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:PRINT-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:PRINT-CONDITION-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:FATAL-CONDITION-P in DEFUN WARNING: redefining UIOP/IMAGE:HANDLE-FATAL-CONDITION in DEFUN WARNING: redefining UIOP/IMAGE:CALL-WITH-FATAL-CONDITION-HANDLER in DEFUN WARNING: redefining UIOP/IMAGE:WITH-FATAL-CONDITION-HANDLER in DEFMACRO WARNING: redefining UIOP/IMAGE:SHELL-BOOLEAN-EXIT in DEFUN WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-RESTORE-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-DUMP-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:CALL-IMAGE-RESTORE-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:CALL-IMAGE-DUMP-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:RAW-COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:ARGV0 in DEFUN WARNING: redefining UIOP/IMAGE:SETUP-COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:RESTORE-IMAGE in DEFUN WARNING: redefining UIOP/IMAGE:DUMP-IMAGE in DEFUN WARNING: redefining UIOP/IMAGE:CREATE-IMAGE in DEFUN WARNING: redefining UIOP/LISP-BUILD::SB-GROVEL-UNKNOWN-CONSTANT-CONDITION-P in DEFUN WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-COMPILER-CONDITIONS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-COMPILER-CONDITIONS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-LOADER-CONDITIONS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-LOADER-CONDITIONS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS in DEFUN WARNING: redefining UIOP/LISP-BUILD:REIFY-SIMPLE-SEXP in DEFUN WARNING: redefining UIOP/LISP-BUILD:UNREIFY-SIMPLE-SEXP in DEFUN WARNING: redefining UIOP/LISP-BUILD::REIFY-UNDEFINED-WARNING in DEFUN WARNING: redefining UIOP/LISP-BUILD:REIFY-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:UNREIFY-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:RESET-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:SAVE-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-TYPE in DEFUN WARNING: redefining UIOP/LISP-BUILD:ENABLE-DEFERRED-WARNINGS-CHECK in DEFUN WARNING: redefining UIOP/LISP-BUILD:DISABLE-DEFERRED-WARNINGS-CHECK in DEFUN WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-P in DEFUN WARNING: redefining UIOP/LISP-BUILD:CHECK-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD::CALL-WITH-SAVED-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-SAVED-DEFERRED-WARNINGS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CURRENT-LISP-FILE-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:LISPIZE-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-TYPE in DEFUN WARNING: redefining UIOP/LISP-BUILD:CALL-AROUND-HOOK in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-PATHNAME* in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE* in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD* in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD-FROM-STRING in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMBINE-FASLS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::REQUIRES-ESCAPING-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-WINDOWS-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::EASY-WINDOWS-CHARACTER-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-SH-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:EASY-SH-CHARACTER-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%NORMALIZE-IO-SPECIFIER in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%INTERACTIVEP in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%SIGNAL-TO-EXIT-CODE in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%CODE-TO-STATUS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-EXISTS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-DOES-NOT-EXIST in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-ERROR-OUTPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-INPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-OUTPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-PID in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%PROCESS-STATUS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-ALIVE-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:WAIT-PROCESS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%POSIX-SEND-SIGNAL in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:TERMINATE-PROCESS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:CLOSE-STREAMS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:LAUNCH-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::CALL-STREAM-PROCESSOR in DEFUN WARNING: redefining UIOP/RUN-PROGRAM:SLURP-INPUT-STREAM in DEFGENERIC WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINES> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINE> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORMS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining UIOP/RUN-PROGRAM:VOMIT-OUTPUT-STREAM in DEFGENERIC WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining UIOP/RUN-PROGRAM::%CHECK-RESULT in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%ACTIVE-IO-SPECIFIER-P in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%RUN-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%CALL-WITH-PROGRAM-IO in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::PLACE-SETTER in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-INPUT in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-OUTPUT in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-ERROR-OUTPUT in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::%USE-LAUNCH-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%NORMALIZE-SYSTEM-COMMAND in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%REDIRECTED-SYSTEM-COMMAND in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%SYSTEM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%USE-SYSTEM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM:RUN-PROGRAM in DEFUN WARNING: redefining UIOP/CONFIGURATION:CONFIGURATION-INHERITANCE-DIRECTIVE-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:REPORT-INVALID-FORM in DEFUN WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FORM in DEFUN WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FILE in DEFUN WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:RESOLVE-RELATIVE-LOCATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:RESOLVE-ABSOLUTE-LOCATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:RESOLVE-LOCATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:LOCATION-DESIGNATOR-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:LOCATION-FUNCTION-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:REGISTER-CLEAR-CONFIGURATION-HOOK in DEFUN WARNING: redefining UIOP/CONFIGURATION:CLEAR-CONFIGURATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:UPGRADE-CONFIGURATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:GET-FOLDER-PATH in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-DIRS in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-DIRS in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CACHE-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-RUNTIME-DIR in DEFUN WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIG-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:FILTER-PATHNAME-SET in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:FIND-PREFERRED-FILE in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION::COMPUTE-USER-CACHE in DEFUN WARNING: redefining UIOP/CONFIGURATION:UIOP-DIRECTORY in DEFUN WARNING: redefining UIOP/BACKWARD-DRIVER:COERCE-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION:USER-CONFIGURATION-DIRECTORIES in DEFUN WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIGURATION-DIRECTORIES in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-FIRST-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-USER-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-SYSTEM-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/BACKWARD-DRIVER:VERSION-COMPATIBLE-P in DEFUN WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/parse-float/8031b1b03c4861658df12660cf2465e195af4bce/parse-float-20250701-git/parse-float.asd" contains definition for system "parse-float-tests". Please only define "parse-float" and secondary systems with a name starting with "parse-float/" (e.g. "parse-float/test") in that file. WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/pzmq/9a9a01e9695cdd71ca64e2cf3e56bfb5162f563c/pzmq-20250701-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-20250701-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-20250701-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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {1218712A0F}> ; (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 {121865F813}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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... {1219401DFF}> ; 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 {121935F443}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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 {122A8E4BD3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-git/src/compile-gate.lisp ; 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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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 ; (SQRT (- (QVM:FLONUM 1) QVM::EXCITED-PROBABILITY)) ; ; note: doing float to pointer coercion (cost 13) ; in: DEFGENERIC GET-EXCITED-STATE-PROBABILITY ; (AREF QVM::RHO QVM::I QVM::I) ; ; note: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; ; note: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/src/matrix-operations.lisp ; in: DEFUN ORTHONORMALIZE-MATRIX! ; (SQRT CL-QUIL::N^2) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {120E2FB43F}> ; (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... {120E2FB43F}> ; (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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {122A71D9FF}> ; (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... {122A71D9FF}> ; (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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {122B19AF1F}> ; (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 {122B191303}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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 {122B8AA213}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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... {122BB1DA0F}> ; (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 {122BACDA83}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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 {1239924573}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {123B1342AF}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {123B12A253}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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"> WARNING: redefining TRIVIAL-BENCHMARK:RUNNING in DEFGENERIC WARNING: redefining TRIVIAL-BENCHMARK:METRICS in DEFGENERIC WARNING: redefining TRIVIAL-BENCHMARK:STARTING-VALUE in DEFGENERIC ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-git/app/src/utilities.lisp ; in: DEFUN WRITE-COMPLEX-DOUBLE-FLOAT-AS-BINARY ; (IEEE-FLOATS:ENCODE-FLOAT64 QVM-APP::RE) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET IF VALUES ; ==> ; (ASH (ROUND (* 4503599627370496 IEEE-FLOATS::SIGNIFICAND)) ; IEEE-FLOATS::EXPONENT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a FIXNUM. ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (IEEE-FLOATS:ENCODE-FLOAT64 QVM-APP::IM) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET IF VALUES ; ==> ; (ASH (ROUND (* 4503599627370496 IEEE-FLOATS::SIGNIFICAND)) ; IEEE-FLOATS::EXPONENT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a FIXNUM. ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (IEEE-FLOATS:ENCODE-FLOAT64 QVM-APP::RE) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL DECODE-FLOAT ; ==> ; 1 ; ; note: doing float to pointer coercion (cost 13) ; (IEEE-FLOATS:ENCODE-FLOAT64 QVM-APP::IM) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL DECODE-FLOAT ; ==> ; 1 ; ; note: doing float to pointer coercion (cost 13) ; in: DEFUN WRITE-DOUBLE-FLOAT-AS-BINARY ; (IEEE-FLOATS:ENCODE-FLOAT64 QVM-APP::X) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET IF VALUES ; ==> ; (ASH (ROUND (* 4503599627370496 IEEE-FLOATS::SIGNIFICAND)) ; IEEE-FLOATS::EXPONENT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a FIXNUM. ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-git/app/src/handle-request.lisp ; in: DEFUN HANDLE-POST-REQUEST ; (QVM-APP::WRITE-COMPLEX-DOUBLE-FLOAT-AS-BINARY QVM-APP::Z ; QVM-APP::REPLY-STREAM) ; --> BLOCK LET LET IEEE-FLOATS:ENCODE-FLOAT64 BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL COND THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION LET IF VALUES ; ==> ; (ASH (ROUND (* 4503599627370496 IEEE-FLOATS::SIGNIFICAND)) ; IEEE-FLOATS::EXPONENT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a FIXNUM. ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a FIXNUM. ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (QVM-APP::WRITE-DOUBLE-FLOAT-AS-BINARY QVM-APP::X QVM-APP::REPLY-STREAM) ; --> BLOCK LET IEEE-FLOATS:ENCODE-FLOAT64 BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL COND THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION LET IF VALUES ; ==> ; (ASH (ROUND (* 4503599627370496 IEEE-FLOATS::SIGNIFICAND)) ; IEEE-FLOATS::EXPONENT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a FIXNUM. ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (QVM-APP::WRITE-COMPLEX-DOUBLE-FLOAT-AS-BINARY QVM-APP::Z ; QVM-APP::REPLY-STREAM) ; --> BLOCK LET LET IEEE-FLOATS:ENCODE-FLOAT64 BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL COND THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> DECODE-FLOAT ; ==> ; 1 ; ; note: doing float to pointer coercion (cost 13) ; ; note: doing float to pointer coercion (cost 13) ; ; caught ERROR: ; READ error during COMPILE-FILE: Symbol "*USE-DEDICATED-OUTPUT-STREAM*" not found in the SWANK package. Line: 9, Column: 43, File-Position: 166 Stream: #<SB-INT:FORM-TRACKING-STREAM for "file /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-git/app/src/entry-point.lisp" {1211F5A113}> Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=3153803 "main thread" RUNNING {123FDA0093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qvm-app" "entry-point"> Backtrace for: #<SB-THREAD:THREAD tid=3153803 "main thread" RUNNING {123FDA0093}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1211F6B293}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1211F6B293}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1211F6B293}>) 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-app" "entry-point">))) 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-app" "entry-point">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "qvm-app" "entry-point">) 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-app" "entry-point">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12045561F3}>) [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 {12045561F3}>) [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) {120455F58B}> :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) {12045264CB}> :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-t9cGNTQB/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "quilc" "quilc" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-t9cGNTQB/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-t9cGNTQB/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 62 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/parse-float/8031b1b03c4861658df12660cf2465e195af4bce/parse-float-20250701-git/parse-float.asd" contains definition for system "parse-float-tests". Please only define "parse-float" and secondary systems with a name starting with "parse-float/" (e.g. "parse-float/test") in that file. WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/pzmq/9a9a01e9695cdd71ca64e2cf3e56bfb5162f563c/pzmq-20250701-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-20250701-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-20250701-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-20250701-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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {12187D1EDF}> ; (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 {1218717AD3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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... {12194C204F}> ; 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 {121941F443}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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 {122A984BD3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-git/src/compile-gate.lisp ; 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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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 ; (SQRT (- (QVM:FLONUM 1) QVM::EXCITED-PROBABILITY)) ; ; note: doing float to pointer coercion (cost 13) ; in: DEFGENERIC GET-EXCITED-STATE-PROBABILITY ; (AREF QVM::RHO QVM::I QVM::I) ; ; note: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; ; note: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/src/matrix-operations.lisp ; in: DEFUN ORTHONORMALIZE-MATRIX! ; (SQRT CL-QUIL::N^2) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {120E35E0EF}> ; (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... {120E35E0EF}> ; (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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {122A80D67F}> ; (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... {122A80D67F}> ; (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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {122B292F1F}> ; (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 {122B2543D3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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 {122B99A8C3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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... {122BC0E69F}> ; (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 {122BBC58E3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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 {1239A0C473}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {123B205B4F}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {123B1EB813}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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"> WARNING: redefining TRIVIAL-BENCHMARK:RUNNING in DEFGENERIC WARNING: redefining TRIVIAL-BENCHMARK:METRICS in DEFGENERIC WARNING: redefining TRIVIAL-BENCHMARK:STARTING-VALUE in DEFGENERIC ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-git/app/src/utilities.lisp ; in: DEFUN WRITE-COMPLEX-DOUBLE-FLOAT-AS-BINARY ; (IEEE-FLOATS:ENCODE-FLOAT64 QVM-APP::RE) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET IF VALUES ; ==> ; (ASH (ROUND (* 4503599627370496 IEEE-FLOATS::SIGNIFICAND)) ; IEEE-FLOATS::EXPONENT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a FIXNUM. ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (IEEE-FLOATS:ENCODE-FLOAT64 QVM-APP::IM) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET IF VALUES ; ==> ; (ASH (ROUND (* 4503599627370496 IEEE-FLOATS::SIGNIFICAND)) ; IEEE-FLOATS::EXPONENT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a FIXNUM. ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (IEEE-FLOATS:ENCODE-FLOAT64 QVM-APP::RE) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL DECODE-FLOAT ; ==> ; 1 ; ; note: doing float to pointer coercion (cost 13) ; (IEEE-FLOATS:ENCODE-FLOAT64 QVM-APP::IM) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL DECODE-FLOAT ; ==> ; 1 ; ; note: doing float to pointer coercion (cost 13) ; in: DEFUN WRITE-DOUBLE-FLOAT-AS-BINARY ; (IEEE-FLOATS:ENCODE-FLOAT64 QVM-APP::X) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET IF VALUES ; ==> ; (ASH (ROUND (* 4503599627370496 IEEE-FLOATS::SIGNIFICAND)) ; IEEE-FLOATS::EXPONENT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a FIXNUM. ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-git/app/src/handle-request.lisp ; in: DEFUN HANDLE-POST-REQUEST ; (QVM-APP::WRITE-COMPLEX-DOUBLE-FLOAT-AS-BINARY QVM-APP::Z ; QVM-APP::REPLY-STREAM) ; --> BLOCK LET LET IEEE-FLOATS:ENCODE-FLOAT64 BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL COND THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION LET IF VALUES ; ==> ; (ASH (ROUND (* 4503599627370496 IEEE-FLOATS::SIGNIFICAND)) ; IEEE-FLOATS::EXPONENT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a FIXNUM. ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a FIXNUM. ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (QVM-APP::WRITE-DOUBLE-FLOAT-AS-BINARY QVM-APP::X QVM-APP::REPLY-STREAM) ; --> BLOCK LET IEEE-FLOATS:ENCODE-FLOAT64 BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL COND THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION LET IF VALUES ; ==> ; (ASH (ROUND (* 4503599627370496 IEEE-FLOATS::SIGNIFICAND)) ; IEEE-FLOATS::EXPONENT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a FIXNUM. ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (QVM-APP::WRITE-COMPLEX-DOUBLE-FLOAT-AS-BINARY QVM-APP::Z ; QVM-APP::REPLY-STREAM) ; --> BLOCK LET LET IEEE-FLOATS:ENCODE-FLOAT64 BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL COND THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> DECODE-FLOAT ; ==> ; 1 ; ; note: doing float to pointer coercion (cost 13) ; ; note: doing float to pointer coercion (cost 13) ; ; caught ERROR: ; READ error during COMPILE-FILE: Symbol "*USE-DEDICATED-OUTPUT-STREAM*" not found in the SWANK package. Line: 9, Column: 43, File-Position: 166 Stream: #<SB-INT:FORM-TRACKING-STREAM for "file /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-git/app/src/entry-point.lisp" {1212040003}> Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=3153783 "main thread" RUNNING {123FDB0093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qvm-app" "entry-point"> Backtrace for: #<SB-THREAD:THREAD tid=3153783 "main thread" RUNNING {123FDB0093}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {12120591B3}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {12120591B3}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {12120591B3}>) 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-app" "entry-point">))) 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-app" "entry-point">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "qvm-app" "entry-point">) 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-app" "entry-point">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12045958C3}>) [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 {12045958C3}>) [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) {12045B152B}> :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) {120457054B}> :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-0sIP2DqC/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-0sIP2DqC/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-0sIP2DqC/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 62 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/parse-float/8031b1b03c4861658df12660cf2465e195af4bce/parse-float-20250701-git/parse-float.asd" contains definition for system "parse-float-tests". Please only define "parse-float" and secondary systems with a name starting with "parse-float/" (e.g. "parse-float/test") in that file. WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/pzmq/9a9a01e9695cdd71ca64e2cf3e56bfb5162f563c/pzmq-20250701-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-20250701-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-20250701-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=3153779 "main thread" RUNNING {1200F08003}>: Component #:SBCL-LIBRARIAN not found, required by #<SYSTEM "libquilc"> Backtrace for: #<SB-THREAD:THREAD tid=3153779 "main thread" RUNNING {1200F08003}> 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) {1204580B6B}>) 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 {1204554B03}> #<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) {1204580A1B}>) 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 {1204554B03}> #<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) {120456C97B}>) 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 {1204554B03}> #<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) {12045688FB}>) 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 {1204554B03}> #<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) {120455D96B}> :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) {12045248CB}> :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-mlEm7Vbo/depcheck-win.txt") 35: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "libquilc" "libquilc" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-mlEm7Vbo/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-mlEm7Vbo/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/parse-float/8031b1b03c4861658df12660cf2465e195af4bce/parse-float-20250701-git/parse-float.asd" contains definition for system "parse-float-tests". Please only define "parse-float" and secondary systems with a name starting with "parse-float/" (e.g. "parse-float/test") in that file. WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/pzmq/9a9a01e9695cdd71ca64e2cf3e56bfb5162f563c/pzmq-20250701-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-20250701-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-20250701-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=3153775 "main thread" RUNNING {1200F08003}>: Component #:SBCL-LIBRARIAN not found, required by #<SYSTEM "libquilc"> Backtrace for: #<SB-THREAD:THREAD tid=3153775 "main thread" RUNNING {1200F08003}> 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) {120D7BF9FB}>) 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 {12045A57F3}> #<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) {120D7BF8DB}>) 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 {12045A57F3}> #<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) {120D7BF7BB}>) 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 {12045A57F3}> #<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) {120D7BF69B}>) 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 {12045A57F3}> #<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) {12045C39EB}>) 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 {12045A57F3}> #<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) {12045C389B}>) 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 {12045A57F3}> #<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) {12045B785B}>) 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 {12045A57F3}> #<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) {12045B37DB}>) 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 {12045A57F3}> #<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) {12045B13AB}> :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) {12045783CB}> :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-aLKjw79R/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-aLKjw79R/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-aLKjw79R/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-20250701-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=3153538 "main thread" RUNNING {1200F08003}>: Failed to find the TRUENAME of /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/tests/match-tests.lisp: No such file or directory Backtrace for: #<SB-THREAD:THREAD tid=3153538 "main thread" RUNNING {1200F08003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SB-INT:SIMPLE-FILE-ERROR "Failed to find the ~A of ~A" {1209327823}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<SB-INT:SIMPLE-FILE-ERROR "Failed to find the ~A of ~A" {1209327823}>) 2: (INVOKE-DEBUGGER #<SB-INT:SIMPLE-FILE-ERROR "Failed to find the ~A of ~A" {1209327823}>) 3: (ERROR SB-INT:SIMPLE-FILE-ERROR :PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/tests/match-tests.lisp")) 4: (SB-IMPL::FILE-PERROR #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/tests/match-tests.lisp" 2 "Failed to find the ~A of ~A" :TRUENAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/tests/match-tests.lisp") 5: (SB-IMPL::QUERY-FILE-SYSTEM #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/tests/match-tests.lisp" :TRUENAME T) 6: (TRUENAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/tests/match-tests.lisp") 7: (SB-C::VERIFY-SOURCE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/tests/match-tests.lisp") 8: (COMPILE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/tests/match-tests.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (223)) /home/quicklisp/.cache/common-lisp/sbcl-2.5.5.114-85e41f89c-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/tests/match... {120935AA4F}> :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*) {1209326E5B}> NIL) 10: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/tests/match-tests.lisp" NIL #<FUNCTION (LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) {120932692B}>) 11: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/tests/match-tests.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (211)) /home/quicklisp/.cache/common-lisp/sbcl-2.5.5.114-85e41f89c-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/tests/match... {120936A7EF}> :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 {1204894EE3}>) [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 {1204894EE3}>) [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) {12048A8BAB}> :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) {120485FB4B}> :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-gLRqe51t/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-gLRqe51t/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-gLRqe51t/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::VECTOR-SET-BINARY-SEARCH-LO(FUNCTION (SIMPLE-VECTOR T) FIXNUM)does not match the derived return type(FUNCTION (SIMPLE-VECTOR T) (VALUES (INTEGER -4611686018427387904 4611686018427387904) &OPTIONAL)) 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)) *) STYLE-WARNING: Generic function FSET:ITERATOR clobbers an earlier FTYPE proclamation (FUNCTION (T &KEY &ALLOW-OTHER-KEYS) (VALUES FUNCTION &REST T)) for the same name with (FUNCTION (T &KEY &ALLOW-OTHER-KEYS) *). WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/parse-float/8031b1b03c4861658df12660cf2465e195af4bce/parse-float-20250701-git/parse-float.asd" contains definition for system "parse-float-tests". Please only define "parse-float" and secondary systems with a name starting with "parse-float/" (e.g. "parse-float/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 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {1223DB9EDF}> ; (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 {1223D55233}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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... {1224AA171F}> ; 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 {12249F7473}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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 {1236084BD3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-git/src/compile-gate.lisp ; 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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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 ; (SQRT (- (QVM:FLONUM 1) QVM::EXCITED-PROBABILITY)) ; ; note: doing float to pointer coercion (cost 13) ; in: DEFGENERIC GET-EXCITED-STATE-PROBABILITY ; (AREF QVM::RHO QVM::I QVM::I) ; ; note: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; ; note: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/src/matrix-operations.lisp ; in: DEFUN ORTHONORMALIZE-MATRIX! ; (SQRT CL-QUIL::N^2) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {1219CD343F}> ; (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... {1219CD343F}> ; (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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {12361FCFEF}> ; (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... {12361FCFEF}> ; (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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {1236C7AEBF}> ; (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 {1236C44523}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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 {123738DA03}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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... {12375FE0CF}> ; (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 {12376000A3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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 {120A8BC413}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {120C05C2EF}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {120C061893}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/src/coalton/coalton-quil.lisp ; in: COMMON-LISP:DEFUN GET-QUIL-NAMED-OPERATOR-NAME ; (COALTON:COALTON ; (COALTON-LIBRARY/CLASSES:ERROR "QuilNamedOperator does not have a name.")) ; ; note: deleting unreachable code ; in: COMMON-LISP:DEFUN GET-QUIL-DAGGER-OPERATOR-OPERATOR ; (COALTON:COALTON (COALTON-LIBRARY/CLASSES:ERROR "Bad Operator")) ; ; note: deleting unreachable code ; ; caught COMMON-LISP:ERROR: ; COMMON-LISP:READ error during COMMON-LISP:COMPILE-FILE: error: Invalid identifier name ; --> /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/src/foust/pauli-operator.lisp:36:11 ; | ; 36 | (define (mcommute? a b) ; | ^^^^^^^^^ The symbol MCOMMUTE? is defined in the package #<PACKAGE "COALTON-LIBRARY/CLASSES"> and not the current package #<PACKAGE "CL-QUIL.FOUST/PAULI-OPERATOR"> ; (in form starting at line: 29, column: 0, position: 509) Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=3153665 "main thread" RUNNING {1200EF8093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-quil/foust" "pauli-operator"> Backtrace for: #<SB-THREAD:THREAD tid=3153665 "main thread" RUNNING {1200EF8093}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1236C4AA23}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1236C4AA23}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1236C4AA23}>) 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/foust" "pauli-operator">))) 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/foust" "pauli-operator">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-quil/foust" "pauli-operator">) 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/foust" "pauli-operator">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204894F63}>) [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 {1204894F63}>) [fast-method] 11: ((: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] 12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil/foust">) 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/foust">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-quil/foust") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil/foust") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12048A8AEB}> :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) {120485FA8B}> :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/foust") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-quil" "cl-quil/foust") 23: (DEPCHECK::MAGIC "cl-quil" "cl-quil/foust" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-nFNu6b4T/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-quil" "cl-quil/foust" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-nFNu6b4T/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-nFNu6b4T/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: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/parse-float/8031b1b03c4861658df12660cf2465e195af4bce/parse-float-20250701-git/parse-float.asd" contains definition for system "parse-float-tests". Please only define "parse-float" and secondary systems with a name starting with "parse-float/" (e.g. "parse-float/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 STYLE-WARNING: The new FTYPE proclamation for FSET::VECTOR-SET-BINARY-SEARCH-LO(FUNCTION (SIMPLE-VECTOR T) FIXNUM)does not match the derived return type(FUNCTION (SIMPLE-VECTOR T) (VALUES (INTEGER -4611686018427387904 4611686018427387904) &OPTIONAL)) 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)) *) STYLE-WARNING: Generic function FSET:ITERATOR clobbers an earlier FTYPE proclamation (FUNCTION (T &KEY &ALLOW-OTHER-KEYS) (VALUES FUNCTION &REST T)) for the same name with (FUNCTION (T &KEY &ALLOW-OTHER-KEYS) *). 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {121E6A9EDF}> ; (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 {121E6541F3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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... {121F3925FF}> ; 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 {121F2EF3E3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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 {1230924BD3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-git/src/compile-gate.lisp ; 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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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 ; (SQRT (- (QVM:FLONUM 1) QVM::EXCITED-PROBABILITY)) ; ; note: doing float to pointer coercion (cost 13) ; in: DEFGENERIC GET-EXCITED-STATE-PROBABILITY ; (AREF QVM::RHO QVM::I QVM::I) ; ; note: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; ; note: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/src/matrix-operations.lisp ; in: DEFUN ORTHONORMALIZE-MATRIX! ; (SQRT CL-QUIL::N^2) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {12145BB43F}> ; (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... {12145BB43F}> ; (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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {1230ABD19F}> ; (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... {1230ABD19F}> ; (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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {1231572EBF}> ; (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 {1231568883}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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 {1231C828C3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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... {1231EFE3AF}> ; (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 {1231EADB73}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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 {1243C6D853}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {1205DBBFAF}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {1205DC1CF3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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"> COMMON-LISP:WARNING: redefining SB-MPFR::MPFR_GET_Q in DEFUN ; ; caught COMMON-LISP:ERROR: ; COMMON-LISP:READ error during COMMON-LISP:COMPILE-FILE: error: Instance missing context ; --> /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/src/discrete/numeric/utilities.lisp:238:21 ; | ; 238 | (define-instance (Factorable (Complex Integer)) ; | ______________________^ ; 239 | | (define (canonical-factor x) ; | |_^ No instance for COMPLEX INTEGER arising from constraints of superclasses NUM (COMPLEX INTEGER) ; (in form starting at line: 9, column: 0, position: 163) Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=3153647 "main thread" RUNNING {1200EF8093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-quil/discrete" "numeric" "utilities"> Backtrace for: #<SB-THREAD:THREAD tid=3153647 "main thread" RUNNING {1200EF8093}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121ED85653}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121ED85653}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121ED85653}>) 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/discrete" "numeric" "utilities">))) 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/discrete" "numeric" "utilities">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-quil/discrete" "numeric" "utilities">) 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/discrete" "numeric" "utilities">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204894F63}>) [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 {1204894F63}>) [fast-method] 11: ((: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] 12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil/discrete">) 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/discrete">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-quil/discrete") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil/discrete") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12048A8AEB}> :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) {120485FA8B}> :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/discrete") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-quil" "cl-quil/discrete") 23: (DEPCHECK::MAGIC "cl-quil" "cl-quil/discrete" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-ZLdyRJoM/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-quil" "cl-quil/discrete" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-ZLdyRJoM/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-ZLdyRJoM/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 52 notes
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/parse-float/8031b1b03c4861658df12660cf2465e195af4bce/parse-float-20250701-git/parse-float.asd" contains definition for system "parse-float-tests". Please only define "parse-float" and secondary systems with a name starting with "parse-float/" (e.g. "parse-float/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 WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/fiasco/25c6341ba51ec6b1c07a4ed18827f480f8e3fa89/fiasco-20250701-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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-git/src/compile-gate.lisp ; 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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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 ; (SQRT (- (QVM:FLONUM 1) QVM::EXCITED-PROBABILITY)) ; ; note: doing float to pointer coercion (cost 13) ; in: DEFGENERIC GET-EXCITED-STATE-PROBABILITY ; (AREF QVM::RHO QVM::I QVM::I) ; ; note: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; ; note: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/src/matrix-operations.lisp ; in: DEFUN ORTHONORMALIZE-MATRIX! ; (SQRT CL-QUIL::N^2) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {121184B86F}> ; (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... {121184B86F}> ; (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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {122DC9DA1F}> ; (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... {122DC9DA1F}> ; (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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {122E72AEBF}> ; (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 {122E720DF3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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 {122EE3A153}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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... {122F0AD89F}> ; (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 {122F05D923}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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 {123CE5EED3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {123E64D59F}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {123E659183}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/tests/chip-library/suite.lisp" {120B5A3CC3}> Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=3153720 "main thread" RUNNING {123FCC8093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-quil/chip-library-tests" "suite"> Backtrace for: #<SB-THREAD:THREAD tid=3153720 "main thread" RUNNING {123FCC8093}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {120B5BD623}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {120B5BD623}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {120B5BD623}>) 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 {1204894F63}>) [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 {1204894F63}>) [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) {12048A8AEB}> :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) {120485FA8B}> :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-DxaGw3EC/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-DxaGw3EC/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-DxaGw3EC/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 52 notes
STYLE-WARNING: The new FTYPE proclamation for FSET::VECTOR-SET-BINARY-SEARCH-LO(FUNCTION (SIMPLE-VECTOR T) FIXNUM)does not match the derived return type(FUNCTION (SIMPLE-VECTOR T) (VALUES (INTEGER -4611686018427387904 4611686018427387904) &OPTIONAL)) 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)) *) STYLE-WARNING: Generic function FSET:ITERATOR clobbers an earlier FTYPE proclamation (FUNCTION (T &KEY &ALLOW-OTHER-KEYS) (VALUES FUNCTION &REST T)) for the same name with (FUNCTION (T &KEY &ALLOW-OTHER-KEYS) *). WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/fiasco/25c6341ba51ec6b1c07a4ed18827f480f8e3fa89/fiasco-20250701-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: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/parse-float/8031b1b03c4861658df12660cf2465e195af4bce/parse-float-20250701-git/parse-float.asd" contains definition for system "parse-float-tests". Please only define "parse-float" and secondary systems with a name starting with "parse-float/" (e.g. "parse-float/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 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {1225FEA3DF}> ; (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 {1225F8CE93}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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... {1226CD1A0F}> ; 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 {1226C275F3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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 {12382CCBD3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-git/src/compile-gate.lisp ; 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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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 ; (SQRT (- (QVM:FLONUM 1) QVM::EXCITED-PROBABILITY)) ; ; note: doing float to pointer coercion (cost 13) ; in: DEFGENERIC GET-EXCITED-STATE-PROBABILITY ; (AREF QVM::RHO QVM::I QVM::I) ; ; note: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; ; note: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/src/matrix-operations.lisp ; in: DEFUN ORTHONORMALIZE-MATRIX! ; (SQRT CL-QUIL::N^2) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {121C11386F}> ; (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... {121C11386F}> ; (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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {123869D19F}> ; (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... {123869D19F}> ; (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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {1239112EBF}> ; (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 {12390FAFB3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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 {12398221B3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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... {1239A9611F}> ; (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 {1239A45AB3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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 {1208A34413}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {120A1CD73F}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {120A1C2B53}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/src/coalton/coalton-quil.lisp ; in: COMMON-LISP:DEFUN GET-QUIL-NAMED-OPERATOR-NAME ; (COALTON:COALTON ; (COALTON-LIBRARY/CLASSES:ERROR "QuilNamedOperator does not have a name.")) ; ; note: deleting unreachable code ; in: COMMON-LISP:DEFUN GET-QUIL-DAGGER-OPERATOR-OPERATOR ; (COALTON:COALTON (COALTON-LIBRARY/CLASSES:ERROR "Bad Operator")) ; ; note: deleting unreachable code ; ; caught COMMON-LISP:ERROR: ; COMMON-LISP:READ error during COMMON-LISP:COMPILE-FILE: error: Invalid identifier name ; --> /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/src/foust/pauli-operator.lisp:36:11 ; | ; 36 | (define (mcommute? a b) ; | ^^^^^^^^^ The symbol MCOMMUTE? is defined in the package #<PACKAGE "COALTON-LIBRARY/CLASSES"> and not the current package #<PACKAGE "CL-QUIL.FOUST/PAULI-OPERATOR"> ; (in form starting at line: 29, column: 0, position: 509) Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=3153503 "main thread" RUNNING {123FF38093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-quil/foust" "pauli-operator"> Backtrace for: #<SB-THREAD:THREAD tid=3153503 "main thread" RUNNING {123FF38093}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1233E70AA3}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1233E70AA3}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1233E70AA3}>) 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/foust" "pauli-operator">))) 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/foust" "pauli-operator">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-quil/foust" "pauli-operator">) 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/foust" "pauli-operator">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204640283}>) [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 {1204640283}>) [fast-method] 11: ((: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] 12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil-tests/foust-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-tests/foust-tests">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-quil-tests/foust-tests") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil-tests/foust-tests") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1204635A2B}> :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) {12045F498B}> :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-tests/foust-tests") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-quil-tests" "cl-quil-tests/foust-tests") 23: (DEPCHECK::MAGIC "cl-quil-tests" "cl-quil-tests/foust-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-gKTf3V4y/depcheck-win.txt") 24: (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-gKTf3V4y/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-gKTf3V4y/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: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/parse-float/8031b1b03c4861658df12660cf2465e195af4bce/parse-float-20250701-git/parse-float.asd" contains definition for system "parse-float-tests". Please only define "parse-float" and secondary systems with a name starting with "parse-float/" (e.g. "parse-float/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 STYLE-WARNING: The new FTYPE proclamation for FSET::VECTOR-SET-BINARY-SEARCH-LO(FUNCTION (SIMPLE-VECTOR T) FIXNUM)does not match the derived return type(FUNCTION (SIMPLE-VECTOR T) (VALUES (INTEGER -4611686018427387904 4611686018427387904) &OPTIONAL)) 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)) *) STYLE-WARNING: Generic function FSET:ITERATOR clobbers an earlier FTYPE proclamation (FUNCTION (T &KEY &ALLOW-OTHER-KEYS) (VALUES FUNCTION &REST T)) for the same name with (FUNCTION (T &KEY &ALLOW-OTHER-KEYS) *). WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/fiasco/25c6341ba51ec6b1c07a4ed18827f480f8e3fa89/fiasco-20250701-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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {121E81A3DF}> ; (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 {121E7BD2C3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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... {121F50234F}> ; 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 {121F4576E3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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 {1230AB4BD3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-git/src/compile-gate.lisp ; 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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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 ; (SQRT (- (QVM:FLONUM 1) QVM::EXCITED-PROBABILITY)) ; ; note: doing float to pointer coercion (cost 13) ; in: DEFGENERIC GET-EXCITED-STATE-PROBABILITY ; (AREF QVM::RHO QVM::I QVM::I) ; ; note: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; ; note: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/src/matrix-operations.lisp ; in: DEFUN ORTHONORMALIZE-MATRIX! ; (SQRT CL-QUIL::N^2) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {12146F343F}> ; (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... {12146F343F}> ; (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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {1230BC4FEF}> ; (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... {1230BC4FEF}> ; (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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {1231672EBF}> ; (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 {12316689C3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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 {1231DB06F3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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... {1231FFE69F}> ; (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 {1231FF2353}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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 {12046A6B83}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {1205E746AF}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {1205E6A6E3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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"> COMMON-LISP:WARNING: redefining SB-MPFR::MPFR_GET_Q in DEFUN ; ; caught COMMON-LISP:ERROR: ; COMMON-LISP:READ error during COMMON-LISP:COMPILE-FILE: error: Instance missing context ; --> /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/src/discrete/numeric/utilities.lisp:238:21 ; | ; 238 | (define-instance (Factorable (Complex Integer)) ; | ______________________^ ; 239 | | (define (canonical-factor x) ; | |_^ No instance for COMPLEX INTEGER arising from constraints of superclasses NUM (COMPLEX INTEGER) ; (in form starting at line: 9, column: 0, position: 163) Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=3153484 "main thread" RUNNING {1200EF8093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-quil/discrete" "numeric" "utilities"> Backtrace for: #<SB-THREAD:THREAD tid=3153484 "main thread" RUNNING {1200EF8093}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {12299C19F3}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {12299C19F3}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {12299C19F3}>) 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/discrete" "numeric" "utilities">))) 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/discrete" "numeric" "utilities">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-quil/discrete" "numeric" "utilities">) 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/discrete" "numeric" "utilities">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204640283}>) [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 {1204640283}>) [fast-method] 11: ((: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] 12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil-tests/discrete-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-tests/discrete-tests">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-quil-tests/discrete-tests") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil-tests/discrete-tests") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1204635A2B}> :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) {12045F498B}> :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-tests/discrete-tests") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-quil-tests" "cl-quil-tests/discrete-tests") 23: (DEPCHECK::MAGIC "cl-quil-tests" "cl-quil-tests/discrete-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-opA6pY3G/depcheck-win.txt") 24: (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-opA6pY3G/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-opA6pY3G/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 52 notes
STYLE-WARNING: The new FTYPE proclamation for FSET::VECTOR-SET-BINARY-SEARCH-LO(FUNCTION (SIMPLE-VECTOR T) FIXNUM)does not match the derived return type(FUNCTION (SIMPLE-VECTOR T) (VALUES (INTEGER -4611686018427387904 4611686018427387904) &OPTIONAL)) 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)) *) STYLE-WARNING: Generic function FSET:ITERATOR clobbers an earlier FTYPE proclamation (FUNCTION (T &KEY &ALLOW-OTHER-KEYS) (VALUES FUNCTION &REST T)) for the same name with (FUNCTION (T &KEY &ALLOW-OTHER-KEYS) *). ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/coalton/071390527f8515f08562dcaf349dfde693b77025/coalton-20250701-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/071390527f8515f08562dcaf349dfde693b77025/coalton-20250701-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 1 STYLE-WARNING condition ; printed 2 notes WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/parse-float/8031b1b03c4861658df12660cf2465e195af4bce/parse-float-20250701-git/parse-float.asd" contains definition for system "parse-float-tests". Please only define "parse-float" and secondary systems with a name starting with "parse-float/" (e.g. "parse-float/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/071390527f8515f08562dcaf349dfde693b77025/coalton-20250701-git/library/iterator.lisp ; in: COMMON-LISP:DEFUN INTERLEAVE! ; (+ COALTON-LIBRARY/MATH/NUM::A COALTON-LIBRARY/MATH/NUM::B) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a COMMON-LISP:NUMBER, not a COMMON-LISP:FIXNUM. ; The second argument is a COMMON-LISP:NUMBER, not a COMMON-LISP:FIXNUM. ; The result is a (COMMON-LISP:VALUES COMMON-LISP:NUMBER COMMON-LISP:&OPTIONAL), not a (COMMON-LISP:VALUES COMMON-LISP:FIXNUM COMMON-LISP:&OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a COMMON-LISP:NUMBER, not a COMMON-LISP:SINGLE-FLOAT. ; The second argument is a COMMON-LISP:NUMBER, not a COMMON-LISP:SINGLE-FLOAT. ; The result is a (COMMON-LISP:VALUES COMMON-LISP:NUMBER COMMON-LISP:&OPTIONAL), not a (COMMON-LISP:VALUES COMMON-LISP:SINGLE-FLOAT COMMON-LISP:&OPTIONAL). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a COMMON-LISP:NUMBER, not a COMMON-LISP:FIXNUM. ; The second argument is a COMMON-LISP:NUMBER, not a COMMON-LISP:FIXNUM. ; The result is a (COMMON-LISP:VALUES COMMON-LISP:NUMBER COMMON-LISP:&OPTIONAL), not a (COMMON-LISP:VALUES COMMON-LISP:FIXNUM COMMON-LISP:&OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a COMMON-LISP:NUMBER, not a COMMON-LISP:SINGLE-FLOAT. ; The second argument is a COMMON-LISP:NUMBER, not a COMMON-LISP:SINGLE-FLOAT. ; The result is a (COMMON-LISP:VALUES COMMON-LISP:NUMBER COMMON-LISP:&OPTIONAL), not a (COMMON-LISP:VALUES COMMON-LISP:SINGLE-FLOAT COMMON-LISP:&OPTIONAL). ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/coalton/071390527f8515f08562dcaf349dfde693b77025/coalton-20250701-git/library/vector.lisp ; in: COMMON-LISP:DEFUN EXTEND! ; (- COALTON-LIBRARY/MATH/NUM::A COALTON-LIBRARY/MATH/NUM::B) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (COMMON-LISP:REAL (0)), not a COMMON-LISP:FIXNUM. ; The result is a (COMMON-LISP:VALUES (COMMON-LISP:OR (COMMON-LISP:RATIONAL (-17592186044415)) (COMMON-LISP:DOUBLE-FLOAT -1.7592186044415d13) (COMMON-LISP:SINGLE-FLOAT -1.7592186e13)) COMMON-LISP:&OPTIONAL), not a (COMMON-LISP:VALUES COMMON-LISP:FIXNUM COMMON-LISP:&OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (COMMON-LISP:REAL (0)), not a (COMMON-LISP:UNSIGNED-BYTE 64). ; The result is a (COMMON-LISP:VALUES (COMMON-LISP:OR (COMMON-LISP:RATIONAL (-17592186044415)) (COMMON-LISP:DOUBLE-FLOAT -1.7592186044415d13) (COMMON-LISP:SINGLE-FLOAT -1.7592186e13)) COMMON-LISP:&OPTIONAL), not a (COMMON-LISP:VALUES (COMMON-LISP:UNSIGNED-BYTE 64) COMMON-LISP:&OPTIONAL). ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/coalton/071390527f8515f08562dcaf349dfde693b77025/coalton-20250701-git/library/slice.lisp ; in: COMMON-LISP:DEFUN ITER-SLIDING ; (- COALTON-LIBRARY/MATH/NUM::A COALTON-LIBRARY/MATH/NUM::B) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (COMMON-LISP:OR (COMMON-LISP:FLOAT (0.0) (4.611686e18)) (COMMON-LISP:RATIONAL (0) (4611686018427387903))), not a COMMON-LISP:FIXNUM. ; The result is a (COMMON-LISP:VALUES (COMMON-LISP:OR (COMMON-LISP:FLOAT -4.611686e18 4.611686e18) (COMMON-LISP:RATIONAL (-4611686018427387903) (4611686018427387903))) COMMON-LISP:&OPTIONAL), not a (COMMON-LISP:VALUES COMMON-LISP:FIXNUM COMMON-LISP:&OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (COMMON-LISP:OR (COMMON-LISP:FLOAT (0.0) (4.611686e18)) (COMMON-LISP:RATIONAL (0) (4611686018427387903))), not a (COMMON-LISP:UNSIGNED-BYTE 64). ; The result is a (COMMON-LISP:VALUES (COMMON-LISP:OR (COMMON-LISP:FLOAT -4.611686e18 4.611686e18) (COMMON-LISP:RATIONAL (-4611686018427387903) (4611686018427387903))) COMMON-LISP:&OPTIONAL), not a (COMMON-LISP:VALUES (COMMON-LISP:UNSIGNED-BYTE 64) COMMON-LISP:&OPTIONAL). ; etc. ; in: COMMON-LISP:DEFUN NEW ; (COALTON-LIBRARY/CLASSES::|INSTANCE/SIGNALABLE STRING-COALTON-LIBRARY/CLASSES:ERROR| ; "Start of slice cannot be less than 0.") ; ; note: deleting unreachable code ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/coalton/071390527f8515f08562dcaf349dfde693b77025/coalton-20250701-git/library/seq.lisp ; in: COMMON-LISP:DEFUN REPLACE-LAST ; (- COALTON-LIBRARY/MATH/NUM::A COALTON-LIBRARY/MATH/NUM::B) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a COMMON-LISP:NUMBER, not a COMMON-LISP:FIXNUM. ; The result is a (COMMON-LISP:VALUES COMMON-LISP:NUMBER COMMON-LISP:&OPTIONAL), not a (COMMON-LISP:VALUES COMMON-LISP:FIXNUM COMMON-LISP:&OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a COMMON-LISP:NUMBER, not a COMMON-LISP:FIXNUM. ; The result is a (COMMON-LISP:VALUES COMMON-LISP:NUMBER COMMON-LISP:&OPTIONAL), not a (COMMON-LISP:VALUES COMMON-LISP:FIXNUM COMMON-LISP:&OPTIONAL). ; etc. 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {1208A123DF}> ; (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 {12089BC103}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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... {12096F58FF}> ; 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 {120964F623}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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 {121ACB4BD3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-git/src/compile-gate.lisp ; 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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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 ; (SQRT (- (QVM:FLONUM 1) QVM::EXCITED-PROBABILITY)) ; ; note: doing float to pointer coercion (cost 13) ; in: DEFGENERIC GET-EXCITED-STATE-PROBABILITY ; (AREF QVM::RHO QVM::I QVM::I) ; ; note: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; ; note: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/src/matrix-operations.lisp ; in: DEFUN ORTHONORMALIZE-MATRIX! ; (SQRT CL-QUIL::N^2) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {123D6945EF}> ; (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... {123D6945EF}> ; (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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {121ADA50CF}> ; (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... {121ADA50CF}> ; (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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {121B82AF1F}> ; (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 {121B80A5B3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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 {121BF3A0F3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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... {121C1A63CF}> ; (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 {121C15D983}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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 {1229F8DEC3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {122B74577F}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {122B72B753}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/src/coalton/coalton-quil.lisp ; in: COMMON-LISP:DEFUN GET-QUIL-NAMED-OPERATOR-NAME ; (COALTON:COALTON ; (COALTON-LIBRARY/CLASSES:ERROR "QuilNamedOperator does not have a name.")) ; ; note: deleting unreachable code ; in: COMMON-LISP:DEFUN GET-QUIL-DAGGER-OPERATOR-OPERATOR ; (COALTON:COALTON (COALTON-LIBRARY/CLASSES:ERROR "Bad Operator")) ; ; note: deleting unreachable code ; ; caught COMMON-LISP:ERROR: ; COMMON-LISP:READ error during COMMON-LISP:COMPILE-FILE: error: Invalid identifier name ; --> /home/quicklisp/quicklisp-controller/dist/build-cache/quilc/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/src/foust/pauli-operator.lisp:36:11 ; | ; 36 | (define (mcommute? a b) ; | ^^^^^^^^^ The symbol MCOMMUTE? is defined in the package #<PACKAGE "COALTON-LIBRARY/CLASSES"> and not the current package #<PACKAGE "CL-QUIL.FOUST/PAULI-OPERATOR"> ; (in form starting at line: 29, column: 0, position: 509) Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=3153446 "main thread" RUNNING {1200F00093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-quil/foust" "pauli-operator"> Backtrace for: #<SB-THREAD:THREAD tid=3153446 "main thread" RUNNING {1200F00093}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1215F32A23}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1215F32A23}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1215F32A23}>) 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/foust" "pauli-operator">))) 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/foust" "pauli-operator">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-quil/foust" "pauli-operator">) 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/foust" "pauli-operator">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {120464C1A3}>) [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 {120464C1A3}>) [fast-method] 11: ((: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] 12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-quil-benchmarking/foust">) 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/foust">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-quil-benchmarking/foust") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-quil-benchmarking/foust") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12046519AB}> :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) {12046109CB}> :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/foust") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-quil-benchmarking" "cl-quil-benchmarking/foust") 23: (DEPCHECK::MAGIC "cl-quil-benchmarking" "cl-quil-benchmarking/foust" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-0ZJDQDKS/depcheck-win.txt") 24: (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-0ZJDQDKS/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-0ZJDQDKS/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 60 notes
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/parse-float/8031b1b03c4861658df12660cf2465e195af4bce/parse-float-20250701-git/parse-float.asd" contains definition for system "parse-float-tests". Please only define "parse-float" and secondary systems with a name starting with "parse-float/" (e.g. "parse-float/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 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {1217862A0F}> ; (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 {12177FD1D3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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... {121854AD8F}> ; 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 {12184A74D3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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 {1229A1CBD3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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 RATIONAL SINGLE-FLOAT) &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 RATIONAL SINGLE-FLOAT), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL SINGLE-FLOAT), 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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-git/src/compile-gate.lisp ; 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/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-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 ; (SQRT (- (QVM:FLONUM 1) QVM::EXCITED-PROBABILITY)) ; ; note: doing float to pointer coercion (cost 13) ; in: DEFGENERIC GET-EXCITED-STATE-PROBABILITY ; (AREF QVM::RHO QVM::I QVM::I) ; ; note: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; ; note: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-git/src/matrix-operations.lisp ; in: DEFUN ORTHONORMALIZE-MATRIX! ; (SQRT CL-QUIL::N^2) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {120D65E65F}> ; (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... {120D65E65F}> ; (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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {1229AF537F}> ; (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... {1229AF537F}> ; (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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {122A56AEBF}> ; (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 {122A552E13}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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 {122AC7A1B3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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... {122AEF589F}> ; (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 {122AEAD7C3}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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 {1238CC5E93}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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/38b5b8116689b2cca5755a90f74e8888870a2621/quilc-20250701-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... {123A4B42CF}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {123A4B9243}> ; '#(#<SB-KERNEL:LAYOUT for T {50000003}> ; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000073}>)) ; ; 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"> WARNING: redefining TRIVIAL-BENCHMARK:RUNNING in DEFGENERIC WARNING: redefining TRIVIAL-BENCHMARK:METRICS in DEFGENERIC WARNING: redefining TRIVIAL-BENCHMARK:STARTING-VALUE in DEFGENERIC ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-git/app/src/utilities.lisp ; in: DEFUN WRITE-COMPLEX-DOUBLE-FLOAT-AS-BINARY ; (IEEE-FLOATS:ENCODE-FLOAT64 QVM-APP::RE) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET IF VALUES ; ==> ; (ASH (ROUND (* 4503599627370496 IEEE-FLOATS::SIGNIFICAND)) ; IEEE-FLOATS::EXPONENT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a FIXNUM. ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (IEEE-FLOATS:ENCODE-FLOAT64 QVM-APP::IM) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET IF VALUES ; ==> ; (ASH (ROUND (* 4503599627370496 IEEE-FLOATS::SIGNIFICAND)) ; IEEE-FLOATS::EXPONENT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a FIXNUM. ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (IEEE-FLOATS:ENCODE-FLOAT64 QVM-APP::RE) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL DECODE-FLOAT ; ==> ; 1 ; ; note: doing float to pointer coercion (cost 13) ; (IEEE-FLOATS:ENCODE-FLOAT64 QVM-APP::IM) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL DECODE-FLOAT ; ==> ; 1 ; ; note: doing float to pointer coercion (cost 13) ; in: DEFUN WRITE-DOUBLE-FLOAT-AS-BINARY ; (IEEE-FLOATS:ENCODE-FLOAT64 QVM-APP::X) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET IF VALUES ; ==> ; (ASH (ROUND (* 4503599627370496 IEEE-FLOATS::SIGNIFICAND)) ; IEEE-FLOATS::EXPONENT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a FIXNUM. ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-git/app/src/handle-request.lisp ; in: DEFUN HANDLE-POST-REQUEST ; (QVM-APP::WRITE-COMPLEX-DOUBLE-FLOAT-AS-BINARY QVM-APP::Z ; QVM-APP::REPLY-STREAM) ; --> BLOCK LET LET IEEE-FLOATS:ENCODE-FLOAT64 BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL COND THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION LET IF VALUES ; ==> ; (ASH (ROUND (* 4503599627370496 IEEE-FLOATS::SIGNIFICAND)) ; IEEE-FLOATS::EXPONENT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a FIXNUM. ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a FIXNUM. ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (QVM-APP::WRITE-DOUBLE-FLOAT-AS-BINARY QVM-APP::X QVM-APP::REPLY-STREAM) ; --> BLOCK LET IEEE-FLOATS:ENCODE-FLOAT64 BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL COND THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION LET IF VALUES ; ==> ; (ASH (ROUND (* 4503599627370496 IEEE-FLOATS::SIGNIFICAND)) ; IEEE-FLOATS::EXPONENT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a FIXNUM. ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a (OR (INTEGER * 4611686018427387392) (INTEGER 4611686018427387904)), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -1074 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (QVM-APP::WRITE-COMPLEX-DOUBLE-FLOAT-AS-BINARY QVM-APP::Z ; QVM-APP::REPLY-STREAM) ; --> BLOCK LET LET IEEE-FLOATS:ENCODE-FLOAT64 BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL COND THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> DECODE-FLOAT ; ==> ; 1 ; ; note: doing float to pointer coercion (cost 13) ; ; note: doing float to pointer coercion (cost 13) ; ; caught ERROR: ; READ error during COMPILE-FILE: Symbol "*USE-DEDICATED-OUTPUT-STREAM*" not found in the SWANK package. Line: 9, Column: 43, File-Position: 166 Stream: #<SB-INT:FORM-TRACKING-STREAM for "file /home/quicklisp/quicklisp-controller/dist/build-cache/qvm/57393a0b6556d11686b77967e67659782119e370/qvm-20250701-git/app/src/entry-point.lisp" {1213F48003}> Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=3153464 "main thread" RUNNING {123FD58093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qvm-app" "entry-point"> Backtrace for: #<SB-THREAD:THREAD tid=3153464 "main thread" RUNNING {123FD58093}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1213F591B3}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1213F591B3}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1213F591B3}>) 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-app" "entry-point">))) 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-app" "entry-point">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "qvm-app" "entry-point">) 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-app" "entry-point">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204643F63}>) [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 {1204643F63}>) [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) {120464FCCB}> :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) {120460EC0B}> :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-PVcJTY2g/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-PVcJTY2g/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-PVcJTY2g/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 62 notes