SBCL 1.5.4.68-b606c81df / ASDF 3.3.1
WARNING: redefining UIOP/PACKAGE:FIND-PACKAGE* in DEFUN WARNING: redefining UIOP/PACKAGE:FIND-SYMBOL* in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-CALL in DEFUN WARNING: redefining UIOP/PACKAGE:INTERN* in DEFUN WARNING: redefining UIOP/PACKAGE:EXPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:IMPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:SHADOWING-IMPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:SHADOW* in DEFUN WARNING: redefining UIOP/PACKAGE:MAKE-SYMBOL* in DEFUN WARNING: redefining UIOP/PACKAGE:UNINTERN* in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-SHADOWING-P in DEFUN WARNING: redefining UIOP/PACKAGE:HOME-PACKAGE-P in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-PACKAGE-NAME in DEFUN WARNING: redefining UIOP/PACKAGE:STANDARD-COMMON-LISP-SYMBOL-P in DEFUN WARNING: redefining UIOP/PACKAGE:REIFY-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:UNREIFY-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:REIFY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:UNREIFY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::RECORD-FISHY in DEFUN WARNING: redefining UIOP/PACKAGE::WHEN-PACKAGE-FISHINESS in DEFMACRO WARNING: redefining UIOP/PACKAGE::NOTE-PACKAGE-FISHINESS in DEFMACRO WARNING: redefining UIOP/PACKAGE::SET-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::MAKE-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::GET-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL-IN-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:REHOME-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE-UNUSED in DEFUN WARNING: redefining UIOP/PACKAGE:DELETE-PACKAGE* in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGE-NAMES in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGES-FROM-NAMES in DEFUN WARNING: redefining UIOP/PACKAGE:FRESH-PACKAGE-NAME in DEFUN WARNING: redefining UIOP/PACKAGE:RENAME-PACKAGE-AWAY in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGE-DEFINITION-FORM in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-SHADOWING-IMPORT in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORTED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORT in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-INHERITED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-MIX in DEFUN WARNING: redefining UIOP/PACKAGE::RECYCLE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::SYMBOL-RECYCLED-P in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED-TO-USER in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORT in DEFUN WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:PARSE-DEFINE-PACKAGE-FORM in DEFUN WARNING: redefining UIOP/PACKAGE:DEFINE-PACKAGE in DEFMACRO WARNING: redefining UIOP/COMMON-LISP::LOOP* in DEFMACRO WARNING: redefining UIOP/COMMON-LISP::FROB-SUBSTRINGS in DEFUN WARNING: redefining UIOP/COMMON-LISP::COMPATFMT in DEFMACRO WARNING: redefining UIOP/UTILITY:DEFGENERIC* in DEFMACRO WARNING: redefining UIOP/UTILITY:DEFUN* in DEFMACRO WARNING: redefining UIOP/UTILITY:WITH-UPGRADABILITY in DEFMACRO WARNING: redefining UIOP/UTILITY:UIOP-DEBUG in DEFMACRO WARNING: redefining UIOP/UTILITY:LOAD-UIOP-DEBUG-UTILITY in DEFUN WARNING: redefining UIOP/UTILITY:NEST in DEFMACRO WARNING: redefining UIOP/UTILITY:IF-LET in DEFMACRO WARNING: redefining UIOP/UTILITY:PARSE-BODY in DEFUN WARNING: redefining UIOP/UTILITY:WHILE-COLLECTING in DEFMACRO WARNING: redefining UIOP/UTILITY:APPENDF in DEFMACRO WARNING: redefining UIOP/UTILITY:LENGTH=N-P in DEFUN WARNING: redefining UIOP/UTILITY:ENSURE-LIST in DEFUN WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEY in DEFUN WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEYS in DEFUN WARNING: redefining UIOP/UTILITY:EMPTYP in DEFUN WARNING: redefining UIOP/UTILITY:CHARACTER-TYPE-INDEX in DEFUN WARNING: redefining UIOP/UTILITY:BASE-STRING-P in DEFUN WARNING: redefining UIOP/UTILITY:STRINGS-COMMON-ELEMENT-TYPE in DEFUN WARNING: redefining UIOP/UTILITY:REDUCE/STRCAT in DEFUN WARNING: redefining UIOP/UTILITY:STRCAT in DEFUN WARNING: redefining UIOP/UTILITY:FIRST-CHAR in DEFUN WARNING: redefining UIOP/UTILITY:LAST-CHAR in DEFUN WARNING: redefining UIOP/UTILITY:SPLIT-STRING in DEFUN WARNING: redefining UIOP/UTILITY:STRING-PREFIX-P in DEFUN WARNING: redefining UIOP/UTILITY:STRING-SUFFIX-P in DEFUN WARNING: redefining UIOP/UTILITY:STRING-ENCLOSED-P in DEFUN WARNING: redefining UIOP/UTILITY:STRIPLN in DEFUN WARNING: redefining UIOP/UTILITY:STANDARD-CASE-SYMBOL-NAME in DEFUN WARNING: redefining UIOP/UTILITY:FIND-STANDARD-CASE-SYMBOL in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP*< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP<= in DEFUN WARNING: redefining UIOP/UTILITY:EARLIER-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS-EARLIEST in DEFUN WARNING: redefining UIOP/UTILITY:EARLIEST-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:LATER-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS-LATEST in DEFUN WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP-F in DEFMACRO WARNING: redefining UIOP/UTILITY:ENSURE-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:ACCESS-AT in DEFUN WARNING: redefining UIOP/UTILITY:ACCESS-AT-COUNT in DEFUN WARNING: redefining UIOP/UTILITY:CALL-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:CALL-FUNCTIONS in DEFUN WARNING: redefining UIOP/UTILITY:REGISTER-HOOK-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:COERCE-CLASS in DEFUN WARNING: redefining UIOP/UTILITY:ENSURE-GETHASH in DEFUN WARNING: redefining UIOP/UTILITY:LIST-TO-HASH-SET in DEFUN WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC< in DEFUN WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC<= in DEFUN WARNING: redefining UIOP/UTILITY:STYLE-WARN in DEFUN WARNING: redefining UIOP/UTILITY:MATCH-CONDITION-P in DEFUN WARNING: redefining UIOP/UTILITY:MATCH-ANY-CONDITION-P in DEFUN WARNING: redefining UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS in DEFUN WARNING: redefining UIOP/UTILITY:WITH-MUFFLED-CONDITIONS in DEFMACRO WARNING: redefining UIOP/UTILITY:NOT-IMPLEMENTED-ERROR in DEFUN WARNING: redefining UIOP/UTILITY:PARAMETER-ERROR in DEFUN WARNING: redefining UIOP/VERSION:UNPARSE-VERSION in DEFUN WARNING: redefining UIOP/VERSION:PARSE-VERSION in DEFUN WARNING: redefining UIOP/VERSION:NEXT-VERSION in DEFUN WARNING: redefining UIOP/VERSION:VERSION< in DEFUN WARNING: redefining UIOP/VERSION:VERSION<= in DEFUN WARNING: redefining UIOP/VERSION::DEPRECATED-FUNCTION-CONDITION-KIND in DEFUN WARNING: redefining PRINT-OBJECT (#<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:DETECT-OS in DEFUN WARNING: redefining UIOP/OS:OS-COND in DEFMACRO WARNING: redefining UIOP/OS:GETENV in DEFUN WARNING: redefining UIOP/OS:GETENVP in DEFUN WARNING: redefining UIOP/OS::FIRST-FEATURE in DEFUN WARNING: redefining UIOP/OS:IMPLEMENTATION-TYPE in DEFUN WARNING: redefining UIOP/OS:OPERATING-SYSTEM in DEFUN WARNING: redefining UIOP/OS:ARCHITECTURE in DEFUN WARNING: redefining UIOP/OS:LISP-VERSION-STRING in DEFUN WARNING: redefining UIOP/OS:IMPLEMENTATION-IDENTIFIER in DEFUN WARNING: redefining UIOP/OS:HOSTNAME in DEFUN WARNING: redefining UIOP/OS:GETCWD in DEFUN WARNING: redefining UIOP/OS:CHDIR in DEFUN WARNING: redefining UIOP/OS:READ-NULL-TERMINATED-STRING in DEFUN WARNING: redefining UIOP/OS:READ-LITTLE-ENDIAN in DEFUN WARNING: redefining UIOP/OS:PARSE-FILE-LOCATION-INFO in DEFUN WARNING: redefining UIOP/OS:PARSE-WINDOWS-SHORTCUT in DEFUN WARNING: redefining UIOP/PATHNAME:NORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:DENORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAME-DIRECTORY-COMPONENTS in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME* in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-COMPONENT-LOGICAL in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-LOGICAL in DEFUN WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAMES* in DEFUN WARNING: redefining UIOP/PATHNAME:LOGICAL-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PHYSICAL-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PHYSICALIZE-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:NIL-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:WITH-PATHNAME-DEFAULTS in DEFMACRO WARNING: redefining UIOP/PATHNAME:PATHNAME-EQUAL in DEFUN WARNING: redefining UIOP/PATHNAME:ABSOLUTE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:HIDDEN-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:FILE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-PARENT-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORY-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SPLIT-UNIX-NAMESTRING-DIRECTORY-COMPONENTS in DEFUN WARNING: redefining UIOP/PATHNAME:SPLIT-NAME-TYPE in DEFUN WARNING: redefining UIOP/PATHNAME:PARSE-UNIX-NAMESTRING in DEFUN WARNING: redefining UIOP/PATHNAME:UNIX-NAMESTRING in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHNAME* in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-ROOT in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-HOST-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-ABSOLUTE-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHP in DEFUN WARNING: redefining UIOP/PATHNAME:ENOUGH-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:WITH-ENOUGH-PATHNAME in DEFMACRO WARNING: redefining UIOP/PATHNAME:WILDEN in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVIZE-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVIZE-PATHNAME-DIRECTORY in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORY-SEPARATOR-FOR-HOST in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORIZE-PATHNAME-HOST-DEVICE in DEFUN WARNING: redefining UIOP/FILESYSTEM:NATIVE-NAMESTRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:PARSE-NATIVE-NAMESTRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:TRUENAME* in DEFUN WARNING: redefining UIOP/FILESYSTEM:SAFE-FILE-WRITE-DATE in DEFUN WARNING: redefining UIOP/FILESYSTEM:PROBE-FILE* in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-EXISTS-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:FILE-EXISTS-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY* in DEFUN WARNING: redefining UIOP/FILESYSTEM:FILTER-LOGICAL-DIRECTORY-RESULTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-FILES in DEFUN WARNING: redefining UIOP/FILESYSTEM:SUBDIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:COLLECT-SUB*DIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:TRUENAMIZE in DEFUN WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS in DEFUN WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS* in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-PATHNAME in DEFUN WARNING: redefining UIOP/FILESYSTEM:GET-PATHNAME-DEFAULTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:CALL-WITH-CURRENT-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:WITH-CURRENT-DIRECTORY in DEFMACRO WARNING: redefining UIOP/FILESYSTEM:INTER-DIRECTORY-SEPARATOR in DEFUN WARNING: redefining UIOP/FILESYSTEM:SPLIT-NATIVE-PATHNAMES-STRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAME in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAMES in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-PATHNAME-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:ENSURE-ALL-DIRECTORIES-EXIST in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-FILE-IF-EXISTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:RENAME-FILE-OVERWRITING-TARGET in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-EMPTY-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-DIRECTORY-TREE in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDIN in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDOUT in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDERR in DEFUN WARNING: redefining UIOP/STREAM:ALWAYS-DEFAULT-ENCODING in DEFUN WARNING: redefining UIOP/STREAM:DETECT-ENCODING in DEFUN WARNING: redefining UIOP/STREAM:DEFAULT-ENCODING-EXTERNAL-FORMAT in DEFUN WARNING: redefining UIOP/STREAM:ENCODING-EXTERNAL-FORMAT in DEFUN WARNING: redefining UIOP/STREAM:WITH-SAFE-IO-SYNTAX in DEFMACRO WARNING: redefining UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FROM-STRING in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-OUTPUT-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-OUTPUT-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::CALL-WITH-OUTPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-OUTPUT in DEFMACRO WARNING: redefining UIOP/STREAM:OUTPUT-STRING in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-INPUT-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-INPUT-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::CALL-WITH-INPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-INPUT in DEFMACRO WARNING: redefining UIOP/STREAM:INPUT-STRING in DEFUN WARNING: redefining UIOP/STREAM:NULL-DEVICE-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-INPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-NULL-INPUT in DEFMACRO WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-OUTPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-NULL-OUTPUT in DEFMACRO WARNING: redefining UIOP/STREAM:FINISH-OUTPUTS in DEFUN WARNING: redefining UIOP/STREAM:FORMAT! in DEFUN WARNING: redefining UIOP/STREAM:SAFE-FORMAT! in DEFUN WARNING: redefining UIOP/STREAM:COPY-STREAM-TO-STREAM in DEFUN WARNING: redefining UIOP/STREAM:CONCATENATE-FILES in DEFUN WARNING: redefining UIOP/STREAM:COPY-FILE in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-STRING in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINES in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINE in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORMS in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORM in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-STRING in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-LINES in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-LINE in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-FORMS in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-FORM in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-LINE in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-FORM in DEFUN WARNING: redefining UIOP/STREAM:EVAL-INPUT in DEFUN WARNING: redefining UIOP/STREAM:EVAL-THUNK in DEFUN WARNING: redefining UIOP/STREAM:STANDARD-EVAL-THUNK in DEFUN WARNING: redefining UIOP/STREAM:PRINTLN in DEFUN WARNING: redefining UIOP/STREAM:WRITELN in DEFUN WARNING: redefining UIOP/STREAM:DEFAULT-TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:SETUP-TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-TEMPORARY-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-TEMPORARY-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::GET-TEMPORARY-FILE in DEFUN WARNING: redefining UIOP/STREAM:ADD-PATHNAME-SUFFIX in DEFUN WARNING: redefining UIOP/STREAM:TMPIZE-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-STAGING-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:WITH-STAGING-PATHNAME in DEFMACRO WARNING: redefining UIOP/STREAM:FILE-STREAM-P in DEFUN WARNING: redefining UIOP/STREAM:FILE-OR-SYNONYM-STREAM-P in DEFUN WARNING: redefining UIOP/IMAGE:QUIT in DEFUN WARNING: redefining UIOP/IMAGE:DIE in DEFUN WARNING: redefining UIOP/IMAGE:RAW-PRINT-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:PRINT-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:PRINT-CONDITION-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:FATAL-CONDITION-P in DEFUN WARNING: redefining UIOP/IMAGE:HANDLE-FATAL-CONDITION in DEFUN WARNING: redefining UIOP/IMAGE:CALL-WITH-FATAL-CONDITION-HANDLER in DEFUN WARNING: redefining UIOP/IMAGE:WITH-FATAL-CONDITION-HANDLER in DEFMACRO WARNING: redefining UIOP/IMAGE:SHELL-BOOLEAN-EXIT in DEFUN WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-RESTORE-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-DUMP-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:CALL-IMAGE-RESTORE-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:CALL-IMAGE-DUMP-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:RAW-COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:ARGV0 in DEFUN WARNING: redefining UIOP/IMAGE:SETUP-COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:RESTORE-IMAGE in DEFUN WARNING: redefining UIOP/IMAGE:DUMP-IMAGE in DEFUN WARNING: redefining UIOP/IMAGE:CREATE-IMAGE in DEFUN WARNING: redefining UIOP/LISP-BUILD:GET-OPTIMIZATION-SETTINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:PROCLAIM-OPTIMIZATION-SETTINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-OPTIMIZATION-SETTINGS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD::SB-GROVEL-UNKNOWN-CONSTANT-CONDITION-P in DEFUN WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-COMPILER-CONDITIONS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-COMPILER-CONDITIONS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-LOADER-CONDITIONS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-LOADER-CONDITIONS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS in DEFUN WARNING: redefining UIOP/LISP-BUILD:REIFY-SIMPLE-SEXP in DEFUN WARNING: redefining UIOP/LISP-BUILD:UNREIFY-SIMPLE-SEXP in DEFUN WARNING: redefining UIOP/LISP-BUILD::REIFY-UNDEFINED-WARNING in DEFUN WARNING: redefining UIOP/LISP-BUILD:REIFY-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:UNREIFY-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:RESET-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:SAVE-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-TYPE in DEFUN WARNING: redefining UIOP/LISP-BUILD:ENABLE-DEFERRED-WARNINGS-CHECK in DEFUN WARNING: redefining UIOP/LISP-BUILD:DISABLE-DEFERRED-WARNINGS-CHECK in DEFUN WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-P in DEFUN WARNING: redefining UIOP/LISP-BUILD:CHECK-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD::CALL-WITH-SAVED-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-SAVED-DEFERRED-WARNINGS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CURRENT-LISP-FILE-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:LISPIZE-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-TYPE in DEFUN WARNING: redefining UIOP/LISP-BUILD:CALL-AROUND-HOOK in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-PATHNAME* in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD* in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD-FROM-STRING in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMBINE-FASLS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::REQUIRES-ESCAPING-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-WINDOWS-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::EASY-WINDOWS-CHARACTER-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-SH-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:EASY-SH-CHARACTER-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%NORMALIZE-IO-SPECIFIER in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%INTERACTIVEP in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%SIGNAL-TO-EXIT-CODE in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%CODE-TO-STATUS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-EXISTS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-DOES-NOT-EXIST in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-ERROR-OUTPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-INPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-OUTPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-PID in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%PROCESS-STATUS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-ALIVE-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:WAIT-PROCESS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%POSIX-SEND-SIGNAL in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:TERMINATE-PROCESS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:CLOSE-STREAMS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:LAUNCH-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::CALL-STREAM-PROCESSOR in DEFUN WARNING: redefining UIOP/RUN-PROGRAM:SLURP-INPUT-STREAM in DEFGENERIC WARNING: redefining SLURP-INPUT-STREAM (#<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 (#<STRUCTURE-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 (#<STRUCTURE-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:LOCATION-DESIGNATOR-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:LOCATION-FUNCTION-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:REGISTER-CLEAR-CONFIGURATION-HOOK in DEFUN WARNING: redefining UIOP/CONFIGURATION:CLEAR-CONFIGURATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:UPGRADE-CONFIGURATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:GET-FOLDER-PATH in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-DIRS in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-DIRS in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CACHE-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-RUNTIME-DIR in DEFUN WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIG-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:FILTER-PATHNAME-SET in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:FIND-PREFERRED-FILE in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION::COMPUTE-USER-CACHE in DEFUN WARNING: redefining UIOP/BACKWARD-DRIVER:COERCE-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION:USER-CONFIGURATION-DIRECTORIES in DEFUN WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIGURATION-DIRECTORIES in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-FIRST-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-USER-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-SYSTEM-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/BACKWARD-DRIVER:VERSION-COMPATIBLE-P in DEFUN ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fnv/41d382fa49889dacf8ad6a8d2fca269adb5a71d7/fnv-20190916-git/foreign-numeric-vector.lisp ; in: MAKE-FNV-TYPED-VECTOR :INT32 ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::MAKE-FNV-TYPED-VECTOR :INT32 ; :LISP-TYPE ; (SIGNED-BYTE ; 32) ; :CFFI-UNDERLYING-TYPE ; :INT32) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET OR LET IF CFFI:FOREIGN-ALLOC CFFI-SYS:%FOREIGN-ALLOC ; ==> ; (* LENGTH 4) ; ; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER. ; ; note: unable to associate */(* /) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 3) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO ; 'ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT32-PTR-REF ; (SB-INT:NAMED-LAMBDA (COMPILER-MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT32-PTR-REF) ; (#:EXPR #:ENV) ; (DECLARE ; (SB-C::LAMBDA-LIST ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT32-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT32-PTR-REF ; . DEFINE-COMPILER-MACRO) ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT32-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I) ; (SB-C::COMPILER-MACRO-ARGS #:EXPR) ; (BLOCK ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT32-PTR-REF ; `(LET # ; #))))) ; ; caught STYLE-WARNING: ; 1 call to ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT32-PTR-REF was compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call site will eliminate this warning, as will defining the compiler-macro before its first potential use. ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO ; 'ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-INT32-PTR-REF ; (SB-INT:NAMED-LAMBDA (COMPILER-MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-INT32-PTR-REF) ; (#:EXPR #:ENV) ; (DECLARE ; (SB-C::LAMBDA-LIST ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT32-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-INT32-PTR-REF ; . DEFINE-COMPILER-MACRO) ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT32-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL) ; (SB-C::COMPILER-MACRO-ARGS #:EXPR) ; (BLOCK ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-INT32-PTR-REF ; `(LET # ; ,`#))))) ; ; caught STYLE-WARNING: ; 1 call to ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-INT32-PTR-REF was compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call site will eliminate this warning, as will defining the compiler-macro before its first potential use. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET BLOCK LET COND IF IF ; ==> ; (COERCE ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL '(SIGNED-BYTE 32)) ; ; caught WARNING: ; Cannot coerce (OR (NOT INTEGER) (INTEGER * -2147483649) (INTEGER 2147483648)) to (SIGNED-BYTE 32) ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$#<~A (~A)" ; (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2 &REST ; SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-STRING "#<" STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; (WRITE-STRING " (" STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG2 STREAM) ; (WRITE-CHAR #\) STREAM)) ; NIL) ; #:G232 #:G233) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FORMAT FORMAT SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG2 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET WHEN IF FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ... ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-STRING " ... " STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G244) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET WHEN IF FORMAT FORMAT ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$>" ; (STREAM &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL (WRITE-CHAR #\> STREAM)) ; NIL)) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET ITERATE:ITER LET* BLOCK TAGBODY PROGN ; --> FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-CHAR #\ STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G262) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET ITERATE:ITER LET* BLOCK TAGBODY PROGN ; --> FORMAT FORMAT SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fnv/41d382fa49889dacf8ad6a8d2fca269adb5a71d7/fnv-20190916-git/foreign-numeric-vector.lisp ; in: MAKE-FNV-TYPED-VECTOR :INT64 ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::MAKE-FNV-TYPED-VECTOR :INT64 ; :LISP-TYPE ; (SIGNED-BYTE ; 64) ; :CFFI-UNDERLYING-TYPE ; :INT64) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET OR LET IF CFFI:FOREIGN-ALLOC CFFI-SYS:%FOREIGN-ALLOC ; ==> ; (* LENGTH 8) ; ; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER. ; ; note: unable to associate */(* /) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 3) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT64-PTR-REF ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT64-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT64-PTR-REF ; (IDENTITY ; (CFFI:MEM-REF ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT64-FOREIGN-POINTER ; :INT64 (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR-UTILS:FIX* # 8))))) ; ; note: doing signed word to integer coercion (cost 20) to "<return value>" ; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO ; 'ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT64-PTR-REF ; (SB-INT:NAMED-LAMBDA (COMPILER-MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT64-PTR-REF) ; (#:EXPR #:ENV) ; (DECLARE ; (SB-C::LAMBDA-LIST ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT64-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT64-PTR-REF ; . DEFINE-COMPILER-MACRO) ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT64-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I) ; (SB-C::COMPILER-MACRO-ARGS #:EXPR) ; (BLOCK ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT64-PTR-REF ; `(LET # ; #))))) ; ; caught STYLE-WARNING: ; 1 call to ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT64-PTR-REF was compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call site will eliminate this warning, as will defining the compiler-macro before its first potential use. ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO ; 'ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-INT64-PTR-REF ; (SB-INT:NAMED-LAMBDA (COMPILER-MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-INT64-PTR-REF) ; (#:EXPR #:ENV) ; (DECLARE ; (SB-C::LAMBDA-LIST ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT64-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-INT64-PTR-REF ; . DEFINE-COMPILER-MACRO) ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-INT64-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL) ; (SB-C::COMPILER-MACRO-ARGS #:EXPR) ; (BLOCK ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-INT64-PTR-REF ; `(LET # ; ,`#))))) ; ; caught STYLE-WARNING: ; 1 call to ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-INT64-PTR-REF was compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call site will eliminate this warning, as will defining the compiler-macro before its first potential use. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET BLOCK LET COND IF IF ; ==> ; (COERCE ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL '(SIGNED-BYTE 64)) ; ; caught WARNING: ; Cannot coerce (OR (NOT INTEGER) (INTEGER * -9223372036854775809) (INTEGER 9223372036854775808)) to (SIGNED-BYTE 64) ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$#<~A (~A)" ; (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2 &REST ; SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-STRING "#<" STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; (WRITE-STRING " (" STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG2 STREAM) ; (WRITE-CHAR #\) STREAM)) ; NIL) ; #:G231 #:G232) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FORMAT FORMAT SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG2 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET WHEN IF FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ... ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-STRING " ... " STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G243) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET WHEN IF FORMAT FORMAT ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$>" ; (STREAM &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL (WRITE-CHAR #\> STREAM)) ; NIL)) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET ITERATE:ITER LET* BLOCK TAGBODY PROGN ; --> FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-CHAR #\ STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G261) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET ITERATE:ITER LET* BLOCK TAGBODY PROGN ; --> FORMAT FORMAT SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET ITERATE:ITER LET* BLOCK TAGBODY PROGN ; --> FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-CHAR #\ STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G261) ; ; note: doing signed word to integer coercion (cost 20) ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET WHEN IF FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ... ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-STRING " ... " STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G243) ; ; note: doing signed word to integer coercion (cost 20) ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fnv/41d382fa49889dacf8ad6a8d2fca269adb5a71d7/fnv-20190916-git/foreign-numeric-vector.lisp ; in: MAKE-FNV-TYPED-VECTOR :FLOAT ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::MAKE-FNV-TYPED-VECTOR :FLOAT ; :LISP-TYPE ; SINGLE-FLOAT ; :CFFI-UNDERLYING-TYPE ; :FLOAT) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET OR LET IF CFFI:FOREIGN-ALLOC CFFI-SYS:%FOREIGN-ALLOC ; ==> ; (* LENGTH 4) ; ; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER. ; ; note: unable to associate */(* /) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 3) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO ; 'ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-FLOAT-PTR-REF ; (SB-INT:NAMED-LAMBDA (COMPILER-MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-FLOAT-PTR-REF) ; (#:EXPR #:ENV) ; (DECLARE ; (SB-C::LAMBDA-LIST ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-FLOAT-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-FLOAT-PTR-REF ; . DEFINE-COMPILER-MACRO) ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-FLOAT-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I) ; (SB-C::COMPILER-MACRO-ARGS #:EXPR) ; (BLOCK ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-FLOAT-PTR-REF ; `(LET # ; #))))) ; ; caught STYLE-WARNING: ; 1 call to ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-FLOAT-PTR-REF was compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call site will eliminate this warning, as will defining the compiler-macro before its first potential use. ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO ; 'ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-FLOAT-PTR-REF ; (SB-INT:NAMED-LAMBDA (COMPILER-MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-FLOAT-PTR-REF) ; (#:EXPR #:ENV) ; (DECLARE ; (SB-C::LAMBDA-LIST ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-FLOAT-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-FLOAT-PTR-REF ; . DEFINE-COMPILER-MACRO) ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-FLOAT-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL) ; (SB-C::COMPILER-MACRO-ARGS #:EXPR) ; (BLOCK ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-FLOAT-PTR-REF ; `(LET # ; ,`#))))) ; ; caught STYLE-WARNING: ; 1 call to ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-FLOAT-PTR-REF was compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call site will eliminate this warning, as will defining the compiler-macro before its first potential use. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET BLOCK LET COND IF IF COERCE THE ; ==> ; (SB-KERNEL:%SINGLE-FLOAT SB-C::X) ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR DOUBLE-FLOAT RATIONAL), not a DOUBLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR DOUBLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$#<~A (~A)" ; (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2 &REST ; SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-STRING "#<" STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; (WRITE-STRING " (" STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG2 STREAM) ; (WRITE-CHAR #\) STREAM)) ; NIL) ; #:G231 #:G232) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FORMAT FORMAT SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG2 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET WHEN IF FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ... ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-STRING " ... " STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G243) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET WHEN IF FORMAT FORMAT ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$>" ; (STREAM &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL (WRITE-CHAR #\> STREAM)) ; NIL)) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET ITERATE:ITER LET* BLOCK TAGBODY PROGN ; --> FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-CHAR #\ STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G261) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET ITERATE:ITER LET* BLOCK TAGBODY PROGN ; --> FORMAT FORMAT SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fnv/41d382fa49889dacf8ad6a8d2fca269adb5a71d7/fnv-20190916-git/foreign-numeric-vector.lisp ; in: MAKE-FNV-TYPED-VECTOR :DOUBLE ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::MAKE-FNV-TYPED-VECTOR :DOUBLE ; :LISP-TYPE ; DOUBLE-FLOAT ; :CFFI-UNDERLYING-TYPE ; :DOUBLE) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET OR LET IF CFFI:FOREIGN-ALLOC CFFI-SYS:%FOREIGN-ALLOC ; ==> ; (* LENGTH 8) ; ; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER. ; ; note: unable to associate */(* /) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 3) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-DOUBLE-PTR-REF ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-DOUBLE-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-DOUBLE-PTR-REF ; (IDENTITY ; (CFFI:MEM-REF ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-DOUBLE-FOREIGN-POINTER ; :DOUBLE (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR-UTILS:FIX* # 8))))) ; ; note: doing float to pointer coercion (cost 13) to "<return value>" ; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO ; 'ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-DOUBLE-PTR-REF ; (SB-INT:NAMED-LAMBDA (COMPILER-MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-DOUBLE-PTR-REF) ; (#:EXPR #:ENV) ; (DECLARE ; (SB-C::LAMBDA-LIST ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-DOUBLE-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-DOUBLE-PTR-REF ; . DEFINE-COMPILER-MACRO) ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-DOUBLE-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I) ; (SB-C::COMPILER-MACRO-ARGS #:EXPR) ; (BLOCK ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-DOUBLE-PTR-REF ; `(LET # ; #))))) ; ; caught STYLE-WARNING: ; 1 call to ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-DOUBLE-PTR-REF was compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call site will eliminate this warning, as will defining the compiler-macro before its first potential use. ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO ; 'ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-DOUBLE-PTR-REF ; (SB-INT:NAMED-LAMBDA (COMPILER-MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-DOUBLE-PTR-REF) ; (#:EXPR #:ENV) ; (DECLARE ; (SB-C::LAMBDA-LIST ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-DOUBLE-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-DOUBLE-PTR-REF ; . DEFINE-COMPILER-MACRO) ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-DOUBLE-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL) ; (SB-C::COMPILER-MACRO-ARGS #:EXPR) ; (BLOCK ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-DOUBLE-PTR-REF ; `(LET # ; ,`#))))) ; ; caught STYLE-WARNING: ; 1 call to ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-DOUBLE-PTR-REF was compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call site will eliminate this warning, as will defining the compiler-macro before its first potential use. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET BLOCK LET COND IF IF COERCE THE ; ==> ; (SB-KERNEL:%DOUBLE-FLOAT SB-C::X) ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64). ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$#<~A (~A)" ; (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2 &REST ; SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-STRING "#<" STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; (WRITE-STRING " (" STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG2 STREAM) ; (WRITE-CHAR #\) STREAM)) ; NIL) ; #:G231 #:G232) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FORMAT FORMAT SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG2 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET WHEN IF FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ... ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-STRING " ... " STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G243) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET WHEN IF FORMAT FORMAT ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$>" ; (STREAM &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL (WRITE-CHAR #\> STREAM)) ; NIL)) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET ITERATE:ITER LET* BLOCK TAGBODY PROGN ; --> FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-CHAR #\ STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G261) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET ITERATE:ITER LET* BLOCK TAGBODY PROGN ; --> FORMAT FORMAT SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET ITERATE:ITER LET* BLOCK TAGBODY PROGN ; --> FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-CHAR #\ STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G261) ; ; note: doing float to pointer coercion (cost 13) ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET WHEN IF FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ... ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-STRING " ... " STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G243) ; ; note: doing float to pointer coercion (cost 13) ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fnv/41d382fa49889dacf8ad6a8d2fca269adb5a71d7/fnv-20190916-git/foreign-numeric-vector.lisp ; in: MAKE-FNV-TYPED-VECTOR COMPLEX-FLOAT ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::MAKE-FNV-TYPED-VECTOR ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR-UTILS:COMPLEX-FLOAT :LISP-TYPE ; (COMPLEX SINGLE-FLOAT) :LISP-UNDERLYING-TYPE SINGLE-FLOAT ; :CFFI-UNDERLYING-TYPE :FLOAT :CFFI-ELTS-PER-LISP-ELT 2 :LISP-CONSTRUCTOR ; COMPLEX ...) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET OR LET IF ; ==> ; (CFFI:FOREIGN-ALLOC ; 'ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR-UTILS:COMPLEX-FLOAT :COUNT LENGTH) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT COMPLEX-FLOAT)) or (:STRUCT COMPLEX-FLOAT) instead. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET OR LET IF CFFI:FOREIGN-ALLOC CFFI-SYS:%FOREIGN-ALLOC ; ==> ; (* LENGTH 8) ; ; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER. ; ; note: unable to associate */(* /) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 3) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-FLOAT-PTR-REF ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-FLOAT-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-FLOAT-PTR-REF ; (COMPLEX ; (CFFI:MEM-REF ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-FLOAT-FOREIGN-POINTER ; :FLOAT (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR-UTILS:FIX* # 4)) ; (CFFI:MEM-REF ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-FLOAT-FOREIGN-POINTER ; :FLOAT (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR-UTILS:FIX* # 4))))) ; ; note: doing complex float to pointer coercion (cost 13) to "<return value>" ; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO ; 'ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-FLOAT-PTR-REF ; (SB-INT:NAMED-LAMBDA (COMPILER-MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-FLOAT-PTR-REF) ; (#:EXPR #:ENV) ; (DECLARE ; (SB-C::LAMBDA-LIST ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-FLOAT-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-FLOAT-PTR-REF ; . DEFINE-COMPILER-MACRO) ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-FLOAT-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I) ; (SB-C::COMPILER-MACRO-ARGS #:EXPR) ; (BLOCK ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-FLOAT-PTR-REF ; `(LET # ; #))))) ; ; caught STYLE-WARNING: ; 1 call to ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-FLOAT-PTR-REF was compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call site will eliminate this warning, as will defining the compiler-macro before its first potential use. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SETF LET* THE ; ==> ; (REALPART ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX RATIONAL). ; ==> ; (IMAGPART ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX RATIONAL). ; ==> ; (REALPART ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ==> ; (IMAGPART ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL) ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO ; 'ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-COMPLEX-FLOAT-PTR-REF ; (SB-INT:NAMED-LAMBDA (COMPILER-MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-COMPLEX-FLOAT-PTR-REF) ; (#:EXPR #:ENV) ; (DECLARE ; (SB-C::LAMBDA-LIST ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-FLOAT-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-COMPLEX-FLOAT-PTR-REF ; . DEFINE-COMPILER-MACRO) ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-FLOAT-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL) ; (SB-C::COMPILER-MACRO-ARGS #:EXPR) ; (BLOCK ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-COMPLEX-FLOAT-PTR-REF ; `(LET # ; ,`# ; ,`#))))) ; ; caught STYLE-WARNING: ; 1 call to ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-COMPLEX-FLOAT-PTR-REF was compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call site will eliminate this warning, as will defining the compiler-macro before its first potential use. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET BLOCK LET COND IF IF COERCE COND IF THE ; --> COMPLEX COERCE THE ; ==> ; (SB-KERNEL:%SINGLE-FLOAT SB-C::X) ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET BLOCK LET COND IF IF COERCE COND IF IF THE ; --> THE COMPLEX COERCE ; ==> ; (REALPART SB-C::X) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL). ; ==> ; (IMAGPART SB-C::X) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL). ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET BLOCK LET COND IF IF COERCE COND IF THE ; --> COMPLEX COERCE THE ; ==> ; (SB-KERNEL:%SINGLE-FLOAT SB-C::X) ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET BLOCK LET COND IF IF COERCE COND IF IF THE ; --> THE COMPLEX COERCE ; ==> ; (REALPART SB-C::X) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES (OR RATIONAL DOUBLE-FLOAT) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T). ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET BLOCK LET COND IF IF COERCE COND IF IF THE ; --> THE COMPLEX COERCE THE ; ==> ; (SB-KERNEL:%SINGLE-FLOAT SB-C::X) ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR RATIONAL DOUBLE-FLOAT), not a DOUBLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL DOUBLE-FLOAT), not a (SIGNED-BYTE 64). ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET BLOCK LET COND IF IF COERCE COND IF IF THE ; --> THE COMPLEX COERCE ; ==> ; (IMAGPART SB-C::X) ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a (OR (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES (OR RATIONAL DOUBLE-FLOAT) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T). ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET BLOCK LET COND IF IF COERCE COND IF IF THE ; --> THE COMPLEX COERCE THE ; ==> ; (SB-KERNEL:%SINGLE-FLOAT SB-C::X) ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a (OR RATIONAL DOUBLE-FLOAT), not a DOUBLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a (OR RATIONAL DOUBLE-FLOAT), not a (SIGNED-BYTE 64). ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$#<~A (~A)" ; (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2 &REST ; SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-STRING "#<" STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; (WRITE-STRING " (" STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG2 STREAM) ; (WRITE-CHAR #\) STREAM)) ; NIL) ; #:G237 #:G238) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FORMAT FORMAT SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG2 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET WHEN IF FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ... ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-STRING " ... " STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G249) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET WHEN IF FORMAT FORMAT ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$>" ; (STREAM &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL (WRITE-CHAR #\> STREAM)) ; NIL)) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET ITERATE:ITER LET* BLOCK TAGBODY PROGN ; --> FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-CHAR #\ STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G267) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET ITERATE:ITER LET* BLOCK TAGBODY PROGN ; --> FORMAT FORMAT SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET ITERATE:ITER LET* BLOCK TAGBODY PROGN ; --> FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-CHAR #\ STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G267) ; ; note: doing complex float to pointer coercion (cost 13) ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET WHEN IF FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ... ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-STRING " ... " STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G249) ; ; note: doing complex float to pointer coercion (cost 13) ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fnv/41d382fa49889dacf8ad6a8d2fca269adb5a71d7/fnv-20190916-git/foreign-numeric-vector.lisp ; in: MAKE-FNV-TYPED-VECTOR COMPLEX-DOUBLE ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::MAKE-FNV-TYPED-VECTOR ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR-UTILS:COMPLEX-DOUBLE :LISP-TYPE ; (COMPLEX DOUBLE-FLOAT) :LISP-UNDERLYING-TYPE DOUBLE-FLOAT ; :CFFI-UNDERLYING-TYPE :DOUBLE :CFFI-ELTS-PER-LISP-ELT 2 :LISP-CONSTRUCTOR ; COMPLEX ...) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET OR LET IF ; ==> ; (CFFI:FOREIGN-ALLOC ; 'ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR-UTILS:COMPLEX-DOUBLE :COUNT LENGTH) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT COMPLEX-DOUBLE)) or (:STRUCT COMPLEX-DOUBLE) instead. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET OR LET IF CFFI:FOREIGN-ALLOC CFFI-SYS:%FOREIGN-ALLOC ; ==> ; (* LENGTH 16) ; ; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER. ; ; note: unable to associate */(* /) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 3) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-DOUBLE-PTR-REF ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-DOUBLE-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-DOUBLE-PTR-REF ; (COMPLEX ; (CFFI:MEM-REF ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-DOUBLE-FOREIGN-POINTER ; :DOUBLE (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR-UTILS:FIX* # 8)) ; (CFFI:MEM-REF ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-DOUBLE-FOREIGN-POINTER ; :DOUBLE (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR-UTILS:FIX* # 8))))) ; ; note: doing complex float to pointer coercion (cost 13) to "<return value>" ; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO ; 'ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-DOUBLE-PTR-REF ; (SB-INT:NAMED-LAMBDA (COMPILER-MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-DOUBLE-PTR-REF) ; (#:EXPR #:ENV) ; (DECLARE ; (SB-C::LAMBDA-LIST ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-DOUBLE-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-DOUBLE-PTR-REF ; . DEFINE-COMPILER-MACRO) ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-DOUBLE-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I) ; (SB-C::COMPILER-MACRO-ARGS #:EXPR) ; (BLOCK ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-DOUBLE-PTR-REF ; `(LET # ; #))))) ; ; caught STYLE-WARNING: ; 1 call to ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-DOUBLE-PTR-REF was compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call site will eliminate this warning, as will defining the compiler-macro before its first potential use. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SETF LET* THE ; ==> ; (REALPART ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX RATIONAL). ; ==> ; (IMAGPART ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX RATIONAL). ; ==> ; (REALPART ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL) ; ; 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). ; ==> ; (IMAGPART ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL) ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO ; 'ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-COMPLEX-DOUBLE-PTR-REF ; (SB-INT:NAMED-LAMBDA (COMPILER-MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-COMPLEX-DOUBLE-PTR-REF) ; (#:EXPR #:ENV) ; (DECLARE ; (SB-C::LAMBDA-LIST ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-DOUBLE-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-COMPLEX-DOUBLE-PTR-REF ; . DEFINE-COMPILER-MACRO) ; (ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR:FNV-COMPLEX-DOUBLE-FOREIGN-POINTER ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::I ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::VAL) ; (SB-C::COMPILER-MACRO-ARGS #:EXPR) ; (BLOCK ; ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-COMPLEX-DOUBLE-PTR-REF ; `(LET # ; ,`# ; ,`#))))) ; ; caught STYLE-WARNING: ; 1 call to ORG.MIDDLEANGLE.FOREIGN-NUMERIC-VECTOR::SET-FNV-COMPLEX-DOUBLE-PTR-REF was compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call site will eliminate this warning, as will defining the compiler-macro before its first potential use. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET BLOCK LET COND IF IF COERCE COND IF THE ; --> COMPLEX COERCE THE ; ==> ; (SB-KERNEL:%DOUBLE-FLOAT SB-C::X) ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET BLOCK LET COND IF IF COERCE COND IF IF THE ; --> THE COMPLEX COERCE ; ==> ; (REALPART SB-C::X) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL). ; ==> ; (IMAGPART SB-C::X) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL). ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET BLOCK LET COND IF IF COERCE COND IF THE ; --> COMPLEX COERCE THE ; ==> ; (SB-KERNEL:%DOUBLE-FLOAT SB-C::X) ; ; 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). ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET BLOCK LET COND IF IF COERCE COND IF IF THE ; --> THE COMPLEX COERCE ; ==> ; (REALPART SB-C::X) ; ; 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 &REST T). ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET BLOCK LET COND IF IF COERCE COND IF IF THE ; --> THE COMPLEX COERCE THE ; ==> ; (SB-KERNEL:%DOUBLE-FLOAT SB-C::X) ; ; 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). ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET BLOCK LET COND IF IF COERCE COND IF IF THE ; --> THE COMPLEX COERCE ; ==> ; (IMAGPART SB-C::X) ; ; 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 &REST T). ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET BLOCK LET COND IF IF COERCE COND IF IF THE ; --> THE COMPLEX COERCE THE ; ==> ; (SB-KERNEL:%DOUBLE-FLOAT SB-C::X) ; ; 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). ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$#<~A (~A)" ; (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2 &REST ; SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-STRING "#<" STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; (WRITE-STRING " (" STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG2 STREAM) ; (WRITE-CHAR #\) STREAM)) ; NIL) ; #:G237 #:G238) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FORMAT FORMAT SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG2 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET WHEN IF FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ... ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-STRING " ... " STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G249) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET WHEN IF FORMAT FORMAT ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$>" ; (STREAM &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL (WRITE-CHAR #\> STREAM)) ; NIL)) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET ITERATE:ITER LET* BLOCK TAGBODY PROGN ; --> FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-CHAR #\ STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G267) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET ITERATE:ITER LET* BLOCK TAGBODY PROGN ; --> FORMAT FORMAT SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRING. ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET ITERATE:ITER LET* BLOCK TAGBODY PROGN ; --> FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-CHAR #\ STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G267) ; ; note: doing complex float to pointer coercion (cost 13) ; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET WHEN IF FORMAT ; ==> ; (FORMAT SB-C::DEST ; (SB-INT:NAMED-LAMBDA "fmt$ ... ~A" ; (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS) ; (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS)) ; (BLOCK NIL ; (WRITE-STRING " ... " STREAM) ; (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)) ; NIL) ; #:G249) ; ; note: doing complex float to pointer coercion (cost 13) Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005684C3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "org.middleangle.foreign-numeric-vector" "foreign-numeric-vector"> Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005684C3}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100408A093}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100408A093}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100408A093}>) 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 "org.middleangle.foreign-numeric-vector" "foreign-numeric-vector">))) 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 "org.middleangle.foreign-numeric-vector" "foreign-numeric-vector">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "org.middleangle.foreign-numeric-vector" "foreign-numeric-vector">) 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 "org.middleangle.foreign-numeric-vector" "foreign-numeric-vector">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10052D1203}>) [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 {10052D1203}>) [fast-method] 11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "org.middleangle.foreign-numeric-vector"> :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 "org.middleangle.foreign-numeric-vector">) 13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "org.middleangle.foreign-numeric-vector">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "org.middleangle.foreign-numeric-vector") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "org.middleangle.foreign-numeric-vector") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10052C8A5B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10052867DB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "org.middleangle.foreign-numeric-vector") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "org.middleangle.foreign-numeric-vector" "org.middleangle.foreign-numeric-vector") 23: (DEPCHECK::MAGIC "org.middleangle.foreign-numeric-vector" "org.middleangle.foreign-numeric-vector" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Qs4K7rlR/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "org.middleangle.foreign-numeric-vector" "org.middleangle.foreign-numeric-vector" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Qs4K7rlR/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Qs4K7rlR/depcheck-fail.txt")) 25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 26: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE)) 27: ((FLET "WITHOUT-INTERRUPTS-BODY-14" :IN SAVE-LISP-AND-DIE)) 28: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE)) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; caught 2 WARNING conditions ; caught 14 STYLE-WARNING conditions ; printed 152 notes