REPL Output
;;; ASDF-INSTALL: Downloading 93784 bytes from http://weitz.de/files/tbnl.tar.gz to /Users/gwking/temporary/asdf-test/TBNL.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/TBNL.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
tbnl-0.9.7/
tbnl-0.9.7/doc/
tbnl-0.9.7/doc/index.html
tbnl-0.9.7/CHANGELOG
tbnl-0.9.7/README
tbnl-0.9.7/araneida.lisp
tbnl-0.9.7/cookie.lisp
tbnl-0.9.7/html.lisp
tbnl-0.9.7/log.lisp
tbnl-0.9.7/mime-types.lisp
tbnl-0.9.7/modlisp.lisp
tbnl-0.9.7/packages.lisp
tbnl-0.9.7/reply.lisp
tbnl-0.9.7/request.lisp
tbnl-0.9.7/session.lisp
tbnl-0.9.7/specials.lisp
tbnl-0.9.7/tbnl-test.asd
tbnl-0.9.7/tbnl.asd
tbnl-0.9.7/util.lisp
tbnl-0.9.7/contrib/
tbnl-0.9.7/contrib/create-groups-bind-regex-dispatcher/
tbnl-0.9.7/contrib/create-groups-bind-regex-dispatcher/README
tbnl-0.9.7/contrib/create-groups-bind-regex-dispatcher/create-groups-bind-regex-dispatcher.lisp
tbnl-0.9.7/test/
tbnl-0.9.7/test/UTF-8-demo.html
tbnl-0.9.7/test/araneida-test.lisp
tbnl-0.9.7/test/fz.jpg
tbnl-0.9.7/test/packages.lisp
tbnl-0.9.7/test/test.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/" ;;; ASDF-INSTALL: Downloading package URL-REWRITE, required by tbnl
;;; ASDF-INSTALL: Downloading 12572 bytes from http://weitz.de/files/url-rewrite.tgz to /Users/gwking/temporary/asdf-test/url-rewrite.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/url-rewrite.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
url-rewrite/
url-rewrite/doc/
url-rewrite/doc/index.html
url-rewrite/url-rewrite.asd
url-rewrite/README
url-rewrite/packages.lisp
url-rewrite/url-rewrite.lisp
url-rewrite/load.lisp
url-rewrite/CHANGELOG
url-rewrite/url-rewrite.system
url-rewrite/specials.lisp
url-rewrite/primitives.lisp
url-rewrite/test.lisp
url-rewrite/util.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/url-rewrite/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/url-rewrite/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/url-rewrite/packages.lisp" (written 29 MAR 2004 05:47:33 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (DEFPACKAGE #:URL-REWRITE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/url-rewrite/packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/url-rewrite/specials.lisp" (written 29 MAR 2004 05:47:33 PM):
; compiling (IN-PACKAGE #:URL-REWRITE)
; compiling (DEFPARAMETER *URL-REWRITE-BASE-DIRECTORY* ...)
; compiling (DEFVAR *URL-REWRITE-TAGS* ...)
; compiling (DEFVAR *URL-REWRITE-FILL-TAGS* ...)
; compiling (DEFVAR *FIND-STRING-HASH* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/url-rewrite/specials.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/url-rewrite/primitives.lisp" (written 29 MAR 2004 08:30:38 AM):
; compiling (IN-PACKAGE #:URL-REWRITE)
; compiling (DECLAIM (INLINE PEEK-CHAR*))
; compiling (DEFUN PEEK-CHAR* ...)
; compiling (DECLAIM (INLINE WHITESPACEP))
; compiling (DEFUN WHITESPACEP ...)
; compiling (DECLAIM (INLINE LETTERP))
; compiling (DEFUN LETTERP ...)
; compiling (DECLAIM (INLINE NAME-CHAR-P))
; compiling (DEFUN NAME-CHAR-P ...)
; compiling (DEFUN COMMENT-START-P ...)
; compiling (DEFUN READ-WHILE ...)
; compiling (DEFUN READ-UNTIL ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/url-rewrite/primitives.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/url-rewrite/util.lisp" (written 29 MAR 2004 08:30:38 AM):
; compiling (IN-PACKAGE #:URL-REWRITE)
; compiling (DECLAIM (INLINE SKIP-WHITESPACE))
; compiling (DEFUN SKIP-WHITESPACE ...)
; compiling (DEFUN READ-DELIMITED-STRING ...)
; compiling (DECLAIM (INLINE READ-NAME))
; compiling (DEFUN READ-NAME ...)
; compiling (DEFUN READ-ATTRIBUTE ...)
; compiling (DEFUN SKIP-COMMENT ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/url-rewrite/util.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/url-rewrite/url-rewrite.lisp" (written 29 MAR 2004 05:47:33 PM):
; compiling (IN-PACKAGE #:URL-REWRITE)
; compiling (DEFUN STARTS-WITH-SCHEME-P ...)
; compiling (DEFUN URL-ENCODE ...)
; compiling (DEFUN ADD-GET-PARAM-TO-URL ...)
; compiling (DEFUN REWRITE-URLS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/url-rewrite/url-rewrite.fasl written
; compilation finished in 0:00:00
;;; ASDF-INSTALL: Downloading package RFC2388, required by tbnl
;;; ASDF-INSTALL: Downloading 6174 bytes from http://ftp.common-lisp.net/pub/project/rfc2388/rfc2388_latest.tar.gz to /Users/gwking/temporary/asdf-test/rfc2388.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/rfc2388.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
rfc2388/rfc2388.lisp
rfc2388/rfc2388.asd
rfc2388/packages.lisp
rfc2388/test.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/rfc2388/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/rfc2388/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/rfc2388/packages.lisp" (written 18 APR 2005 08:39:40 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPACKAGE :RFC2388 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/rfc2388/packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/rfc2388/rfc2388.lisp" (written 19 SEP 2005 01:12:25 PM):
; compiling (IN-PACKAGE :RFC2388)
; compiling (DEFUN LWSP-CHAR-P ...)
; compiling (DEFUN READ-UNTIL-NEXT-BOUNDARY ...)
; compiling (DEFUN MAKE-TMP-FILE-NAME ...)
; compiling (DEFSTRUCT (HEADER # ...) ...)
; compiling (DEFUN SKIP-LINEAR-WHITESPACE ...)
; compiling (DEFGENERIC PARSE-HEADER ...)
; compiling (DEFMETHOD PARSE-HEADER ...)
; compiling (DEFMETHOD PARSE-HEADER ...)
; compiling (DEFGENERIC PARSE-MIME ...)
; compiling (DEFSTRUCT (CONTENT-TYPE # ...) ...)
; compiling (DEFUN PARSE-CONTENT-TYPE ...)
; compiling (DEFUN UNPARSE-CONTENT-TYPE ...)
; compiling (DEFSTRUCT (MIME-PART # ...) ...)
; compiling (DEFMETHOD PARSE-MIME ...)
; compiling (DEFMETHOD PARSE-MIME ...)
; compiling (DEFUN FIND-HEADER ...)
; compiling (DEFUN FIND-PARAMETER ...)
; compiling (DEFUN CONTENT-TYPE ...)
; compiling (DEFUN FIND-CONTENT-DISPOSITION-HEADER ...)
; compiling (DEFUN GET-FILE-NAME ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/rfc2388/rfc2388.fasl written
; compilation finished in 0:00:01
;;; ASDF-INSTALL: Downloading package KMRCL, required by tbnl
;;; ASDF-INSTALL: Downloading 43672 bytes from http://files.b9.com/kmrcl/kmrcl-latest.tar.gz to /Users/gwking/temporary/asdf-test/kmrcl.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/kmrcl.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
kmrcl-1.85/
kmrcl-1.85/seqs.lisp
kmrcl-1.85/sockets.lisp
kmrcl-1.85/buff-input.lisp
kmrcl-1.85/color.lisp
kmrcl-1.85/listener.lisp
kmrcl-1.85/random.lisp
kmrcl-1.85/docbook.lisp
kmrcl-1.85/os.lisp
kmrcl-1.85/macros.lisp
kmrcl-1.85/attrib-class.lisp
kmrcl-1.85/strmatch.lisp
kmrcl-1.85/symbols.lisp
kmrcl-1.85/ifstar.lisp
kmrcl-1.85/strings.lisp
kmrcl-1.85/math.lisp
kmrcl-1.85/datetime.lisp
kmrcl-1.85/byte-stream.lisp
kmrcl-1.85/xml-utils.lisp
kmrcl-1.85/impl.lisp
kmrcl-1.85/repl.lisp
kmrcl-1.85/console.lisp
kmrcl-1.85/processes.lisp
kmrcl-1.85/Makefile
kmrcl-1.85/equal.lisp
kmrcl-1.85/functions.lisp
kmrcl-1.85/kmrcl.asd
kmrcl-1.85/web-utils.lisp
kmrcl-1.85/README
kmrcl-1.85/package.lisp
kmrcl-1.85/mop.lisp
kmrcl-1.85/run-tests.lisp
kmrcl-1.85/lists.lisp
kmrcl-1.85/tests.lisp
kmrcl-1.85/io.lisp
kmrcl-1.85/kmrcl-tests.asd
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/package.lisp" (written 26 APR 2005 09:40:35 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (DEFPACKAGE #:KMRCL ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/package.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/ifstar.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFVAR IF*-KEYWORD-LIST ...)
; compiling (DEFMACRO IF* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/ifstar.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/byte-stream.lisp" (written 06 APR 2005 01:40:45 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (WHEN (SB-EXT:WITHOUT-PACKAGE-LOCKS #) ...)
; compiling (DEFSTRUCT (BYTE-ARRAY-OUTPUT-STREAM # ...) ...)
; compiling (DEFUN %PRINT-BYTE-ARRAY-OUTPUT-STREAM ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFUN BYTE-ARRAY-BOUT ...)
; compiling (DEFUN BYTE-ARRAY-OUT-MISC ...)
; compiling (DEFUN GET-OUTPUT-STREAM-DATA ...)
; compiling (DEFUN DUMP-OUTPUT-STREAM-DATA ...)
; compiling (SB-EXT:WITHOUT-PACKAGE-LOCKS (DEFVAR *SYSTEM-COPY-FN* ...) ...)
; compiling (DEFSTRUCT (BYTE-ARRAY-INPUT-STREAM # ...) ...)
; compiling (DEFUN %PRINT-BYTE-ARRAY-INPUT-STREAM ...)
; compiling (DEFUN BYTE-ARRAY-INCH ...)
; compiling (DEFUN BYTE-ARRAY-BINCH ...)
; compiling (DEFUN BYTE-ARRAY-STREAM-READ-N-BYTES ...)
; compiling (DEFUN BYTE-ARRAY-IN-MISC ...)
; compiling (DEFUN MAKE-BYTE-ARRAY-INPUT-STREAM ...)
; compiling (SETQ *FEATURES* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/byte-stream.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/macros.lisp" (written 01 OCT 2004 02:41:31 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFMACRO LET-WHEN ...)
; compiling (DEFMACRO LET-IF ...)
; compiling (DEFMACRO AIF ...)
; compiling (DEFMACRO AWHEN ...)
; compiling (DEFMACRO AWHILE ...)
; compiling (DEFMACRO AAND ...)
; compiling (DEFMACRO ACOND ...)
; compiling (DEFMACRO ALAMBDA ...)
; compiling (DEFMACRO AIF2 ...)
; compiling (DEFMACRO AWHEN2 ...)
; compiling (DEFMACRO AWHILE2 ...)
; compiling (DEFMACRO ACOND2 ...)
; compiling (DEFMACRO MAC ...)
; compiling (DEFMACRO PRINT-FORM-AND-RESULTS ...)
; compiling (DEFMACRO UNTIL ...)
; compiling (DEFMACRO WHILE ...)
; compiling (DEFMACRO FOR ...)
; compiling (DEFMACRO WITH-EACH-STREAM-LINE ...)
; compiling (DEFMACRO WITH-EACH-FILE-LINE ...)
; compiling (DEFMACRO IN ...)
; compiling (DEFMACRO MEAN ...)
; compiling (DEFMACRO WITH-GENSYMS ...)
; compiling (DEFMACRO TIME-SECONDS ...)
; compiling (DEFMACRO TIME-ITERATIONS ...)
; compiling (DEFMACRO MV-BIND ...)
; compiling (DEFMACRO DEFLEX ...)
; compiling (DEFMACRO DEF-CACHED-VECTOR ...)
; compiling (DEFMACRO DEF-CACHED-INSTANCE ...)
; compiling (DEFMACRO WITH-IGNORE-ERRORS ...)
; compiling (DEFMACRO PPMX ...)
; compiling (DEFMACRO DEFCONSTANT* ...)
; compiling (DEFMACRO DEFVAR-UNBOUND ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/macros.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/functions.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE :KMRCL)
; compiling (DEFUN MEMO-PROC ...)
; compiling (DEFUN MEMOIZE ...)
; compiling (DEFMACRO DEFUN-MEMO ...)
; compiling (DEFMACRO _F ...)
; compiling (DEFUN COMPOSE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/functions.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/lists.lisp" (written 11 NOV 2004 04:58:24 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN MKLIST ...)
; compiling (DEFUN MAP-AND-REMOVE-NILS ...)
; compiling (DEFUN FILTER ...)
; compiling (DEFUN APPENDNEW ...)
; compiling (DEFUN REMOVE-FROM-TREE-IF ...)
; compiling (DEFUN FIND-TREE ...)
; compiling (DEFUN FLATTEN ...)
; compiling (DEFUN REMOVE-KEYWORD ...)
; compiling (DEFUN REMOVE-KEYWORDS ...)
; compiling (DEFUN MAPAPPEND ...)
; compiling (DEFUN MAPCAR-APPEND-STRING-NONTAILREC ...)
; compiling (DEFUN MAPCAR-APPEND-STRING ...)
; compiling (DEFUN MAPCAR2-APPEND-STRING-NONTAILREC ...)
; compiling (DEFUN MAPCAR2-APPEND-STRING ...)
; compiling (DEFUN APPEND-SUBLISTS ...)
; compiling (DEFUN ALIST-ELEM-P ...)
; compiling (DEFUN ALISTP ...)
; compiling (DEFMACRO UPDATE-ALIST ...)
; compiling (DEFUN GET-ALIST ...)
; compiling (DEFUN (SETF GET-ALIST) ...)
; compiling (DEFUN ALIST-PLIST ...)
; compiling (DEFUN PLIST-ALIST ...)
; compiling (DEFMACRO UPDATE-PLIST ...)
; compiling (DEFUN UNIQUE-SLOT-VALUES ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/lists.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/seqs.lisp" (written 15 SEP 2004 12:45:06 PM):
; compiling (IN-PACKAGE :KMRCL)
; compiling (DEFUN NSUBSEQ ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/seqs.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/impl.lisp" (written 01 OCT 2004 02:41:31 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN CANONICALIZE-DIRECTORY-NAME ...)
; compiling (DEFUN PROBE-DIRECTORY ...)
; compiling (DEFUN CWD ...)
; compiling (DEFUN QUIT ...)
; compiling (DEFUN COMMAND-LINE-ARGUMENTS ...)
; compiling (DEFUN COPY-FILE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/impl.lisp
; in: DEFUN COPY-FILE
; (DEFUN KMRCL:COPY-FILE
; (KMRCL::FROM KMRCL::TO
; &KEY KMRCL::LINK KMRCL::OVERWRITE KMRCL::PRESERVE-SYMBOLIC-LINKS
; (KMRCL::PRESERVE-TIME T) KMRCL::REMOVE-DESTINATION KMRCL::FORCE
; KMRCL::VERBOSE)
; (COND
; ((AND (TYPEP KMRCL::FROM 'STREAM) (TYPEP KMRCL::TO 'STREAM))
; (KMRCL:COPY-BINARY-STREAM KMRCL::FROM KMRCL::TO))
; ((NOT (PROBE-FILE KMRCL::FROM))
; (ERROR "File ~A does not exist." KMRCL::FROM))
; ((EQ KMRCL::LINK :HARD)
; (KMRCL:RUN-SHELL-COMMAND "ln -f ~A ~A"
; (NAMESTRING KMRCL::FROM)
; (NAMESTRING KMRCL::TO)))
; (KMRCL::LINK
; (MULTIPLE-VALUE-BIND
; (KMRCL::STDOUT KMRCL::STDERR KMRCL::STATUS)
; (KMRCL:COMMAND-OUTPUT "ln -f ~A ~A" # #)
; (DECLARE #)
; (UNLESS # #)))
; (T (WHEN (AND # #) (DELETE-FILE KMRCL::TO))
; (LET* (# #)
; (KMRCL:RUN-SHELL-COMMAND KMRCL::CMD)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA KMRCL:COPY-FILE
; (KMRCL::FROM KMRCL::TO
; &KEY
; KMRCL::LINK
; KMRCL::OVERWRITE
; KMRCL::PRESERVE-SYMBOLIC-LINKS
; (KMRCL::PRESERVE-TIME T)
; KMRCL::REMOVE-DESTINATION
; KMRCL::FORCE
; KMRCL::VERBOSE)
; (BLOCK KMRCL:COPY-FILE
; (COND
; ((AND # #)
; (KMRCL:COPY-BINARY-STREAM KMRCL::FROM KMRCL::TO))
; ((NOT #)
; (ERROR "File ~A does not exist." KMRCL::FROM))
; ((EQ KMRCL::LINK :HARD)
; (KMRCL:RUN-SHELL-COMMAND "ln -f ~A ~A" # #))
; (KMRCL::LINK (MULTIPLE-VALUE-BIND # # # #))
; (T (WHEN # #)
; (LET* #
; #)))))
;
; caught STYLE-WARNING:
; The variable OVERWRITE is defined but never used.
;
; caught STYLE-WARNING:
; The variable PRESERVE-SYMBOLIC-LINKS is defined but never used.
;
; caught STYLE-WARNING:
; The variable VERBOSE is defined but never used.
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/impl.fasl written
; compilation finished in 0:00:00
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {10007F81}> on
#<CL-SOURCE-FILE "impl" {100ECDB9}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/io.lisp" (written 11 NOV 2004 04:58:24 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN PRINT-FILE-CONTENTS ...)
; compiling (DEFUN READ-STREAM-TO-STRING ...)
; compiling (DEFUN READ-FILE-TO-STRING ...)
; compiling (DEFUN READ-FILE-TO-USB8-ARRAY ...)
; compiling (DEFUN READ-STREAM-TO-STRINGS ...)
; compiling (DEFUN READ-FILE-TO-STRINGS ...)
; compiling (DEFUN FILE-SUBST ...)
; compiling (DEFUN PRINT-N-CHARS ...)
; compiling (DEFUN PRINT-N-STRINGS ...)
; compiling (DEFUN INDENT-SPACES ...)
; compiling (DEFUN INDENT-HTML-SPACES ...)
; compiling (DEFUN PRINT-LIST ...)
; compiling (DEFUN PRINT-ROWS ...)
; compiling (DEFSTRUCT BUF ...)
; compiling (DEFUN BREF ...)
; compiling (DEFUN (SETF BREF) ...)
; compiling (DEFUN NEW-BUF ...)
; compiling (DEFUN BUF-INSERT ...)
; compiling (DEFUN BUF-POP ...)
; compiling (DEFUN BUF-NEXT ...)
; compiling (DEFUN BUF-RESET ...)
; compiling (DEFUN BUF-CLEAR ...)
; compiling (DEFUN BUF-FLUSH ...)
; compiling (DEFUN STREAM-SUBST ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/io.lisp
; in: DEFUN STREAM-SUBST
; (KMRCL::BUF-FLUSH KMRCL::BUF KMRCL::OUT)
; ==>
; KMRCL::BUF
;
; note: deleting unreachable code
; compiling (DECLAIM (INLINE WRITE-FIXNUM))
; compiling (DEFUN WRITE-FIXNUM ...)
; compiling (DEFUN NULL-OUTPUT-STREAM ...)
; compiling (DEFUN DIRECTORY-TREE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/io.lisp
; in: DEFUN DIRECTORY-TREE
; (ERROR "~A" KMRCL::ROOT)
; ==>
; "~A"
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; compiling (DEFMACRO WITH-UTIME-DECODING ...)
; compiling (DEFVAR +DATETIME-NUMBER-STRINGS+ ...)
; compiling (DEFUN IS-DST ...)
; compiling (DEFMACRO WITH-UTIME-DECODING-UTC-OFFSET ...)
; compiling (DEFUN WRITE-UTIME-HMS ...)
; compiling (DEFUN WRITE-UTIME-HMS-STREAM ...)
; compiling (DEFUN WRITE-UTIME-HM ...)
; compiling (DEFUN WRITE-UTIME-HM-STREAM ...)
; compiling (DEFUN WRITE-UTIME-YMDHMS ...)
; compiling (DEFUN WRITE-UTIME-YMDHMS-STREAM ...)
; compiling (DEFUN WRITE-UTIME-YMDHM ...)
; compiling (DEFUN WRITE-UTIME-YMDHM-STREAM ...)
; compiling (DEFUN COPY-BINARY-STREAM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/io.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/console.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFVAR *CONSOLE-MSGS* ...)
; compiling (DEFVAR *CONSOLE-MSGS-TYPES* ...)
; compiling (DEFUN CMSG ...)
; compiling (DEFUN CMSG-C ...)
; compiling (DEFUN CMSG-ADD ...)
; compiling (DEFUN CMSG-REMOVE ...)
; compiling (DEFUN FIXME ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/console.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp" (written 01 OCT 2004 02:41:31 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFMACRO STRING-APPEND ...)
; compiling (DEFUN LIST-TO-STRING ...)
; compiling (DEFUN COUNT-STRING-WORDS ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN COUNT-STRING-WORDS
; (ALPHANUMERICP (SCHAR KMRCL::STR KMRCL::I))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; compiling (DEFUN POSITION-CHAR ...)
; compiling (DEFUN POSITION-NOT-CHAR ...)
; compiling (DEFUN DELIMITED-STRING-TO-LIST ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN DELIMITED-STRING-TO-LIST
; (SUBSEQ STRING KMRCL::POS KMRCL::END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; (SUBSEQ STRING KMRCL::POS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; compiling (DEFUN LIST-TO-DELIMITED-STRING ...)
; compiling (DEFUN STRING-INVERT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN STRING-INVERT
; (UPPER-CASE-P CHAR)
; --> BLOCK = IF
; ==>
; (= (SB-IMPL::UCD-VALUE-0 CHAR) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (LOWER-CASE-P CHAR)
; --> BLOCK = IF
; ==>
; (= (SB-IMPL::UCD-VALUE-0 CHAR) 1)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; compiling (DEFUN ADD-SQL-QUOTES ...)
; compiling (DEFUN ESCAPE-BACKSLASHES ...)
; compiling (DEFUN SUBSTITUTE-STRING-FOR-CHAR ...)
; compiling (DEFUN STRING-SUBSTITUTE ...)
; compiling (DEFUN STRING-TRIM-LAST-CHARACTER ...)
; compiling (DEFUN NSTRING-TRIM-LAST-CHARACTER ...)
; compiling (DEFUN STRING-HASH ...)
; compiling (DEFUN IS-STRING-EMPTY ...)
; compiling (DEFVAR *WHITESPACE-CHARS* ...)
; compiling (DEFUN IS-CHAR-WHITESPACE ...)
; compiling (DEFUN IS-STRING-WHITESPACE ...)
; compiling (DEFUN STRING-RIGHT-TRIM-WHITESPACE ...)
; compiling (DEFUN STRING-LEFT-TRIM-WHITESPACE ...)
; compiling (DEFUN STRING-TRIM-WHITESPACE ...)
; compiling (DEFUN REPLACED-STRING-LENGTH ...)
; compiling (DEFUN SUBSTITUTE-CHARS-STRINGS ...)
; compiling (DEFUN ESCAPE-XML-STRING ...)
; compiling (DEFUN MAKE-USB8-ARRAY ...)
; compiling (DEFUN USB8-ARRAY-TO-STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN USB8-ARRAY-TO-STRING
; (- KMRCL::END KMRCL::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; etc.
; compiling (DEFUN STRING-TO-USB8-ARRAY ...)
; compiling (DEFUN CONCAT-SEPARATED-STRINGS ...)
; compiling (DEFUN ONLY-NULL-LIST-ELEMENTS-P ...)
; compiling (DEFUN PRINT-SEPARATED-STRINGS ...)
; compiling (DEFUN PREFIXED-FIXNUM-STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN PREFIXED-FIXNUM-STRING
; (MOD KMRCL::VAL 10)
; --> BLOCK LET REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-KERNEL::DIVISOR)
;
; note: forced to do fixnum truncate (cost 50)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES (INTEGER -53687091 53687091)
; (INTEGER -9 9)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; (FLOOR KMRCL::VAL 10)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-KERNEL::DIVISOR)
;
; note: forced to do fixnum truncate (cost 50)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES (INTEGER -53687091 53687091)
; (INTEGER -9 9)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; (MOD KMRCL::VAL 10)
; --> BLOCK LET REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-KERNEL::DIVISOR)
;
; note: forced to do fixnum truncate (cost 50)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a (INTEGER -53687092
; 53687091), not a (UNSIGNED-BYTE 29).
; The result is a (VALUES (INTEGER -5368709 5368709)
; (INTEGER -9 9)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; compiling (DEFUN INTEGER-STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN INTEGER-STRING
; (MINUSP KMRCL::NUM)
; --> < IF
; ==>
; (< KMRCL::NUM 0)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (- 0 KMRCL::NUM)
; ==>
; (SB-KERNEL:%NEGATE SB-C::Y)
;
; note: forced to do static-fun %Negate (cost 52)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; (MOD KMRCL::VAL 10)
; --> BLOCK LET IF AND IF AND IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (FLOOR KMRCL::VAL 10)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF AND IF
; --> MINUSP
; ==>
; (< NUMBER 0)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES 1-
; ==>
; (- SB-KERNEL::TRU 1)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (MOD KMRCL::VAL 10)
; --> BLOCK LET IF AND IF AND IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; compiling (DEFUN FAST-STRING-SEARCH ...)
; compiling (DEFUN STRING-DELIMITED-STRING-TO-LIST ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN STRING-DELIMITED-STRING-TO-LIST
; (SUBSEQ KMRCL::STR KMRCL::POS KMRCL::END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; (SUBSEQ KMRCL::STR KMRCL::POS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; compiling (DEFUN STRING-TO-LIST-SKIP-DELIMITER ...)
; compiling (DEFUN STRING-STARTS-WITH ...)
; compiling (DEFUN COUNT-STRING-CHAR ...)
; compiling (DEFUN COUNT-STRING-CHAR-IF ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN COUNT-STRING-CHAR-IF
; (FUNCALL KMRCL::PRED (SCHAR KMRCL::S KMRCL::I))
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
; compiling (DEFUN NON-ALPHANUMERICP ...)
; compiling (DEFVAR +HEX-CHARS+ ...)
; compiling (DECLAIM (TYPE SIMPLE-STRING ...))
; compiling (DEFUN HEXCHAR ...)
; compiling (DEFCONSTANT* +CHAR-CODE-LOWER-A+ ...)
; compiling (DEFCONSTANT* +CHAR-CODE-UPPER-A+ ...)
; compiling (DEFCONSTANT* +CHAR-CODE-0+ ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFUN CHARHEX ...)
; compiling (DEFUN ENCODE-URI-STRING ...)
; compiling (DEFUN DECODE-URI-STRING ...)
; compiling (DEFVAR +UNAMBIGUOUS-CHARSET+ ...)
; compiling (DEFCONSTANT* +UNAMBIGUOUS-LENGTH+ ...)
; compiling (DEFUN RANDOM-CHAR ...)
; compiling (DEFUN RANDOM-STRING ...)
; compiling (DEFUN FIRST-CHAR ...)
; compiling (DEFUN LAST-CHAR ...)
; compiling (DEFUN ENSURE-STRING ...)
; compiling (DEFUN STRING-RIGHT-TRIM-ONE-CHAR ...)
; compiling (DEFUN STRING-STRIP-ENDING ...)
; compiling (DEFUN STRING-MAYBE-SHORTEN ...)
; compiling (DEFUN STRING-ELIDE ...)
; compiling (DEFUN SHRINK-VECTOR ...)
; compiling (DEFUN LEX-STRING ...)
; compiling (DEFUN SPLIT-ALPHANUMERIC-STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN SPLIT-ALPHANUMERIC-STRING
; (POSITION-IF-NOT #'KMRCL::IS-SEP STRING)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION-IF-NOT
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; because:
; upgraded array element type not known at compile time
; (POSITION-IF #'KMRCL::IS-SEP STRING :START KMRCL::TOKEN-START)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION-IF
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; because:
; upgraded array element type not known at compile time
; (SUBSEQ STRING KMRCL::TOKEN-START KMRCL::TOKEN-END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; (POSITION-IF-NOT #'KMRCL::IS-SEP STRING :START (1+ KMRCL::TOKEN-END))
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION-IF-NOT
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; because:
; upgraded array element type not known at compile time
; (POSITION-IF #'KMRCL::IS-SEP STRING :START KMRCL::TOKEN-START)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION-IF
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; because:
; upgraded array element type not known at compile time
; compiling (DEFUN TRIM-NON-ALPHANUMERIC ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN TRIM-NON-ALPHANUMERIC
; (ALPHANUMERICP (SCHAR KMRCL::WORD (1- KMRCL::END)))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (SUBSEQ KMRCL::WORD KMRCL::START KMRCL::END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; (ALPHANUMERICP (SCHAR KMRCL::WORD KMRCL::START))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (ALPHANUMERICP (SCHAR KMRCL::WORD (1- KMRCL::END)))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; compiling (DEFUN COLLAPSE-WHITESPACE ...)
; compiling (DEFUN STRING->LIST ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strmatch.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN SCORE-MULTIWORD-MATCH ...)
; compiling (DEFUN MULTIWORD-MATCH ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strmatch.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/buff-input.lisp" (written 19 JAN 2006 01:11:42 PM):
; compiling (IN-PACKAGE :KMRCL)
; compiling (DEFCONSTANT +MAX-FIELD+ ...)
; compiling (DEFCONSTANT +MAX-FIELDS-PER-LINE+ ...)
; compiling (DEFCONSTANT +FIELD-DELIM+ ...)
; compiling (DEFCONSTANT +EOF-CHAR+ ...)
; compiling (DEFCONSTANT +NEWLINE+ ...)
; compiling (DECLAIM (TYPE CHARACTER ...) ...)
; compiling (DEFUN MAKE-FIELDS-BUFFER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/buff-input.lisp
; in: DEFUN MAKE-FIELDS-BUFFER
; (MAKE-ARRAY KMRCL::MAX-FIELDS
; :ELEMENT-TYPE
; 'VECTOR
; :FILL-POINTER
; 0
; :ADJUSTABLE
; NIL)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MOD 536870911) CONS NULL), not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MOD 536870911) CONS NULL), not a LIST.
; (MAKE-ARRAY KMRCL::MAX-FIELD-LEN
; :ELEMENT-TYPE
; 'CHARACTER
; :FILL-POINTER
; 0
; :ADJUSTABLE
; NIL)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MOD 536870911) CONS NULL), not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MOD 536870911) CONS NULL), not a LIST.
; (SETF (AREF KMRCL::BUFS KMRCL::I)
; (MAKE-ARRAY KMRCL::MAX-FIELD-LEN
; :ELEMENT-TYPE
; 'CHARACTER
; :FILL-POINTER
; 0
; :ADJUSTABLE
; NIL))
; --> SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR T), not a SIMPLE-ARRAY.
; compiling (DEFUN READ-BUFFERED-FIELDS ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/buff-input.lisp
; in: DEFUN READ-BUFFERED-FIELDS
; (AREF KMRCL::FIELDS KMRCL::IFIELD)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (SETF (CHAR KMRCL::FIELD KMRCL::IPOS) KMRCL::RC)
; --> SB-KERNEL:%CHARSET SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a BASE-STRING, not a SIMPLE-ARRAY.
; compiling (DEFSTRUCT FIELD-BUFFERS ...)
; compiling (DEFUN MAKE-FIELDS-BUFFER2 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/buff-input.lisp
; in: DEFUN MAKE-FIELDS-BUFFER2
; (MAKE-ARRAY KMRCL::MAX-FIELDS
; :ELEMENT-TYPE
; 'VECTOR
; :FILL-POINTER
; NIL
; :ADJUSTABLE
; NIL)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MOD 536870911) CONS NULL), not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MOD 536870911) CONS NULL), not a LIST.
; (MAKE-ARRAY KMRCL::MAX-FIELD-LEN
; :ELEMENT-TYPE
; 'CHARACTER
; :FILL-POINTER
; NIL
; :ADJUSTABLE
; NIL)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MOD 536870911) CONS NULL), not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MOD 536870911) CONS NULL), not a LIST.
; compiling (DEFUN READ-BUFFERED-FIELDS2 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/buff-input.lisp
; in: DEFUN READ-BUFFERED-FIELDS2
; (AREF (KMRCL::FIELD-BUFFERS-BUFFERS KMRCL::FIELDS) KMRCL::IFIELD)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (SETF (AREF (KMRCL::FIELD-BUFFERS-FIELD-LENGTHS KMRCL::FIELDS) KMRCL::IFIELD)
; KMRCL::IPOS)
; --> SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling (DEFUN BFIELD ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/buff-input.lisp
; in: DEFUN BFIELD
; (>= KMRCL::I (KMRCL::FIELD-BUFFERS-NFIELDS KMRCL::FIELDS))
; --> IF
; ==>
; (< KMRCL::I (KMRCL::FIELD-BUFFERS-NFIELDS KMRCL::FIELDS))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (AREF (KMRCL::FIELD-BUFFERS-BUFFERS KMRCL::FIELDS) KMRCL::I)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF (KMRCL::FIELD-BUFFERS-FIELD-LENGTHS KMRCL::FIELDS) KMRCL::I)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (SUBSEQ (AREF (KMRCL::FIELD-BUFFERS-BUFFERS KMRCL::FIELDS) KMRCL::I)
; 0
; (AREF (KMRCL::FIELD-BUFFERS-FIELD-LENGTHS KMRCL::FIELDS) KMRCL::I))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 16)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES (SIMPLE-ARRAY FIXNUM (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 32)
; (*))
; &REST
; T).
; (>= KMRCL::I (KMRCL::FIELD-BUFFERS-NFIELDS KMRCL::FIELDS))
; --> IF
; ==>
; (< KMRCL::I (KMRCL::FIELD-BUFFERS-NFIELDS KMRCL::FIELDS))
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; compiling (DEFCONSTANT +MAX-LINE+ ...)
; compiling (LET (#) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/buff-input.lisp
; in: DEFUN READ-BUFFERED-LINE
; (SETF (CHAR KMRCL::LINEBUFFER KMRCL::POS) KMRCL::C)
; --> SB-KERNEL:%CHARSET SB-KERNEL:%ASET THE
; ==>
; KMRCL::LINEBUFFER
;
; note: deleting unreachable code
; (INCF KMRCL::POS)
; --> LET* +
; ==>
; KMRCL::POS
;
; note: deleting unreachable code
; (SETF (FILL-POINTER KMRCL::LINEBUFFER) (1- KMRCL::POS))
; --> SB-KERNEL:%SET-FILL-POINTER
; ==>
; KMRCL::LINEBUFFER
;
; note: deleting unreachable code
; (WARN "Line overflow")
; ==>
; "Line overflow"
;
; note: deleting unreachable code
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/buff-input.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/random.lisp" (written 15 SEP 2004 12:45:06 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN SEED-RANDOM-GENERATOR ...)
; compiling (DEFMACRO RANDOM-CHOICE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/random.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/symbols.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN CL-SYMBOLS ...)
; compiling (DEFUN CL-VARIABLES ...)
; compiling (DEFUN CL-FUNCTIONS ...)
; compiling (WHEN (CHAR= #\a ...) ...); in: LAMBDA NIL
; (PUSHNEW :KMRCL-LOWERCASE-READER *FEATURES*)
; --> LET* ADJOIN
; ==>
; *FEATURES*
;
; note: deleting unreachable code
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/symbols.lisp
; in: EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
; (PUSHNEW :KMRCL-LOWERCASE-READER *FEATURES*)
; --> LET* ADJOIN
; ==>
; *FEATURES*
;
; note: deleting unreachable code
; compiling (WHEN (NOT #) ...); in: LAMBDA NIL
; (PUSHNEW :KMRCL-CASE-SENSITIVE *FEATURES*)
; --> LET* ADJOIN
; ==>
; *FEATURES*
;
; note: deleting unreachable code
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/symbols.lisp
; in: EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
; (PUSHNEW :KMRCL-CASE-SENSITIVE *FEATURES*)
; --> LET* ADJOIN
; ==>
; *FEATURES*
;
; note: deleting unreachable code
; compiling (DEFUN STRING-DEFAULT-CASE ...)
; compiling (SETQ *FEATURES* ...)
; compiling (SETQ *FEATURES* ...)
; compiling (DEFUN CONCAT-SYMBOL-PKG ...)
; compiling (DEFUN CONCAT-SYMBOL ...)
; compiling (DEFUN ENSURE-KEYWORD ...)
; compiling (DEFUN ENSURE-KEYWORD-UPCASE ...)
; compiling (DEFUN ENSURE-KEYWORD-DEFAULT-CASE ...)
; compiling (DEFUN SHOW ...)
; compiling (DEFUN SHOW-VARIABLES ...)
; compiling (DEFUN SHOW-FUNCTIONS ...)
; compiling (DEFUN FIND-TEST-GENERIC-FUNCTIONS ...)
; compiling (DEFUN RUN-TESTS-FOR-INSTANCE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/symbols.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/datetime.lisp" (written 04 OCT 2004 01:42:33 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN PRETTY-DATE ...)
; compiling (DEFUN DATE-STRING ...)
; compiling (DEFUN PRINT-SECONDS ...)
; compiling (DEFUN PRINT-FLOAT-UNITS ...)
; compiling (DEFCONSTANT +POSIX-EPOCH+ ...)
; compiling (DEFUN POSIX-TIME-TO-UTIME ...)
; compiling (DEFUN UTIME-TO-POSIX-TIME ...)
; compiling (DEFVAR *MONTHNAMES* ...)
; compiling (DEFUN MONTHNAME ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/datetime.lisp
; in: DEFUN MONTHNAME
; (DEFUN KMRCL::MONTHNAME
; (STREAM KMRCL::ARG KMRCL::COLON-P KMRCL::AT-P
; &OPTIONAL KMRCL::WIDTH (KMRCL::MINCOL 0) (KMRCL::COLINC 1)
; (KMRCL::MINPAD 0) (KMRCL::PADCHAR #\ ))
; "Print the name of the month (1=January) corresponding to ARG on STREAM. This is intended for embedding in a FORMAT directive: WIDTH governs the number of characters of text printed, MINCOL, COLINC, MINPAD, PADCHAR work as for ~A"
; (LET ((KMRCL::MONTHSTRING (CDR #)))
; (IF (NOT KMRCL::MONTHSTRING) (RETURN-FROM KMRCL::MONTHNAME NIL))
; (LET ((TRUNCATE #))
; (FORMAT STREAM
; (IF KMRCL::AT-P "~V,V,V,V@A" "~V,V,V,VA")
; KMRCL::MINCOL
; KMRCL::COLINC
; KMRCL::MINPAD
; KMRCL::PADCHAR
; (SUBSEQ KMRCL::MONTHSTRING 0 TRUNCATE)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA KMRCL::MONTHNAME
; (STREAM KMRCL::ARG
; KMRCL::COLON-P
; KMRCL::AT-P
; &OPTIONAL
; KMRCL::WIDTH
; (KMRCL::MINCOL 0)
; (KMRCL::COLINC 1)
; (KMRCL::MINPAD 0)
; (KMRCL::PADCHAR #\ ))
; (BLOCK KMRCL::MONTHNAME
; (LET ((KMRCL::MONTHSTRING #))
; (IF (NOT KMRCL::MONTHSTRING)
; (RETURN-FROM KMRCL::MONTHNAME NIL))
; (LET (#)
; (FORMAT STREAM
; #
; KMRCL::MINCOL
; KMRCL::COLINC
; KMRCL::MINPAD
; KMRCL::PADCHAR
; #)))))
;
; caught STYLE-WARNING:
; The variable COLON-P is defined but never used.
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/datetime.fasl written
; compilation finished in 0:00:00
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40007EC9}> on
#<CL-SOURCE-FILE "datetime" {400F1F51}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/math.lisp" (written 26 APR 2005 09:40:35 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN DERIV ...)
; compiling (DEFUN SIN^ ...)
; compiling (DEFMACRO ENSURE-INTEGER ...)
; compiling (DEFUN HISTOGRAM ...)
; compiling (DEFUN FIXNUM-WIDTH ...)
; compiling (DEFUN SCALED-EPSILON ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/math.lisp
; in: DEFUN SCALED-EPSILON
; (TYPECASE FLOAT
; (SHORT-FLOAT SHORT-FLOAT-NEGATIVE-EPSILON)
; (SINGLE-FLOAT SINGLE-FLOAT-NEGATIVE-EPSILON)
; (DOUBLE-FLOAT DOUBLE-FLOAT-NEGATIVE-EPSILON)
; (LONG-FLOAT LONG-FLOAT-NEGATIVE-EPSILON))
; --> LET COND IF COND IF PROGN
; ==>
; SINGLE-FLOAT-NEGATIVE-EPSILON
;
; note: deleting unreachable code
; --> LET COND IF COND IF COND IF COND IF PROGN
; ==>
; LONG-FLOAT-NEGATIVE-EPSILON
;
; note: deleting unreachable code
; (TYPECASE FLOAT
; (SHORT-FLOAT SHORT-FLOAT-EPSILON)
; (SINGLE-FLOAT SINGLE-FLOAT-EPSILON)
; (DOUBLE-FLOAT DOUBLE-FLOAT-EPSILON)
; (LONG-FLOAT LONG-FLOAT-EPSILON))
; --> LET COND IF COND IF PROGN
; ==>
; SINGLE-FLOAT-EPSILON
;
; note: deleting unreachable code
; --> LET COND IF COND IF COND IF COND IF PROGN
; ==>
; LONG-FLOAT-EPSILON
;
; note: deleting unreachable code
; compiling (DEFUN SINC ...)
; compiling (DEFUN NUMBERS-WITHIN-PERCENTAGE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/math.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp" (written 15 SEP 2004 12:45:06 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN HSV->RGB ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp
; in: DEFUN HSV->RGB
; (ZEROP KMRCL::S)
; ==>
; (= KMRCL::S 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (MINUSP KMRCL::H)
; ==>
; (< KMRCL::H 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF KMRCL::H 360)
; --> LET*
; ==>
; (+ KMRCL::H #:G9)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (>= KMRCL::H 360)
; --> IF
; ==>
; (< KMRCL::H 360)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (DECF KMRCL::H 360)
; --> LET*
; ==>
; (- KMRCL::H #:G13)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (/ KMRCL::H 60)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (TRUNCATE KMRCL::H-POS)
; --> TRUNCATE LET VALUES
; ==>
; (- SB-C::X SB-C::RES)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (- 1 KMRCL::S)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (* KMRCL::V (- 1 KMRCL::S))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; The second argument is a NUMBER, not a INTEGER.
; (* KMRCL::S KMRCL::H-FRAC)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a (OR (RATIONAL (-1) (1))
; (DOUBLE-FLOAT (-1.0d0) (1.0d0))
; (SINGLE-FLOAT (-1.0) (1.0))), not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a (OR (RATIONAL (-1) (1))
; (DOUBLE-FLOAT (-1.0d0) (1.0d0))
; (SINGLE-FLOAT (-1.0) (1.0))), not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a (OR (RATIONAL (-1) (1))
; (DOUBLE-FLOAT (-1.0d0) (1.0d0))
; (SINGLE-FLOAT (-1.0) (1.0))), not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a (OR (RATIONAL (-1) (1))
; (DOUBLE-FLOAT (-1.0d0) (1.0d0))
; (SINGLE-FLOAT (-1.0) (1.0))), not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; The second argument is a (OR (RATIONAL (-1) (1))
; (DOUBLE-FLOAT (-1.0d0) (1.0d0))
; (SINGLE-FLOAT (-1.0) (1.0))), not a INTEGER.
; (- 1 (* KMRCL::S KMRCL::H-FRAC))
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (* KMRCL::V (- 1 (* KMRCL::S KMRCL::H-FRAC)))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; The second argument is a NUMBER, not a INTEGER.
; (- 1 KMRCL::H-FRAC)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (RATIONAL (-1) (1))
; (DOUBLE-FLOAT (-1.0d0) (1.0d0))
; (SINGLE-FLOAT (-1.0) (1.0))), not a FLOAT.
; (* KMRCL::S (- 1 KMRCL::H-FRAC))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a (OR (SINGLE-FLOAT (0.0) (2.0))
; (DOUBLE-FLOAT (0.0d0) (2.0d0))
; (RATIONAL (0) (2))), not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a (OR (SINGLE-FLOAT (0.0) (2.0))
; (DOUBLE-FLOAT (0.0d0) (2.0d0))
; (RATIONAL (0) (2))), not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a (OR (SINGLE-FLOAT (0.0) (2.0))
; (DOUBLE-FLOAT (0.0d0) (2.0d0))
; (RATIONAL (0) (2))), not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a (OR (SINGLE-FLOAT (0.0) (2.0))
; (DOUBLE-FLOAT (0.0d0) (2.0d0))
; (RATIONAL (0) (2))), not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; The second argument is a (OR (SINGLE-FLOAT (0.0) (2.0))
; (DOUBLE-FLOAT (0.0d0) (2.0d0))
; (RATIONAL (0) (2))), not a INTEGER.
; (- 1 (* KMRCL::S (- 1 KMRCL::H-FRAC)))
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (* KMRCL::V (- 1 (* KMRCL::S (- 1 KMRCL::H-FRAC))))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; The second argument is a NUMBER, not a INTEGER.
; (MINUSP KMRCL::H)
; ==>
; (< KMRCL::H 0)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (INCF KMRCL::H 360)
; --> LET*
; ==>
; (+ KMRCL::H #:G9)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (>= KMRCL::H 360)
; --> IF
; ==>
; (< KMRCL::H 360)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (TRUNCATE KMRCL::H-POS)
; --> TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: forced to do full call
; unable to do inline float truncate (cost 5) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline float truncate (cost 5) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; --> TRUNCATE LET VALUES
; ==>
; (- SB-C::X SB-C::RES)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (- 1 KMRCL::S)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (* KMRCL::V (- 1 KMRCL::S))
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline float arithmetic (cost 4) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (* KMRCL::S KMRCL::H-FRAC)
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a (OR (RATIONAL (-1) (1))
; (DOUBLE-FLOAT (-1.0d0) (1.0d0))
; (SINGLE-FLOAT (-1.0) (1.0))), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline float arithmetic (cost 4) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a (OR (RATIONAL (-1) (1))
; (DOUBLE-FLOAT (-1.0d0) (1.0d0))
; (SINGLE-FLOAT (-1.0)
; (1.0))), not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (- 1 (* KMRCL::S KMRCL::H-FRAC))
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (* KMRCL::V (- 1 (* KMRCL::S KMRCL::H-FRAC)))
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline float arithmetic (cost 4) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (- 1 KMRCL::H-FRAC)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (OR (RATIONAL (-1) (1))
; (DOUBLE-FLOAT (-1.0d0) (1.0d0))
; (SINGLE-FLOAT (-1.0) (1.0))), not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT (0.0) (2.0))
; (DOUBLE-FLOAT (0.0d0) (2.0d0))
; (RATIONAL (0) (2)))
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The second argument is a (OR (RATIONAL (-1) (1))
; (DOUBLE-FLOAT (-1.0d0) (1.0d0))
; (SINGLE-FLOAT (-1.0) (1.0))), not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT (0.0) (2.0))
; (DOUBLE-FLOAT (0.0d0) (2.0d0))
; (RATIONAL (0) (2)))
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (* KMRCL::S (- 1 KMRCL::H-FRAC))
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a (OR (SINGLE-FLOAT (0.0) (2.0))
; (DOUBLE-FLOAT (0.0d0) (2.0d0))
; (RATIONAL (0) (2))), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline float arithmetic (cost 4) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a (OR (SINGLE-FLOAT (0.0) (2.0))
; (DOUBLE-FLOAT (0.0d0) (2.0d0))
; (RATIONAL (0) (2))), not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (- 1 (* KMRCL::S (- 1 KMRCL::H-FRAC)))
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (* KMRCL::V (- 1 (* KMRCL::S (- 1 KMRCL::H-FRAC))))
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline float arithmetic (cost 4) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (DECF KMRCL::H 360)
; --> LET*
; ==>
; (- KMRCL::H #:G13)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFUN HSV255->RGB255 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp
; in: DEFUN HSV255->RGB255
; (ZEROP KMRCL::S)
; ==>
; (= KMRCL::S 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (* 255 KMRCL::FV (- 1 KMRCL::FS))
; --> * *
; ==>
; (* SB-C::Y 255)
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a (RATIONAL -536870912/255
; 536870911/255), not a INTEGER.
;
; note: unable to
; recode as shifts and adds
; due to type uncertainty:
; The first argument is a (RATIONAL -536870912/255
; 536870911/255), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (RATIONAL -536870912 536870911)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; ==>
; (* (* 255 KMRCL::FV) (- 1 KMRCL::FS))
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a (RATIONAL -536870912 536870911), not a INTEGER.
; The second argument is a (RATIONAL -536870656/255
; 536871167/255), not a INTEGER.
; (* 255 KMRCL::FV (- 1 (* KMRCL::FS KMRCL::H-FRAC)))
; --> * *
; ==>
; (* SB-C::Y 255)
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a (RATIONAL -536870912/255
; 536870911/255), not a INTEGER.
;
; note: unable to
; recode as shifts and adds
; due to type uncertainty:
; The first argument is a (RATIONAL -536870912/255
; 536870911/255), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (RATIONAL -536870912 536870911)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; (* KMRCL::FS KMRCL::H-FRAC)
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a (RATIONAL -536870912/255
; 536870911/255), not a INTEGER.
; The second argument is a (RATIONAL -134217803/15 536871239/60), not a INTEGER.
; (* 255 KMRCL::FV (- 1 (* KMRCL::FS KMRCL::H-FRAC)))
; ==>
; (* (* 255 KMRCL::FV) (- 1 (* KMRCL::FS KMRCL::H-FRAC)))
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a (RATIONAL -536870912 536870911), not a INTEGER.
; The second argument is a (RATIONAL -288230551171613429/15300
; 72057637927128817/3825), not a INTEGER.
; (* 255 KMRCL::FV (- 1 (* KMRCL::FS (- 1 KMRCL::H-FRAC))))
; --> * *
; ==>
; (* SB-C::Y 255)
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a (RATIONAL -536870912/255
; 536870911/255), not a INTEGER.
;
; note: unable to
; recode as shifts and adds
; due to type uncertainty:
; The first argument is a (RATIONAL -536870912/255
; 536870911/255), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (RATIONAL -536870912 536870911)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; (* KMRCL::FS (- 1 KMRCL::H-FRAC))
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a (RATIONAL -536870912/255
; 536870911/255), not a INTEGER.
; The second argument is a (RATIONAL -536871179/60 134217818/15), not a INTEGER.
; (* 255 KMRCL::FV (- 1 (* KMRCL::FS (- 1 KMRCL::H-FRAC))))
; ==>
; (* (* 255 KMRCL::FV) (- 1 (* KMRCL::FS (- 1 KMRCL::H-FRAC))))
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a (RATIONAL -536870912 536870911), not a INTEGER.
; The second argument is a (RATIONAL -72057642222088373/3825
; 72057642356313841/3825), not a INTEGER.
; (TRUNCATE KMRCL::H-POS)
; --> TRUNCATE LET VALUES
; ==>
; (- SB-C::X SB-C::RES)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (RATIONAL -134217728/15 359/60), not a FIXNUM.
; The result is a (VALUES (RATIONAL -134217803/15 536871239/60)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a (RATIONAL -134217728/15 359/60), not a FIXNUM.
; The result is a (VALUES (RATIONAL -134217803/15 536871239/60)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (* 255 KMRCL::FV (- 1 KMRCL::FS))
; --> * *
; ==>
; (* SB-C::Y 255)
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (RATIONAL -536870912/255
; 536870911/255), not a FIXNUM.
; The result is a (VALUES (RATIONAL -536870912 536870911)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (RATIONAL -536870912/255
; 536870911/255), not a FIXNUM.
; The result is a (VALUES (RATIONAL -536870912 536870911)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (- 1 KMRCL::FS)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (RATIONAL -536870912/255
; 536870911/255), not a FIXNUM.
; The result is a (VALUES (RATIONAL -536870656/255 536871167/255)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The second argument is a (RATIONAL -536870912/255
; 536870911/255), not a FIXNUM.
; The result is a (VALUES (RATIONAL -536870656/255 536871167/255)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (* 255 KMRCL::FV (- 1 KMRCL::FS))
; ==>
; (* (* 255 KMRCL::FV) (- 1 KMRCL::FS))
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (RATIONAL -536870912 536870911), not a FIXNUM.
; The second argument is a (RATIONAL -536870656/255
; 536871167/255), not a FIXNUM.
; The result is a (VALUES
; (RATIONAL -288230513053794304/255
; 288230512516923137/255)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 4) because:
; The first argument is a (RATIONAL -536870912
; 536870911), not a (SIGNED-BYTE 32).
; The second argument is a (RATIONAL -536870656/255
; 536871167/255), not a (SIGNED-BYTE 32).
; The result is a (VALUES
; (RATIONAL -288230513053794304/255
; 288230512516923137/255)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (* 255 KMRCL::FV (- 1 (* KMRCL::FS KMRCL::H-FRAC)))
; --> * *
; ==>
; (* SB-C::Y 255)
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (RATIONAL -536870912/255
; 536870911/255), not a FIXNUM.
; The result is a (VALUES (RATIONAL -536870912 536870911)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (RATIONAL -536870912/255
; 536870911/255), not a FIXNUM.
; The result is a (VALUES (RATIONAL -536870912 536870911)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (* KMRCL::FS KMRCL::H-FRAC)
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (RATIONAL -536870912/255
; 536870911/255), not a FIXNUM.
; The second argument is a (RATIONAL -134217803/15
; 536871239/60), not a FIXNUM.
; The result is a (VALUES
; (RATIONAL -72057637927124992/3825
; 288230551171628729/15300)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 4) because:
; The first argument is a (RATIONAL -536870912/255
; 536870911/255), not a (SIGNED-BYTE 32).
; The second argument is a (RATIONAL -134217803/15
; 536871239/60), not a (SIGNED-BYTE 32).
; The result is a (VALUES
; (RATIONAL -72057637927124992/3825
; 288230551171628729/15300)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (- 1 (* KMRCL::FS KMRCL::H-FRAC))
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (RATIONAL -72057637927124992/3825
; 288230551171628729/15300), not a FIXNUM.
; The result is a (VALUES
; (RATIONAL -288230551171613429/15300
; 72057637927128817/3825)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The second argument is a (RATIONAL -72057637927124992/3825
; 288230551171628729/15300), not a FIXNUM.
; The result is a (VALUES
; (RATIONAL -288230551171613429/15300
; 72057637927128817/3825)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (* 255 KMRCL::FV (- 1 (* KMRCL::FS KMRCL::H-FRAC)))
; ==>
; (* (* 255 KMRCL::FV) (- 1 (* KMRCL::FS KMRCL::H-FRAC)))
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (RATIONAL -536870912 536870911), not a FIXNUM.
; The second argument is a (RATIONAL -288230551171613429/15300
; 72057637927128817/3825), not a FIXNUM.
; The result is a (VALUES
; (RATIONAL -38685649790503437524271104/3825
; 38685649718445799597142287/3825)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 4) because:
; The first argument is a (RATIONAL -536870912
; 536870911), not a (SIGNED-BYTE 32).
; The second argument is a (RATIONAL -288230551171613429/15300
; 72057637927128817/3825), not a (SIGNED-BYTE
; 32).
; The result is a (VALUES
; (RATIONAL -38685649790503437524271104/3825
; 38685649718445799597142287/3825)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (* 255 KMRCL::FV (- 1 (* KMRCL::FS (- 1 KMRCL::H-FRAC))))
; --> * *
; ==>
; (* SB-C::Y 255)
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (RATIONAL -536870912/255
; 536870911/255), not a FIXNUM.
; The result is a (VALUES (RATIONAL -536870912 536870911)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (RATIONAL -536870912/255
; 536870911/255), not a FIXNUM.
; The result is a (VALUES (RATIONAL -536870912 536870911)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (- 1 KMRCL::H-FRAC)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (RATIONAL -134217803/15
; 536871239/60), not a FIXNUM.
; The result is a (VALUES (RATIONAL -536871179/60 134217818/15)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The second argument is a (RATIONAL -134217803/15
; 536871239/60), not a FIXNUM.
; The result is a (VALUES (RATIONAL -536871179/60 134217818/15)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (* KMRCL::FS (- 1 KMRCL::H-FRAC))
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (RATIONAL -536870912/255
; 536870911/255), not a FIXNUM.
; The second argument is a (RATIONAL -536871179/60
; 134217818/15), not a FIXNUM.
; The result is a (VALUES
; (RATIONAL -72057642356310016/3825
; 72057642222092198/3825)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 4) because:
; The first argument is a (RATIONAL -536870912/255
; 536870911/255), not a (SIGNED-BYTE 32).
; The second argument is a (RATIONAL -536871179/60
; 134217818/15), not a (SIGNED-BYTE 32).
; The result is a (VALUES
; (RATIONAL -72057642356310016/3825
; 72057642222092198/3825)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; (- 1 (* KMRCL::FS (- 1 KMRCL::H-FRAC)))
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (RATIONAL -72057642356310016/3825
; 72057642222092198/3825), not a FIXNUM.
; The result is a (VALUES
; (RATIONAL -72057642222088373/3825
; 72057642356313841/3825)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The second argument is a (RATIONAL -72057642356310016/3825
; 72057642222092198/3825), not a FIXNUM.
; The result is a (VALUES
; (RATIONAL -72057642222088373/3825
; 72057642356313841/3825)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (* 255 KMRCL::FV (- 1 (* KMRCL::FS (- 1 KMRCL::H-FRAC))))
; ==>
; (* (* 255 KMRCL::FV) (- 1 (* KMRCL::FS (- 1 KMRCL::H-FRAC))))
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (RATIONAL -536870912 536870911), not a FIXNUM.
; The second argument is a (RATIONAL -72057642222088373/3825
; 72057642356313841/3825), not a FIXNUM.
; The result is a (VALUES
; (RATIONAL -38685652168404040775892992/3825
; 38685652096346398419579151/3825)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 4) because:
; The first argument is a (RATIONAL -536870912
; 536870911), not a (SIGNED-BYTE 32).
; The second argument is a (RATIONAL -72057642222088373/3825
; 72057642356313841/3825), not a (SIGNED-BYTE
; 32).
; The result is a (VALUES
; (RATIONAL -38685652168404040775892992/3825
; 38685652096346398419579151/3825)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; etc.
; compiling (DEFUN RGB->HSV ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp
; in: DEFUN RGB->HSV
; (MIN KMRCL::R KMRCL::G KMRCL::B)
; --> LET LET MIN LET LET IF <= IF
; ==>
; (> #:ONCE-ONLY-49 SB-C::MINREST)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; --> LET LET IF <= IF
; ==>
; (> #:ONCE-ONLY-48 SB-C::MINREST)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (MAX KMRCL::R KMRCL::G KMRCL::B)
; --> LET LET MAX LET LET IF >= IF
; ==>
; (< #:ONCE-ONLY-45 SB-C::MAXREST)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; --> LET LET IF >= IF
; ==>
; (< #:ONCE-ONLY-44 SB-C::MAXREST)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (- MAX MIN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; (PLUSP MAX)
; ==>
; (> MAX 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (/ KMRCL::DELTA MAX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (PLUSP KMRCL::DELTA)
; ==>
; (> KMRCL::DELTA 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (= MAX KMRCL::R)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to open code because: The operands might not be the same type.
; (- KMRCL::G KMRCL::B)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; (/ (- KMRCL::G KMRCL::B) KMRCL::DELTA)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (= MAX KMRCL::G)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to open code because: The operands might not be the same type.
; (- KMRCL::B KMRCL::R)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; (/ (- KMRCL::B KMRCL::R) KMRCL::DELTA)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (+ 2 (/ (- KMRCL::B KMRCL::R) KMRCL::DELTA))
; ==>
; (+ SB-C::Y 2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (- KMRCL::R KMRCL::G)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; (/ (- KMRCL::R KMRCL::G) KMRCL::DELTA)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (+ 4 (/ (- KMRCL::R KMRCL::G) KMRCL::DELTA))
; ==>
; (+ SB-C::Y 4)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (* 60 KMRCL::H)
; ==>
; (* SB-C::Y 60)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; recode as shifts and adds
; due to type uncertainty:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES FIXNUM
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; (MIN KMRCL::R KMRCL::G KMRCL::B)
; --> LET LET MIN LET LET IF <= IF
; ==>
; (> #:ONCE-ONLY-49 SB-C::MINREST)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; --> LET LET IF <= IF
; ==>
; (> #:ONCE-ONLY-48 SB-C::MINREST)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (MAX KMRCL::R KMRCL::G KMRCL::B)
; --> LET LET MAX LET LET IF >= IF
; ==>
; (< #:ONCE-ONLY-45 SB-C::MAXREST)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; --> LET LET IF >= IF
; ==>
; (< #:ONCE-ONLY-44 SB-C::MAXREST)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (- MAX MIN)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (PLUSP MAX)
; ==>
; (> MAX 0)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (/ KMRCL::DELTA MAX)
;
; note: forced to do static-fun Two-arg-/ (cost 53)
; unable to do inline float arithmetic (cost 12) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 19) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; (PLUSP KMRCL::DELTA)
; ==>
; (> KMRCL::DELTA 0)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (= MAX KMRCL::R)
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; (- KMRCL::G KMRCL::B)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (/ (- KMRCL::G KMRCL::B) KMRCL::DELTA)
;
; note: forced to do static-fun Two-arg-/ (cost 53)
; unable to do inline float arithmetic (cost 12) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 19) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; (= MAX KMRCL::G)
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; (- KMRCL::B KMRCL::R)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (/ (- KMRCL::B KMRCL::R) KMRCL::DELTA)
;
; note: forced to do static-fun Two-arg-/ (cost 53)
; unable to do inline float arithmetic (cost 12) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 19) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; (+ 2 (/ (- KMRCL::B KMRCL::R) KMRCL::DELTA))
; ==>
; (+ SB-C::Y 2)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (- KMRCL::R KMRCL::G)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (/ (- KMRCL::R KMRCL::G) KMRCL::DELTA)
;
; note: forced to do static-fun Two-arg-/ (cost 53)
; unable to do inline float arithmetic (cost 12) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 19) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; (+ 4 (/ (- KMRCL::R KMRCL::G) KMRCL::DELTA))
; ==>
; (+ SB-C::Y 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (* 60 KMRCL::H)
; ==>
; (* SB-C::Y 60)
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; compiling (DEFUN RGB255->HSV255 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp
; in: DEFUN RGB255->HSV255
; (* 255 KMRCL::DELTA)
; ==>
; (* SB-C::Y 255)
;
; note: unable to
; recode as shifts and adds
; due to type uncertainty:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES FIXNUM
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; (* 60 (THE FIXNUM (- KMRCL::G KMRCL::B)))
; ==>
; (* SB-C::Y 60)
;
; note: unable to
; recode as shifts and adds
; due to type uncertainty:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES FIXNUM
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; (* 60 (THE FIXNUM (- KMRCL::B KMRCL::R)))
; ==>
; (* SB-C::Y 60)
;
; note: unable to
; recode as shifts and adds
; due to type uncertainty:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES FIXNUM
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; (* 60 (THE FIXNUM (- KMRCL::R KMRCL::G)))
; ==>
; (* SB-C::Y 60)
;
; note: unable to
; recode as shifts and adds
; due to type uncertainty:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES FIXNUM
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; (TRUNCATE (THE FIXNUM (* 255 KMRCL::DELTA)) MAX)
;
; note: forced to do fixnum truncate (cost 50)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES FIXNUM
; (INTEGER -536870910 536870910)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; (TRUNCATE (THE FIXNUM (* 60 (THE FIXNUM (- KMRCL::R KMRCL::G)))) KMRCL::DELTA)
;
; note: forced to do fixnum truncate (cost 50)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES FIXNUM
; (INTEGER -536870910 536870910)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; (TRUNCATE (THE FIXNUM (* 60 (THE FIXNUM (- KMRCL::B KMRCL::R)))) KMRCL::DELTA)
;
; note: forced to do fixnum truncate (cost 50)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES FIXNUM
; (INTEGER -536870910 536870910)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; (TRUNCATE (THE FIXNUM (* 60 (THE FIXNUM (- KMRCL::G KMRCL::B)))) KMRCL::DELTA)
;
; note: forced to do fixnum truncate (cost 50)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES FIXNUM
; (INTEGER -536870910 536870910)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; compiling (DEFUN HSV-EQUAL ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp
; in: DEFUN HSV-EQUAL
; (- KMRCL::A KMRCL::B)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (ABS (- KMRCL::A KMRCL::B))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (< (ABS (- KMRCL::A KMRCL::B)) KMRCL::LIMIT)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (- KMRCL::A KMRCL::B)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (ABS (- KMRCL::A KMRCL::B))
;
; note: forced to do full call
; unable to do inline float arithmetic (cost 1) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 1) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; (< (ABS (- KMRCL::A KMRCL::B)) KMRCL::LIMIT)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; compiling (DEFUN HSV255-EQUAL ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp
; in: DEFUN HSV255-EQUAL
; (NULL KMRCL::B)
; --> IF
; ==>
; KMRCL::B
;
; note: deleting unreachable code
; compiling (DEFUN HSV-SIMILAR ...)
; compiling (DEFUN HSV255-SIMILAR ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp
; in: DEFUN HSV255-SIMILAR
; (ABS (KMRCL:HUE-DIFFERENCE-FIXNUM KMRCL::H1 KMRCL::H2))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (<= (ABS (KMRCL:HUE-DIFFERENCE-FIXNUM KMRCL::H1 KMRCL::H2)) KMRCL::HUE-RANGE)
; --> IF
; ==>
; (> (ABS (KMRCL:HUE-DIFFERENCE-FIXNUM KMRCL::H1 KMRCL::H2)) KMRCL::HUE-RANGE)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a FLOAT.
; (ABS (KMRCL:HUE-DIFFERENCE-FIXNUM KMRCL::H1 KMRCL::H2))
;
; note: forced to do full call
; unable to do inline float arithmetic (cost 1) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 1) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; (<= (ABS (KMRCL:HUE-DIFFERENCE-FIXNUM KMRCL::H1 KMRCL::H2)) KMRCL::HUE-RANGE)
; --> IF
; ==>
; (> (ABS (KMRCL:HUE-DIFFERENCE-FIXNUM KMRCL::H1 KMRCL::H2)) KMRCL::HUE-RANGE)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a FIXNUM.
; compiling (DEFUN HUE-DIFFERENCE ...)
; compiling (DEFUN HUE-DIFFERENCE-FIXNUM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/mop.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (IF (FIND-PACKAGE #) ...)
; compiling (DEFPACKAGE #:KMR-MOP ...)
; compiling (IN-PACKAGE #:KMR-MOP)
; compiling (DEFMACRO PROCESS-CLASS-OPTION ...)
; compiling (DEFMACRO PROCESS-SLOT-OPTION ...)
; compiling (SHADOWING-IMPORT (QUOTE #))
; compiling (EXPORT (QUOTE #))
; compiling (IF (FIND-PACKAGE #) ...)
; compiling (WHEN (>= # ...) ...)
; compiling (WHEN (>= # ...) ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/mop.fasl written
; compilation finished in 0:00:00
WARNING: KMR-MOP also shadows the following symbols:
(SB-MOP:COMPUTE-SLOTS SB-MOP:GENERIC-FUNCTION-LAMBDA-LIST
SB-MOP:MAKE-METHOD-LAMBDA
SB-MOP:INTERN-EQL-SPECIALIZER
SB-MOP:GENERIC-FUNCTION-METHOD-CLASS
SB-MOP:CLASS-PROTOTYPE
SB-MOP:SLOT-VALUE-USING-CLASS
SB-PCL::COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS
SB-MOP:CLASS-DIRECT-SLOTS
SB-MOP:COMPUTE-EFFECTIVE-SLOT-DEFINITION
SB-MOP:EFFECTIVE-SLOT-DEFINITION-CLASS
SB-MOP:DIRECT-SLOT-DEFINITION-CLASS
SB-MOP:VALIDATE-SUPERCLASS
SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION
SB-MOP:STANDARD-DIRECT-SLOT-DEFINITION
SB-MOP:FINALIZE-INHERITANCE
SB-MOP:SLOT-DEFINITION-NAME
STANDARD-CLASS
FIND-CLASS
SB-MOP:CLASS-SLOTS
CLASS-NAME
CLASS-OF)
See also:
The ANSI Standard, Macro DEFPACKAGE
WARNING: KMR-MOP also exports the following symbols:
(SB-MOP:CLASS-DIRECT-SLOTS CLASS-OF
SB-MOP:DIRECT-SLOT-DEFINITION-CLASS
SB-MOP:SLOT-VALUE-USING-CLASS
SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION
KMR-MOP:PROCESS-SLOT-OPTION
KMR-MOP:PROCESS-CLASS-OPTION
SB-MOP:CLASS-PROTOTYPE
SB-MOP:COMPUTE-SLOTS
STANDARD-CLASS
SB-MOP:CLASS-SLOTS
SB-MOP:COMPUTE-EFFECTIVE-SLOT-DEFINITION
FIND-CLASS
CLASS-NAME
SB-MOP:FINALIZE-INHERITANCE
SB-PCL::COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS
SB-MOP:MAKE-METHOD-LAMBDA
SB-MOP:STANDARD-DIRECT-SLOT-DEFINITION
SB-MOP:GENERIC-FUNCTION-METHOD-CLASS
SB-MOP:GENERIC-FUNCTION-LAMBDA-LIST
SB-MOP:INTERN-EQL-SPECIALIZER
SB-MOP:SLOT-DEFINITION-NAME
SB-MOP:VALIDATE-SUPERCLASS
SB-MOP:EFFECTIVE-SLOT-DEFINITION-CLASS)
See also:
The ANSI Standard, Macro DEFPACKAGE
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/equal.lisp" (written 30 APR 2005 06:14:18 AM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN GENERALIZED-EQUAL ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/equal.lisp
; in: DEFUN GENERALIZED-EQUAL
; (KMRCL::GENERALIZED-EQUAL-HASH-TABLE KMRCL::OBJ1 KMRCL::OBJ2)
; ==>
; KMRCL::OBJ2
;
; note: deleting unreachable code
; compiling (DEFUN GENERALIZED-EQUAL-FUNCTION ...)
; compiling (DEFUN GENERALIZED-EQUAL-ARRAY ...)
; compiling (DEFUN GENERALIZED-EQUAL-HASH-TABLE ...)
; compiling (DEFUN GENERALIZED-EQUAL-FIELDED-OBJECT ...)
; compiling (DEFUN CLASS-SLOT-NAMES ...)
; compiling (DEFUN STRUCTURE-SLOT-NAMES ...)
; compiling (DEFUN FUNCTION-TO-STRING ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/equal.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/web-utils.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFVAR *STANDARD-XML-HEADER* ...)
; compiling (DEFVAR *STANDARD-HTML-HEADER* ...)
; compiling (DEFVAR *STANDARD-XHTML-HEADER* ...)
; compiling (DEFUN USER-AGENT-IE-P ...)
; compiling (DEFVAR *BASE-URL* ...)
; compiling (DEFUN BASE-URL! ...)
; compiling (DEFUN MAKE-URL ...)
; compiling (DEFUN DECODE-URI-QUERY-STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/web-utils.lisp
; in: DEFUN DECODE-URI-QUERY-STRING
; (SUBSEQ KMRCL::S (1+ KMRCL::P-OLD) (+ KMRCL::P-OLD 3))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; compiling (DEFUN SPLIT-URI-QUERY-STRING ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/web-utils.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/xml-utils.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN FIND-START-TAG ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/xml-utils.lisp
; in: DEFUN FIND-START-TAG
; (+ KMRCL::BRACKETPOS 1 KMRCL::TAGLEN)
; --> +
; ==>
; (+ KMRCL::BRACKETPOS 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; ==>
; (+ (+ KMRCL::BRACKETPOS 1) KMRCL::TAGLEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (1+ KMRCL::ENDBRACK)
; ==>
; (+ KMRCL::ENDBRACK 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (SUBSEQ KMRCL::XMLSTR KMRCL::ENDTAG KMRCL::ENDBRACK)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; (+ KMRCL::BRACKETPOS 1 KMRCL::TAGLEN)
; --> +
; ==>
; (+ KMRCL::BRACKETPOS 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; ==>
; (+ (+ KMRCL::BRACKETPOS 1) KMRCL::TAGLEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (1+ KMRCL::ENDBRACK)
; ==>
; (+ KMRCL::ENDBRACK 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (1+ KMRCL::TAGLEN)
; ==>
; (+ KMRCL::TAGLEN 1)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; compiling (DEFUN FIND-END-TAG ...)
; compiling (DEFUN POSITIONS-XML-TAG-CONTENTS ...)
; compiling (DEFUN XML-TAG-CONTENTS ...)
; compiling (DEFUN CDATA-STRING ...)
; compiling (DEFUN WRITE-CDATA ...)
; compiling (DEFUN XML-DECLARATION-STREAM ...)
; compiling (DEFUN DOCTYPE-STREAM ...)
; compiling (DEFUN DOCTYPE-FORMAT ...)
; compiling (DEFUN SGML-HEADER-STREAM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/xml-utils.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/sockets.lisp" (written 21 DEC 2004 02:44:04 AM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (REQUIRE :SB-BSD-SOCKETS)
; compiling (DEFUN LISTEN-TO-INET-PORT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/sockets.lisp
; in: DEFUN LISTEN-TO-INET-PORT
; (DEFUN KMRCL::LISTEN-TO-INET-PORT
; (&KEY (KMRCL::PORT 0) (KMRCL::KIND :STREAM) (KMRCL::REUSE ()))
; "Create, bind and listen to an inet socket on *:PORT.
; setsockopt SO_REUSEADDR if :reuse is not nil"
; (LET ((KMRCL::SOCKET
; (MAKE-INSTANCE 'SB-BSD-SOCKETS:INET-SOCKET
; :TYPE
; :STREAM
; :PROTOCOL
; :TCP)))
; (IF KMRCL::REUSE
; (SETF (SB-BSD-SOCKETS:SOCKOPT-REUSE-ADDRESS KMRCL::SOCKET) T))
; (SB-BSD-SOCKETS:SOCKET-BIND KMRCL::SOCKET
; (SB-BSD-SOCKETS:MAKE-INET-ADDRESS "0.0.0.0")
; KMRCL::PORT)
; (SB-BSD-SOCKETS:SOCKET-LISTEN KMRCL::SOCKET 15)
; KMRCL::SOCKET))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA KMRCL::LISTEN-TO-INET-PORT
; (&KEY (KMRCL::PORT 0)
; (KMRCL::KIND :STREAM)
; (KMRCL::REUSE NIL))
; (BLOCK KMRCL::LISTEN-TO-INET-PORT
; (LET ((KMRCL::SOCKET #))
; (IF KMRCL::REUSE (SETF # T))
; (SB-BSD-SOCKETS:SOCKET-BIND KMRCL::SOCKET
; (SB-BSD-SOCKETS:MAKE-INET-ADDRESS
; "0.0.0.0")
; KMRCL::PORT)
; (SB-BSD-SOCKETS:SOCKET-LISTEN KMRCL::SOCKET 15)
; KMRCL::SOCKET)))
;
; caught STYLE-WARNING:
; The variable KIND is defined but never used.
; compiling (DEFUN CREATE-INET-LISTENER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/sockets.lisp
; in: DEFUN CREATE-INET-LISTENER
; (DEFUN KMRCL::CREATE-INET-LISTENER
; (KMRCL::PORT &KEY (FORMAT :TEXT) (KMRCL::REUSE-ADDRESS T))
; (KMRCL::LISTEN-TO-INET-PORT :PORT KMRCL::PORT :REUSE KMRCL::REUSE-ADDRESS))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA KMRCL::CREATE-INET-LISTENER
; (KMRCL::PORT &KEY
; (FORMAT :TEXT)
; (KMRCL::REUSE-ADDRESS T))
; (BLOCK KMRCL::CREATE-INET-LISTENER
; (KMRCL::LISTEN-TO-INET-PORT :PORT
; KMRCL::PORT
; :REUSE
; KMRCL::REUSE-ADDRESS)))
;
; caught STYLE-WARNING:
; The variable FORMAT is defined but never used.
; compiling (DEFUN MAKE-FD-STREAM ...)
; compiling (DEFUN ACCEPT-TCP-CONNECTION ...)
; compiling (DEFMACRO ERRORSET ...)
; compiling (DEFUN CLOSE-PASSIVE-SOCKET ...)
; compiling (DEFUN CLOSE-ACTIVE-SOCKET ...)
; compiling (DEFUN IPADDR-TO-DOTTED ...)
; compiling (DEFUN DOTTED-TO-IPADDR ...)
; compiling (DEFUN IPADDR-TO-HOSTNAME ...)
; compiling (DEFUN LOOKUP-HOSTNAME ...)
; compiling (DEFUN MAKE-ACTIVE-SOCKET ...)
; compiling (DEFUN IPADDR-ARRAY-TO-DOTTED ...)
; compiling (DEFUN REMOTE-HOST ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/sockets.fasl written
; compilation finished in 0:00:01
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40007F51}> on
#<CL-SOURCE-FILE "sockets" {400EB441}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.lisp" (written 19 MAR 2005 04:40:22 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN MAKE-PROCESS ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.lisp
; in: DEFUN MAKE-PROCESS
; (DEFUN KMRCL::MAKE-PROCESS (KMRCL::NAME KMRCL::FUNC) (FUNCALL KMRCL::FUNC))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA KMRCL::MAKE-PROCESS
; (KMRCL::NAME KMRCL::FUNC)
; (BLOCK KMRCL::MAKE-PROCESS (FUNCALL KMRCL::FUNC)))
;
; caught STYLE-WARNING:
; The variable NAME is defined but never used.
; compiling (DEFUN DESTROY-PROCESS ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.lisp
; in: DEFUN DESTROY-PROCESS
; (DEFUN KMRCL::DESTROY-PROCESS (KMRCL::PROCESS))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA KMRCL::DESTROY-PROCESS
; (KMRCL::PROCESS)
; (BLOCK KMRCL::DESTROY-PROCESS))
;
; caught STYLE-WARNING:
; The variable PROCESS is defined but never used.
; compiling (DEFUN MAKE-LOCK ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.lisp
; in: DEFUN MAKE-LOCK
; (DEFUN KMRCL::MAKE-LOCK (KMRCL::NAME))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA KMRCL::MAKE-LOCK
; (KMRCL::NAME)
; (BLOCK KMRCL::MAKE-LOCK))
;
; caught STYLE-WARNING:
; The variable NAME is defined but never used.
; compiling (DEFMACRO WITH-LOCK-HELD ...); in: LAMBDA NIL
; (LET* ((KMRCL::LOCK (CAR #:SUBLIST-19)) (KMRCL::BODY (CDR (CDR #:WHOLE17))))
; (BLOCK KMRCL::WITH-LOCK-HELD `(PROGN ,@KMRCL::BODY)))
;
; caught STYLE-WARNING:
; The variable LOCK is defined but never used.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.lisp
; in: DEFMACRO WITH-LOCK-HELD
; (DEFMACRO KMRCL::WITH-LOCK-HELD ((KMRCL::LOCK) &BODY KMRCL::BODY)
; `(PROGN ,@KMRCL::BODY))
; --> EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO FUNCTION LET*
; ==>
; (LET* ((KMRCL::LOCK (CAR #:SUBLIST-19)) (KMRCL::BODY (CDR (CDR #:WHOLE17))))
; (BLOCK KMRCL::WITH-LOCK-HELD `(PROGN ,@KMRCL::BODY)))
;
; caught STYLE-WARNING:
; The variable LOCK is defined but never used.
; compiling (DEFMACRO WITH-TIMEOUT ...); in: LAMBDA NIL
; (LET* ((KMRCL::SECONDS (CAR #:SUBLIST-26))
; (KMRCL::BODY (CDR (CDR #:WHOLE24))))
; (BLOCK KMRCL::WITH-TIMEOUT `(PROGN ,@KMRCL::BODY)))
;
; caught STYLE-WARNING:
; The variable SECONDS is defined but never used.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.lisp
; in: DEFMACRO WITH-TIMEOUT
; (DEFMACRO KMRCL::WITH-TIMEOUT ((KMRCL::SECONDS) &BODY KMRCL::BODY)
; `(PROGN ,@KMRCL::BODY))
; --> EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO FUNCTION LET*
; ==>
; (LET* ((KMRCL::SECONDS (CAR #:SUBLIST-26))
; (KMRCL::BODY (CDR (CDR #:WHOLE24))))
; (BLOCK KMRCL::WITH-TIMEOUT `(PROGN ,@KMRCL::BODY)))
;
; caught STYLE-WARNING:
; The variable SECONDS is defined but never used.
; compiling (DEFUN PROCESS-SLEEP ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.fasl written
; compilation finished in 0:00:00
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {10007EE9}> on
#<CL-SOURCE-FILE "processes" {10007EF9}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/listener.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFVAR *LISTENER-COUNT* ...)
; compiling (DEFVAR *WORKER-COUNT* ...)
; compiling (DEFVAR *ACTIVE-LISTENERS* ...)
; compiling (DEFCLASS LISTENER ...)
; compiling (DEFCLASS FIXED-WORKER ...)
; compiling (DEFCLASS WORKER ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN INIT/LISTENER ...)
; compiling (DEFUN STOP-ALL/LISTENER ...)
; compiling (DEFUN LISTENER-STARTUP ...)
; compiling (DEFUN LISTENER-SHUTDOWN ...)
; compiling (DEFUN NEXT-SERVER-NAME ...)
; compiling (DEFUN NEXT-WORKER-NAME ...)
; compiling (DEFUN MAKE-SOCKET-SERVER ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFUN ACCEPT-AND-CHECK-TCP-CONNECTION ...)
; compiling (DEFUN START-SOCKET-SERVER ...)
; compiling (DEFUN START-FIXED-NUMBER-OF-WORKERS ...)
; compiling (DEFUN FIXED-WORKER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/listener.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/repl.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFCONSTANT +DEFAULT-REPL-SERVER-PORT+ ...)
; compiling (DEFCLASS REPL ...)
; compiling (DEFUN MAKE-REPL ...)
; compiling (DEFUN INIT/REPL ...)
; compiling (DEFUN REPL-WORKER ...)
; compiling (DEFUN READ-SOCKET-LINE ...)
; compiling (DEFUN PRINT-PROMPT ...)
; compiling (DEFUN REPL-ON-STREAM ...)
; compiling (DEFUN %REPL ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/repl.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/os.lisp" (written 26 AUG 2005 04:02:06 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN COMMAND-OUTPUT ...)
; compiling (DEFUN RUN-SHELL-COMMAND ...)
; compiling (DEFUN DELETE-DIRECTORY-AND-FILES ...)
; compiling (DEFUN FILE-SIZE ...)
; compiling (DEFUN GETPID ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/os.fasl written
; compilation finished in 0:00:01
;
; compilation unit finished
; caught 13 STYLE-WARNING conditions
; printed 352 notes
;;; ASDF-INSTALL: Downloading package CL-PPCRE, required by tbnl
;;; ASDF-INSTALL: Downloading 166573 bytes from http://weitz.de/files/cl-ppcre.tar.gz to /Users/gwking/temporary/asdf-test/cl-ppcre.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/cl-ppcre.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
cl-ppcre-1.2.13/
cl-ppcre-1.2.13/doc/
cl-ppcre-1.2.13/doc/benchmarks.2002-12-22.txt
cl-ppcre-1.2.13/doc/index.html
cl-ppcre-1.2.13/CHANGELOG
cl-ppcre-1.2.13/README
cl-ppcre-1.2.13/api.lisp
cl-ppcre-1.2.13/cl-ppcre-test.asd
cl-ppcre-1.2.13/cl-ppcre-test.system
cl-ppcre-1.2.13/cl-ppcre.asd
cl-ppcre-1.2.13/cl-ppcre.system
cl-ppcre-1.2.13/closures.lisp
cl-ppcre-1.2.13/convert.lisp
cl-ppcre-1.2.13/errors.lisp
cl-ppcre-1.2.13/lexer.lisp
cl-ppcre-1.2.13/lispworks-defsystem.lisp
cl-ppcre-1.2.13/load.lisp
cl-ppcre-1.2.13/optimize.lisp
cl-ppcre-1.2.13/packages.lisp
cl-ppcre-1.2.13/parser.lisp
cl-ppcre-1.2.13/perltest.pl
cl-ppcre-1.2.13/ppcre-tests.lisp
cl-ppcre-1.2.13/regex-class.lisp
cl-ppcre-1.2.13/repetition-closures.lisp
cl-ppcre-1.2.13/scanner.lisp
cl-ppcre-1.2.13/specials.lisp
cl-ppcre-1.2.13/testdata
cl-ppcre-1.2.13/testinput
cl-ppcre-1.2.13/util.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/packages.lisp" (written 01 APR 2005 04:29:10 PM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPACKAGE #:CL-PPCRE ...)
; compiling (DEFPACKAGE #:CL-PPCRE-TEST ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/specials.lisp" (written 01 APR 2005 04:29:10 PM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFVAR *STANDARD-OPTIMIZE-SETTINGS* ...)
; compiling (DEFVAR *SPECIAL-OPTIMIZE-SETTINGS* ...)
; compiling (DEFVAR *EXTENDED-MODE-P* ...)
; compiling (DECLAIM (TYPE BOOLEAN ...))
; compiling (DEFVAR *STRING* ...)
; compiling (DECLAIM (TYPE SIMPLE-STRING ...))
; compiling (DEFVAR *START-POS* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *REAL-START-POS* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *END-POS* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *REG-STARTS* ...)
; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))
; compiling (DEFVAR *REGS-MAYBE-START* ...)
; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))
; compiling (DEFVAR *REG-ENDS* ...)
; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))
; compiling (DEFVAR *END-STRING-POS* ...)
; compiling (DEFVAR *REP-NUM* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *ZERO-LENGTH-NUM* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *REPEAT-COUNTERS* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *LAST-POS-STORES* ...)
; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))
; compiling (DEFVAR *USE-BMH-MATCHERS* ...)
; compiling (DEFVAR *ALLOW-QUOTING* ...)
; compiling (PUSHNEW :CL-PPCRE ...)
; compiling (DEFVAR *HYPERDOC-BASE-URI* ...)
; compiling (LET (#) ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/specials.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/util.lisp" (written 23 AUG 2005 06:32:30 AM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFMACRO WITH-UNIQUE-NAMES ...)
; compiling (DEFMACRO WITH-REBINDING ...)
; compiling (DEFVAR *REGEX-CHAR-CODE-LIMIT* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFUN MAKE-CHAR-HASH ...); in: LAMBDA NIL
; (FUNCALL CL-PPCRE::TEST CL-PPCRE::CHR)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/util.lisp
; in: DEFUN MAKE-CHAR-HASH
; (FUNCALL CL-PPCRE::TEST CL-PPCRE::CHR)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
; compiling (DECLAIM (INLINE WORD-CHAR-P))
; compiling (DEFUN WORD-CHAR-P ...); in: LAMBDA NIL
; (ALPHANUMERICP CL-PPCRE::CHR)
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/util.lisp
; in: DEFUN WORD-CHAR-P
; (ALPHANUMERICP CL-PPCRE::CHR)
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; compiling (UNLESS (BOUNDP #) ...)
; compiling (DEFUN WHITESPACEP ...)
; compiling (UNLESS (BOUNDP #) ...)
; compiling (UNLESS (BOUNDP #) ...)
; compiling (UNLESS (BOUNDP #) ...)
; compiling (DEFUN MERGE-HASH ...)
; compiling (DEFUN MERGE-INVERTED-HASH ...)
; compiling (DEFUN CREATE-RANGES-FROM-HASH ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/util.lisp
; in: DEFUN CREATE-RANGES-FROM-HASH
; (CHAR-DOWNCASE CL-PPCRE::CHR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; compiling (DEFMACRO MAYBE-COERCE-TO-SIMPLE-STRING ...)
; compiling (DECLAIM (INLINE NSUBSEQ))
; compiling (DEFUN NSUBSEQ ...)
; compiling (DEFUN NORMALIZE-VAR-LIST ...)
; compiling (DEFUN STRING-LIST-TO-SIMPLE-STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/util.lisp
; in: DEFUN STRING-LIST-TO-SIMPLE-STRING
; (REPLACE CL-PPCRE::RESULT-STRING STRING :START1 CL-PPCRE::CURR-POS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/util.fasl written
; compilation finished in 0:00:01
STYLE-WARNING: redefining MAKE-CHAR-HASH in DEFUN
STYLE-WARNING: redefining WORD-CHAR-P in DEFUN
STYLE-WARNING: redefining WHITESPACEP in DEFUN
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/errors.lisp" (written 01 APR 2005 04:29:09 PM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFVAR *SYNTAX-ERROR-STRING* ...)
; compiling (DEFINE-CONDITION PPCRE-ERROR ...)
; compiling (DEFINE-CONDITION PPCRE-SYNTAX-ERROR ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFINE-CONDITION PPCRE-INVOCATION-ERROR ...)
; compiling (DEFMACRO SIGNAL-PPCRE-SYNTAX-ERROR* ...)
; compiling (DEFMACRO SIGNAL-PPCRE-SYNTAX-ERROR ...)
; compiling (DEFMACRO SIGNAL-PPCRE-INVOCATION-ERROR ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/errors.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/lexer.lisp" (written 01 APR 2005 04:29:09 PM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DECLAIM (INLINE MAP-CHAR-TO-SPECIAL-CLASS))
; compiling (DEFUN MAP-CHAR-TO-SPECIAL-CHAR-CLASS ...)
; compiling (DEFSTRUCT (LEXER #) ...)
; compiling (DEFUN MAKE-LEXER ...)
; compiling (DECLAIM (INLINE END-OF-STRING-P))
; compiling (DEFUN END-OF-STRING-P ...)
; compiling (DECLAIM (INLINE LOOKING-AT-P))
; compiling (DEFUN LOOKING-AT-P ...)
; compiling (DECLAIM (INLINE NEXT-CHAR-NON-EXTENDED))
; compiling (DEFUN NEXT-CHAR-NON-EXTENDED ...)
; compiling (DEFUN NEXT-CHAR ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/lexer.lisp
; in: DEFUN NEXT-CHAR
; (CL-PPCRE::SIGNAL-PPCRE-SYNTAX-ERROR* CL-PPCRE::ERROR-POS
; "Comment group not closed")
; ==>
; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR
; :POS
; CL-PPCRE::ERROR-POS
; :FORMAT-CONTROL
; "Comment group not closed"
; :FORMAT-ARGUMENTS
; (LIST))
;
; note: doing signed word to integer coercion (cost 20)
; compiling (DECLAIM (INLINE FAIL))
; compiling (DEFUN FAIL ...)
; compiling (DEFUN GET-NUMBER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/lexer.lisp
; in: DEFUN GET-NUMBER
; (IF (< CL-PPCRE::END-POS CL-PPCRE::LEXER-LEN)
; CL-PPCRE::END-POS
; CL-PPCRE::LEXER-LEN)
; ==>
; CL-PPCRE::END-POS
;
; note: doing signed word to integer coercion (cost 20)
; compiling (DECLAIM (INLINE TRY-NUMBER))
; compiling (DEFUN TRY-NUMBER ...)
; compiling (DECLAIM (INLINE MAKE-CHAR-FROM-CODE))
; compiling (DEFUN MAKE-CHAR-FROM-CODE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/lexer.lisp
; in: DEFUN MAKE-CHAR-FROM-CODE
; (CL-PPCRE::SIGNAL-PPCRE-SYNTAX-ERROR* CL-PPCRE::ERROR-POS
; "No character for hex-code ~X"
; NUMBER)
; --> ERROR
; ==>
; CL-PPCRE::ERROR-POS
;
; note: deleting unreachable code
; compiling (DEFUN UNESCAPE-CHAR ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/lexer.lisp
; in: DEFUN MAKE-CHAR-FROM-CODE
; (CL-PPCRE::SIGNAL-PPCRE-SYNTAX-ERROR* CL-PPCRE::ERROR-POS
; "No character for hex-code ~X"
; NUMBER)
; --> ERROR
; ==>
; "No character for hex-code ~X"
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN UNESCAPE-CHAR
; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; compiling (DEFUN COLLECT-CHAR-CLASS ...)
; compiling (DEFUN MAYBE-PARSE-FLAGS ...)
; compiling (DEFUN GET-QUANTIFIER ...)
; compiling (DEFUN GET-TOKEN ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/lexer.lisp
; in: DEFUN MAKE-CHAR-FROM-CODE
; (CL-PPCRE::SIGNAL-PPCRE-SYNTAX-ERROR* CL-PPCRE::ERROR-POS
; "No character for hex-code ~X"
; NUMBER)
; --> ERROR
; ==>
; "No character for hex-code ~X"
;
; note: deleting unreachable code
; ==>
; CL-PPCRE::ERROR-POS
;
; note: deleting unreachable code
; in: DEFUN GET-TOKEN
; (SUBSEQ (CL-PPCRE::LEXER-STR CL-PPCRE::LEXER)
; (CAR CL-PPCRE::THIS-LAST-POS)
; (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; (SUBSEQ (CL-PPCRE::LEXER-STR CL-PPCRE::LEXER)
; (CAR (CL-PPCRE::LEXER-LAST-POS CL-PPCRE::LEXER))
; (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; (CL-PPCRE::SIGNAL-PPCRE-SYNTAX-ERROR*
; (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
; "Character '~A' may not follow '(?<'"
; CL-PPCRE::NEXT-CHAR)
; ==>
; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR
; :POS
; (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
; :FORMAT-CONTROL
; "Character '~A' may not follow '(?<'"
; :FORMAT-ARGUMENTS
; (LIST CL-PPCRE::NEXT-CHAR))
;
; note: doing signed word to integer coercion (cost 20)
; (CL-PPCRE::SIGNAL-PPCRE-SYNTAX-ERROR*
; (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
; "Character '~A' may not follow '(?'"
; CL-PPCRE::NEXT-CHAR)
; ==>
; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR
; :POS
; (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
; :FORMAT-CONTROL
; "Character '~A' may not follow '(?'"
; :FORMAT-ARGUMENTS
; (LIST CL-PPCRE::NEXT-CHAR))
;
; note: doing signed word to integer coercion (cost 20)
; (CL-PPCRE::SIGNAL-PPCRE-SYNTAX-ERROR*
; (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
; "Quantifier '~A' not allowed"
; CL-PPCRE::NEXT-CHAR)
; ==>
; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR
; :POS
; (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
; :FORMAT-CONTROL
; "Quantifier '~A' not allowed"
; :FORMAT-ARGUMENTS
; (LIST CL-PPCRE::NEXT-CHAR))
;
; note: doing signed word to integer coercion (cost 20)
; compiling (DECLAIM (INLINE UNGET-TOKEN))
; compiling (DEFUN UNGET-TOKEN ...)
; compiling (DECLAIM (INLINE START-OF-SUBEXPR-P))
; compiling (DEFUN START-OF-SUBEXPR-P ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/lexer.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/parser.lisp" (written 03 AUG 2005 05:11:27 PM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFUN GROUP ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/parser.lisp
; in: DEFUN GROUP
; (CL-PPCRE::SIGNAL-PPCRE-SYNTAX-ERROR* (+ CL-PPCRE::OPEN-PAREN-POS 2)
; "Opening paren has no matching closing paren")
; ==>
; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR
; :POS
; (+ CL-PPCRE::OPEN-PAREN-POS 2)
; :FORMAT-CONTROL
; "Opening paren has no matching closing paren"
; :FORMAT-ARGUMENTS
; (LIST))
;
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN GREEDY-QUANT ...)
; compiling (DEFUN QUANT ...)
; compiling (DEFUN SEQ ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/parser.lisp
; in: DEFUN SEQ
; (SETF (AREF STRING 0) CL-PPCRE::CHAR1)
; --> SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR CHARACTER), not a SIMPLE-ARRAY.
; (SETF (AREF STRING 1) CL-PPCRE::CHAR2)
; --> SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR CHARACTER), not a SIMPLE-ARRAY.
; (CL-PPCRE::START-OF-SUBEXPR-P CL-PPCRE::LEXER)
; --> BLOCK LET* NOT IF OR LET IF OR PROG1 LET MEMBER BLOCK LET AND IF AND
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-IMPL::KEY)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
; --> BLOCK LET* NOT IF OR LET IF OR PROG1 LET MEMBER BLOCK LET IF
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-IMPL::TEST)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-IMPL::TEST-NOT)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
; compiling (DEFUN REG-EXPR ...)
; compiling (DEFUN REVERSE-STRINGS ...)
; compiling (DEFUN PARSE-STRING ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/parser.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/regex-class.lisp" (written 10 JUN 2005 06:23:42 AM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFCLASS REGEX ...)
; compiling (DEFCLASS SEQ ...)
; compiling (DEFCLASS ALTERNATION ...)
; compiling (DEFCLASS LOOKAHEAD ...)
; compiling (DEFCLASS LOOKBEHIND ...)
; compiling (DEFCLASS REPETITION ...)
; compiling (DEFCLASS REGISTER ...)
; compiling (DEFCLASS STANDALONE ...)
; compiling (DEFCLASS BACK-REFERENCE ...)
; compiling (DEFCLASS CHAR-CLASS ...)
; compiling (DEFCLASS STR ...)
; compiling (DEFCLASS ANCHOR ...)
; compiling (DEFCLASS EVERYTHING ...)
; compiling (DEFCLASS WORD-BOUNDARY ...)
; compiling (DEFCLASS BRANCH ...)
; compiling (DEFCLASS FILTER ...)
; compiling (DEFCLASS VOID ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/regex-class.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (CHAR-CLASS)
; (> (HASH-TABLE-COUNT CL-PPCRE::HASH) (/ CL-PPCRE:*REGEX-CHAR-CODE-LIMIT* 2))
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a (RATIONAL -268435456 536870911/2), not a FIXNUM.
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/regex-class.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (STR)
; (LENGTH (CL-PPCRE::STR CL-PPCRE::STR))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; compiling (DEFMETHOD LEN ...)
; compiling (DEFMETHOD STR ...)
; compiling (DEFMETHOD SKIP ...)
; compiling (DEFMETHOD START-OF-END-STRING-P ...)
; compiling (DEFGENERIC CASE-MODE ...)
; compiling (DEFMETHOD CASE-MODE ...)
; compiling (DEFMETHOD CASE-MODE ...)
; compiling (DEFGENERIC COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFGENERIC REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFGENERIC EVERYTHINGP ...)
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFGENERIC REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFGENERIC REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFGENERIC COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/regex-class.fasl written
; compilation finished in 0:00:09
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/convert.lisp" (written 01 APR 2005 04:29:09 PM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFMACRO CASE-INSENSITIVE-MODE-P ...)
; compiling (DEFMACRO MULTI-LINE-MODE-P ...)
; compiling (DEFMACRO SINGLE-LINE-MODE-P ...)
; compiling (DEFUN SET-FLAG ...)
; compiling (DEFUN ADD-RANGE-TO-HASH ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/convert.lisp
; in: DEFUN ADD-RANGE-TO-HASH
; (CHAR-UPCASE CL-PPCRE::CHR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-DOWNCASE CL-PPCRE::CHR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; compiling (DEFUN CONVERT-CHAR-CLASS-TO-HASH ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/convert.lisp
; in: DEFUN CONVERT-CHAR-CLASS-TO-HASH
; (CEILING (EXPT CL-PPCRE:*REGEX-CHAR-CODE-LIMIT* (/ 1 4)))
; --> CEILING BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET VALUES
; ==>
; (- SB-C::X SB-C::RES)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a FLOAT.
; --> CEILING BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF
; --> NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR RATIONAL SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> CEILING BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF
; --> AND IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a FLOAT.
; --> CEILING BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: forced to do full call
; unable to do inline float truncate (cost 5) because:
; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT.
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; --> CEILING BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET VALUES
; ==>
; (- SB-C::X SB-C::RES)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (OR RATIONAL SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (OR RATIONAL SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> CEILING BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF
; --> AND IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a FIXNUM.
; etc.
; --> CEILING BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES
; ==>
; (+ SB-KERNEL::TRU 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (FLOAT (EXPT CL-PPCRE:*REGEX-CHAR-CODE-LIMIT* (/ 1 4)))
; --> IF
; ==>
; (SB-KERNEL:%SINGLE-FLOAT SB-C::N)
;
; note: forced to do full call
; unable to do inline float coercion (cost 5) because:
; The first argument is a RATIONAL, not a (UNSIGNED-BYTE 32).
; unable to do inline float coercion (cost 5) because:
; The first argument is a RATIONAL, not a (SIGNED-BYTE 32).
; compiling (DEFUN MAYBE-SPLIT-REPETITION ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/convert.lisp
; in: DEFUN MAYBE-SPLIT-REPETITION
; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM)
;
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN MAYBE-ACCUMULATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/convert.lisp
; in: DEFUN MAYBE-ACCUMULATE
; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR)
; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)
; (CL-PPCRE::LEN CL-PPCRE::STR)))
; (CL-PPCRE::STR CL-PPCRE::STR)
; (CL-PPCRE::SKIP CL-PPCRE::STR)
; T)
; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET PROGN
; ==>
; (REPLACE #:G77 #:G79 :START1 #:G78 :END1 NIL)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES SEQUENCE
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES SEQUENCE
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The result is a (VALUES SEQUENCE
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The second argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES SEQUENCE
; &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The result is a (VALUES SEQUENCE
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The result is a (VALUES SEQUENCE
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The result is a (VALUES SEQUENCE
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The result is a (VALUES SEQUENCE
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; (*)).
; The result is a (VALUES SEQUENCE
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; (*)).
; The result is a (VALUES SEQUENCE
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
; (*)).
; The result is a (VALUES SEQUENCE
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; (*)).
; The result is a (VALUES SEQUENCE
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; (*)).
; The result is a (VALUES SEQUENCE
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The result is a (VALUES SEQUENCE
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The result is a (VALUES SEQUENCE
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 16)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The result is a (VALUES SEQUENCE
; &OPTIONAL), not a (VALUES (SIMPLE-ARRAY FIXNUM (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The result is a (VALUES SEQUENCE
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 32)
; (*))
; &REST
; T).
; (SETF (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)
; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)
; (CL-PPCRE::LEN CL-PPCRE::STR)))
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL
; ==>
; (#<SB-C::GLOBAL-VAR
; :%SOURCE-NAME (SETF CL-PPCRE::LEN)
; :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION # *)>
; :WHERE-FROM :DECLARED
; :KIND :GLOBAL-FUNCTION {10CFDD11}>
; #:G75 #:G76)
;
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN CONVERT-AUX ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/convert.lisp
; in: DEFUN CONVERT-AUX
; (EVERY (LAMBDA (CL-PPCRE::ITEM) (EQ CL-PPCRE::ITEM :NON-WORD-CHAR-CLASS))
; CL-PPCRE::ITEM-LIST)
; --> LET BLOCK MAP TRULY-THE
; ==>
; (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G234)
;
; note: unable to open code because: can't determine sequence argument type
; (CHAR-EQUAL (FIRST CL-PPCRE::HASH-KEYS) (SECOND CL-PPCRE::HASH-KEYS))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (MEMBER CL-PPCRE::PARSE-TREE
; '(:NON-DIGIT-CLASS :NON-WORD-CHAR-CLASS :NON-WHITESPACE-CHAR-CLASS)
; :TEST
; #'EQ)
; --> BLOCK LET AND IF AND
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-IMPL::KEY)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
; --> BLOCK LET IF
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-IMPL::TEST)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-IMPL::TEST-NOT)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (ZEROP LENGTH)
; --> = IF
; ==>
; (= LENGTH 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (EVERY (LAMBDA (CL-PPCRE::ITEM) (EQ CL-PPCRE::ITEM :WORD-CHAR-CLASS))
; CL-PPCRE::ITEM-LIST)
; --> LET BLOCK MAP TRULY-THE
; ==>
; (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G244)
;
; note: unable to open code because: can't determine sequence argument type
; (1- (THE FIXNUM CL-PPCRE::TEST-CANDIDATE))
; ==>
; (- (THE FIXNUM CL-PPCRE::TEST-CANDIDATE) 1)
;
; note: doing signed word to integer coercion (cost 20)
; (1- CL-PPCRE::MAXIMUM)
; ==>
; (- CL-PPCRE::MAXIMUM 1)
;
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN CONVERT ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/convert.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/optimize.lisp" (written 13 APR 2005 11:35:57 AM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFGENERIC FLATTEN ...)
; compiling (DEFMETHOD FLATTEN ...)
; compiling (DEFMETHOD FLATTEN ...)
; compiling (DEFMETHOD FLATTEN ...)
; compiling (DEFMETHOD FLATTEN ...)
; compiling (DEFGENERIC GATHER-STRINGS ...)
; compiling (DEFMETHOD GATHER-STRINGS ...)
; compiling (DEFMETHOD GATHER-STRINGS ...)
; compiling (DEFMETHOD GATHER-STRINGS ...)
; compiling (DEFMETHOD GATHER-STRINGS ...)
; compiling (DEFGENERIC START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFGENERIC END-STRING-AUX ...)
; compiling (DEFMETHOD END-STRING-AUX ...)
; compiling (DEFMETHOD END-STRING-AUX ...)
; compiling (DEFMETHOD END-STRING-AUX ...)
; compiling (DEFMETHOD END-STRING-AUX ...)
; compiling (DEFMETHOD END-STRING-AUX ...)
; compiling (DEFGENERIC END-STRING ...)
; compiling (DEFMETHOD END-STRING ...)
; compiling (DEFGENERIC COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/optimize.fasl written
; compilation finished in 0:00:05
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/closures.lisp" (written 16 MAY 2005 12:29:23 PM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DECLAIM (INLINE *STRING*= ...))
; compiling (DEFUN *STRING*= ...)
; compiling (DEFUN *STRING*-EQUAL ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/closures.lisp
; in: DEFUN *STRING*-EQUAL
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; compiling (DEFGENERIC CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMACRO INSERT-CHAR-CLASS-TESTER ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/closures.lisp
; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T)
; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS))
; ==>
; CL-PPCRE::NEXT-FN
;
; note: deleting unreachable code
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER
; (CL-PPCRE::CHAR-CLASS (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; (IF (CL-PPCRE::INVERTEDP CL-PPCRE::CHAR-CLASS)
; (LAMBDA (CL-PPCRE::START-POS)
; (DECLARE (TYPE FIXNUM CL-PPCRE::START-POS))
; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*)
; (NOT #)
; (FUNCALL CL-PPCRE::NEXT-FN #)))
; (LAMBDA (CL-PPCRE::START-POS)
; (DECLARE (TYPE FIXNUM CL-PPCRE::START-POS))
; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*)
; (CL-PPCRE::CHAR-CLASS-TEST)
; (FUNCALL CL-PPCRE::NEXT-FN #)))))
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF LAMBDA FUNCTION AND IF AND IF CL-PPCRE::WORD-CHAR-P
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF LAMBDA FUNCTION AND IF AND IF CL-PPCRE::WORD-CHAR-P
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF LAMBDA FUNCTION AND IF AND IF NOT IF
; --> CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF LAMBDA FUNCTION AND IF AND IF NOT IF
; --> CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR =
; --> IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF LAMBDA FUNCTION AND IF AND IF NOT IF
; --> CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF LAMBDA FUNCTION AND IF AND IF CL-PPCRE::WORD-CHAR-P
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/closures.lisp
; in: DEFUN *STRING*-EQUAL
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; compiling (DECLAIM (INLINE WORD-BOUNDARY-P))
; compiling (DEFUN WORD-BOUNDARY-P ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/closures.lisp
; in: DEFUN WORD-BOUNDARY-P
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::1-START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::1-START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::1-START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/closures.lisp
; in: DEFUN WORD-BOUNDARY-P
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::1-START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::1-START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::1-START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::1-START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::1-START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/closures.lisp
; in: DEFUN *STRING*-EQUAL
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/closures.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.lisp" (written 13 APR 2005 11:35:58 AM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFMACRO INCF-AFTER ...)
; compiling (DEFMACRO GREEDY-CONSTANT-LENGTH-CLOSURE ...)
; compiling (DEFUN CREATE-GREEDY-EVERYTHING-MATCHER ...)
; compiling (DEFGENERIC CREATE-GREEDY-CONSTANT-LENGTH-MATCHER ...)
; compiling (DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.lisp
; in: DEFMACRO GREEDY-CONSTANT-LENGTH-CLOSURE
; (INCF CL-PPCRE::CURR-POS CL-PPCRE::LEN)
; --> LET*
; ==>
; CL-PPCRE::LEN
;
; note: deleting unreachable code
; --> LET* +
; ==>
; CL-PPCRE::CURR-POS
;
; note: deleting unreachable code
; (GO CL-PPCRE::FORWARD-LOOP)
;
; note: deleting unreachable code
; (INCF CL-PPCRE::CURR-POS CL-PPCRE::LEN)
; --> LET*
; ==>
; CL-PPCRE::LEN
;
; note: deleting unreachable code
; --> LET* +
; ==>
; CL-PPCRE::CURR-POS
;
; note: deleting unreachable code
; (GO CL-PPCRE::FORWARD-LOOP)
;
; note: deleting unreachable code
; in: DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T)
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER
; (CL-PPCRE::REGEX (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (IF (CL-PPCRE::INVERTEDP CL-PPCRE::REGEX)
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (NOT (CL-PPCRE::CHAR-CLASS-TEST)))
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))))
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF CL-PPCRE::WORD-CHAR-P BLOCK OR
; --> LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF CL-PPCRE::WORD-CHAR-P BLOCK OR
; --> LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF CL-PPCRE::WORD-CHAR-P BLOCK OR
; --> LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF CL-PPCRE::WORD-CHAR-P BLOCK OR
; --> LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF NOT IF CL-PPCRE::WORD-CHAR-P
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF NOT IF CL-PPCRE::WORD-CHAR-P
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF NOT IF CL-PPCRE::WORD-CHAR-P
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF NOT IF CL-PPCRE::WORD-CHAR-P
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR
; CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)
; 0
; CL-PPCRE::LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER
; (CL-PPCRE::REGEX (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (IF (CL-PPCRE::INVERTEDP CL-PPCRE::REGEX)
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (NOT (CL-PPCRE::CHAR-CLASS-TEST)))
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))))
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF NOT IF CL-PPCRE::WORD-CHAR-P
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF CL-PPCRE::WORD-CHAR-P BLOCK OR
; --> LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; compiling (DEFGENERIC CREATE-GREEDY-NO-ZERO-MATCHER ...)
; compiling (DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.lisp
; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T)
; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0)
; --> SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* + AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* - AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; compiling (DEFGENERIC CREATE-GREEDY-MATCHER ...)
; compiling (DEFMETHOD CREATE-GREEDY-MATCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.lisp
; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T)
; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; 0
; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM)
; NIL)
; --> PROGN SETF SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* + AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* - AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; compiling (DEFMACRO NON-GREEDY-CONSTANT-LENGTH-CLOSURE ...)
; compiling (DEFGENERIC CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER ...)
; compiling (DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.lisp
; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T)
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER
; (CL-PPCRE::REGEX (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (IF (CL-PPCRE::INVERTEDP CL-PPCRE::REGEX)
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (NOT (CL-PPCRE::CHAR-CLASS-TEST)))
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::CHAR-CLASS-TEST))))
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET
; --> < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET
; --> IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET
; --> < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET
; --> IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET
; --> OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET
; --> OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET
; --> OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET
; --> OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR
; CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)
; 0
; CL-PPCRE::LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER
; (CL-PPCRE::REGEX (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (IF (CL-PPCRE::INVERTEDP CL-PPCRE::REGEX)
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (NOT (CL-PPCRE::CHAR-CLASS-TEST)))
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::CHAR-CLASS-TEST))))
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET
; --> OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET
; --> < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; compiling (DEFGENERIC CREATE-NON-GREEDY-NO-ZERO-MATCHER ...)
; compiling (DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.lisp
; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T)
; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0)
; --> SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* + AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* - AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; compiling (DEFGENERIC CREATE-NON-GREEDY-MATCHER ...)
; compiling (DEFMETHOD CREATE-NON-GREEDY-MATCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.lisp
; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T)
; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; 0
; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM)
; NIL)
; --> PROGN SETF SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* + AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* - AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; compiling (DEFMACRO CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ...)
; compiling (DEFGENERIC CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER ...)
; compiling (DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.lisp
; in:
; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T)
; (1+ CL-PPCRE::CURR-POS)
; --> +
; ==>
; CL-PPCRE::CURR-POS
;
; note: deleting unreachable code
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER
; (CL-PPCRE::REGEX (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (IF (CL-PPCRE::INVERTEDP CL-PPCRE::REGEX)
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (NOT #) (1+ CL-PPCRE::CURR-POS)))
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))))
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; --> LAMBDA FUNCTION LET AND IF AND IF LOOP BLOCK LET SB-LOOP::LOOP-BODY
; --> TAGBODY UNLESS COND IF NOT IF AND IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET
; --> ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; --> LAMBDA FUNCTION LET AND IF AND IF LOOP BLOCK LET SB-LOOP::LOOP-BODY
; --> TAGBODY UNLESS COND IF NOT IF AND IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET
; --> ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; --> LAMBDA FUNCTION LET AND IF AND IF LOOP BLOCK LET SB-LOOP::LOOP-BODY
; --> TAGBODY UNLESS COND IF NOT IF AND IF NOT IF CL-PPCRE::WORD-CHAR-P BLOCK
; --> OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; --> LAMBDA FUNCTION LET AND IF AND IF LOOP BLOCK LET SB-LOOP::LOOP-BODY
; --> TAGBODY UNLESS COND IF NOT IF AND IF NOT IF CL-PPCRE::WORD-CHAR-P BLOCK
; --> OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR
; CL-PPCRE::CURR-POS
; CL-PPCRE::NEXT-POS
; 0
; CL-PPCRE::LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER
; (CL-PPCRE::REGEX (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (IF (CL-PPCRE::INVERTEDP CL-PPCRE::REGEX)
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (NOT #) (1+ CL-PPCRE::CURR-POS)))
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))))
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; --> LAMBDA FUNCTION LET AND IF AND IF LOOP BLOCK LET SB-LOOP::LOOP-BODY
; --> TAGBODY UNLESS COND IF NOT IF AND IF NOT IF CL-PPCRE::WORD-CHAR-P BLOCK
; --> OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; --> LAMBDA FUNCTION LET AND IF AND IF LOOP BLOCK LET SB-LOOP::LOOP-BODY
; --> TAGBODY UNLESS COND IF NOT IF AND IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET
; --> ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; compiling (DEFGENERIC CREATE-CONSTANT-REPETITION-MATCHER ...)
; compiling (DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.lisp
; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T)
; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0)
; --> SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* + AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* - AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; 0
; (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM)
; NIL)
; --> PROGN SETF SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))
; ==>
; (= (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* + AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* - AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.fasl written
; compilation finished in 0:00:10
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/scanner.lisp" (written 19 JUL 2005 07:18:15 PM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFMACRO BMH-MATCHER-AUX ...)
; compiling (DEFUN CREATE-BMH-MATCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/scanner.lisp
; in: DEFUN CREATE-BMH-MATCHER
; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T)
; --> LAMBDA FUNCTION IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY LOOP BLOCK
; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF AND IF AND
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I)
; (SCHAR CL-PPCRE::PATTERN CL-PPCRE::J))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (LENGTH CL-PPCRE::PATTERN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CHAR-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; (SEARCH CL-PPCRE::PATTERN
; CL-PPCRE::*STRING*
; :START2
; CL-PPCRE::START-POS
; :END2
; CL-PPCRE::*END-POS*
; :TEST
; CL-PPCRE::TEST)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-STRING.
; compiling (DEFMACRO CHAR-SEARCHER-AUX ...)
; compiling (DEFUN CREATE-CHAR-SEARCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/scanner.lisp
; in: DEFUN CREATE-CHAR-SEARCHER
; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T)
; --> LAMBDA FUNCTION AND IF AND LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY
; --> WHEN COND IF SETQ THE AND IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I) CL-PPCRE::CHR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; compiling (DECLAIM (INLINE NEWLINE-SKIPPER))
; compiling (DEFUN NEWLINE-SKIPPER ...)
; compiling (DEFMACRO INSERT-ADVANCE-FN ...)
; compiling (DEFUN CREATE-SCANNER-AUX ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/scanner.lisp
; in: DEFMACRO INSERT-ADVANCE-FN
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR
; CL-PPCRE::*START-POS*
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
; 0
; CL-PPCRE::STARTS-WITH-LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G274)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR
; CL-PPCRE::*START-POS*
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
; 0
; CL-PPCRE::STARTS-WITH-LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G264)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR
; CL-PPCRE::*START-POS*
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
; 0
; CL-PPCRE::STARTS-WITH-LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G254)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR
; CL-PPCRE::*START-POS*
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
; 0
; CL-PPCRE::STARTS-WITH-LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G244)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR
; CL-PPCRE::*START-POS*
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
; 0
; CL-PPCRE::STARTS-WITH-LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G234)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR
; CL-PPCRE::*START-POS*
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
; 0
; CL-PPCRE::STARTS-WITH-LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G224)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR
; CL-PPCRE::*START-POS*
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
; 0
; CL-PPCRE::STARTS-WITH-LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G214)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR
; CL-PPCRE::*START-POS*
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
; 0
; CL-PPCRE::STARTS-WITH-LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G200)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
; --> IF
; ==>
; (> CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G214)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
; --> IF
; ==>
; (> CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G200)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
; --> IF
; ==>
; (> CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G224)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
; --> IF
; ==>
; (> CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G234)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
; --> IF
; ==>
; (> CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G244)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
; --> IF
; ==>
; (> CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G254)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
; --> IF
; ==>
; (> CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G264)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
; --> IF
; ==>
; (> CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G274)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; in: DEFUN CREATE-SCANNER-AUX
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET*
; ==>
; (SB-C::%SPECIAL-BIND
; '#<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {1016FC71}>
; #<SB-C::LAMBDA-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :SPECVAR #<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {1016FC71}> {1098BBD1}>)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of BIND
; in: DEFMACRO INSERT-ADVANCE-FN
; (FUNCALL CL-PPCRE::END-STRING-TEST (1- CL-PPCRE::END-TEST-POS))
; ==>
; (SB-C::%FUNCALL FUNCTION #:G607)
;
; note: doing signed word to integer coercion (cost 20)
; in: DEFUN CREATE-SCANNER-AUX
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (TYPE FUNCTION CL-PPCRE::END-STRING-TEST))
; (IF
; (<= (THE FIXNUM CL-PPCRE::POS)
; (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS
; (SETQ CL-PPCRE::*END-STRING-POS*
; (FUNCALL CL-PPCRE::END-STRING-TEST
; CL-PPCRE::POS))
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET*
; ==>
; (SB-C::%SPECIAL-BIND
; '#<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {1016FC71}>
; #<SB-C::LAMBDA-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :SPECVAR #<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {1016FC71}> {1098BC49}>)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of BIND
; in: DEFMACRO INSERT-ADVANCE-FN
; (FUNCALL CL-PPCRE::END-STRING-TEST (1- CL-PPCRE::END-TEST-POS))
; ==>
; (SB-C::%FUNCALL FUNCTION #:G854)
;
; note: doing signed word to integer coercion (cost 20)
; in: DEFUN CREATE-SCANNER-AUX
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (UNLESS
; (SETQ CL-PPCRE::POS
; (CL-PPCRE::NEWLINE-SKIPPER CL-PPCRE::POS))
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET*
; ==>
; (SB-C::%SPECIAL-BIND
; '#<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {1016FC71}>
; #<SB-C::LAMBDA-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :SPECVAR #<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {1016FC71}> {1098BCC1}>)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of BIND
; in: DEFMACRO INSERT-ADVANCE-FN
; (FUNCALL CL-PPCRE::END-STRING-TEST (1- CL-PPCRE::END-TEST-POS))
; ==>
; (SB-C::%FUNCALL FUNCTION #:G1101)
;
; note: doing signed word to integer coercion (cost 20)
; in: DEFUN CREATE-SCANNER-AUX
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (TYPE FUNCTION CL-PPCRE::START-STRING-TEST))
; (UNLESS
; (SETQ CL-PPCRE::POS
; (FUNCALL CL-PPCRE::START-STRING-TEST
; CL-PPCRE::POS))
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET*
; ==>
; (SB-C::%SPECIAL-BIND
; '#<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {1016FC71}>
; #<SB-C::LAMBDA-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :SPECVAR #<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {1016FC71}> {1098BD39}>)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of BIND
; in: DEFMACRO INSERT-ADVANCE-FN
; (FUNCALL CL-PPCRE::END-STRING-TEST (1- CL-PPCRE::END-TEST-POS))
; ==>
; (SB-C::%FUNCALL FUNCTION #:G1348)
;
; note: doing signed word to integer coercion (cost 20)
; in: DEFUN CREATE-SCANNER-AUX
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (TYPE FUNCTION CL-PPCRE::END-STRING-TEST))
; (UNLESS
; (SETQ CL-PPCRE::POS
; (CL-PPCRE::NEWLINE-SKIPPER CL-PPCRE::POS))
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF
; (<= (THE FIXNUM CL-PPCRE::POS)
; (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS
; (SETQ CL-PPCRE::*END-STRING-POS*
; (FUNCALL CL-PPCRE::END-STRING-TEST
; CL-PPCRE::POS))
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET*
; ==>
; (SB-C::%SPECIAL-BIND
; '#<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {1016FC71}>
; #<SB-C::LAMBDA-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :SPECVAR #<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {1016FC71}> {1098BDB1}>)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of BIND
; in: DEFMACRO INSERT-ADVANCE-FN
; (FUNCALL CL-PPCRE::END-STRING-TEST (1- CL-PPCRE::END-TEST-POS))
; ==>
; (SB-C::%FUNCALL FUNCTION #:G1596)
;
; note: doing signed word to integer coercion (cost 20)
; in: DEFUN CREATE-SCANNER-AUX
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE
; (TYPE FUNCTION
; CL-PPCRE::START-STRING-TEST
; CL-PPCRE::END-STRING-TEST))
; (UNLESS
; (SETQ CL-PPCRE::POS
; (FUNCALL CL-PPCRE::START-STRING-TEST
; CL-PPCRE::POS))
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF
; (<= (THE FIXNUM CL-PPCRE::POS)
; (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS
; (SETQ CL-PPCRE::*END-STRING-POS*
; (FUNCALL CL-PPCRE::END-STRING-TEST
; CL-PPCRE::POS))
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET*
; ==>
; (SB-C::%SPECIAL-BIND
; '#<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {1016FC71}>
; #<SB-C::LAMBDA-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :SPECVAR #<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {1016FC71}> {1098BE29}>)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of BIND
; in: DEFMACRO INSERT-ADVANCE-FN
; (FUNCALL CL-PPCRE::END-STRING-TEST (1- CL-PPCRE::END-TEST-POS))
; ==>
; (SB-C::%FUNCALL FUNCTION #:G1845)
;
; note: doing signed word to integer coercion (cost 20)
; in: DEFUN CREATE-SCANNER-AUX
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (TYPE FIXNUM CL-PPCRE::END-STRING-OFFSET)
; (TYPE FUNCTION CL-PPCRE::END-STRING-TEST))
; (LOOP
; (UNLESS (SETQ CL-PPCRE::POS #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> LAMBDA FUNCTION BLOCK LET*
; ==>
; (SB-C::%SPECIAL-BIND
; '#<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {1016FC71}>
; #<SB-C::LAMBDA-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :SPECVAR #<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {1016FC71}> {1098BEA1}>)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of BIND
; (SETQ CL-PPCRE::TRY-POS (1+ CL-PPCRE::*END-STRING-POS*))
;
; note: doing signed word to integer coercion (cost 20) to TRY-POS
;
; note: doing signed word to integer coercion (cost 20) to TRY-POS
; in: DEFMACRO INSERT-ADVANCE-FN
; (FUNCALL CL-PPCRE::END-STRING-TEST (1- CL-PPCRE::END-TEST-POS))
; ==>
; (SB-C::%FUNCALL FUNCTION #:G2094)
;
; note: doing signed word to integer coercion (cost 20)
; in: DEFUN CREATE-SCANNER-AUX
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE
; (TYPE FIXNUM
; CL-PPCRE::END-STRING-OFFSET
; CL-PPCRE::STARTS-WITH-LEN)
; (TYPE FUNCTION
; CL-PPCRE::START-STRING-TEST
; CL-PPCRE::END-STRING-TEST))
; (LOOP
; (UNLESS (SETQ CL-PPCRE::POS #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> LAMBDA FUNCTION BLOCK LET*
; ==>
; (SB-C::%SPECIAL-BIND
; '#<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {1016FC71}>
; #<SB-C::LAMBDA-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :SPECVAR #<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {1016FC71}> {1098BF19}>)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of BIND
; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS)
; ==>
; (SB-C::%FUNCALL FUNCTION #:G2348)
;
; note: doing signed word to integer coercion (cost 20) from TRY-POS
; ==>
; (SB-C::%FUNCALL FUNCTION #:G2100)
;
; note: doing signed word to integer coercion (cost 20) from TRY-POS
; in: DEFMACRO INSERT-ADVANCE-FN
; (FUNCALL CL-PPCRE::END-STRING-TEST (1- CL-PPCRE::END-TEST-POS))
; ==>
; (SB-C::%FUNCALL FUNCTION #:G2343)
;
; note: doing signed word to integer coercion (cost 20)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/scanner.fasl written
; compilation finished in 0:00:05
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp" (written 06 DEC 2005 11:50:50 AM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFGENERIC CREATE-SCANNER ...)
; compiling (DEFMETHOD CREATE-SCANNER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFMETHOD CREATE-SCANNER (STRING)
; (COPY-SEQ CL-PPCRE::QUOTED-REGEX-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 16)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES (SIMPLE-ARRAY FIXNUM (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 32)
; (*))
; &REST
; T).
; compiling (DEFMETHOD CREATE-SCANNER ...)
; compiling (DEFMETHOD CREATE-SCANNER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFMETHOD CREATE-SCANNER (T)
; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING))
; ==>
; (> (CL-PPCRE::LEN CL-PPCRE::END-STRING) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING))
; --> = IF
; ==>
; (= SB-C::Y 1)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH))
; ==>
; (> (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH))
; --> = IF
; ==>
; (= SB-C::Y 1)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING))
; ==>
; (> (CL-PPCRE::LEN CL-PPCRE::END-STRING) 0)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH))
; ==>
; (> (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) 0)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; compiling (DEFGENERIC SCAN ...)
; compiling (DEFMETHOD SCAN ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFMETHOD SCAN (STRING T)
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING)
; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
; CL-PPCRE::START
; CL-PPCRE::END)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
; compiling (DEFMETHOD SCAN ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFMETHOD SCAN #'T
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; compiling (DEFMETHOD SCAN ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFMETHOD SCAN (T T)
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE)
; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
; CL-PPCRE::START
; CL-PPCRE::END)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
; compiling (DEFINE-COMPILER-MACRO SCAN ...)
; compiling (DEFUN SCAN-TO-STRINGS ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN SCAN-TO-STRINGS
; (MAP 'VECTOR
; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END)
; (IF CL-PPCRE::REG-START
; (FUNCALL CL-PPCRE::SUBSTR-FN
; CL-PPCRE::TARGET-STRING
; CL-PPCRE::REG-START
; CL-PPCRE::REG-END)
; NIL))
; CL-PPCRE::REG-STARTS
; CL-PPCRE::REG-ENDS)
; --> TRULY-THE
; ==>
; (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G235 #:G236)
;
; note: unable to open code because: can't determine sequence argument type
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; compiling (DEFINE-COMPILER-MACRO SCAN-TO-STRINGS ...)
; compiling (DEFMACRO REGISTER-GROUPS-BIND ...)
; compiling (DEFMACRO DO-SCANS ...)
; compiling (DEFMACRO DO-MATCHES ...)
; compiling (DEFMACRO DO-MATCHES-AS-STRINGS ...)
; compiling (DEFMACRO DO-REGISTER-GROUPS ...)
; compiling (DEFUN ALL-MATCHES ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN ALL-MATCHES
; (CL-PPCRE:DO-MATCHES
; (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; (NREVERSE CL-PPCRE::RESULT-LIST)
; :START
; CL-PPCRE::START
; :END
; CL-PPCRE::END)
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST)
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST))
; --> CL-PPCRE:DO-SCANS LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; --> CL-PPCRE:DO-SCANS LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+
; ==>
; (+ CL-PPCRE::MATCH-END 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CL-PPCRE:DO-MATCHES
; (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; (NREVERSE CL-PPCRE::RESULT-LIST)
; :START
; CL-PPCRE::START
; :END
; CL-PPCRE::END)
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST)
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST))
; --> CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF OR
; ==>
; (LENGTH #:TARGET-STRING334)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; --> CL-PPCRE:DO-SCANS LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; --> CL-PPCRE:DO-SCANS LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+
; ==>
; (+ CL-PPCRE::MATCH-END 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFINE-COMPILER-MACRO ALL-MATCHES ...)
; compiling (DEFUN ALL-MATCHES-AS-STRINGS ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN ALL-MATCHES-AS-STRINGS
; (CL-PPCRE:DO-MATCHES-AS-STRINGS
; (CL-PPCRE::MATCH CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; (NREVERSE CL-PPCRE::RESULT-LIST)
; :START
; CL-PPCRE::START
; :END
; CL-PPCRE::END
; :SHAREDP
; CL-PPCRE::SHAREDP)
; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST))
; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* BLOCK
; --> TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF
; ==>
; (= #:MATCH-START382 #:MATCH-END383)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* BLOCK
; --> TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+
; ==>
; (+ #:MATCH-END383 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CL-PPCRE:DO-MATCHES-AS-STRINGS
; (CL-PPCRE::MATCH CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; (NREVERSE CL-PPCRE::RESULT-LIST)
; :START
; CL-PPCRE::START
; :END
; CL-PPCRE::END
; :SHAREDP
; CL-PPCRE::SHAREDP)
; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST))
; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF OR
; ==>
; (LENGTH #:TARGET-STRING387)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* BLOCK
; --> TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF
; ==>
; (= #:MATCH-START382 #:MATCH-END383)
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* BLOCK
; --> TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+
; ==>
; (+ #:MATCH-END383 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFINE-COMPILER-MACRO ALL-MATCHES-AS-STRINGS ...)
; compiling (DEFUN SPLIT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN SPLIT
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (LOOP CL-PPCRE::FOR
; CL-PPCRE::REG-START
; CL-PPCRE::ACROSS
; CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR
; CL-PPCRE::REG-END
; CL-PPCRE::ACROSS
; CL-PPCRE::REG-ENDS
; IF
; CL-PPCRE::REG-START
; DO
; ...)
; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY SETQ THE
; ==>
; (LENGTH #:LOOP-ACROSS-VECTOR-449)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR NULL VECTOR), not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR NULL VECTOR), not a VECTOR.
; ==>
; (LENGTH #:LOOP-ACROSS-VECTOR-452)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR NULL VECTOR), not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR NULL VECTOR), not a VECTOR.
; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ
; --> THE AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CL-PPCRE:DO-SCANS
; (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS
; CL-PPCRE::REG-ENDS
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; NIL
; :START
; CL-PPCRE::START
; :END
; CL-PPCRE::END)
; (UNLESS
; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)))
; (WHEN (AND CL-PPCRE::LIMIT (>= # CL-PPCRE::LIMIT)) (RETURN))
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (WHEN CL-PPCRE::WITH-REGISTERS-P
; (LOOP CL-PPCRE::FOR
; CL-PPCRE::REG-START
; CL-PPCRE::ACROSS
; CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR
; CL-PPCRE::REG-END
; CL-PPCRE::ACROSS
; CL-PPCRE::REG-ENDS
; IF
; CL-PPCRE::REG-START
; DO
; ...))
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)))
; --> LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION SETQ THE IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; --> LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION SETQ THE IF 1+
; ==>
; (+ CL-PPCRE::MATCH-END 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CL-PPCRE:DO-SCANS
; (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS
; CL-PPCRE::REG-ENDS
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; NIL
; :START
; CL-PPCRE::START
; :END
; CL-PPCRE::END)
; (UNLESS
; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)))
; (WHEN (AND CL-PPCRE::LIMIT (>= # CL-PPCRE::LIMIT)) (RETURN))
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (WHEN CL-PPCRE::WITH-REGISTERS-P
; (LOOP CL-PPCRE::FOR
; CL-PPCRE::REG-START
; CL-PPCRE::ACROSS
; CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR
; CL-PPCRE::REG-END
; CL-PPCRE::ACROSS
; CL-PPCRE::REG-ENDS
; IF
; CL-PPCRE::REG-START
; DO
; ...))
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)))
; --> LET BLOCK LET* OR LET IF OR
; ==>
; (LENGTH #:TARGET-STRING436)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; (INCF CL-PPCRE::COUNTER)
; --> LET*
; ==>
; (+ CL-PPCRE::COUNTER #:G446)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT)
; --> IF
; ==>
; (< (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; (CL-PPCRE:DO-SCANS
; (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS
; CL-PPCRE::REG-ENDS
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; NIL
; :START
; CL-PPCRE::START
; :END
; CL-PPCRE::END)
; (UNLESS
; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)))
; (WHEN (AND CL-PPCRE::LIMIT (>= # CL-PPCRE::LIMIT)) (RETURN))
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (WHEN CL-PPCRE::WITH-REGISTERS-P
; (LOOP CL-PPCRE::FOR
; CL-PPCRE::REG-START
; CL-PPCRE::ACROSS
; CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR
; CL-PPCRE::REG-END
; CL-PPCRE::ACROSS
; CL-PPCRE::REG-ENDS
; IF
; CL-PPCRE::REG-START
; DO
; ...))
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)))
; --> LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION SETQ THE IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; --> LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION SETQ THE IF 1+
; ==>
; (+ CL-PPCRE::MATCH-END 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; compiling (DEFINE-COMPILER-MACRO SPLIT ...)
; compiling (DEFUN STRING-CASE-MODIFIER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN STRING-CASE-MODIFIER
; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM))
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (ALPHANUMERICP (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CHAR CL-PPCRE::STR CL-PPCRE::FROM)
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (ALPHANUMERICP (CHAR CL-PPCRE::STR CL-PPCRE::FROM))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CHAR CL-PPCRE::STR CL-PPCRE::TO)
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO))
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (ALPHANUMERICP (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX)
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (ALPHANUMERICP (CHAR CL-PPCRE::STR CL-PPCRE::TO))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (BOTH-CASE-P CL-PPCRE::CHR)
; --> BLOCK < IF
; ==>
; (< (SB-IMPL::UCD-VALUE-0 CHAR) 2)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (UPPER-CASE-P CL-PPCRE::CHR)
; --> BLOCK = IF
; ==>
; (= (SB-IMPL::UCD-VALUE-0 CHAR) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (ALPHANUMERICP (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (ALPHANUMERICP (CHAR CL-PPCRE::STR CL-PPCRE::FROM))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (ALPHANUMERICP (CHAR CL-PPCRE::STR CL-PPCRE::TO))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (ALPHANUMERICP (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (BOTH-CASE-P CL-PPCRE::CHR)
; --> BLOCK < IF
; ==>
; (< (SB-IMPL::UCD-VALUE-0 CHAR) 2)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; compiling (DEFGENERIC BUILD-REPLACEMENT-TEMPLATE ...)
; compiling (LET* (# #) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFMETHOD BUILD-REPLACEMENT-TEMPLATE (STRING)
; (SUBSEQ CL-PPCRE::REPLACEMENT-STRING CL-PPCRE::FROM)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; (SUBSEQ CL-PPCRE::REPLACEMENT-STRING CL-PPCRE::FROM CL-PPCRE::MATCH-START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; (POSITION-IF #'DIGIT-CHAR-P
; CL-PPCRE::REPLACEMENT-STRING
; :START
; CL-PPCRE::MATCH-START
; :END
; CL-PPCRE::MATCH-END)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION-IF
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; because:
; upgraded array element type not known at compile time
; (CHAR CL-PPCRE::REPLACEMENT-STRING (1+ CL-PPCRE::MATCH-START))
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (SUBSEQ CL-PPCRE::REPLACEMENT-STRING
; CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; (< CL-PPCRE::FROM CL-PPCRE::MATCH-START)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (1-
; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING
; :START
; CL-PPCRE::PARSE-START
; :JUNK-ALLOWED
; T))
; ==>
; (-
; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING
; :START
; CL-PPCRE::PARSE-START
; :JUNK-ALLOWED
; T)
; 1)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (< CL-PPCRE::TOKEN 0)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; compiling (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...)
; compiling (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...)
; compiling (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...)
; compiling (DEFUN BUILD-REPLACEMENT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN BUILD-REPLACEMENT
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING
; CL-PPCRE::REG-START
; CL-PPCRE::REG-END)
; --> BLOCK MAKE-ARRAY
; ==>
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING
; CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
; --> BLOCK MAKE-ARRAY
; ==>
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0)
;
; note: unable to
; optimize
; because:
; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime.
; (MAP 'LIST
; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END)
; (AND CL-PPCRE::REG-START
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING
; CL-PPCRE::REG-START
; CL-PPCRE::REG-END)))
; CL-PPCRE::REG-STARTS
; CL-PPCRE::REG-ENDS)
; --> TRULY-THE
; ==>
; (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G738 #:G739)
;
; note: unable to open code because: can't determine sequence argument type
; ==>
; (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G747 #:G748)
;
; note: unable to open code because: can't determine sequence argument type
; (>= CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND)
; --> IF
; ==>
; (< CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; (1+ CL-PPCRE::TOKEN)
; ==>
; (+ CL-PPCRE::TOKEN 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING
; CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
; --> BLOCK MAKE-ARRAY
; ==>
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING
; CL-PPCRE::REG-START
; CL-PPCRE::REG-END)
; --> BLOCK MAKE-ARRAY
; ==>
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; compiling (DEFUN REPLACE-AUX ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN REPLACE-AUX
; (FUNCALL
; (CL-PPCRE::STRING-CASE-MODIFIER CL-PPCRE::TARGET-STRING
; CL-PPCRE::FROM
; CL-PPCRE::TO
; CL-PPCRE::START
; CL-PPCRE::END)
; CL-PPCRE::CURR-REPLACEMENT)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR NULL FUNCTION), not a FUNCTION.
; compiling (DEFUN REGEX-REPLACE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN REGEX-REPLACE
; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 16)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES (SIMPLE-ARRAY FIXNUM (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 32)
; (*))
; &REST
; T).
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; compiling (DEFINE-COMPILER-MACRO REGEX-REPLACE ...)
; compiling (DEFUN REGEX-REPLACE-ALL ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN REGEX-REPLACE-ALL
; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 16)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES (SIMPLE-ARRAY FIXNUM (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 32)
; (*))
; &REST
; T).
; (CL-PPCRE:DO-SCANS
; (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS
; CL-PPCRE::REG-ENDS
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; NIL
; :START
; CL-PPCRE::START
; :END
; CL-PPCRE::END)
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)
; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST)
; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST))
; --> LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION SETQ THE IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; --> LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION SETQ THE IF 1+
; ==>
; (+ CL-PPCRE::MATCH-END 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CL-PPCRE:DO-SCANS
; (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS
; CL-PPCRE::REG-ENDS
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; NIL
; :START
; CL-PPCRE::START
; :END
; CL-PPCRE::END)
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)
; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST)
; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST))
; --> LET BLOCK LET* OR LET IF OR
; ==>
; (LENGTH #:TARGET-STRING839)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; --> LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION SETQ THE IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; --> LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION SETQ THE IF 1+
; ==>
; (+ CL-PPCRE::MATCH-END 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFINE-COMPILER-MACRO REGEX-REPLACE-ALL ...)
; compiling (DEFMACRO REGEX-APROPOS-AUX ...)
; compiling (DEFUN REGEX-APROPOS-LIST ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN REGEX-APROPOS-LIST
; (DEFUN CL-PPCRE:REGEX-APROPOS-LIST
; (CL-PPCRE::REGEX
; &OPTIONAL CL-PPCRE::PACKAGES
; &KEY (CL-PPCRE::CASE-INSENSITIVE T))
; (DECLARE
; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; "Similar to the standard function APROPOS-LIST but returns a list of
; all symbols which match the regular expression REGEX. If
; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a
; case-insensitive scanner is used."
; (LET ((CL-PPCRE::COLLECTOR 'NIL))
; (CL-PPCRE::REGEX-APROPOS-AUX
; (CL-PPCRE::REGEX CL-PPCRE::PACKAGES
; CL-PPCRE::CASE-INSENSITIVE
; CL-PPCRE::COLLECTOR)
; (PUSH SYMBOL CL-PPCRE::COLLECTOR))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS-LIST
; (CL-PPCRE::REGEX &OPTIONAL
; CL-PPCRE::PACKAGES
; &KEY
; (CL-PPCRE::CASE-INSENSITIVE T))
; (DECLARE
; (OPTIMIZE SPEED
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 1)
; (COMPILATION-SPEED 0)))
; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST
; (LET ((CL-PPCRE::COLLECTOR 'NIL))
; (CL-PPCRE::REGEX-APROPOS-AUX
; (CL-PPCRE::REGEX CL-PPCRE::PACKAGES
; CL-PPCRE::CASE-INSENSITIVE
; CL-PPCRE::COLLECTOR)
; (PUSH SYMBOL CL-PPCRE::COLLECTOR)))))
;
; caught STYLE-WARNING:
; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL
; PACKAGES
; &KEY
; (CASE-INSENSITIVE T))
; in: LAMBDA (#:WHOLE919 #:ENVIRONMENT920)
; (MEMBER SB-IMPL::THIS-KIND '(:INTERNAL :EXTERNAL :INHERITED))
; --> BLOCK LET DO BLOCK LET TAGBODY TAGBODY LET IF SB-IMPL::SATISFIES-THE-TEST
; --> LET COND IF COND IF COND IF PROGN FUNCALL
; ==>
; (SB-C::%FUNCALL FUNCTION #:G26 #:G27)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
;
; note: forced to do GENERIC-EQL (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; compiling (DEFUN PRINT-SYMBOL-INFO ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN PRINT-SYMBOL-INFO
; (FORMAT T "~&~S ~<~;~^~A~@{~:@_~A~}~;~:>" SYMBOL CL-PPCRE::OUTPUT-LIST)
; --> FORMAT FORMATTER FUNCTION BLOCK LET PPRINT-LOGICAL-BLOCK
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET BLOCK LET IF
; --> SB-KERNEL:WITH-CIRCULARITY-DETECTION LABELS BLOCK SB-KERNEL:DESCEND-INTO
; --> FLET COND IF AND IF AND IF AND >= IF
; ==>
; (< SB-KERNEL:*CURRENT-LEVEL-IN-PRINT* *PRINT-LEVEL*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FORMAT FORMATTER FUNCTION BLOCK LET PPRINT-LOGICAL-BLOCK
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET BLOCK LET IF
; --> SB-KERNEL:WITH-CIRCULARITY-DETECTION LABELS BLOCK SB-KERNEL:DESCEND-INTO
; --> FLET COND IF COND IF PROGN LET 1+
; ==>
; (+ SB-KERNEL:*CURRENT-LEVEL-IN-PRINT* 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; --> FORMAT FORMATTER FUNCTION BLOCK LET PPRINT-LOGICAL-BLOCK
; --> SB-PRETTY::WITH-PRETTY-STREAM
; ==>
; (FLET ((#:WITH-PRETTY-STREAM-1399 (STREAM)
; (LET (#)
; (IF # # #))))
; (LET ((STREAM
; (LET #
; #)))
; (IF (SB-PRETTY:PRETTY-STREAM-P STREAM)
; (#:WITH-PRETTY-STREAM-1399 STREAM)
; (CATCH 'SB-PRETTY::LINE-LIMIT-ABBREVIATION-HAPPENED
; (LET #
; #
; #))))
; NIL)
;
; note: Return type not fixed values, so can't use known return convention:
; *
; --> FORMAT FORMATTER FUNCTION BLOCK LET PPRINT-LOGICAL-BLOCK
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET BLOCK LET IF
; --> SB-KERNEL:WITH-CIRCULARITY-DETECTION LABELS BLOCK SB-KERNEL:DESCEND-INTO
; --> FLET BLOCK LET BLOCK FLET BLOCK WHEN COND IF AND IF AND
; ==>
; (EQL #:PPRINT-LOGICAL-BLOCK-LENGTH-1397 *PRINT-LENGTH*)
;
; note: forced to do GENERIC-EQL (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a (OR UNSIGNED-BYTE NULL), not a FIXNUM.
; --> FORMAT FORMATTER FUNCTION BLOCK LET PPRINT-LOGICAL-BLOCK
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET BLOCK LET IF
; --> SB-KERNEL:WITH-CIRCULARITY-DETECTION LABELS BLOCK SB-KERNEL:DESCEND-INTO
; --> FLET COND IF AND IF AND IF AND >= IF
; ==>
; (< SB-KERNEL:*CURRENT-LEVEL-IN-PRINT* *PRINT-LEVEL*)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; --> FORMAT FORMATTER FUNCTION BLOCK LET PPRINT-LOGICAL-BLOCK
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET BLOCK LET IF
; --> SB-KERNEL:WITH-CIRCULARITY-DETECTION LABELS BLOCK SB-KERNEL:DESCEND-INTO
; --> FLET COND IF COND IF PROGN LET 1+
; ==>
; (+ SB-KERNEL:*CURRENT-LEVEL-IN-PRINT* 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFUN REGEX-APROPOS ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN REGEX-APROPOS
; (DEFUN CL-PPCRE:REGEX-APROPOS
; (CL-PPCRE::REGEX
; &OPTIONAL CL-PPCRE::PACKAGES
; &KEY (CL-PPCRE::CASE-INSENSITIVE T))
; "Similar to the standard function APROPOS but returns a list of all
; symbols which match the regular expression REGEX. If CASE-INSENSITIVE
; is true and REGEX isn't already a scanner, a case-insensitive scanner
; is used."
; (DECLARE
; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (CL-PPCRE::REGEX-APROPOS-AUX
; (CL-PPCRE::REGEX CL-PPCRE::PACKAGES CL-PPCRE::CASE-INSENSITIVE)
; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL))
; (VALUES))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS
; (CL-PPCRE::REGEX &OPTIONAL
; CL-PPCRE::PACKAGES
; &KEY
; (CL-PPCRE::CASE-INSENSITIVE T))
; (DECLARE
; (OPTIMIZE SPEED
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 1)
; (COMPILATION-SPEED 0)))
; (BLOCK CL-PPCRE:REGEX-APROPOS
; (CL-PPCRE::REGEX-APROPOS-AUX
; (CL-PPCRE::REGEX CL-PPCRE::PACKAGES
; CL-PPCRE::CASE-INSENSITIVE)
; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL))
; (VALUES)))
;
; caught STYLE-WARNING:
; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL
; PACKAGES
; &KEY
; (CASE-INSENSITIVE T))
; in: LAMBDA (#:WHOLE1465 #:ENVIRONMENT1466)
; (MEMBER SB-IMPL::THIS-KIND '(:INTERNAL :EXTERNAL :INHERITED))
; --> BLOCK LET DO BLOCK LET TAGBODY TAGBODY LET IF SB-IMPL::SATISFIES-THE-TEST
; --> LET COND IF COND IF COND IF PROGN FUNCALL
; ==>
; (SB-C::%FUNCALL FUNCTION #:G26 #:G27)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
;
; note: forced to do GENERIC-EQL (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; compiling (LET* (# #) ...)
; compiling (LET* (# # ...) ...)
; compiling (LET* (# # ...) ...)
; compiling (DEFUN PARSE-TREE-SYNONYM ...)
; compiling (DEFUN (SETF PARSE-TREE-SYNONYM) ...)
; compiling (DEFMACRO DEFINE-PARSE-TREE-SYNONYM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.fasl written
; compilation finished in 0:00:05
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40007E01}> on
#<CL-SOURCE-FILE "api" {40007E11}>.
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; printed 713 notes
;;; ASDF-INSTALL: Downloading package CL-BASE64, required by tbnl
;;; ASDF-INSTALL: Downloading 26219 bytes from http://files.b9.com/cl-base64/cl-base64-latest.tar.gz to /Users/gwking/temporary/asdf-test/cl-base64.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/cl-base64.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
cl-base64-3.3.1/
cl-base64-3.3.1/package.lisp
cl-base64-3.3.1/cl-base64.asd
cl-base64-3.3.1/encode.lisp
cl-base64-3.3.1/COPYING
cl-base64-3.3.1/tests.lisp
cl-base64-3.3.1/decode.lisp
cl-base64-3.3.1/package.fasla16
cl-base64-3.3.1/encode.fasla16
cl-base64-3.3.1/decode.fasla16
cl-base64-3.3.1/tests.fasla16
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/package.lisp" (written 07 SEP 2003 02:34:45 AM):
; compiling (DEFPACKAGE #:CL-BASE64 ...)
; compiling (IN-PACKAGE #:CL-BASE64)
; compiling (DEFVAR *ENCODE-TABLE* ...)
; compiling (DECLAIM (TYPE SIMPLE-STRING ...))
; compiling (DEFVAR *URI-ENCODE-TABLE* ...)
; compiling (DECLAIM (TYPE SIMPLE-STRING ...))
; compiling (DEFTYPE DECODE-TABLE ...)
; compiling (DEFUN MAKE-DECODE-TABLE ...)
; compiling (DEFVAR *DECODE-TABLE* ...)
; compiling (DEFVAR *URI-DECODE-TABLE* ...)
; compiling (DEFVAR *PAD-CHAR* ...)
; compiling (DEFVAR *URI-PAD-CHAR* ...)
; compiling (DECLAIM (TYPE CHARACTER ...))
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/encode.lisp" (written 07 SEP 2003 02:34:45 AM):
; compiling (IN-PACKAGE #:CL-BASE64)
; compiling (DEFUN ROUND-NEXT-MULTIPLE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/encode.lisp
; in: DEFUN ROUND-NEXT-MULTIPLE
; (+ CL-BASE64::X (THE FIXNUM (- CL-BASE64::N CL-BASE64::REMAINDER)))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (MOD CL-BASE64::X CL-BASE64::N)
; --> BLOCK LET IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-536870912) (536870912))
; (DOUBLE-FLOAT (-5.36870912d8) (5.36870912d8))
; (SINGLE-FLOAT (-5.368709e8)
; (5.368709e8))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK LET IF AND IF AND IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET IF AND IF AND IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET IF
; ==>
; (+ REM SB-KERNEL::DIVISOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-536870912) (536870912))
; (DOUBLE-FLOAT (-5.36870912d8) (5.36870912d8))
; (SINGLE-FLOAT (-5.368709e8)
; (5.368709e8))), not a FLOAT.
; --> BLOCK LET REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-KERNEL::DIVISOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> BLOCK LET IF AND IF AND IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> BLOCK LET IF AND IF AND IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> BLOCK LET IF
; ==>
; (+ REM SB-KERNEL::DIVISOR)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR (RATIONAL (-536870912) (536870912))
; (DOUBLE-FLOAT (-5.36870912d8) (5.36870912d8))
; (SINGLE-FLOAT (-5.368709e8)
; (5.368709e8))), not a FIXNUM.
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a (OR (RATIONAL (-536870912) (536870912))
; (DOUBLE-FLOAT (-5.36870912d8) (5.36870912d8))
; (SINGLE-FLOAT (-5.368709e8)
; (5.368709e8))), not a FIXNUM.
; etc.
; (+ CL-BASE64::X (THE FIXNUM (- CL-BASE64::N CL-BASE64::REMAINDER)))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; compiling (DEFMACRO DEF-*-TO-BASE64-* ...)
; compiling (DEF-*-TO-BASE64-* :STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/encode.lisp
; in: DEFMACRO DEF-*-TO-BASE64-*
; (CHAR CL-BASE64::INPUT CL-BASE64::ISOURCE)
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR CL-BASE64::INPUT (THE FIXNUM (1+ CL-BASE64::ISOURCE)))
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR CL-BASE64::INPUT (THE FIXNUM (+ 2 CL-BASE64::ISOURCE)))
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR CL-BASE64::INPUT CL-BASE64::ISOURCE)
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR CL-BASE64::INPUT (THE FIXNUM (1+ CL-BASE64::ISOURCE)))
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR CL-BASE64::INPUT CL-BASE64::ISOURCE)
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (TRUNCATE (+ CL-BASE64::STRING-LENGTH 2) 3)
;
; note: forced to do (signed-byte 32) truncate (cost 60)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a (INTEGER 2 536870912), not a (UNSIGNED-BYTE 29).
; unable to do fixnum truncate (cost 50) because:
; The first argument is a (INTEGER 2 536870912), not a FIXNUM.
; (TRUNCATE (+ CL-BASE64::PADDED-LENGTH (1- CL-BASE64::COLUMNS))
; CL-BASE64::COLUMNS)
;
; note: forced to do (signed-byte 32) truncate (cost 60)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a (MOD 1073741822), not a (UNSIGNED-BYTE 29).
; The result is a (VALUES (MOD 1073741822)
; (MOD 536870911)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; unable to do fixnum truncate (cost 50) because:
; The first argument is a (MOD 1073741822), not a FIXNUM.
; The result is a (VALUES (MOD 1073741822)
; (MOD 536870911)
; &OPTIONAL), not a (VALUES FIXNUM FIXNUM &REST T).
; compiling (DEF-*-TO-BASE64-* :STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/encode.lisp
; in: DEFMACRO DEF-*-TO-BASE64-*
; (CHAR CL-BASE64::INPUT CL-BASE64::ISOURCE)
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR CL-BASE64::INPUT (THE FIXNUM (1+ CL-BASE64::ISOURCE)))
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR CL-BASE64::INPUT (THE FIXNUM (+ 2 CL-BASE64::ISOURCE)))
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR CL-BASE64::INPUT CL-BASE64::ISOURCE)
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR CL-BASE64::INPUT (THE FIXNUM (1+ CL-BASE64::ISOURCE)))
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR CL-BASE64::INPUT CL-BASE64::ISOURCE)
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (TRUNCATE (+ CL-BASE64::STRING-LENGTH 2) 3)
;
; note: forced to do (signed-byte 32) truncate (cost 60)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a (INTEGER 2 536870912), not a (UNSIGNED-BYTE 29).
; unable to do fixnum truncate (cost 50) because:
; The first argument is a (INTEGER 2 536870912), not a FIXNUM.
; compiling (DEF-*-TO-BASE64-* :USB8-ARRAY ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/encode.lisp
; in: DEFMACRO DEF-*-TO-BASE64-*
; (AREF CL-BASE64::INPUT CL-BASE64::ISOURCE)
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (AREF CL-BASE64::INPUT (1+ CL-BASE64::ISOURCE))
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (AREF CL-BASE64::INPUT (+ 2 CL-BASE64::ISOURCE))
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (AREF CL-BASE64::INPUT CL-BASE64::ISOURCE)
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (AREF CL-BASE64::INPUT (THE FIXNUM (1+ CL-BASE64::ISOURCE)))
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (AREF CL-BASE64::INPUT CL-BASE64::ISOURCE)
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (TRUNCATE (+ CL-BASE64::STRING-LENGTH 2) 3)
;
; note: forced to do (signed-byte 32) truncate (cost 60)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a (INTEGER 2 536870912), not a (UNSIGNED-BYTE 29).
; unable to do fixnum truncate (cost 50) because:
; The first argument is a (INTEGER 2 536870912), not a FIXNUM.
; (TRUNCATE (+ CL-BASE64::PADDED-LENGTH (1- CL-BASE64::COLUMNS))
; CL-BASE64::COLUMNS)
;
; note: forced to do (signed-byte 32) truncate (cost 60)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a (MOD 1073741822), not a (UNSIGNED-BYTE 29).
; The result is a (VALUES (MOD 1073741822)
; (MOD 536870911)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; unable to do fixnum truncate (cost 50) because:
; The first argument is a (MOD 1073741822), not a FIXNUM.
; The result is a (VALUES (MOD 1073741822)
; (MOD 536870911)
; &OPTIONAL), not a (VALUES FIXNUM FIXNUM &REST T).
; compiling (DEF-*-TO-BASE64-* :USB8-ARRAY ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/encode.lisp
; in: DEFMACRO DEF-*-TO-BASE64-*
; (AREF CL-BASE64::INPUT CL-BASE64::ISOURCE)
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (AREF CL-BASE64::INPUT (1+ CL-BASE64::ISOURCE))
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (AREF CL-BASE64::INPUT (+ 2 CL-BASE64::ISOURCE))
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (AREF CL-BASE64::INPUT CL-BASE64::ISOURCE)
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (AREF CL-BASE64::INPUT (THE FIXNUM (1+ CL-BASE64::ISOURCE)))
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (AREF CL-BASE64::INPUT CL-BASE64::ISOURCE)
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (TRUNCATE (+ CL-BASE64::STRING-LENGTH 2) 3)
;
; note: forced to do (signed-byte 32) truncate (cost 60)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a (INTEGER 2 536870912), not a (UNSIGNED-BYTE 29).
; unable to do fixnum truncate (cost 50) because:
; The first argument is a (INTEGER 2 536870912), not a FIXNUM.
; compiling (DEFUN INTEGER-TO-BASE64-STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/encode.lisp
; in: DEFUN INTEGER-TO-BASE64-STRING
; (MOD CL-BASE64::PADDED-BITS 24)
; --> BLOCK LET REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-KERNEL::DIVISOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> BLOCK LET IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-24) (24))
; (DOUBLE-FLOAT (-24.0d0) (24.0d0))
; (SINGLE-FLOAT (-24.0) (24.0))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK LET IF AND IF AND IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET IF
; ==>
; (+ REM SB-KERNEL::DIVISOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-24) (24))
; (DOUBLE-FLOAT (-24.0d0) (24.0d0))
; (SINGLE-FLOAT (-24.0) (24.0))), not a FLOAT.
; (ZEROP CL-BASE64::REMAINDER-PADDING)
; ==>
; (= CL-BASE64::REMAINDER-PADDING 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-24) (48))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (SINGLE-FLOAT (-24.0) (48.0))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (- 24 CL-BASE64::REMAINDER-PADDING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (RATIONAL (-24) (48))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (SINGLE-FLOAT (-24.0) (48.0))), not a FLOAT.
; (/ CL-BASE64::PADDING-BITS 6)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a FLOAT.
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a INTEGER.
; (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a SINGLE-FLOAT.
; (/ (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS) 6)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (/ CL-BASE64::PADDING-BITS 3)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a FLOAT.
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a INTEGER.
; (INTEGER-LENGTH CL-BASE64::INPUT)
;
; note: forced to do full call
; unable to do inline (unsigned-byte 32) integer-length (cost 4) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; unable to do inline (signed-byte 32) integer-length (cost 6) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; (MOD CL-BASE64::PADDED-BITS 24)
; --> BLOCK LET IF AND IF AND IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> BLOCK LET IF
; ==>
; (+ REM SB-KERNEL::DIVISOR)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (RATIONAL (-24) (24))
; (DOUBLE-FLOAT (-24.0d0) (24.0d0))
; (SINGLE-FLOAT (-24.0) (24.0))), not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT (0.0) (48.0))
; (DOUBLE-FLOAT (0.0d0) (48.0d0))
; (RATIONAL (0) (48)))
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR (RATIONAL (-24) (24))
; (DOUBLE-FLOAT (-24.0d0) (24.0d0))
; (SINGLE-FLOAT (-24.0) (24.0))), not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT (0.0) (48.0))
; (DOUBLE-FLOAT (0.0d0) (48.0d0))
; (RATIONAL (0) (48)))
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (- 24 CL-BASE64::REMAINDER-PADDING)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (OR (RATIONAL (-24) (48))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (SINGLE-FLOAT (-24.0) (48.0))), not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48)))
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The second argument is a (OR (RATIONAL (-24) (48))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (SINGLE-FLOAT (-24.0) (48.0))), not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48)))
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (TRUNCATE CL-BASE64::PADDED-LENGTH CL-BASE64::COLUMNS)
;
; note: forced to do fixnum truncate (cost 50)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES FIXNUM
; (INTEGER -536870910 536870910)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; (* CL-BASE64::COLUMNS (TRUNCATE CL-BASE64::PADDED-LENGTH CL-BASE64::COLUMNS))
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230375077969921)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 4) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230375077969921)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (- CL-BASE64::PADDED-LENGTH
; (* CL-BASE64::COLUMNS
; (TRUNCATE CL-BASE64::PADDED-LENGTH CL-BASE64::COLUMNS)))
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (INTEGER -288230375614840832
; 288230375077969921), not a FIXNUM.
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The second argument is a (INTEGER -288230375614840832
; 288230375077969921), not a FIXNUM.
; etc.
; (TRUNCATE (+ CL-BASE64::PADDED-LENGTH (1- CL-BASE64::COLUMNS))
; CL-BASE64::COLUMNS)
;
; note: forced to do (signed-byte 32) truncate (cost 60)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a (INTEGER -536870912
; 1073741821), not a (UNSIGNED-BYTE 29).
; The result is a (VALUES FIXNUM
; (INTEGER -536870910 536870910)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; unable to do fixnum truncate (cost 50) because:
; The first argument is a (INTEGER -536870912 1073741821), not a FIXNUM.
; (ASH CL-BASE64::INPUT (/ CL-BASE64::PADDING-BITS 3))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a (INTEGER -7 15), not a (UNSIGNED-BYTE 29).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (LOGAND CL-BASE64::INT 63)
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (ASH CL-BASE64::INT -6)
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; compiling (DEFUN INTEGER-TO-BASE64-STREAM ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/encode.lisp
; in: DEFUN INTEGER-TO-BASE64-STREAM
; (MOD CL-BASE64::PADDED-BITS 24)
; --> BLOCK LET REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-KERNEL::DIVISOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> BLOCK LET IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-24) (24))
; (DOUBLE-FLOAT (-24.0d0) (24.0d0))
; (SINGLE-FLOAT (-24.0) (24.0))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK LET IF AND IF AND IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET IF
; ==>
; (+ REM SB-KERNEL::DIVISOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-24) (24))
; (DOUBLE-FLOAT (-24.0d0) (24.0d0))
; (SINGLE-FLOAT (-24.0) (24.0))), not a FLOAT.
; (ZEROP CL-BASE64::REMAINDER-PADDING)
; ==>
; (= CL-BASE64::REMAINDER-PADDING 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL (-24) (48))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (SINGLE-FLOAT (-24.0) (48.0))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (- 24 CL-BASE64::REMAINDER-PADDING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (RATIONAL (-24) (48))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (SINGLE-FLOAT (-24.0) (48.0))), not a FLOAT.
; (/ CL-BASE64::PADDING-BITS 6)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a FLOAT.
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a INTEGER.
; (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a SINGLE-FLOAT.
; (/ (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS) 6)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (- CL-BASE64::STRLEN CL-BASE64::PADDING-CHARS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR (RATIONAL (-4) (8))
; (DOUBLE-FLOAT (-4.0d0) (8.0d0))
; (SINGLE-FLOAT (-4.0) (8.0))), not a FLOAT.
; (1- CL-BASE64::NONPAD-CHARS)
; ==>
; (- CL-BASE64::NONPAD-CHARS 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT (-5.368709e8) (5.368709e8))
; (DOUBLE-FLOAT (-5.3687092d8) (5.36870915d8))
; (RATIONAL (-536870920) (536870915))), not a FLOAT.
; (/ CL-BASE64::PADDING-BITS 3)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a FLOAT.
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a INTEGER.
; (= CL-BASE64::STRPOS CL-BASE64::NONPAD-CHARS)
;
; note: unable to open code because: The operands might not be the same type.
; (INTEGER-LENGTH CL-BASE64::INPUT)
;
; note: forced to do full call
; unable to do inline (unsigned-byte 32) integer-length (cost 4) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; unable to do inline (signed-byte 32) integer-length (cost 6) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; (MOD CL-BASE64::PADDED-BITS 24)
; --> BLOCK LET IF AND IF AND IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; --> BLOCK LET IF
; ==>
; (+ REM SB-KERNEL::DIVISOR)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (RATIONAL (-24) (24))
; (DOUBLE-FLOAT (-24.0d0) (24.0d0))
; (SINGLE-FLOAT (-24.0) (24.0))), not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT (0.0) (48.0))
; (DOUBLE-FLOAT (0.0d0) (48.0d0))
; (RATIONAL (0) (48)))
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR (RATIONAL (-24) (24))
; (DOUBLE-FLOAT (-24.0d0) (24.0d0))
; (SINGLE-FLOAT (-24.0) (24.0))), not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT (0.0) (48.0))
; (DOUBLE-FLOAT (0.0d0) (48.0d0))
; (RATIONAL (0) (48)))
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (- 24 CL-BASE64::REMAINDER-PADDING)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (OR (RATIONAL (-24) (48))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (SINGLE-FLOAT (-24.0) (48.0))), not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48)))
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The second argument is a (OR (RATIONAL (-24) (48))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (SINGLE-FLOAT (-24.0) (48.0))), not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48)))
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a (OR (SINGLE-FLOAT (-24.0) (48.0))
; (DOUBLE-FLOAT (-24.0d0) (48.0d0))
; (RATIONAL (-24) (48))), not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (- CL-BASE64::STRLEN CL-BASE64::PADDING-CHARS)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (OR (RATIONAL (-4) (8))
; (DOUBLE-FLOAT (-4.0d0) (8.0d0))
; (SINGLE-FLOAT (-4.0) (8.0))), not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT (-5.368709e8) (5.368709e8))
; (DOUBLE-FLOAT (-5.3687092d8) (5.36870915d8))
; (RATIONAL (-536870920) (536870915)))
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The second argument is a (OR (RATIONAL (-4) (8))
; (DOUBLE-FLOAT (-4.0d0) (8.0d0))
; (SINGLE-FLOAT (-4.0) (8.0))), not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT (-5.368709e8) (5.368709e8))
; (DOUBLE-FLOAT (-5.3687092d8) (5.36870915d8))
; (RATIONAL (-536870920) (536870915)))
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (1- CL-BASE64::NONPAD-CHARS)
; ==>
; (- CL-BASE64::NONPAD-CHARS 1)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (SINGLE-FLOAT (-5.368709e8) (5.368709e8))
; (DOUBLE-FLOAT (-5.3687092d8) (5.36870915d8))
; (RATIONAL (-536870920)
; (536870915))), not a FIXNUM.
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR (SINGLE-FLOAT (-5.368709e8) (5.368709e8))
; (DOUBLE-FLOAT (-5.3687092d8) (5.36870915d8))
; (RATIONAL (-536870920)
; (536870915))), not a FIXNUM.
; etc.
; (ASH CL-BASE64::INPUT (/ CL-BASE64::PADDING-BITS 3))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a (INTEGER -7 15), not a (UNSIGNED-BYTE 29).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (LOGAND CL-BASE64::INT 63)
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (DOTIMES (CL-BASE64::I CL-BASE64::NONPAD-CHARS)
; (DECLARE (FIXNUM CL-BASE64::I))
; (WRITE-CHAR (SCHAR CL-BASE64::STR CL-BASE64::I) STREAM)
; (WHEN (PLUSP CL-BASE64::COLUMNS)
; (INCF CL-BASE64::COL)
; (WHEN (= CL-BASE64::COL CL-BASE64::COLUMNS)
; (WRITE-CHAR #\Newline STREAM)
; (SETQ CL-BASE64::COL 0))))
; --> DO BLOCK LET TAGBODY UNLESS COND IF NOT IF >= IF
; ==>
; (< CL-BASE64::I #:G385)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a (OR (SINGLE-FLOAT (-5.368709e8) (5.368709e8))
; (DOUBLE-FLOAT (-5.3687092d8) (5.36870915d8))
; (RATIONAL (-536870920)
; (536870915))), not a FIXNUM.
; (DOTIMES (CL-BASE64::IPAD CL-BASE64::PADDING-CHARS)
; (DECLARE (FIXNUM CL-BASE64::IPAD))
; (WRITE-CHAR CL-BASE64::PAD STREAM)
; (WHEN (PLUSP CL-BASE64::COLUMNS)
; (INCF CL-BASE64::COL)
; (WHEN (= CL-BASE64::COL CL-BASE64::COLUMNS)
; (WRITE-CHAR #\Newline STREAM)
; (SETQ CL-BASE64::COL 0))))
; --> DO BLOCK LET TAGBODY UNLESS COND IF NOT IF >= IF
; ==>
; (< CL-BASE64::IPAD #:G391)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a (OR (RATIONAL (-4) (8))
; (DOUBLE-FLOAT (-4.0d0) (8.0d0))
; (SINGLE-FLOAT (-4.0) (8.0))), not a FIXNUM.
; (ASH CL-BASE64::INT -6)
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (LOGAND CL-BASE64::INT 63)
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/encode.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/decode.lisp" (written 07 SEP 2003 02:34:45 AM):
; compiling (IN-PACKAGE #:CL-BASE64)
; compiling (DECLAIM (INLINE WHITESPACE-P))
; compiling (DEFUN WHITESPACE-P ...)
; compiling (DEFMACRO DEF-BASE64-STRING-TO-* ...)
; compiling (DEF-BASE64-STRING-TO-* :STRING)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/decode.lisp
; in: DEF-BASE64-STRING-TO-* :STRING
; (CL-BASE64::DEF-BASE64-STRING-TO-* :STRING)
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK LET LET LOOP BLOCK LET LET LET LET SB-LOOP::LOOP-BODY
; --> TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling (DEF-BASE64-STRING-TO-* :STREAM)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/decode.lisp
; in: DEF-BASE64-STRING-TO-* :STREAM
; (CL-BASE64::DEF-BASE64-STRING-TO-* :STREAM)
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK LET LET LOOP BLOCK LET LET LET LET SB-LOOP::LOOP-BODY
; --> TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling (DEF-BASE64-STRING-TO-* :USB8-ARRAY)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/decode.lisp
; in: DEF-BASE64-STRING-TO-* :USB8-ARRAY
; (CL-BASE64::DEF-BASE64-STRING-TO-* :USB8-ARRAY)
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK LET LET LOOP BLOCK LET LET LET LET SB-LOOP::LOOP-BODY
; --> TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling (DEFUN BASE64-STRING-TO-INTEGER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/decode.lisp
; in: DEFUN BASE64-STRING-TO-INTEGER
; (LOOP CL-BASE64::FOR
; CHAR
; CL-BASE64::OF-TYPE
; CHARACTER
; CL-BASE64::ACROSS
; STRING
; CL-BASE64::FOR
; CL-BASE64::SVALUE
; CL-BASE64::OF-TYPE
; FIXNUM
; =
; ...)
; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ
; --> THE AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (ASH CL-BASE64::VALUE -2)
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (ASH CL-BASE64::VALUE 6)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (+ CL-BASE64::SVALUE (ASH CL-BASE64::VALUE 6))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFUN BASE64-STREAM-TO-INTEGER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/decode.lisp
; in: DEFUN BASE64-STREAM-TO-INTEGER
; (ASH CL-BASE64::VALUE -2)
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (ASH CL-BASE64::VALUE 6)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (+ CL-BASE64::SVALUE (ASH CL-BASE64::VALUE 6))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-base64-3.3.1/decode.fasl written
; compilation finished in 0:00:01
;
; compilation unit finished
; printed 134 notes
;;; ASDF-INSTALL: Downloading package MD5, required by tbnl
;;; ASDF-INSTALL: Downloading 9030 bytes from http://files.b9.com/md5/md5-1.8.5.tar.gz to /Users/gwking/temporary/asdf-test/md5.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/md5.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
md5-1.8.5/
md5-1.8.5/md5.asd
md5-1.8.5/md5.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/md5-1.8.5/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/md5-1.8.5/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/md5-1.8.5/md5.lisp" (written 04 DEC 2004 01:27:59 PM):
; compiling (DEFPACKAGE #:MD5 ...)
; compiling (IN-PACKAGE #:MD5)
; compiling (DEFTYPE UB32 ...)
; compiling (DEFMACRO ASSEMBLE-UB32 ...)
; compiling (DECLAIM (INLINE F ...) ...)
; compiling (DEFUN F ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/md5-1.8.5/md5.lisp
; in: DEFUN F
; (DEFUN MD5::F (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGIOR (LOGAND MD5::X MD5::Y) (LOGANDC1 MD5::X MD5::Z)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::F
; (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK MD5::F
; (LOGIOR (LOGAND MD5::X MD5::Y)
; (LOGANDC1 MD5::X MD5::Z))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFUN G ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/md5-1.8.5/md5.lisp
; in: DEFUN G
; (DEFUN MD5::G (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGIOR (LOGAND MD5::X MD5::Z) (LOGANDC2 MD5::Y MD5::Z)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::G
; (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK MD5::G
; (LOGIOR (LOGAND MD5::X MD5::Z)
; (LOGANDC2 MD5::Y MD5::Z))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFUN H ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/md5-1.8.5/md5.lisp
; in: DEFUN H
; (DEFUN MD5::H (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGXOR MD5::X MD5::Y MD5::Z))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::H
; (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK MD5::H (LOGXOR MD5::X MD5::Y MD5::Z)))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFUN I ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/md5-1.8.5/md5.lisp
; in: DEFUN I
; (DEFUN MD5::I (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LDB (BYTE 32 0) (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::I
; (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK MD5::I
; (LDB (BYTE 32 0)
; (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z)))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DECLAIM (INLINE MOD32+) ...)
; compiling (DEFUN MOD32+ ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/md5-1.8.5/md5.lisp
; in: DEFUN MOD32+
; (DEFUN MD5::MOD32+ (MD5::A MD5::B)
; (DECLARE (TYPE MD5::UB32 MD5::A MD5::B)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LDB (BYTE 32 0) (+ MD5::A MD5::B)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::MOD32+
; (MD5::A MD5::B)
; (DECLARE (TYPE MD5::UB32 MD5::A MD5::B)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK MD5::MOD32+
; (LDB (BYTE 32 0) (+ MD5::A MD5::B))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DECLAIM (INLINE ROL32) ...)
; compiling (DEFUN ROL32 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/md5-1.8.5/md5.lisp
; in: DEFUN ROL32
; (DEFUN MD5::ROL32 (MD5::A MD5::S)
; (DECLARE (TYPE MD5::UB32 MD5::A)
; (TYPE (UNSIGNED-BYTE 5) MD5::S)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGIOR (LDB (BYTE 32 0) (ASH MD5::A MD5::S)) (ASH MD5::A (- MD5::S 32))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::ROL32
; (MD5::A MD5::S)
; (DECLARE (TYPE MD5::UB32 MD5::A)
; (TYPE (UNSIGNED-BYTE 5) MD5::S)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK MD5::ROL32
; (LOGIOR (LDB (BYTE 32 0) (ASH MD5::A MD5::S))
; (ASH MD5::A (- MD5::S 32)))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFPARAMETER *T* ...)
; compiling (DEFMACRO WITH-MD5-ROUND ...)
; compiling (DEFTYPE MD5-REGS ...)
; compiling (DEFMACRO MD5-REGS-A ...)
; compiling (DEFMACRO MD5-REGS-B ...)
; compiling (DEFMACRO MD5-REGS-C ...)
; compiling (DEFMACRO MD5-REGS-D ...)
; compiling (DEFCONSTANT +MD5-MAGIC-A+ ...)
; compiling (DEFCONSTANT +MD5-MAGIC-B+ ...)
; compiling (DEFCONSTANT +MD5-MAGIC-C+ ...)
; compiling (DEFCONSTANT +MD5-MAGIC-D+ ...)
; compiling (DECLAIM (INLINE INITIAL-MD5-REGS))
; compiling (DEFUN INITIAL-MD5-REGS ...)
; compiling (DEFUN UPDATE-MD5-BLOCK ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/md5-1.8.5/md5.lisp
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::H BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 5 4 33)
; (MD5::D MD5::A MD5::B MD5::C 8 11 34)
; (MD5::C MD5::D MD5::A MD5::B 11 16 35)
; (MD5::B MD5::C MD5::D MD5::A 14 23 36)
; (MD5::A MD5::B MD5::C MD5::D 1 4 37)
; (MD5::D MD5::A MD5::B MD5::C 4 11 38)
; (MD5::C MD5::D MD5::A MD5::B 7 16 39)
; (MD5::B MD5::C MD5::D MD5::A 10 23 40)
; (MD5::A MD5::B MD5::C MD5::D 13 4 41)
; (MD5::D MD5::A MD5::B MD5::C 0 11 42)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+
; ==>
; (MD5::MOD32+ MD5::B (MD5::H MD5::C MD5::D MD5::A))
;
; note: *INLINE-EXPANSION-LIMIT* (200) was exceeded, probably trying to
; inline a recursive function.
; in: DEFUN ROL32
; (LDB (BYTE 32 0) (ASH MD5::A MD5::S))
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 549755813761)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 549755813761)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 549755813761), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 17592186040321)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 17592186040321)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 17592186040321), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 562949953290241)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 562949953290241)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 562949953290241), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 18014398505287681)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 18014398505287681)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18014398505287681), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 549755813761)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 549755813761)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 549755813761), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 17592186040321)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 17592186040321)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 17592186040321), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 562949953290241)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 562949953290241)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 562949953290241), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 18014398505287681)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 18014398505287681)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18014398505287681), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 549755813761)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 549755813761)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 549755813761), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 17592186040321)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 17592186040321)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 17592186040321), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 562949953290241)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 562949953290241)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 562949953290241), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 18014398505287681)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 18014398505287681)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18014398505287681), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 549755813761)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 549755813761)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 549755813761), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 17592186040321)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 17592186040321)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 17592186040321), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 562949953290241)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 562949953290241)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 562949953290241), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 18014398505287681)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 18014398505287681)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18014398505287681), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 137438953441)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 137438953441)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 137438953441), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 2199023255041)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 2199023255041)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 2199023255041), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 70368744161281)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 70368744161281)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 70368744161281), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 4503599626321921)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 4503599626321921)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 4503599626321921), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 137438953441)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 137438953441)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 137438953441), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 2199023255041)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 2199023255041)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 2199023255041), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 70368744161281)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 70368744161281)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 70368744161281), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 4503599626321921)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 4503599626321921)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 4503599626321921), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 137438953441)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 137438953441)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 137438953441), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 2199023255041)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 2199023255041)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 2199023255041), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 70368744161281)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 70368744161281)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 70368744161281), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 4503599626321921)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 4503599626321921)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 4503599626321921), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 137438953441)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 137438953441)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 137438953441), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 2199023255041)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 2199023255041)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 2199023255041), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 70368744161281)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 70368744161281)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 70368744161281), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 4503599626321921)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 4503599626321921)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 4503599626321921), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 68719476721)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 68719476721)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 68719476721), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 8796093020161)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 8796093020161)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 8796093020161), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 281474976645121)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 281474976645121)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 281474976645121), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 36028797010575361)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 36028797010575361)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 36028797010575361), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 68719476721)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 68719476721)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 68719476721), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 8796093020161)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 8796093020161)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 8796093020161), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 281474976645121)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 281474976645121)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 281474976645121), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 36028797010575361)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 36028797010575361)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 36028797010575361), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 68719476721)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 68719476721)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 68719476721), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 8796093020161)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 8796093020161)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 8796093020161), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 281474976645121)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 281474976645121)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 281474976645121), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 36028797010575361)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 36028797010575361)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 36028797010575361), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 68719476721)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 68719476721)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 68719476721), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 8796093020161)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 8796093020161)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 8796093020161), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 281474976645121)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 281474976645121)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 281474976645121), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 36028797010575361)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 36028797010575361)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 36028797010575361), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 274877906881)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 274877906881)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 274877906881), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 4398046510081)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 4398046510081)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 4398046510081), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 140737488322561)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 140737488322561)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 140737488322561), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 9007199252643841)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 9007199252643841)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 9007199252643841), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 274877906881)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 274877906881)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 274877906881), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 4398046510081)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 4398046510081)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 4398046510081), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 140737488322561)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 140737488322561)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 140737488322561), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 9007199252643841)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 9007199252643841)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 9007199252643841), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 274877906881)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 274877906881)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 274877906881), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 4398046510081)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 4398046510081)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 4398046510081), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 140737488322561)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 140737488322561)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 140737488322561), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 9007199252643841)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 9007199252643841)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 9007199252643841), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 274877906881)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 274877906881)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 274877906881), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 4398046510081)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 4398046510081)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 4398046510081), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 140737488322561)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 140737488322561)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 140737488322561), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (MOD 9007199252643841)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 9007199252643841)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 9007199252643841), not a (UNSIGNED-BYTE 32).
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::F BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 7 1)
; (MD5::D MD5::A MD5::B MD5::C 1 12 2)
; (MD5::C MD5::D MD5::A MD5::B 2 17 3)
; (MD5::B MD5::C MD5::D MD5::A 3 22 4)
; (MD5::A MD5::B MD5::C MD5::D 4 7 5)
; (MD5::D MD5::A MD5::B MD5::C 5 12 6)
; (MD5::C MD5::D MD5::A MD5::B 6 17 7)
; (MD5::B MD5::C MD5::D MD5::A 7 22 8)
; (MD5::A MD5::B MD5::C MD5::D 8 7 9)
; (MD5::D MD5::A MD5::B MD5::C 9 12 10)
; ...)
; --> PROGN SETQ THE
; ==>
; (MD5::MOD32+ MD5::B
; (MD5::ROL32
; (MD5::MOD32+ (MD5::MOD32+ MD5::A (MD5::F MD5::B MD5::C MD5::D))
; (MD5::MOD32+ (AREF BLOCK 0) 3614090360))
; 7))
;
; note: doing unsigned word to integer coercion (cost 20) from B
;
; note: doing unsigned word to integer coercion (cost 20)
; in: DEFUN ROL32
; (LDB (BYTE 32 0) (ASH MD5::A MD5::S))
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::F BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 7 1)
; (MD5::D MD5::A MD5::B MD5::C 1 12 2)
; (MD5::C MD5::D MD5::A MD5::B 2 17 3)
; (MD5::B MD5::C MD5::D MD5::A 3 22 4)
; (MD5::A MD5::B MD5::C MD5::D 4 7 5)
; (MD5::D MD5::A MD5::B MD5::C 5 12 6)
; (MD5::C MD5::D MD5::A MD5::B 6 17 7)
; (MD5::B MD5::C MD5::D MD5::A 7 22 8)
; (MD5::A MD5::B MD5::C MD5::D 8 7 9)
; (MD5::D MD5::A MD5::B MD5::C 9 12 10)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+
; ==>
; (MD5::MOD32+ MD5::A (MD5::F MD5::B MD5::C MD5::D))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DECLAIM (INLINE FILL-BLOCK ...))
; compiling (DEFUN FILL-BLOCK-UB8 ...)
; compiling (DEFUN FILL-BLOCK-CHAR ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/md5-1.8.5/md5.lisp
; in: DEFUN FILL-BLOCK-CHAR
; (MD5::ASSEMBLE-UB32 (CHAR-CODE (SCHAR MD5::BUFFER MD5::J))
; (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 1)))
; (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 2)))
; (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 3))))
; --> THE LOGIOR LOGIOR LOGIOR LOGIOR
; ==>
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 3))) 24)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The result is a (VALUES (MOD 18691680894977)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The result is a (VALUES (MOD 18691680894977)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; ==>
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 2))) 16)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The result is a (VALUES (MOD 73014378497)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The result is a (VALUES (MOD 73014378497)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR LOGIOR LOGIOR
; ==>
; (LOGIOR (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 3))) 24)
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 2))) 16))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691680894977), not a FIXNUM.
; The second argument is a (MOD 73014378497), not a FIXNUM.
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691680894977), not a (SIGNED-BYTE 32).
; The second argument is a (MOD 73014378497), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR LOGIOR
; ==>
; (LOGIOR
; (LOGIOR (ASH (CHAR-CODE (SCHAR MD5::BUFFER #)) 24)
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER #)) 16))
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 1))) 8))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691697672192), not a FIXNUM.
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691697672192), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR
; ==>
; (LOGIOR
; (LOGIOR (LOGIOR (ASH (CHAR-CODE #) 24) (ASH (CHAR-CODE #) 16))
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER #)) 8))
; (CHAR-CODE (SCHAR MD5::BUFFER MD5::J)))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691697672192), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691697672192), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; compiling (DEFUN FILL-BLOCK ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/md5-1.8.5/md5.lisp
; in: DEFUN FILL-BLOCK-CHAR
; (MD5::ASSEMBLE-UB32 (CHAR-CODE (SCHAR MD5::BUFFER MD5::J))
; (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 1)))
; (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 2)))
; (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 3))))
; --> THE LOGIOR LOGIOR LOGIOR LOGIOR
; ==>
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 3))) 24)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The result is a (VALUES (MOD 18691680894977)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The result is a (VALUES (MOD 18691680894977)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; ==>
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 2))) 16)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The result is a (VALUES (MOD 73014378497)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The result is a (VALUES (MOD 73014378497)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR LOGIOR LOGIOR
; ==>
; (LOGIOR (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 3))) 24)
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 2))) 16))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691680894977), not a FIXNUM.
; The second argument is a (MOD 73014378497), not a FIXNUM.
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691680894977), not a (SIGNED-BYTE 32).
; The second argument is a (MOD 73014378497), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR LOGIOR
; ==>
; (LOGIOR
; (LOGIOR (ASH (CHAR-CODE (SCHAR MD5::BUFFER #)) 24)
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER #)) 16))
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 1))) 8))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691697672192), not a FIXNUM.
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691697672192), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR
; ==>
; (LOGIOR
; (LOGIOR (LOGIOR (ASH (CHAR-CODE #) 24) (ASH (CHAR-CODE #) 16))
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER #)) 8))
; (CHAR-CODE (SCHAR MD5::BUFFER MD5::J)))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691697672192), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691697672192), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; compiling (DECLAIM (INLINE MD5REGS-DIGEST))
; compiling (DEFUN MD5REGS-DIGEST ...); in: LAMBDA (#:WHOLE620 #:ENVIRONMENT621)
; (+ MD5::OFFSET 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (+ MD5::OFFSET 2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (+ MD5::OFFSET 3)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (+ MD5::OFFSET 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (+ MD5::OFFSET 2)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (+ MD5::OFFSET 3)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFSTRUCT (MD5-STATE # ...) ...)
; compiling (DECLAIM (INLINE COPY-TO-BUFFER))
; compiling (DEFUN COPY-TO-BUFFER ...)
; compiling (DEFUN UPDATE-MD5-STATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/md5-1.8.5/md5.lisp
; in: DEFUN COPY-TO-BUFFER
; (LOOP MD5::FOR
; MD5::BUFFER-INDEX
; MD5::OF-TYPE
; (INTEGER 0 64)
; MD5::FROM
; MD5::BUFFER-OFFSET
; MD5::FOR
; MD5::FROM-INDEX
; MD5::OF-TYPE
; FIXNUM
; MD5::FROM
; ...)
; --> BLOCK LET
; ==>
; MD5::BUFFER-OFFSET
;
; note: deleting unreachable code
; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN COND IF >= IF <
; ==>
; MD5::FROM-INDEX
;
; note: deleting unreachable code
; (SETF (AREF MD5::BUFFER MD5::BUFFER-INDEX)
; (CHAR-CODE (SCHAR (THE SIMPLE-STRING MD5::FROM) MD5::FROM-INDEX)))
; --> SB-KERNEL:%ASET
; ==>
; MD5::BUFFER
;
; note: deleting unreachable code
; (LOOP MD5::FOR
; MD5::BUFFER-INDEX
; MD5::OF-TYPE
; (INTEGER 0 64)
; MD5::FROM
; MD5::BUFFER-OFFSET
; MD5::FOR
; MD5::FROM-INDEX
; MD5::OF-TYPE
; FIXNUM
; MD5::FROM
; ...)
; --> BLOCK LET LET
; ==>
; MD5::FROM-OFFSET
;
; note: deleting unreachable code
; --> BLOCK LET
; ==>
; MD5::BUFFER-OFFSET
;
; note: deleting unreachable code
; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN COND IF >= IF <
; ==>
; MD5::FROM-INDEX
;
; note: deleting unreachable code
; (SETF (AREF MD5::BUFFER MD5::BUFFER-INDEX)
; (AREF (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) MD5::FROM)
; MD5::FROM-INDEX))
; --> SB-KERNEL:%ASET
; ==>
; MD5::BUFFER
;
; note: deleting unreachable code
; (LOOP MD5::FOR
; MD5::BUFFER-INDEX
; MD5::OF-TYPE
; (INTEGER 0 64)
; MD5::FROM
; MD5::BUFFER-OFFSET
; MD5::FOR
; MD5::FROM-INDEX
; MD5::OF-TYPE
; FIXNUM
; MD5::FROM
; ...)
; --> BLOCK LET LET
; ==>
; MD5::FROM-OFFSET
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-STATE
; (+ (MD5::MD5-STATE-AMOUNT MD5::STATE) MD5::AMOUNT)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; in: DEFUN FILL-BLOCK-CHAR
; (MD5::ASSEMBLE-UB32 (CHAR-CODE (SCHAR MD5::BUFFER MD5::J))
; (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 1)))
; (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 2)))
; (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 3))))
; --> THE LOGIOR LOGIOR LOGIOR LOGIOR
; ==>
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 3))) 24)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The result is a (VALUES (MOD 18691680894977)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The result is a (VALUES (MOD 18691680894977)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; ==>
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 2))) 16)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The result is a (VALUES (MOD 73014378497)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The result is a (VALUES (MOD 73014378497)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR LOGIOR LOGIOR
; ==>
; (LOGIOR (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 3))) 24)
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 2))) 16))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691680894977), not a FIXNUM.
; The second argument is a (MOD 73014378497), not a FIXNUM.
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691680894977), not a (SIGNED-BYTE 32).
; The second argument is a (MOD 73014378497), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR LOGIOR
; ==>
; (LOGIOR
; (LOGIOR (ASH (CHAR-CODE (SCHAR MD5::BUFFER #)) 24)
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER #)) 16))
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 1))) 8))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691697672192), not a FIXNUM.
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691697672192), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR
; ==>
; (LOGIOR
; (LOGIOR (LOGIOR (ASH (CHAR-CODE #) 24) (ASH (CHAR-CODE #) 16))
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER #)) 8))
; (CHAR-CODE (SCHAR MD5::BUFFER MD5::J)))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691697672192), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691697672192), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; in: DEFUN UPDATE-MD5-STATE
; (+ (MD5::MD5-STATE-AMOUNT MD5::STATE) (THE FIXNUM (- MD5::END MD5::START)))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -536870910)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -536870910)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (LET* ((MD5::BUFFER-INDEX (MD5::MD5-STATE-BUFFER-INDEX MD5::STATE))
; (MD5::REMAINDER (- 64 MD5::BUFFER-INDEX))
; (LENGTH (- MD5::END MD5::START))
; (MD5::AMOUNT (MIN MD5::REMAINDER LENGTH)))
; (DECLARE (TYPE (INTEGER 0 63) MD5::BUFFER-INDEX MD5::REMAINDER MD5::AMOUNT)
; (TYPE FIXNUM LENGTH))
; (MD5::COPY-TO-BUFFER SEQUENCE
; MD5::START
; MD5::AMOUNT
; MD5::BUFFER
; MD5::BUFFER-INDEX)
; (SETF (MD5::MD5-STATE-AMOUNT MD5::STATE)
; (+ (MD5::MD5-STATE-AMOUNT MD5::STATE) MD5::AMOUNT))
; (SETQ MD5::START (THE FIXNUM (+ MD5::START MD5::AMOUNT)))
; (IF (< LENGTH MD5::REMAINDER)
; (SETF (MD5::MD5-STATE-BUFFER-INDEX MD5::STATE)
; (THE (INTEGER 0 63) (+ MD5::BUFFER-INDEX MD5::AMOUNT)))
; (PROGN
; (MD5:FILL-BLOCK-UB8 BLOCK MD5::BUFFER 0)
; (MD5:UPDATE-MD5-BLOCK MD5::REGS BLOCK)
; (SETF (MD5::MD5-STATE-BUFFER-INDEX MD5::STATE) 0))))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; (THE FIXNUM (+ MD5::START MD5::AMOUNT))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; compiling (DEFUN FINALIZE-MD5-STATE ...); in: LAMBDA (#:WHOLE1073 #:ENVIRONMENT1074)
; (+ MD5::OFFSET 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (+ MD5::OFFSET 2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (+ MD5::OFFSET 3)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (+ MD5::OFFSET 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (+ MD5::OFFSET 2)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (+ MD5::OFFSET 3)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/md5-1.8.5/md5.lisp
; in: DEFUN FINALIZE-MD5-STATE
; (* 8 (MD5::MD5-STATE-AMOUNT MD5::STATE))
; --> *
; ==>
; (ASH SB-C::X 3)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (LDB (BYTE 32 0) MD5::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; (LDB (BYTE 32 32) MD5::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB LOGAND
; ==>
; (ASH INT (- SB-C::POSN))
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; compiling (DEFUN MD5SUM-SEQUENCE ...)
; compiling (DEFCONSTANT +BUFFER-SIZE+ ...)
; compiling (DEFTYPE BUFFER-INDEX ...)
; compiling (DEFUN MD5SUM-STREAM ...)
; compiling (DEFUN MD5SUM-FILE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/md5-1.8.5/md5.fasl written
; compilation finished in 0:00:06
;
; compilation unit finished
; printed 213 notes
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/packages.lisp" (written 03 JAN 2006 01:37:54 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (DEFPACKAGE #:TBNL ...)
; compiling (DEFPACKAGE #:TBNL-CONTRIB ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/specials.lisp" (written 07 FEB 2006 07:14:05 PM):
; compiling (IN-PACKAGE #:TBNL)
; compiling (DEFMACRO DEFVAR-UNBOUND ...)
; compiling (DEFMACRO DEFCONSTANT* ...)
; compiling (DEFCONSTANT +HTTP-CONTINUE+ ...)
; compiling (DEFCONSTANT +HTTP-SWITCHING-PROTOCOLS+ ...)
; compiling (DEFCONSTANT +HTTP-OK+ ...)
; compiling (DEFCONSTANT +HTTP-CREATED+ ...)
; compiling (DEFCONSTANT +HTTP-ACCEPTED+ ...)
; compiling (DEFCONSTANT +HTTP-NON-AUTHORITATIVE-INFORMATION+ ...)
; compiling (DEFCONSTANT +HTTP-NO-CONTENT+ ...)
; compiling (DEFCONSTANT +HTTP-RESET-CONTENT+ ...)
; compiling (DEFCONSTANT +HTTP-PARTIAL-CONTENT+ ...)
; compiling (DEFCONSTANT +HTTP-MULTIPLE-CHOICES+ ...)
; compiling (DEFCONSTANT +HTTP-MOVED-PERMANENTLY+ ...)
; compiling (DEFCONSTANT +HTTP-MOVED-TEMPORARILY+ ...)
; compiling (DEFCONSTANT +HTTP-SEE-OTHER+ ...)
; compiling (DEFCONSTANT +HTTP-NOT-MODIFIED+ ...)
; compiling (DEFCONSTANT +HTTP-USE-PROXY+ ...)
; compiling (DEFCONSTANT +HTTP-TEMPORARY-REDIRECT+ ...)
; compiling (DEFCONSTANT +HTTP-BAD-REQUEST+ ...)
; compiling (DEFCONSTANT +HTTP-AUTHORIZATION-REQUIRED+ ...)
; compiling (DEFCONSTANT +HTTP-PAYMENT-REQUIRED+ ...)
; compiling (DEFCONSTANT +HTTP-FORBIDDEN+ ...)
; compiling (DEFCONSTANT +HTTP-NOT-FOUND+ ...)
; compiling (DEFCONSTANT +HTTP-METHOD-NOT-ALLOWED+ ...)
; compiling (DEFCONSTANT +HTTP-NOT-ACCEPTABLE+ ...)
; compiling (DEFCONSTANT +HTTP-PROXY-AUTHENTICATION-REQUIRED+ ...)
; compiling (DEFCONSTANT +HTTP-REQUEST-TIME-OUT+ ...)
; compiling (DEFCONSTANT +HTTP-CONFLICT+ ...)
; compiling (DEFCONSTANT +HTTP-GONE+ ...)
; compiling (DEFCONSTANT +HTTP-LENGTH-REQUIRED+ ...)
; compiling (DEFCONSTANT +HTTP-PRECONDITION-FAILED+ ...)
; compiling (DEFCONSTANT +HTTP-REQUEST-ENTITY-TOO-LARGE+ ...)
; compiling (DEFCONSTANT +HTTP-REQUEST-URI-TOO-LARGE+ ...)
; compiling (DEFCONSTANT +HTTP-UNSUPPORTED-MEDIA-TYPE+ ...)
; compiling (DEFCONSTANT +HTTP-REQUESTED-RANGE-NOT-SATISFIABLE+ ...)
; compiling (DEFCONSTANT +HTTP-EXPECTATION-FAILED+ ...)
; compiling (DEFCONSTANT +HTTP-INTERNAL-SERVER-ERROR+ ...)
; compiling (DEFCONSTANT +HTTP-NOT-IMPLEMENTED+ ...)
; compiling (DEFCONSTANT +HTTP-BAD-GATEWAY+ ...)
; compiling (DEFCONSTANT +HTTP-SERVICE-UNAVAILABLE+ ...)
; compiling (DEFCONSTANT +HTTP-GATEWAY-TIME-OUT+ ...)
; compiling (DEFCONSTANT +HTTP-VERSION-NOT-SUPPORTED+ ...)
; compiling (DEFCONSTANT* +DAY-NAMES+ ...)
; compiling (DEFCONSTANT* +MONTH-NAMES+ ...)
; compiling (DEFVAR *SESSION-COOKIE-NAME* ...)
; compiling (DEFVAR *REWRITE-FOR-SESSION-URLS* ...)
; compiling (DEFVAR *CONTENT-TYPES-FOR-URL-REWRITE* ...)
; compiling (DEFPARAMETER *THE-RANDOM-STATE* ...)
; compiling (DEFVAR-UNBOUND *SESSION-SECRET* ...)
; compiling (DEFPARAMETER *TBNL-PORT* ...)
; compiling (DEFVAR-UNBOUND *TBNL-STREAM* ...)
; compiling (DEFVAR *CLOSE-TBNL-STREAM* ...)
; compiling (DEFVAR *TBNL-SOCKET-USAGE-COUNTER* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *HEADERS-SENT* ...)
; compiling (DEFVAR *SESSION-DATA* ...)
; compiling (DEFVAR *SESSION-MAX-TIME* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *SESSION-GC-FREQUENCY* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *USE-USER-AGENT-FOR-SESSIONS* ...)
; compiling (DEFVAR *USE-REMOTE-ADDR-FOR-SESSIONS* ...)
; compiling (DEFVAR *DEFAULT-CONTENT-TYPE* ...)
; compiling (DEFVAR *SHOW-LISP-ERRORS-P* ...)
; compiling (DEFVAR *SHOW-LISP-BACKTRACES-P* ...)
; compiling (DEFVAR *LOG-LISP-ERRORS-P* ...)
; compiling (DEFVAR *LISP-ERRORS-LOG-LEVEL* ...)
; compiling (DEFVAR *LOG-LISP-WARNINGS-P* ...)
; compiling (DEFVAR *LISP-WARNINGS-LOG-LEVEL* ...)
; compiling (DEFVAR *LOG-LISP-BACKTRACES-P* ...)
; compiling (DEFVAR *USE-APACHE-LOG* ...)
; compiling (DEFVAR *SHOW-ACCESS-LOG-MESSAGES* ...)
; compiling (DEFVAR *LOG-FILE* ...)
; compiling (DEFVAR *LOG-FILE-STREAM* ...)
; compiling (DEFVAR *LOG-FILE-LOCK* ...)
; compiling (DEFVAR-UNBOUND *COMMAND* ...)
; compiling (DEFVAR-UNBOUND *ERROR* ...)
; compiling (DEFVAR-UNBOUND *SESSION* ...)
; compiling (DEFVAR-UNBOUND *REQUEST* ...)
; compiling (DEFVAR-UNBOUND *REPLY* ...)
; compiling (DEFVAR-UNBOUND *BODY* ...)
; compiling (DEFVAR-UNBOUND *BACKTRACE* ...)
; compiling (DEFVAR *LOG-PREFIX* ...)
; compiling (DEFVAR-UNBOUND *LISTENER* ...)
; compiling (DEFVAR *DEBUG-MODE* ...)
; compiling (DEFCONSTANT* +IMPLEMENTATION-LINK+ ...)
; compiling (DEFVAR *DISPATCH-TABLE* ...)
; compiling (DEFPARAMETER *DEFAULT-HANDLER* ...)
; compiling (DEFVAR *HTTP-ERROR-HANDLER* ...)
; compiling (DEFPARAMETER *DEFAULT-LOG-LEVEL* ...)
; compiling (DEFVAR *SESSION-DATA-LOCK* ...)
; compiling (DEFVAR *SESSION-REMOVAL-HOOK* ...)
; compiling (DEFPARAMETER *TBNL-VERSION* ...)
; compiling (DEFVAR *TMP-DIRECTORY* ...)
; compiling (DEFVAR *TMP-FILES* ...)
; compiling (DEFVAR *USE-MODLISP-HEADERS* ...)
; compiling (DEFCONSTANT +LATIN-1+ ...)
; compiling (DEFCONSTANT +UTF-8+ ...)
; compiling (DEFVAR *TBNL-DEFAULT-EXTERNAL-FORMAT* ...)
; compiling (DEFCONSTANT +BUFFER-LENGTH+ ...)
; compiling (PUSHNEW :TBNL-BIVALENT-STREAMS ...)
; compiling (WHEN (FIND-SYMBOL "*DEBUG-PRINT-VARIABLE-ALIST*" ...) ...)
; compiling (PUSHNEW :TBNL ...)
; compiling (DEFVAR *HYPERDOC-BASE-URI* ...)
; compiling (LET (#) ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/specials.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/mime-types.lisp" (written 03 JAN 2006 01:37:54 PM):
; compiling (IN-PACKAGE #:TBNL)
; compiling (DEFPARAMETER *MIME-TYPE-LIST* ...)
; compiling (DEFPARAMETER *MIME-TYPE-HASH* ...)
; compiling (DEFUN MIME-TYPE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/mime-types.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/util.lisp" (written 03 JAN 2006 01:37:54 PM):
; compiling (IN-PACKAGE #:TBNL)
; compiling (DEFMACRO WITH-UNIQUE-NAMES ...)
; compiling (DEFMACRO WITH-REBINDING ...)
; compiling (DECLAIM (INLINE STARTS-WITH-P))
; compiling (DEFUN STARTS-WITH-P ...)
; compiling (DEFUN STARTS-WITH-ONE-OF-P ...)
; compiling (DEFUN CREATE-RANDOM-STRING ...)
; compiling (DEFUN RESET-SESSION-SECRET ...)
; compiling (DEFUN STATUS-LINE ...)
; compiling (DEFUN STRING-ASSOC ...)
; compiling (DEFUN STRING-ASSOC* ...)
; compiling (DEFUN MD5-HEX ...)
; compiling (DEFPACKAGE :TBNL-DUMMY)
; compiling (DEFUN READ-FROM-STRING* ...)
; compiling (DEFMACRO DEBUG-VALUE ...)
; compiling (DEFUN ESCAPE-FOR-HTML ...)
; compiling (DEFUN HTTP-TOKEN-P ...)
; compiling (DEFUN RFC-1123-DATE ...)
; compiling (DEFUN ISO-TIME ...)
; compiling (DEFUN GET-BACKTRACE ...)
; compiling (LET (#) ...)
; compiling (DEFUN QUOTE-STRING ...)
; compiling (DEFUN TBNL-INFO-STRING ...)
; compiling (DEFUN OCTETS-TO-STRING ...)
; compiling (DEFUN URL-DECODE ...)
; compiling (DEFUN FORM-URL-ENCODED-LIST-TO-ALIST ...)
; compiling (DEFUN STRING-TO-OCTETS ...)
; compiling (DEFUN URL-ENCODE ...)
; compiling (DEFUN REMOTE-HOST ...)
; compiling (DEFMACRO WITH-LOCK-HELD ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/util.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/log.lisp" (written 03 JAN 2006 01:37:54 PM):
; compiling (IN-PACKAGE #:TBNL)
; compiling (DEFGENERIC LOG-MESSAGE ...)
; compiling (DEFMETHOD LOG-MESSAGE ...)
; compiling (DEFUN LOG-MESSAGE* ...)
; compiling (DEFUN LOG-FILE ...)
; compiling (DEFUN (SETF LOG-FILE) ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/log.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/cookie.lisp" (written 03 JAN 2006 01:37:54 PM):
; compiling (IN-PACKAGE #:TBNL)
; compiling (DEFCLASS COOKIE ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFUN SET-COOKIE* ...)
; compiling (DEFUN SET-COOKIE ...)
; compiling (DEFUN COOKIE-DATE ...)
; compiling (DEFMETHOD STRINGIFY-COOKIE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/cookie.fasl written
; compilation finished in 0:00:01
STYLE-WARNING: implicitly creating new generic function STRINGIFY-COOKIE
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/reply.lisp" (written 03 JAN 2006 01:37:54 PM):
; compiling (IN-PACKAGE #:TBNL)
; compiling (DEFCLASS REPLY ...)
; compiling (DECLAIM (INLINE HEADERS-OUT ...))
; compiling (DEFUN HEADERS-OUT ...)
; compiling (DEFUN COOKIES-OUT ...)
; compiling (DEFUN CONTENT-TYPE ...)
; compiling (DEFSETF CONTENT-TYPE ...)
; compiling (DEFUN CONTENT-LENGTH ...)
; compiling (DEFSETF CONTENT-LENGTH ...)
; compiling (DEFUN RETURN-CODE ...)
; compiling (DEFSETF RETURN-CODE ...)
; compiling (DEFUN HEADER-OUT ...)
; compiling (DEFUN COOKIE-OUT ...)
; compiling (DEFSETF HEADER-OUT ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/reply.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/request.lisp" (written 21 JAN 2006 08:58:12 PM):
; compiling (IN-PACKAGE #:TBNL)
; compiling (DEFCLASS REQUEST ...)
; compiling (DEFUN PARSE-RFC2388-FORM-DATA ...)
; compiling (DEFUN GET-POST-DATA ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFUN RECOMPUTE-REQUEST-PARAMETERS ...)
; compiling (DECLAIM (INLINE SCRIPT-NAME ...))
; compiling (DEFUN SCRIPT-NAME ...)
; compiling (DEFUN QUERY-STRING ...)
; compiling (DEFUN GET-PARAMETERS ...)
; compiling (DEFUN POST-PARAMETERS ...)
; compiling (DEFUN HEADERS-IN ...)
; compiling (DEFUN COOKIES-IN ...)
; compiling (DECLAIM (INLINE HEADER-IN))
; compiling (DEFUN HEADER-IN ...)
; compiling (DEFUN AUTHORIZATION ...)
; compiling (DEFUN REMOTE-ADDR ...)
; compiling (DEFUN REAL-REMOTE-ADDR ...)
; compiling (DEFUN SERVER-ADDR ...)
; compiling (DEFUN REMOTE-PORT ...)
; compiling (DEFUN SERVER-PORT ...)
; compiling (DEFUN HOST ...)
; compiling (DEFUN REQUEST-URI ...)
; compiling (DEFUN REQUEST-METHOD ...)
; compiling (DEFUN SERVER-PROTOCOL ...)
; compiling (DEFUN MOD-LISP-ID ...)
; compiling (DEFUN SSL-SESSION-ID ...)
; compiling (DEFUN USER-AGENT ...)
; compiling (DEFUN COOKIE-IN ...)
; compiling (DEFUN REFERER ...)
; compiling (DECLAIM (INLINE GET-PARAMETER))
; compiling (DEFUN GET-PARAMETER ...)
; compiling (DECLAIM (INLINE POST-PARAMETER))
; compiling (DEFUN POST-PARAMETER ...)
; compiling (DECLAIM (INLINE PARAMETER))
; compiling (DEFUN PARAMETER ...)
; compiling (DEFUN HANDLE-IF-MODIFIED-SINCE ...)
; compiling (DEFUN RAW-POST-DATA ...)
; compiling (DEFUN AUX-REQUEST-VALUE ...)
; compiling (DEFSETF AUX-REQUEST-VALUE ...)
; compiling (DEFUN DELETE-AUX-REQUEST-VALUE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/request.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/session.lisp" (written 03 JAN 2006 01:37:54 PM):
; compiling (IN-PACKAGE #:TBNL)
; compiling (LET (#) ...)
; compiling (LET (#) ...)
; compiling (DEFCLASS SESSION ...)
; compiling (DEFUN ENCODE-SESSION-STRING ...)
; compiling (DECLAIM (INLINE STRINGIFY-SESSION))
; compiling (DEFUN STRINGIFY-SESSION ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFUN SESSION-GC ...)
; compiling (DEFUN SESSION-VALUE ...)
; compiling (DEFSETF SESSION-VALUE ...)
; compiling (DEFUN DELETE-SESSION-VALUE ...)
; compiling (DECLAIM (INLINE SESSION-COOKIE-VALUE))
; compiling (DEFUN SESSION-COOKIE-VALUE ...)
; compiling (DEFUN START-SESSION ...)
; compiling (DEFUN REMOVE-SESSION ...)
; compiling (DEFUN SESSION-TOO-OLD-P ...)
; compiling (DEFUN GET-STORED-SESSION ...)
; compiling (DEFUN SESSION-VERIFY ...)
; compiling (DEFUN RESET-SESSIONS ...)
; compiling (DEFMACRO DO-SESSIONS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/session.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/html.lisp" (written 21 JAN 2006 06:34:06 PM):
; compiling (IN-PACKAGE #:TBNL)
; compiling (LET (#) ...)
; compiling (DEFUN MAYBE-REWRITE-URLS-FOR-SESSION ...)
; compiling (DEFUN DEFAULT-DISPATCHER ...)
; compiling (DEFUN ADDRESS-STRING ...)
; compiling (DEFUN DEFAULT-HANDLER ...)
; compiling (DEFUN CREATE-PREFIX-DISPATCHER ...)
; compiling (DEFUN CREATE-REGEX-DISPATCHER ...)
; compiling (DEFUN HANDLE-STATIC-FILE ...)
; compiling (DEFUN CREATE-STATIC-FILE-DISPATCHER-AND-HANDLER ...)
; compiling (DEFUN CREATE-FOLDER-DISPATCHER-AND-HANDLER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/html.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/modlisp.lisp" (written 07 FEB 2006 07:14:05 PM):
; compiling (IN-PACKAGE #:TBNL)
; compiling (DEFUN WRITE-HEADER-LINE ...)
; compiling (DEFUN WRITE-HEADER-LINE/MODLISP ...)
; compiling (DEFUN WRITE-HEADER-LINE/HTTP ...)
; compiling (DEFUN START-OUTPUT ...)
; compiling (DEFUN SEND-HEADERS ...)
; compiling (DEFUN NO-CACHE ...)
; compiling (DEFUN REDIRECT ...)
; compiling (DEFUN REQUIRE-AUTHORIZATION ...)
; compiling (DEFUN PROCESS-REQUEST ...)
; compiling (DEFMETHOD DISPATCH-REQUEST ...)
; compiling (DEFUN READ-HTTP-HEADERS ...)
; compiling (DEFUN READ-HTTP-REQUEST ...)
; compiling (DEFUN GET-REQUEST-DATA ...)
; compiling (DEFUN LISTEN-FOR-REQUEST ...)
; compiling (DEFUN START-TBNL ...)
; compiling (DEFUN STOP-TBNL ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/modlisp.fasl written
; compilation finished in 0:00:01
STYLE-WARNING: implicitly creating new generic function DISPATCH-REQUEST
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/araneida.lisp" (written 28 DEC 2005 08:02:47 PM):
; compiling (IN-PACKAGE #:TBNL)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tbnl-0.9.7/araneida.fasl written
; compilation finished in 0:00:00