SBCL 2.5.5.114-85e41f89c / ASDF 3.3.5
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/parse-float/8031b1b03c4861658df12660cf2465e195af4bce/parse-float-20250702-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-20250702-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-20250702-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... {12178E1EDF}> ; (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 {121782F773}> ; '#(#<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... {12185D1A0F}> ; 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 {121852F473}> ; '#(#<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-20250702-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-20250702-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 {1229AACBD3}> ; '#(#<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-20250702-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-20250702-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-20250702-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-20250702-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-20250702-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-20250702-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-20250702-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... {120D6FDD6F}> ; (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... {120D6FDD6F}> ; (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-20250702-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... {1229AFD0AF}> ; (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... {1229AFD0AF}> ; (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-20250702-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... {122A582F1F}> ; (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 {122A54C313}> ; '#(#<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 {122AC94423}> ; '#(#<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... {122AF063AF}> ; (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 {122AEB6203}> ; '#(#<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-20250702-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 {1238CED853}> ; '#(#<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-20250702-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... {123A4CC35F}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {123A4D1B53}> ; '#(#<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-20250702-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-20250702-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-20250702-git/app/src/entry-point.lisp" {1210F18ED3}> Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=3421611 "main thread" RUNNING {123FD68093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qvm-app" "entry-point"> Backtrace for: #<SB-THREAD:THREAD tid=3421611 "main thread" RUNNING {123FD68093}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1210F32063}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1210F32063}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1210F32063}>) 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 {12045B5783}>) [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 {12045B5783}>) [fast-method] 11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "qvm-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 "qvm-tests">) 13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "qvm-tests">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "qvm-tests") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "qvm-tests") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12045BF64B}> :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) {120457E58B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "qvm-tests") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "qvm-tests" "qvm-tests") 23: (DEPCHECK::MAGIC "qvm-tests" "qvm-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-k34uwdOZ/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "qvm-tests" "qvm-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-k34uwdOZ/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-k34uwdOZ/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: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/parse-float/8031b1b03c4861658df12660cf2465e195af4bce/parse-float-20250702-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-20250702-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... {1217802A0F}> ; (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 {1217747733}> ; '#(#<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... {12184F171F}> ; 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 {12184474D3}> ; '#(#<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-20250702-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-20250702-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 {12299D4BD3}> ; '#(#<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-20250702-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-20250702-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-20250702-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-20250702-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-20250702-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-20250702-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-20250702-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... {120D5BB43F}> ; (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... {120D5BB43F}> ; (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-20250702-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... {1229A159FF}> ; (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... {1229A159FF}> ; (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-20250702-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... {122A492EBF}> ; (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 {122A44CFC3}> ; '#(#<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 {122ABA6073}> ; '#(#<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... {122AE1669F}> ; (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 {122AE187F3}> ; '#(#<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-20250702-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 {1238C55523}> ; '#(#<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-20250702-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... {123A43CA7F}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {123A432C43}> ; '#(#<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-20250702-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-20250702-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-20250702-git/app/src/entry-point.lisp" {1210E90ED3}> Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=3421591 "main thread" RUNNING {123FDA0093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qvm-app" "entry-point"> Backtrace for: #<SB-THREAD:THREAD tid=3421591 "main thread" RUNNING {123FDA0093}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1210EAA023}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1210EAA023}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1210EAA023}>) 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 {120455CEC3}>) [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 {120455CEC3}>) [fast-method] 11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "qvm-examples"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "qvm-examples">) 13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "qvm-examples">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "qvm-examples") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "qvm-examples") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120456B5CB}> :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) {120452A5CB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "qvm-examples") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "qvm-examples" "qvm-examples") 23: (DEPCHECK::MAGIC "qvm-examples" "qvm-examples" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-TDKveQ5x/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "qvm-examples" "qvm-examples" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-TDKveQ5x/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-TDKveQ5x/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: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/parse-float/8031b1b03c4861658df12660cf2465e195af4bce/parse-float-20250702-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-20250702-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... {12177C1EDF}> ; (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 {121770F7D3}> ; '#(#<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... {12184B171F}> ; 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 {121840F413}> ; '#(#<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-20250702-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-20250702-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 {122997CBD3}> ; '#(#<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-20250702-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-20250702-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-20250702-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-20250702-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-20250702-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-20250702-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-20250702-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... {120D5DD8BF}> ; (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... {120D5DD8BF}> ; (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-20250702-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... {1229A459FF}> ; (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... {1229A459FF}> ; (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-20250702-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... {122A4CAEBF}> ; (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 {122A48C5E3}> ; '#(#<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 {122ABD42D3}> ; '#(#<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... {122AE463AF}> ; (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 {122ADEE6A3}> ; '#(#<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-20250702-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 {1238C94413}> ; '#(#<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-20250702-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... {123A4744AF}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {123A46AB23}> ; '#(#<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-20250702-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-20250702-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-20250702-git/app/src/entry-point.lisp" {1210E8DBA3}> Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=3421553 "main thread" RUNNING {123FD78093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qvm-app" "entry-point"> Backtrace for: #<SB-THREAD:THREAD tid=3421553 "main thread" RUNNING {123FD78093}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1210E9ED13}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1210E9ED13}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1210E9ED13}>) 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 {120465B1F3}>) [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 {120465B1F3}>) [fast-method] 11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "qvm-app"> :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 "qvm-app">) 13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "qvm-app">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "qvm-app") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "qvm-app") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12046604EB}> :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) {12046174CB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "qvm-app") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "qvm-app" "qvm-app") 23: (DEPCHECK::MAGIC "qvm-app" "qvm-app" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-m3sjQeiw/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "qvm-app" "qvm-app" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-m3sjQeiw/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-m3sjQeiw/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: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/parse-float/8031b1b03c4861658df12660cf2465e195af4bce/parse-float-20250702-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-20250702-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-20250702-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... {12178A2FCF}> ; (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 {12177E7933}> ; '#(#<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... {121858971F}> ; 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 {12184EF413}> ; '#(#<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-20250702-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-20250702-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 {1229A54BD3}> ; '#(#<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-20250702-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-20250702-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-20250702-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-20250702-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-20250702-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-20250702-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-20250702-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... {120D6B343F}> ; (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... {120D6B343F}> ; (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-20250702-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... {1229B2CFEF}> ; (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... {1229B2CFEF}> ; (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-20250702-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... {122A5A2EBF}> ; (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 {122A57B213}> ; '#(#<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 {122ACB2153}> ; '#(#<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... {122AF2611F}> ; (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 {122AED5663}> ; '#(#<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-20250702-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 {1238D24413}> ; '#(#<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-20250702-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... {123A4EBFEF}> ; (CL-QUIL::WFS #()) ; (CL-QUIL::INTERNAL-INDICES #())) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-QUIL::ANTISOCIAL-QVM {123A4F11B3}> ; '#(#<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-20250702-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-20250702-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-20250702-git/app/src/entry-point.lisp" {1210F6BE43}> Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=3421533 "main thread" RUNNING {123FD70093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qvm-app" "entry-point"> Backtrace for: #<SB-THREAD:THREAD tid=3421533 "main thread" RUNNING {123FD70093}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1210F7CFE3}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1210F7CFE3}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1210F7CFE3}>) 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 {12045AD933}>) [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 {12045AD933}>) [fast-method] 11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "qvm-app-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 "qvm-app-tests">) 13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "qvm-app-tests">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "qvm-app-tests") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "qvm-app-tests") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12045B99AB}> :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) {12045789CB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "qvm-app-tests") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "qvm-app-tests" "qvm-app-tests") 23: (DEPCHECK::MAGIC "qvm-app-tests" "qvm-app-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-zn4an1Os/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "qvm-app-tests" "qvm-app-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-zn4an1Os/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-zn4an1Os/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