REPL Output
;;; ASDF-INSTALL: Downloading 51641 bytes from http://common-lisp.net/project/cl-containers/asdf-status/asdf-status_latest.tar.gz to /Users/gwking/temporary/asdf-test/ASDF-STATUS.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/ASDF-STATUS.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/
asdf-status/
asdf-status/asdf-status.asd
asdf-status/COPYING
asdf-status/dev/
asdf-status/dev/author-summaries.lisp
asdf-status/dev/definitions.lisp
asdf-status/dev/graph-em.lisp
asdf-status/dev/macros.lisp
asdf-status/dev/notes.text
asdf-status/dev/package.lisp
asdf-status/dev/README
asdf-status/dev/system-summary.lisp
asdf-status/dev/utility.lisp
asdf-status/static-files/
asdf-status/static-files/lisp-flag-with-hand.gif
asdf-status/static-files/system-colors.css
asdf-status/static-files/system-shared.css
asdf-status/static-files/system-summary.css
asdf-status/website/
asdf-status/website/source/
asdf-status/website/source/images/
asdf-status/website/source/images/asdf-status-sample.png
asdf-status/website/source/index.lml
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-status/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-status/" ;;; ASDF-INSTALL: Downloading package NET-TELENT-DATE, required by asdf-status
;;; ASDF-INSTALL: Downloading 12575 bytes from http://ftp.linux.org.uk/pub/lisp/cclan/net-telent-date.tar.gz to /Users/gwking/temporary/asdf-test/net-telent-date.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/net-telent-date.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/
net-telent-date_0.42/
net-telent-date_0.42/debian/
net-telent-date_0.42/debian/postinst
net-telent-date_0.42/debian/rules
net-telent-date_0.42/debian/control
net-telent-date_0.42/debian/docs
net-telent-date_0.42/debian/dirs
net-telent-date_0.42/debian/prerm
net-telent-date_0.42/debian/copyright
net-telent-date_0.42/debian/changelog
net-telent-date_0.42/debian/links
net-telent-date_0.42/README
net-telent-date_0.42/maintainer-Makefile
net-telent-date_0.42/parse-time.lisp
net-telent-date_0.42/defpackage.lisp
net-telent-date_0.42/date.lisp
net-telent-date_0.42/net-telent-date.system
net-telent-date_0.42/net-telent-date.asd
net-telent-date_0.42/make-makefile.lisp
net-telent-date_0.42/tests.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/defpackage.lisp" (written 26 MAY 2005 09:03:15 PM):
; compiling (DEFPACKAGE :NET.TELENT.DATE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/defpackage.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/date.lisp" (written 26 MAY 2005 09:03:15 PM):
; compiling (IN-PACKAGE :NET.TELENT.DATE)
; compiling (DEFVAR *DAY-NAMES* ...)
; compiling (DEFUN DAYNAME ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/date.lisp
; in: DEFUN DAYNAME
; (DEFUN NET.TELENT.DATE:DAYNAME
; (STREAM NET.TELENT.DATE::ARG NET.TELENT.DATE::COLON-P
; NET.TELENT.DATE::AT-P
; &OPTIONAL NET.TELENT.DATE::WIDTH (NET.TELENT.DATE::MINCOL 0)
; (NET.TELENT.DATE::COLINC 1) (NET.TELENT.DATE::MINPAD 0)
; (NET.TELENT.DATE::PADCHAR #\ ))
; "Print the day of the week (0=Sunday) 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 ((NET.TELENT.DATE::DAYSTRING (ELT NET.TELENT.DATE::*DAY-NAMES* #)))
; (IF (NOT NET.TELENT.DATE::DAYSTRING)
; (RETURN-FROM NET.TELENT.DATE:DAYNAME NIL))
; (LET ((TRUNCATE #))
; (FORMAT STREAM
; (IF NET.TELENT.DATE::AT-P "~V,V,V,V@A" "~V,V,V,VA")
; NET.TELENT.DATE::MINCOL
; NET.TELENT.DATE::COLINC
; NET.TELENT.DATE::MINPAD
; NET.TELENT.DATE::PADCHAR
; (SUBSEQ NET.TELENT.DATE::DAYSTRING 0 TRUNCATE)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA NET.TELENT.DATE:DAYNAME
; (STREAM NET.TELENT.DATE::ARG
; NET.TELENT.DATE::COLON-P
; NET.TELENT.DATE::AT-P
; &OPTIONAL
; NET.TELENT.DATE::WIDTH
; (NET.TELENT.DATE::MINCOL 0)
; (NET.TELENT.DATE::COLINC 1)
; (NET.TELENT.DATE::MINPAD 0)
; (NET.TELENT.DATE::PADCHAR #\ ))
; (BLOCK NET.TELENT.DATE:DAYNAME
; (LET ((NET.TELENT.DATE::DAYSTRING #))
; (IF (NOT NET.TELENT.DATE::DAYSTRING)
; (RETURN-FROM NET.TELENT.DATE:DAYNAME NIL))
; (LET (#)
; (FORMAT STREAM
; #
; NET.TELENT.DATE::MINCOL
; NET.TELENT.DATE::COLINC
; NET.TELENT.DATE::MINPAD
; NET.TELENT.DATE::PADCHAR
; #)))))
;
; caught STYLE-WARNING:
; The variable COLON-P is defined but never used.
; compiling (DEFVAR *MONTH-NAMES* ...)
; compiling (DEFUN MONTHNAME ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/date.lisp
; in: DEFUN MONTHNAME
; (DEFUN NET.TELENT.DATE:MONTHNAME
; (STREAM NET.TELENT.DATE::ARG NET.TELENT.DATE::COLON-P
; NET.TELENT.DATE::AT-P
; &OPTIONAL NET.TELENT.DATE::WIDTH (NET.TELENT.DATE::MINCOL 0)
; (NET.TELENT.DATE::COLINC 1) (NET.TELENT.DATE::MINPAD 0)
; (NET.TELENT.DATE::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 ((NET.TELENT.DATE::MONTHSTRING
; (ELT NET.TELENT.DATE::*MONTH-NAMES* NET.TELENT.DATE::ARG)))
; (IF (NOT NET.TELENT.DATE::MONTHSTRING)
; (RETURN-FROM NET.TELENT.DATE:MONTHNAME NIL))
; (LET ((TRUNCATE #))
; (FORMAT STREAM
; (IF NET.TELENT.DATE::AT-P "~V,V,V,V@A" "~V,V,V,VA")
; NET.TELENT.DATE::MINCOL
; NET.TELENT.DATE::COLINC
; NET.TELENT.DATE::MINPAD
; NET.TELENT.DATE::PADCHAR
; (SUBSEQ NET.TELENT.DATE::MONTHSTRING 0 TRUNCATE)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA NET.TELENT.DATE:MONTHNAME
; (STREAM NET.TELENT.DATE::ARG
; NET.TELENT.DATE::COLON-P
; NET.TELENT.DATE::AT-P
; &OPTIONAL
; NET.TELENT.DATE::WIDTH
; (NET.TELENT.DATE::MINCOL 0)
; (NET.TELENT.DATE::COLINC 1)
; (NET.TELENT.DATE::MINPAD 0)
; (NET.TELENT.DATE::PADCHAR #\ ))
; (BLOCK NET.TELENT.DATE:MONTHNAME
; (LET ((NET.TELENT.DATE::MONTHSTRING #))
; (IF (NOT NET.TELENT.DATE::MONTHSTRING)
; (RETURN-FROM NET.TELENT.DATE:MONTHNAME NIL))
; (LET (#)
; (FORMAT STREAM
; #
; NET.TELENT.DATE::MINCOL
; NET.TELENT.DATE::COLINC
; NET.TELENT.DATE::MINPAD
; NET.TELENT.DATE::PADCHAR
; #)))))
;
; caught STYLE-WARNING:
; The variable COLON-P is defined but never used.
; compiling (DEFMACRO WITH-DATE ...)
; compiling (DEFMACRO WITH-DECODING ...)
; compiling (DEFUN DECODE-UNIVERSAL-TIME/PLIST ...)
; compiling (DEFUN UNIVERSAL-TIME-TO-HTTP-DATE ...)
; compiling (DEFUN UNIVERSAL-TIME-TO-RFC2822-DATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/date.lisp
; in: DEFUN UNIVERSAL-TIME-TO-RFC2822-DATE
; (* 60 NET.TELENT.DATE::Z-M)
; ==>
; (* SB-C::Y 60)
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a (RATIONAL -25 25), not a INTEGER.
;
; note: unable to
; recode as shifts and adds
; due to type uncertainty:
; The first argument is a (RATIONAL -25 25), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (RATIONAL -1500 1500)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; (FLOOR (* 60 NET.TELENT.DATE::Z-M))
; ==>
; (FLOOR (* 60 NET.TELENT.DATE::Z-M) 1)
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a (RATIONAL -1500 1500), not a INTEGER.
; (1- NET.TELENT.DATE:ZONE)
; ==>
; (- NET.TELENT.DATE:ZONE 1)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (RATIONAL -24 24), not a FIXNUM.
; The result is a (VALUES (RATIONAL -25 23)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (RATIONAL -24 24), not a FIXNUM.
; The result is a (VALUES (RATIONAL -25 23)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (ABS NET.TELENT.DATE::DAYLIGHT-ZONE)
; --> IF
; ==>
; (< SB-C::X 0)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a (RATIONAL -25 24), not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (RATIONAL -25 24), not a FIXNUM.
; etc.
; --> IF -
; ==>
; (SB-KERNEL:%NEGATE SB-C::X)
;
; note: forced to do static-fun %Negate (cost 52)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (RATIONAL -25 24), not a FIXNUM.
; The result is a (VALUES (RATIONAL 0 25)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 2) because:
; The first argument is a (RATIONAL -25 24), not a (SIGNED-BYTE 32).
; The result is a (VALUES (RATIONAL 0 25)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; (TRUNCATE (ABS NET.TELENT.DATE::DAYLIGHT-ZONE))
; --> 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 0 25), not a FIXNUM.
; The result is a (VALUES (RATIONAL -25 25)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a (RATIONAL 0 25), not a FIXNUM.
; The result is a (VALUES (RATIONAL -25 25)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (MINUSP NET.TELENT.DATE::DAYLIGHT-ZONE)
; ==>
; (< NET.TELENT.DATE::DAYLIGHT-ZONE 0)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a (RATIONAL -25 24), not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (RATIONAL -25 24), not a FIXNUM.
; etc.
; (* 60 NET.TELENT.DATE::Z-M)
; ==>
; (* 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 (RATIONAL -25 25), not a FIXNUM.
; The result is a (VALUES (RATIONAL -1500 1500)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (RATIONAL -25 25), not a FIXNUM.
; The result is a (VALUES (RATIONAL -1500 1500)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/date.fasl written
; compilation finished in 0:00:01
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40007E41}> on
#<CL-SOURCE-FILE "date" {40007E51}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/parse-time.lisp" (written 26 MAY 2005 09:02:17 PM):
; compiling (IN-PACKAGE :NET.TELENT.DATE)
; compiling (DEFVAR WHITESPACE-CHARS ...)
; compiling (DEFVAR TIME-DIVIDERS ...)
; compiling (DEFVAR DATE-DIVIDERS ...)
; compiling (DEFVAR *ERROR-ON-MISMATCH* ...)
; compiling (DEFMACRO HASHLIST ...)
; compiling (DEFPARAMETER WEEKDAY-TABLE-SIZE ...)
; compiling (DEFPARAMETER MONTH-TABLE-SIZE ...)
; compiling (DEFPARAMETER ZONE-TABLE-SIZE ...)
; compiling (DEFPARAMETER SPECIAL-TABLE-SIZE ...)
; compiling (DEFVAR *WEEKDAY-STRINGS* ...)
; compiling (DEFVAR *MONTH-STRINGS* ...)
; compiling (DEFVAR *ZONE-STRINGS* ...)
; compiling (DEFVAR *SPECIAL-STRINGS* ...)
; compiling (HASHLIST (QUOTE #) ...)
; compiling (HASHLIST (QUOTE #) ...)
; compiling (HASHLIST (QUOTE #) ...)
; compiling (HASHLIST (QUOTE #) ...)
; compiling (DEFPARAMETER *DEFAULT-DATE-TIME-PATTERNS* ...)
; compiling (DEFPARAMETER *HTTP-DATE-TIME-PATTERNS* ...)
; compiling (DEFSTRUCT DECODED-TIME ...)
; compiling (DEFUN MAKE-DEFAULT-TIME ...)
; compiling (DEFUN CONVERT-TO-UNITIME ...)
; compiling (DEFUN SET-CURRENT-VALUE ...)
; compiling (DEFUN YESTERDAY ...)
; compiling (DEFUN TODAY ...)
; compiling (DEFUN TOMORROW ...)
; compiling (DEFUN NOW ...)
; compiling (DEFUN AM-PM ...)
; compiling (DEFUN NOON-MIDN ...)
; compiling (DEFUN WEEKDAY ...)
; compiling (DEFUN MONTH ...)
; compiling (DEFUN ZONE ...)
; compiling (DEFUN IZONE ...)
; compiling (DEFUN SPECIAL-STRING-P ...)
; compiling (DEFUN SECONDP ...)
; compiling (DEFUN MINUTE ...)
; compiling (DEFUN HOUR ...)
; compiling (DEFUN DAY ...)
; compiling (DEFUN YEAR ...)
; compiling (DEFUN TIME-DIVIDER ...)
; compiling (DEFUN DATE-DIVIDER ...)
; compiling (DEFUN MATCH-SUBSTRING ...)
; compiling (DEFUN DECOMPOSE-STRING ...)
; compiling (DEFUN MATCH-PATTERN-ELEMENT ...)
; compiling (DEFUN MATCH-PATTERN ...)
; compiling (DEFUN DEAL-WITH-NOON-MIDN ...)
; compiling (DEFUN DEAL-WITH-AM-PM ...)
; compiling (DEFUN DEAL-WITH-IZONE ...)
; compiling (DEFUN SET-TIME-VALUES ...)
; compiling (DEFUN PARSE-TIME ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/parse-time.fasl written
; compilation finished in 0:00:01
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; printed 9 notes
;;; ASDF-INSTALL: Downloading package CL-FAD, required by asdf-status
;;; ASDF-INSTALL: Downloading 10097 bytes from http://weitz.de/files/cl-fad.tar.gz to /Users/gwking/temporary/asdf-test/cl-fad.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/cl-fad.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-fad-0.4.3/
cl-fad-0.4.3/doc/
cl-fad-0.4.3/doc/index.html
cl-fad-0.4.3/CHANGELOG
cl-fad-0.4.3/README
cl-fad-0.4.3/cl-fad.asd
cl-fad-0.4.3/cl-fad.system
cl-fad-0.4.3/corman.lisp
cl-fad-0.4.3/fad.lisp
cl-fad-0.4.3/load.lisp
cl-fad-0.4.3/openmcl.lisp
cl-fad-0.4.3/packages.lisp
cl-fad-0.4.3/test.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-fad-0.4.3/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-fad-0.4.3/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-fad-0.4.3/packages.lisp" (written 03 JAN 2006 01:44:32 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (DEFPACKAGE :CL-FAD ...)
; compiling (DEFPACKAGE :CL-FAD-TEST ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-fad-0.4.3/packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-fad-0.4.3/fad.lisp" (written 15 MAR 2006 04:37:14 AM):
; compiling (IN-PACKAGE :CL-FAD)
; compiling (DEFUN COMPONENT-PRESENT-P ...)
; compiling (DEFUN DIRECTORY-PATHNAME-P ...)
; compiling (DEFUN PATHNAME-AS-DIRECTORY ...)
; compiling (DEFUN DIRECTORY-WILDCARD ...)
; compiling (DEFUN LIST-DIRECTORY ...)
; compiling (DEFUN PATHNAME-AS-FILE ...)
; compiling (DEFUN FILE-EXISTS-P ...)
; compiling (DEFUN DIRECTORY-EXISTS-P ...)
; compiling (DEFUN WALK-DIRECTORY ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-fad-0.4.3/fad.lisp
; in: DEFUN WALK-DIRECTORY
; (LET ((CL-FAD::*DIRECTORIES-SEEN* (MAKE-HASH-TABLE :TEST #'EQUAL)))
; (LABELS ((CL-FAD::WALK (CL-FAD::NAME)
; (LET #
; #)))
; (LET ((CL-FAD:PATHNAME-AS-DIRECTORY #))
; (CASE CL-FAD::IF-DOES-NOT-EXIST (# #) (# #) (OTHERWISE #)))
; (VALUES)))
;
; caught STYLE-WARNING:
; using the lexical binding of the symbol *DIRECTORIES-SEEN*, not the
; dynamic binding, even though the symbol name follows the usual naming
; convention (names like *FOO*) for special variables
; compiling (DECLAIM (INLINE COPY-STREAM))
; compiling (DEFUN COPY-STREAM ...)
; compiling (DEFUN COPY-FILE ...)
; compiling (DEFUN DELETE-DIRECTORY-AND-FILES ...)
; compiling (PUSHNEW :CL-FAD ...)
; compiling (DEFVAR *HYPERDOC-BASE-URI* ...)
; compiling (LET (#) ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-fad-0.4.3/fad.fasl written
; compilation finished in 0:00:00
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {1080AF61}> on
#<CL-SOURCE-FILE "fad" {10806E51}>.
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
;;; ASDF-INSTALL: Downloading package LML2, required by asdf-status
;;; ASDF-INSTALL: Downloading 28251 bytes from http://files.b9.com/lml2/lml2-latest.tar.gz to /Users/gwking/temporary/asdf-test/lml2.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/lml2.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/
lml2-1.5.5/
lml2-1.5.5/read-macro.lisp
lml2-1.5.5/data.lisp
lml2-1.5.5/base.lisp
lml2-1.5.5/LICENSE
lml2-1.5.5/downloads.lisp
lml2-1.5.5/stdsite.lisp
lml2-1.5.5/ChangeLog
lml2-1.5.5/README
lml2-1.5.5/apache-dir.lisp
lml2-1.5.5/package.lisp
lml2-1.5.5/doc/
lml2-1.5.5/doc/readme.html
lml2-1.5.5/doc/readme.lml
lml2-1.5.5/doc/make.lisp
lml2-1.5.5/doc/Makefile
lml2-1.5.5/htmlgen.lisp
lml2-1.5.5/lml2-tests.asd
lml2-1.5.5/utils.lisp
lml2-1.5.5/tests.lisp
lml2-1.5.5/files.lisp
lml2-1.5.5/lml2.asd
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/" ;;; ASDF-INSTALL: Downloading package KMRCL, required by lml2
;;; 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:00
; 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:01
; 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:02
; 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 {100084F9}> on
#<CL-SOURCE-FILE "impl" {100E7469}>.
; 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:02
; 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:00
; 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 {400084C1}> on
#<CL-SOURCE-FILE "datetime" {400EC499}>.
; 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 FLO