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 FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; (/ (- KMRCL::R KMRCL::G) KMRCL::DELTA)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (+ 4 (/ (- KMRCL::R KMRCL::G) KMRCL::DELTA))
; ==>
; (+ SB-C::Y 4)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (* 60 KMRCL::H)
; ==>
; (* SB-C::Y 60)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; recode as shifts and adds
; due to type uncertainty:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES FIXNUM
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; (MIN KMRCL::R KMRCL::G KMRCL::B)
; --> LET LET MIN LET LET IF <= IF
; ==>
; (> #:ONCE-ONLY-49 SB-C::MINREST)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; --> LET LET IF <= IF
; ==>
; (> #:ONCE-ONLY-48 SB-C::MINREST)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (MAX KMRCL::R KMRCL::G KMRCL::B)
; --> LET LET MAX LET LET IF >= IF
; ==>
; (< #:ONCE-ONLY-45 SB-C::MAXREST)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; --> LET LET IF >= IF
; ==>
; (< #:ONCE-ONLY-44 SB-C::MAXREST)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (- MAX MIN)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (PLUSP MAX)
; ==>
; (> MAX 0)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (/ KMRCL::DELTA MAX)
;
; note: forced to do static-fun Two-arg-/ (cost 53)
; unable to do inline float arithmetic (cost 12) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 19) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; (PLUSP KMRCL::DELTA)
; ==>
; (> KMRCL::DELTA 0)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (= MAX KMRCL::R)
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; (- KMRCL::G KMRCL::B)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (/ (- KMRCL::G KMRCL::B) KMRCL::DELTA)
;
; note: forced to do static-fun Two-arg-/ (cost 53)
; unable to do inline float arithmetic (cost 12) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 19) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; (= MAX KMRCL::G)
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; (- KMRCL::B KMRCL::R)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (/ (- KMRCL::B KMRCL::R) KMRCL::DELTA)
;
; note: forced to do static-fun Two-arg-/ (cost 53)
; unable to do inline float arithmetic (cost 12) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 19) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; (+ 2 (/ (- KMRCL::B KMRCL::R) KMRCL::DELTA))
; ==>
; (+ SB-C::Y 2)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (- KMRCL::R KMRCL::G)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (/ (- KMRCL::R KMRCL::G) KMRCL::DELTA)
;
; note: forced to do static-fun Two-arg-/ (cost 53)
; unable to do inline float arithmetic (cost 12) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 19) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; (+ 4 (/ (- KMRCL::R KMRCL::G) KMRCL::DELTA))
; ==>
; (+ SB-C::Y 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (* 60 KMRCL::H)
; ==>
; (* SB-C::Y 60)
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; compiling (DEFUN RGB255->HSV255 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp
; in: DEFUN RGB255->HSV255
; (* 255 KMRCL::DELTA)
; ==>
; (* SB-C::Y 255)
;
; note: unable to
; recode as shifts and adds
; due to type uncertainty:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES FIXNUM
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; (* 60 (THE FIXNUM (- KMRCL::G KMRCL::B)))
; ==>
; (* SB-C::Y 60)
;
; note: unable to
; recode as shifts and adds
; due to type uncertainty:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES FIXNUM
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; (* 60 (THE FIXNUM (- KMRCL::B KMRCL::R)))
; ==>
; (* SB-C::Y 60)
;
; note: unable to
; recode as shifts and adds
; due to type uncertainty:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES FIXNUM
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; (* 60 (THE FIXNUM (- KMRCL::R KMRCL::G)))
; ==>
; (* SB-C::Y 60)
;
; note: unable to
; recode as shifts and adds
; due to type uncertainty:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES FIXNUM
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; (TRUNCATE (THE FIXNUM (* 255 KMRCL::DELTA)) MAX)
;
; note: forced to do fixnum truncate (cost 50)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES FIXNUM
; (INTEGER -536870910 536870910)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; (TRUNCATE (THE FIXNUM (* 60 (THE FIXNUM (- KMRCL::R KMRCL::G)))) KMRCL::DELTA)
;
; note: forced to do fixnum truncate (cost 50)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES FIXNUM
; (INTEGER -536870910 536870910)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; (TRUNCATE (THE FIXNUM (* 60 (THE FIXNUM (- KMRCL::B KMRCL::R)))) KMRCL::DELTA)
;
; note: forced to do fixnum truncate (cost 50)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES FIXNUM
; (INTEGER -536870910 536870910)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; (TRUNCATE (THE FIXNUM (* 60 (THE FIXNUM (- KMRCL::G KMRCL::B)))) KMRCL::DELTA)
;
; note: forced to do fixnum truncate (cost 50)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES FIXNUM
; (INTEGER -536870910 536870910)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; compiling (DEFUN HSV-EQUAL ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp
; in: DEFUN HSV-EQUAL
; (- KMRCL::A KMRCL::B)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (ABS (- KMRCL::A KMRCL::B))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (< (ABS (- KMRCL::A KMRCL::B)) KMRCL::LIMIT)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (- KMRCL::A KMRCL::B)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (ABS (- KMRCL::A KMRCL::B))
;
; note: forced to do full call
; unable to do inline float arithmetic (cost 1) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 1) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; (< (ABS (- KMRCL::A KMRCL::B)) KMRCL::LIMIT)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; compiling (DEFUN HSV255-EQUAL ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp
; in: DEFUN HSV255-EQUAL
; (NULL KMRCL::B)
; --> IF
; ==>
; KMRCL::B
;
; note: deleting unreachable code
; compiling (DEFUN HSV-SIMILAR ...)
; compiling (DEFUN HSV255-SIMILAR ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp
; in: DEFUN HSV255-SIMILAR
; (ABS (KMRCL:HUE-DIFFERENCE-FIXNUM KMRCL::H1 KMRCL::H2))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (<= (ABS (KMRCL:HUE-DIFFERENCE-FIXNUM KMRCL::H1 KMRCL::H2)) KMRCL::HUE-RANGE)
; --> IF
; ==>
; (> (ABS (KMRCL:HUE-DIFFERENCE-FIXNUM KMRCL::H1 KMRCL::H2)) KMRCL::HUE-RANGE)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a FLOAT.
; (ABS (KMRCL:HUE-DIFFERENCE-FIXNUM KMRCL::H1 KMRCL::H2))
;
; note: forced to do full call
; unable to do inline float arithmetic (cost 1) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 1) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; (<= (ABS (KMRCL:HUE-DIFFERENCE-FIXNUM KMRCL::H1 KMRCL::H2)) KMRCL::HUE-RANGE)
; --> IF
; ==>
; (> (ABS (KMRCL:HUE-DIFFERENCE-FIXNUM KMRCL::H1 KMRCL::H2)) KMRCL::HUE-RANGE)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a FIXNUM.
; compiling (DEFUN HUE-DIFFERENCE ...)
; compiling (DEFUN HUE-DIFFERENCE-FIXNUM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/mop.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (IF (FIND-PACKAGE #) ...)
; compiling (DEFPACKAGE #:KMR-MOP ...)
; compiling (IN-PACKAGE #:KMR-MOP)
; compiling (DEFMACRO PROCESS-CLASS-OPTION ...)
; compiling (DEFMACRO PROCESS-SLOT-OPTION ...)
; compiling (SHADOWING-IMPORT (QUOTE #))
; compiling (EXPORT (QUOTE #))
; compiling (IF (FIND-PACKAGE #) ...)
; compiling (WHEN (>= # ...) ...)
; compiling (WHEN (>= # ...) ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/mop.fasl written
; compilation finished in 0:00:01
WARNING: KMR-MOP also shadows the following symbols:
(SB-MOP:COMPUTE-SLOTS SB-MOP:GENERIC-FUNCTION-LAMBDA-LIST
SB-MOP:MAKE-METHOD-LAMBDA
SB-MOP:INTERN-EQL-SPECIALIZER
SB-MOP:GENERIC-FUNCTION-METHOD-CLASS
SB-MOP:CLASS-PROTOTYPE
SB-MOP:SLOT-VALUE-USING-CLASS
SB-PCL::COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS
SB-MOP:CLASS-DIRECT-SLOTS
SB-MOP:COMPUTE-EFFECTIVE-SLOT-DEFINITION
SB-MOP:EFFECTIVE-SLOT-DEFINITION-CLASS
SB-MOP:DIRECT-SLOT-DEFINITION-CLASS
SB-MOP:VALIDATE-SUPERCLASS
SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION
SB-MOP:STANDARD-DIRECT-SLOT-DEFINITION
SB-MOP:FINALIZE-INHERITANCE
SB-MOP:SLOT-DEFINITION-NAME
STANDARD-CLASS
FIND-CLASS
SB-MOP:CLASS-SLOTS
CLASS-NAME
CLASS-OF)
See also:
The ANSI Standard, Macro DEFPACKAGE
WARNING: KMR-MOP also exports the following symbols:
(SB-MOP:CLASS-DIRECT-SLOTS CLASS-OF
SB-MOP:DIRECT-SLOT-DEFINITION-CLASS
SB-MOP:SLOT-VALUE-USING-CLASS
SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION
KMR-MOP:PROCESS-SLOT-OPTION
KMR-MOP:PROCESS-CLASS-OPTION
SB-MOP:CLASS-PROTOTYPE
SB-MOP:COMPUTE-SLOTS
STANDARD-CLASS
SB-MOP:CLASS-SLOTS
SB-MOP:COMPUTE-EFFECTIVE-SLOT-DEFINITION
FIND-CLASS
CLASS-NAME
SB-MOP:FINALIZE-INHERITANCE
SB-PCL::COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS
SB-MOP:MAKE-METHOD-LAMBDA
SB-MOP:STANDARD-DIRECT-SLOT-DEFINITION
SB-MOP:GENERIC-FUNCTION-METHOD-CLASS
SB-MOP:GENERIC-FUNCTION-LAMBDA-LIST
SB-MOP:INTERN-EQL-SPECIALIZER
SB-MOP:SLOT-DEFINITION-NAME
SB-MOP:VALIDATE-SUPERCLASS
SB-MOP:EFFECTIVE-SLOT-DEFINITION-CLASS)
See also:
The ANSI Standard, Macro DEFPACKAGE
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/equal.lisp" (written 30 APR 2005 06:14:18 AM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN GENERALIZED-EQUAL ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/equal.lisp
; in: DEFUN GENERALIZED-EQUAL
; (KMRCL::GENERALIZED-EQUAL-HASH-TABLE KMRCL::OBJ1 KMRCL::OBJ2)
; ==>
; KMRCL::OBJ2
;
; note: deleting unreachable code
; compiling (DEFUN GENERALIZED-EQUAL-FUNCTION ...)
; compiling (DEFUN GENERALIZED-EQUAL-ARRAY ...)
; compiling (DEFUN GENERALIZED-EQUAL-HASH-TABLE ...)
; compiling (DEFUN GENERALIZED-EQUAL-FIELDED-OBJECT ...)
; compiling (DEFUN CLASS-SLOT-NAMES ...)
; compiling (DEFUN STRUCTURE-SLOT-NAMES ...)
; compiling (DEFUN FUNCTION-TO-STRING ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/equal.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/web-utils.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFVAR *STANDARD-XML-HEADER* ...)
; compiling (DEFVAR *STANDARD-HTML-HEADER* ...)
; compiling (DEFVAR *STANDARD-XHTML-HEADER* ...)
; compiling (DEFUN USER-AGENT-IE-P ...)
; compiling (DEFVAR *BASE-URL* ...)
; compiling (DEFUN BASE-URL! ...)
; compiling (DEFUN MAKE-URL ...)
; compiling (DEFUN DECODE-URI-QUERY-STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/web-utils.lisp
; in: DEFUN DECODE-URI-QUERY-STRING
; (SUBSEQ KMRCL::S (1+ KMRCL::P-OLD) (+ KMRCL::P-OLD 3))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; compiling (DEFUN SPLIT-URI-QUERY-STRING ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/web-utils.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/xml-utils.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN FIND-START-TAG ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/xml-utils.lisp
; in: DEFUN FIND-START-TAG
; (+ KMRCL::BRACKETPOS 1 KMRCL::TAGLEN)
; --> +
; ==>
; (+ KMRCL::BRACKETPOS 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; ==>
; (+ (+ KMRCL::BRACKETPOS 1) KMRCL::TAGLEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (1+ KMRCL::ENDBRACK)
; ==>
; (+ KMRCL::ENDBRACK 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (SUBSEQ KMRCL::XMLSTR KMRCL::ENDTAG KMRCL::ENDBRACK)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; (+ KMRCL::BRACKETPOS 1 KMRCL::TAGLEN)
; --> +
; ==>
; (+ KMRCL::BRACKETPOS 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; ==>
; (+ (+ KMRCL::BRACKETPOS 1) KMRCL::TAGLEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (1+ KMRCL::ENDBRACK)
; ==>
; (+ KMRCL::ENDBRACK 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (1+ KMRCL::TAGLEN)
; ==>
; (+ KMRCL::TAGLEN 1)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; compiling (DEFUN FIND-END-TAG ...)
; compiling (DEFUN POSITIONS-XML-TAG-CONTENTS ...)
; compiling (DEFUN XML-TAG-CONTENTS ...)
; compiling (DEFUN CDATA-STRING ...)
; compiling (DEFUN WRITE-CDATA ...)
; compiling (DEFUN XML-DECLARATION-STREAM ...)
; compiling (DEFUN DOCTYPE-STREAM ...)
; compiling (DEFUN DOCTYPE-FORMAT ...)
; compiling (DEFUN SGML-HEADER-STREAM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/xml-utils.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/sockets.lisp" (written 21 DEC 2004 02:44:04 AM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (REQUIRE :SB-BSD-SOCKETS)
; compiling (DEFUN LISTEN-TO-INET-PORT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/sockets.lisp
; in: DEFUN LISTEN-TO-INET-PORT
; (DEFUN KMRCL::LISTEN-TO-INET-PORT
; (&KEY (KMRCL::PORT 0) (KMRCL::KIND :STREAM) (KMRCL::REUSE ()))
; "Create, bind and listen to an inet socket on *:PORT.
; setsockopt SO_REUSEADDR if :reuse is not nil"
; (LET ((KMRCL::SOCKET
; (MAKE-INSTANCE 'SB-BSD-SOCKETS:INET-SOCKET
; :TYPE
; :STREAM
; :PROTOCOL
; :TCP)))
; (IF KMRCL::REUSE
; (SETF (SB-BSD-SOCKETS:SOCKOPT-REUSE-ADDRESS KMRCL::SOCKET) T))
; (SB-BSD-SOCKETS:SOCKET-BIND KMRCL::SOCKET
; (SB-BSD-SOCKETS:MAKE-INET-ADDRESS "0.0.0.0")
; KMRCL::PORT)
; (SB-BSD-SOCKETS:SOCKET-LISTEN KMRCL::SOCKET 15)
; KMRCL::SOCKET))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA KMRCL::LISTEN-TO-INET-PORT
; (&KEY (KMRCL::PORT 0)
; (KMRCL::KIND :STREAM)
; (KMRCL::REUSE NIL))
; (BLOCK KMRCL::LISTEN-TO-INET-PORT
; (LET ((KMRCL::SOCKET #))
; (IF KMRCL::REUSE (SETF # T))
; (SB-BSD-SOCKETS:SOCKET-BIND KMRCL::SOCKET
; (SB-BSD-SOCKETS:MAKE-INET-ADDRESS
; "0.0.0.0")
; KMRCL::PORT)
; (SB-BSD-SOCKETS:SOCKET-LISTEN KMRCL::SOCKET 15)
; KMRCL::SOCKET)))
;
; caught STYLE-WARNING:
; The variable KIND is defined but never used.
; compiling (DEFUN CREATE-INET-LISTENER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/sockets.lisp
; in: DEFUN CREATE-INET-LISTENER
; (DEFUN KMRCL::CREATE-INET-LISTENER
; (KMRCL::PORT &KEY (FORMAT :TEXT) (KMRCL::REUSE-ADDRESS T))
; (KMRCL::LISTEN-TO-INET-PORT :PORT KMRCL::PORT :REUSE KMRCL::REUSE-ADDRESS))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA KMRCL::CREATE-INET-LISTENER
; (KMRCL::PORT &KEY
; (FORMAT :TEXT)
; (KMRCL::REUSE-ADDRESS T))
; (BLOCK KMRCL::CREATE-INET-LISTENER
; (KMRCL::LISTEN-TO-INET-PORT :PORT
; KMRCL::PORT
; :REUSE
; KMRCL::REUSE-ADDRESS)))
;
; caught STYLE-WARNING:
; The variable FORMAT is defined but never used.
; compiling (DEFUN MAKE-FD-STREAM ...)
; compiling (DEFUN ACCEPT-TCP-CONNECTION ...)
; compiling (DEFMACRO ERRORSET ...)
; compiling (DEFUN CLOSE-PASSIVE-SOCKET ...)
; compiling (DEFUN CLOSE-ACTIVE-SOCKET ...)
; compiling (DEFUN IPADDR-TO-DOTTED ...)
; compiling (DEFUN DOTTED-TO-IPADDR ...)
; compiling (DEFUN IPADDR-TO-HOSTNAME ...)
; compiling (DEFUN LOOKUP-HOSTNAME ...)
; compiling (DEFUN MAKE-ACTIVE-SOCKET ...)
; compiling (DEFUN IPADDR-ARRAY-TO-DOTTED ...)
; compiling (DEFUN REMOTE-HOST ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/sockets.fasl written
; compilation finished in 0:00:01
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {100084C9}> on
#<CL-SOURCE-FILE "sockets" {100084D9}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.lisp" (written 19 MAR 2005 04:40:22 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN MAKE-PROCESS ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.lisp
; in: DEFUN MAKE-PROCESS
; (DEFUN KMRCL::MAKE-PROCESS (KMRCL::NAME KMRCL::FUNC) (FUNCALL KMRCL::FUNC))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA KMRCL::MAKE-PROCESS
; (KMRCL::NAME KMRCL::FUNC)
; (BLOCK KMRCL::MAKE-PROCESS (FUNCALL KMRCL::FUNC)))
;
; caught STYLE-WARNING:
; The variable NAME is defined but never used.
; compiling (DEFUN DESTROY-PROCESS ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.lisp
; in: DEFUN DESTROY-PROCESS
; (DEFUN KMRCL::DESTROY-PROCESS (KMRCL::PROCESS))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA KMRCL::DESTROY-PROCESS
; (KMRCL::PROCESS)
; (BLOCK KMRCL::DESTROY-PROCESS))
;
; caught STYLE-WARNING:
; The variable PROCESS is defined but never used.
; compiling (DEFUN MAKE-LOCK ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.lisp
; in: DEFUN MAKE-LOCK
; (DEFUN KMRCL::MAKE-LOCK (KMRCL::NAME))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA KMRCL::MAKE-LOCK
; (KMRCL::NAME)
; (BLOCK KMRCL::MAKE-LOCK))
;
; caught STYLE-WARNING:
; The variable NAME is defined but never used.
; compiling (DEFMACRO WITH-LOCK-HELD ...); in: LAMBDA NIL
; (LET* ((KMRCL::LOCK (CAR #:SUBLIST-19)) (KMRCL::BODY (CDR (CDR #:WHOLE17))))
; (BLOCK KMRCL::WITH-LOCK-HELD `(PROGN ,@KMRCL::BODY)))
;
; caught STYLE-WARNING:
; The variable LOCK is defined but never used.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.lisp
; in: DEFMACRO WITH-LOCK-HELD
; (DEFMACRO KMRCL::WITH-LOCK-HELD ((KMRCL::LOCK) &BODY KMRCL::BODY)
; `(PROGN ,@KMRCL::BODY))
; --> EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO FUNCTION LET*
; ==>
; (LET* ((KMRCL::LOCK (CAR #:SUBLIST-19)) (KMRCL::BODY (CDR (CDR #:WHOLE17))))
; (BLOCK KMRCL::WITH-LOCK-HELD `(PROGN ,@KMRCL::BODY)))
;
; caught STYLE-WARNING:
; The variable LOCK is defined but never used.
; compiling (DEFMACRO WITH-TIMEOUT ...); in: LAMBDA NIL
; (LET* ((KMRCL::SECONDS (CAR #:SUBLIST-26))
; (KMRCL::BODY (CDR (CDR #:WHOLE24))))
; (BLOCK KMRCL::WITH-TIMEOUT `(PROGN ,@KMRCL::BODY)))
;
; caught STYLE-WARNING:
; The variable SECONDS is defined but never used.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.lisp
; in: DEFMACRO WITH-TIMEOUT
; (DEFMACRO KMRCL::WITH-TIMEOUT ((KMRCL::SECONDS) &BODY KMRCL::BODY)
; `(PROGN ,@KMRCL::BODY))
; --> EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO FUNCTION LET*
; ==>
; (LET* ((KMRCL::SECONDS (CAR #:SUBLIST-26))
; (KMRCL::BODY (CDR (CDR #:WHOLE24))))
; (BLOCK KMRCL::WITH-TIMEOUT `(PROGN ,@KMRCL::BODY)))
;
; caught STYLE-WARNING:
; The variable SECONDS is defined but never used.
; compiling (DEFUN PROCESS-SLEEP ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.fasl written
; compilation finished in 0:00:00
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {100084C9}> on
#<CL-SOURCE-FILE "processes" {100F1AF1}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/listener.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFVAR *LISTENER-COUNT* ...)
; compiling (DEFVAR *WORKER-COUNT* ...)
; compiling (DEFVAR *ACTIVE-LISTENERS* ...)
; compiling (DEFCLASS LISTENER ...)
; compiling (DEFCLASS FIXED-WORKER ...)
; compiling (DEFCLASS WORKER ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN INIT/LISTENER ...)
; compiling (DEFUN STOP-ALL/LISTENER ...)
; compiling (DEFUN LISTENER-STARTUP ...)
; compiling (DEFUN LISTENER-SHUTDOWN ...)
; compiling (DEFUN NEXT-SERVER-NAME ...)
; compiling (DEFUN NEXT-WORKER-NAME ...)
; compiling (DEFUN MAKE-SOCKET-SERVER ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFUN ACCEPT-AND-CHECK-TCP-CONNECTION ...)
; compiling (DEFUN START-SOCKET-SERVER ...)
; compiling (DEFUN START-FIXED-NUMBER-OF-WORKERS ...)
; compiling (DEFUN FIXED-WORKER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/listener.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/repl.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFCONSTANT +DEFAULT-REPL-SERVER-PORT+ ...)
; compiling (DEFCLASS REPL ...)
; compiling (DEFUN MAKE-REPL ...)
; compiling (DEFUN INIT/REPL ...)
; compiling (DEFUN REPL-WORKER ...)
; compiling (DEFUN READ-SOCKET-LINE ...)
; compiling (DEFUN PRINT-PROMPT ...)
; compiling (DEFUN REPL-ON-STREAM ...)
; compiling (DEFUN %REPL ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/repl.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/os.lisp" (written 26 AUG 2005 04:02:06 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN COMMAND-OUTPUT ...)
; compiling (DEFUN RUN-SHELL-COMMAND ...)
; compiling (DEFUN DELETE-DIRECTORY-AND-FILES ...)
; compiling (DEFUN FILE-SIZE ...)
; compiling (DEFUN GETPID ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/os.fasl written
; compilation finished in 0:00:01
;
; compilation unit finished
; caught 13 STYLE-WARNING conditions
; printed 352 notes
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/package.lisp" (written 15 SEP 2004 12:44:47 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (DEFPACKAGE #:LISP-MARKUP-LANGUAGE-2 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/data.lisp" (written 15 SEP 2004 12:44:46 PM):
; compiling (IN-PACKAGE #:LML2)
; compiling (DEFVAR *HTML-STREAM* ...)
; compiling (DEFVAR *PRINT-SPACES* ...)
; compiling (DEFVAR *INDENT* ...)
; compiling (DEFVAR +XML-PROLOGUE-STRING+ ...)
; compiling (DEFVAR +HTML4-DTD-STRING+ ...)
; compiling (DEFVAR +XHTML11-DTD-STRING+ ...)
; compiling (DEFVAR +XHTML10-STRICT-DTD-STRING+ ...)
; compiling (DEFVAR +XHTML10-TRANSITIONAL-DTD-STRING+ ...)
; compiling (DEFVAR +XHTML10-FRAMESET-DTD-STRING+ ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/data.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/htmlgen.lisp" (written 15 SEP 2004 12:44:47 PM):
; compiling (IN-PACKAGE #:LML2)
; compiling (DEFSTRUCT (HTML-PROCESS # ...) ...)
; compiling (DEFPARAMETER *HTML-PROCESS-TABLE* ...)
; compiling (DEFMACRO HTML ...)
; compiling (DEFUN POST-PROCESS-HTML-FORMS ...)
; compiling (DEFMACRO HTML-OUT-STREAM-CHECK ...)
; compiling (DEFMACRO HTML-STREAM ...)
; compiling (DEFUN PROCESS-HTML-FORMS ...)
; compiling (DEFUN HTML-ATOM-CHECK ...)
; compiling (DEFUN HTML-BODY-FORM ...)
; compiling (DEFUN ATTRIBUTE-NAME-STRING ...)
; compiling (DEFUN PROCESS-ATTRIBUTES ...)
; compiling (DEFUN HTML-BODY-KEY-FORM ...)
; compiling (DEFUN PRINC-HTTP ...)
; compiling (DEFUN PRIN1-HTTP ...)
; compiling (DEFUN PRINC-SAFE-HTTP ...)
; compiling (DEFUN PRIN1-SAFE-HTTP ...)
; compiling (DEFUN PRIN1-SAFE-HTTP-STRING ...)
; compiling (DEFUN EMIT-SAFE ...)
; compiling (DEFUN HTML-PRINT-LIST ...)
; compiling (DEFUN HTML-PRINT-LIST-SUBST ...)
; compiling (DEFUN HTML-PRINT ...)
; compiling (DEFUN HTML-PRINT-SUBST ...)
; compiling (DEFUN HTML-FIND-VALUE ...)
; compiling (DEFUN HTML-STANDARD-PRINT ...)
; compiling (DEFMACRO DEF-SPECIAL-HTML ...)
; compiling (DEFMACRO NAMED-FUNCTION ...)
; compiling (DEF-SPECIAL-HTML :NEWLINE ...)
; compiling (DEF-SPECIAL-HTML :PRINC ...)
; compiling (DEF-SPECIAL-HTML :PRINC-SAFE ...)
; compiling (DEF-SPECIAL-HTML :PRIN1 ...)
; compiling (DEF-SPECIAL-HTML :PRIN1-SAFE ...)
; compiling (DEF-SPECIAL-HTML :COMMENT ...)
; compiling (DEFMACRO DEF-STD-HTML ...)
; compiling (DEF-STD-HTML :A ...)
; compiling (DEF-STD-HTML :ABBR ...)
; compiling (DEF-STD-HTML :ACRONYM ...)
; compiling (DEF-STD-HTML :ADDRESS ...)
; compiling (DEF-STD-HTML :APPLET ...)
; compiling (DEF-STD-HTML :AREA ...)
; compiling (DEF-STD-HTML :B ...)
; compiling (DEF-STD-HTML :BASE ...)
; compiling (DEF-STD-HTML :BASEFONT ...)
; compiling (DEF-STD-HTML :BDO ...)
; compiling (DEF-STD-HTML :BGSOUND ...)
; compiling (DEF-STD-HTML :BIG ...)
; compiling (DEF-STD-HTML :BLINK ...)
; compiling (DEF-STD-HTML :BLOCKQUOTE ...)
; compiling (DEF-STD-HTML :BODY ...)
; compiling (DEF-STD-HTML :BR ...)
; compiling (DEF-STD-HTML :BUTTON ...)
; compiling (DEF-STD-HTML :CAPTION ...)
; compiling (DEF-STD-HTML :CENTER ...)
; compiling (DEF-STD-HTML :CITE ...)
; compiling (DEF-STD-HTML :CODE ...)
; compiling (DEF-STD-HTML :COL ...)
; compiling (DEF-STD-HTML :COLGROUP ...)
; compiling (DEF-STD-HTML :DD ...)
; compiling (DEF-STD-HTML :DEL ...)
; compiling (DEF-STD-HTML :DFN ...)
; compiling (DEF-STD-HTML :DIR ...)
; compiling (DEF-STD-HTML :DIV ...)
; compiling (DEF-STD-HTML :DL ...)
; compiling (DEF-STD-HTML :DT ...)
; compiling (DEF-STD-HTML :EM ...)
; compiling (DEF-STD-HTML :EMBED ...)
; compiling (DEF-STD-HTML :FIELDSET ...)
; compiling (DEF-STD-HTML :FONT ...)
; compiling (DEF-STD-HTML :FORM ...)
; compiling (DEF-STD-HTML :FRAME ...)
; compiling (DEF-STD-HTML :FRAMESET ...)
; compiling (DEF-STD-HTML :H1 ...)
; compiling (DEF-STD-HTML :H2 ...)
; compiling (DEF-STD-HTML :H3 ...)
; compiling (DEF-STD-HTML :H4 ...)
; compiling (DEF-STD-HTML :H5 ...)
; compiling (DEF-STD-HTML :H6 ...)
; compiling (DEF-STD-HTML :HEAD ...)
; compiling (DEF-STD-HTML :HR ...)
; compiling (DEF-STD-HTML :HTML ...)
; compiling (DEF-STD-HTML :I ...)
; compiling (DEF-STD-HTML :IFRAME ...)
; compiling (DEF-STD-HTML :ILAYER ...)
; compiling (DEF-STD-HTML :IMG ...)
; compiling (DEF-STD-HTML :INPUT ...)
; compiling (DEF-STD-HTML :INS ...)
; compiling (DEF-STD-HTML :ISINDEX ...)
; compiling (DEF-STD-HTML :KBD ...)
; compiling (DEF-STD-HTML :KEYGEN ...)
; compiling (DEF-STD-HTML :LABEL ...)
; compiling (DEF-STD-HTML :LAYER ...)
; compiling (DEF-STD-HTML :LEGEND ...)
; compiling (DEF-STD-HTML :LI ...)
; compiling (DEF-STD-HTML :LINK ...)
; compiling (DEF-STD-HTML :LISTING ...)
; compiling (DEF-STD-HTML :MAP ...)
; compiling (DEF-STD-HTML :MARQUEE ...)
; compiling (DEF-STD-HTML :MENU ...)
; compiling (DEF-STD-HTML :META ...)
; compiling (DEF-STD-HTML :MULTICOL ...)
; compiling (DEF-STD-HTML :NOBR ...)
; compiling (DEF-STD-HTML :NOEMBED ...)
; compiling (DEF-STD-HTML :NOFRAMES ...)
; compiling (DEF-STD-HTML :NOSCRIPT ...)
; compiling (DEF-STD-HTML :OBJECT ...)
; compiling (DEF-STD-HTML :OL ...)
; compiling (DEF-STD-HTML :OPTGROUP ...)
; compiling (DEF-STD-HTML :OPTION ...)
; compiling (DEF-STD-HTML :P ...)
; compiling (DEF-STD-HTML :PARAM ...)
; compiling (DEF-STD-HTML :PLAINTEXT ...)
; compiling (DEF-STD-HTML :PRE ...)
; compiling (DEF-STD-HTML :Q ...)
; compiling (DEF-STD-HTML :S ...)
; compiling (DEF-STD-HTML :SAMP ...)
; compiling (DEF-STD-HTML :SCRIPT ...)
; compiling (DEF-STD-HTML :SELECT ...)
; compiling (DEF-STD-HTML :SERVER ...)
; compiling (DEF-STD-HTML :SMALL ...)
; compiling (DEF-STD-HTML :SPACER ...)
; compiling (DEF-STD-HTML :SPAN ...)
; compiling (DEF-STD-HTML :STRIKE ...)
; compiling (DEF-STD-HTML :STRONG ...)
; compiling (DEF-STD-HTML :STYLE ...)
; compiling (DEF-STD-HTML :SUB ...)
; compiling (DEF-STD-HTML :SUP ...)
; compiling (DEF-STD-HTML :TABLE ...)
; compiling (DEF-STD-HTML :TBODY ...)
; compiling (DEF-STD-HTML :TD ...)
; compiling (DEF-STD-HTML :TEXTAREA ...)
; compiling (DEF-STD-HTML :TFOOT ...)
; compiling (DEF-STD-HTML :TH ...)
; compiling (DEF-STD-HTML :THEAD ...)
; compiling (DEF-STD-HTML :TITLE ...)
; compiling (DEF-STD-HTML :TR ...)
; compiling (DEF-STD-HTML :TT ...)
; compiling (DEF-STD-HTML :U ...)
; compiling (DEF-STD-HTML :UL ...)
; compiling (DEF-STD-HTML :VAR ...)
; compiling (DEF-STD-HTML :WBR ...)
; compiling (DEF-STD-HTML :XMP ...)
; compiling (DEF-SPECIAL-HTML :JSCRIPT ...)
; compiling (DEF-SPECIAL-HTML :NBSP ...)
; compiling (DEF-SPECIAL-HTML :LOAD-FILE ...)
; compiling (DEF-SPECIAL-HTML :INSERT-FILE ...)
; compiling (DEF-SPECIAL-HTML :WRITE-STRING ...)
; compiling (DEF-SPECIAL-HTML :WRITE-CHAR ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/htmlgen.fasl written
; compilation finished in 0:00:04
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/utils.lisp" (written 15 SEP 2004 12:44:47 PM):
; compiling (IN-PACKAGE #:LML2)
; compiling (DEFUN LML-QUIT ...)
; compiling (DEFUN LML-CWD ...)
; compiling (DEFMACRO FFORMAT ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/utils.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/files.lisp" (written 03 SEP 2005 12:18:26 PM):
; compiling (IN-PACKAGE #:LML2)
; compiling (DEFVAR *OUTPUT-DIR* ...)
; compiling (DEFVAR *SOURCES-DIR* ...)
; compiling (DEFUN LML-FILE-NAME ...)
; compiling (DEFMACRO WITH-DIR ...)
; compiling (DEFUN LML-LOAD-PATH ...)
; compiling (DEFUN PROCESS-DIR ...)
; compiling (DEFUN LML-LOAD ...)
; compiling (DEFUN INSERT-FILE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/files.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/base.lisp" (written 28 JAN 2005 09:22:15 PM):
; compiling (IN-PACKAGE #:LML2)
; compiling (DEFUN LML-FORMAT ...)
; compiling (DEFUN LML-PRINC ...)
; compiling (DEFUN LML-PRINT ...)
; compiling (DEFUN LML-WRITE-CHAR ...)
; compiling (DEFUN LML-WRITE-STRING ...)
; compiling (DEFUN LML-PRINT-DATE ...)
; compiling (DEFUN XML-HEADER-STREAM ...)
; compiling (DEFUN DTD-PROLOGUE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/base.lisp
; in: DEFUN DTD-PROLOGUE
; (DEFUN LISP-MARKUP-LANGUAGE-2:DTD-PROLOGUE
; (&OPTIONAL (FORMAT :XHTML11) &KEY LISP-MARKUP-LANGUAGE-2::ENTITIES)
; (CASE FORMAT
; ((:XHTML :XHTML11 :XHTML10-STRICT :XHTML10-TRANSITIONAL :XHTML10-FRAMESET
; :XML)
; (LISP-MARKUP-LANGUAGE-2:LML-WRITE-STRING
; LISP-MARKUP-LANGUAGE-2::+XML-PROLOGUE-STRING+)
; (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\Newline)
; (CASE FORMAT
; (# #)
; (:XHTML10-STRICT #)
; (:XHTML10-TRANSITIONAL #)
; (:XHTML10-FRAMESET #))
; (WHEN LISP-MARKUP-LANGUAGE-2::ENTITIES
; (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\ )
; (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\[)
; (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\Newline)
; (LISP-MARKUP-LANGUAGE-2:LML-WRITE-STRING
; LISP-MARKUP-LANGUAGE-2::ENTITIES)
; (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\Newline)
; (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\]))
; (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\>))
; (:HTML
; (LISP-MARKUP-LANGUAGE-2:LML-WRITE-STRING
; LISP-MARKUP-LANGUAGE-2::+HTML4-DTD-STRING+)))
; (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\Newline))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA LISP-MARKUP-LANGUAGE-2:DTD-PROLOGUE
; (&OPTIONAL (FORMAT :XHTML11)
; &KEY
; LISP-MARKUP-LANGUAGE-2::ENTITIES)
; (BLOCK LISP-MARKUP-LANGUAGE-2:DTD-PROLOGUE
; (CASE FORMAT
; ((:XHTML :XHTML11 :XHTML10-STRICT
; :XHTML10-TRANSITIONAL :XHTML10-FRAMESET :XML)
; (LISP-MARKUP-LANGUAGE-2:LML-WRITE-STRING
; LISP-MARKUP-LANGUAGE-2::+XML-PROLOGUE-STRING+)
; (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\Newline)
; (CASE FORMAT # # # #)
; (WHEN LISP-MARKUP-LANGUAGE-2::ENTITIES
; #
; #
; #
; #
; #
; #)
; (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\>))
; (:HTML
; (LISP-MARKUP-LANGUAGE-2:LML-WRITE-STRING
; LISP-MARKUP-LANGUAGE-2::+HTML4-DTD-STRING+)))
; (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\Newline)))
;
; caught STYLE-WARNING:
; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL (FORMAT :XHTML11)
; &KEY
; ENTITIES)
; compiling (DEFMACRO HTML-FILE-PAGE ...)
; compiling (DEFMACRO ALINK ...)
; compiling (DEFMACRO ALINK-C ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/base.fasl written
; compilation finished in 0:00:00
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40007FD1}> on
#<CL-SOURCE-FILE "base" {40118021}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/stdsite.lisp" (written 28 JAN 2005 09:14:07 PM):
; compiling (IN-PACKAGE #:LML2)
; compiling (DEFMACRO STD-HEAD ...)
; compiling (DEFUN STD-FOOTER ...)
; compiling (DEFMACRO STD-BODY ...)
; compiling (DEFMACRO PRINT-STD-PAGE ...)
; compiling (DEFMACRO STD-PAGE ...)
; compiling (DEFMACRO TITLED-PRE-SECTION ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/stdsite.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/downloads.lisp" (written 15 SEP 2004 12:44:47 PM):
; compiling (IN-PACKAGE #:LML2)
; compiling (DEFSTRUCT DL-DATA ...)
; compiling (DEFUN LIST-FILES ...)
; compiling (DEFUN STRIP-DL-BASE ...)
; compiling (DEFUN PRINT-FILE ...)
; compiling (DEFUN DISPLAY-HEADER ...)
; compiling (DEFUN DISPLAY-FOOTER ...)
; compiling (DEFUN PRINT-SECT-TITLE ...)
; compiling (DEFUN MATCH-BASE-NAME? ...)
; compiling (DEFUN MATCH-BASE-NAME-LATEST? ...)
; compiling (DEFUN FILTER-AGAINST-BASE ...)
; compiling (DEFUN FILTER-LATEST ...)
; compiling (DEFUN SORT-PATHNAMES ...)
; compiling (DEFUN DISPLAY-ONE-SECTION ...)
; compiling (DEFUN DISPLAY-SECTIONS ...)
; compiling (DEFUN DISPLAY-PAGE ...)
; compiling (DEFUN STD-DL-PAGE ...)
; compiling (DEFUN FULL-DL-PAGE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/downloads.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/apache-dir.lisp" (written 15 SEP 2004 12:44:47 PM):
; compiling (IN-PACKAGE #:LML2)
; compiling (DEFPARAMETER *APACHE-NAME-WIDTH* ...)
; compiling (DEFUN WRITE-NAME-TRAILING-SPACES ...)
; compiling (DEFUN WRITE-NAME-LINK ...)
; compiling (DEFUN UNIVERSAL-TIME-TO-APACHE-DATE ...)
; compiling (DEFUN SORT-DIR-ENTRIES ...)
; compiling (DEFUN WRITE-HTML-APACHE-DIRECTORY ...)
;
; caught STYLE-WARNING:
; Too many arguments (3) to FORMAT "~Aback.png": uses at most 1.
; See also:
; The ANSI Standard, Section 22.3.10.2
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/apache-dir.fasl written
; compilation finished in 0:00:00
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {10007F11}> on
#<CL-SOURCE-FILE "apache-dir" {10103F81}>.
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
;;; ASDF-INSTALL: Downloading package METATILITIES, required by asdf-status
;;; ASDF-INSTALL: Downloading 271337 bytes from http://common-lisp.net/project/cl-containers/metatilities/metatilities_latest.tar.gz to /Users/gwking/temporary/asdf-test/metatilities.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/metatilities.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/
metatilities/
metatilities/COPYING
metatilities/dev/
metatilities/dev/allegro/
metatilities/dev/allegro/generic-interface-support.lisp
metatilities/dev/allegro/generic-lisp.lisp
metatilities/dev/contrib/
metatilities/dev/contrib/mcl/
metatilities/dev/contrib/mcl/appearance-mcl.lisp
metatilities/dev/contrib/mcl/appleevent-toolkit.lisp
metatilities/dev/contrib/mcl/eval-apple-script.lisp
metatilities/dev/contrib/mcl/framework-0.91/
metatilities/dev/contrib/mcl/framework-0.91/CFBundle.lisp
metatilities/dev/contrib/mcl/framework-0.91/cfm-fp-to-macho-fp.lisp
metatilities/dev/contrib/mcl/framework-0.91/framework.lisp
metatilities/dev/contrib/mcl/framework-0.91/package.lisp
metatilities/dev/contrib/mcl/framework-0.91/reader-macro.lisp
metatilities/dev/contrib/mcl/framework-0.91/ReadMe.lisp
metatilities/dev/contrib/mcl/Image-Dialog-Item.lisp
metatilities/dev/contrib/mcl/image-window.lisp
metatilities/dev/contrib/mcl/processes.lisp
metatilities/dev/contrib/mcl/profile.lisp
metatilities/dev/contrib/mcl/progress-indicator.lisp
metatilities/dev/contrib/mcl/qt-midi.lisp
metatilities/dev/contrib/mcl/scrolling-windows.lisp
metatilities/dev/contrib/mcl/Speech-Recognition-Manager.lisp
metatilities/dev/contrib/mcl/windoid-key-events.lisp
metatilities/dev/contrib/metering.lisp
metatilities/dev/defclass-star.lisp
metatilities/dev/define-class.lisp
metatilities/dev/dynamic-class.lisp
metatilities/dev/experimental/
metatilities/dev/experimental/write-missing-generics.lisp
metatilities/dev/generic-interface.lisp
metatilities/dev/generic-lisp.lisp
metatilities/dev/l0-arrays.lisp
metatilities/dev/l0-clos.lisp
metatilities/dev/l0-files.lisp
metatilities/dev/l0-macros.lisp
metatilities/dev/l0-utils.lisp
metatilities/dev/lispworks/
metatilities/dev/lispworks/generic-interface-support.lisp
metatilities/dev/lispworks/generic-lisp.lisp
metatilities/dev/load-glu.lisp
metatilities/dev/mcl/
metatilities/dev/mcl/generic-interface-support.lisp
metatilities/dev/mcl/generic-lisp.lisp
metatilities/dev/mcl/pop-up-menu.lisp
metatilities/dev/metatilities.system
metatilities/dev/names.lisp
metatilities/dev/notes.text
metatilities/dev/openmcl/
metatilities/dev/openmcl/generic-interface-support.lisp
metatilities/dev/openmcl/generic-lisp.lisp
metatilities/dev/package.lisp
metatilities/dev/sbcl/
metatilities/dev/sbcl/generic-interface-support.lisp
metatilities/dev/sbcl/generic-lisp.lisp
metatilities/dev/sbcl-warnings.text
metatilities/dev/set-equal.lisp
metatilities/dev/unsupported/
metatilities/dev/unsupported/generic-interface-support.lisp
metatilities/dev/unsupported/generic-lisp.lisp
metatilities/dev/utilities/
metatilities/dev/utilities/allegro/
metatilities/dev/utilities/allegro/tcp-allegro.lisp
metatilities/dev/utilities/anaphoric.lisp
metatilities/dev/utilities/copy-file.lisp
metatilities/dev/utilities/dates-and-times.lisp
metatilities/dev/utilities/debugging-utils.lisp
metatilities/dev/utilities/defsystem-compatibility.lisp
metatilities/dev/utilities/dev/
metatilities/dev/utilities/files.lisp
metatilities/dev/utilities/graham.lisp
metatilities/dev/utilities/lispworks/
metatilities/dev/utilities/lispworks/tcp-lispworks.lisp
metatilities/dev/utilities/locks.lisp
metatilities/dev/utilities/macros.lisp
metatilities/dev/utilities/make-allocatable.lisp
metatilities/dev/utilities/mcl/
metatilities/dev/utilities/mcl/tcp-mcl.lisp
metatilities/dev/utilities/more-view-and-window-utilities.lisp
metatilities/dev/utilities/notifications.lisp
metatilities/dev/utilities/openmcl/
metatilities/dev/utilities/openmcl/tcp-openmcl.lisp
metatilities/dev/utilities/package-additional.lisp
metatilities/dev/utilities/searching.lisp
metatilities/dev/utilities/sequences.lisp
metatilities/dev/utilities/settings.lisp
metatilities/dev/utilities/source-compare.lisp
metatilities/dev/utilities/spy.lisp
metatilities/dev/utilities/strings.lisp
metatilities/dev/utilities/test-dates-and-times.lisp
metatilities/dev/utilities/test-files.lisp
metatilities/dev/utilities/threads.lisp
metatilities/dev/utilities/utilities.lisp
metatilities/dev/utilities/views-and-windows.lisp
metatilities/metabang-dynamic-classes.asd
metatilities/metatilities-base.asd
metatilities/metatilities.asd
metatilities/website/
metatilities/website/source/
metatilities/website/source/images/
metatilities/website/source/index.lml
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/" ;;; ASDF-INSTALL: Downloading package DEFSYSTEM-COMPATIBILITY, required by metatilities
;;; ASDF-INSTALL: Downloading 8662 bytes from http://common-lisp.net/project/cl-containers/defsystem-compatibility/defsystem-compatibility_latest.tar.gz to /Users/gwking/temporary/asdf-test/defsystem-compatibility.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/defsystem-compatibility.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/
defsystem-compatibility/
defsystem-compatibility/COPYING
defsystem-compatibility/defsystem-compatibility-test.asd
defsystem-compatibility/defsystem-compatibility.asd
defsystem-compatibility/dev/
defsystem-compatibility/dev/api.lisp
defsystem-compatibility/dev/asdf.lisp
defsystem-compatibility/dev/defsystem-compatibility.lisp
defsystem-compatibility/dev/glu.lisp
defsystem-compatibility/dev/mini-module-system.lisp
defsystem-compatibility/dev/mk-defsystem.lisp
defsystem-compatibility/dev/package.lisp
defsystem-compatibility/unit-tests/
defsystem-compatibility/unit-tests/asdf-systems.lisp
defsystem-compatibility/unit-tests/package.lisp
defsystem-compatibility/unit-tests/tests.lisp
defsystem-compatibility/website/
defsystem-compatibility/website/source/
defsystem-compatibility/website/source/images/
defsystem-compatibility/website/source/index.lml
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/" ;;; ASDF-INSTALL: Downloading package MOPTILITIES, required by metatilities-base
;;; ASDF-INSTALL: Downloading 11213 bytes from http://common-lisp.net/project/cl-containers/moptilities/moptilities_latest.tar.gz to /Users/gwking/temporary/asdf-test/moptilities.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/moptilities.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/
moptilities/
moptilities/COPYING
moptilities/dev/
moptilities/dev/moptilities.lisp
moptilities/dev/notes.text
moptilities/moptilities-test.asd
moptilities/moptilities.asd
moptilities/test/
moptilities/test/tests.lisp
moptilities/version
moptilities/website/
moptilities/website/source/
moptilities/website/source/images/
moptilities/website/source/index.lml
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/moptilities/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/moptilities/" ;;; ASDF-INSTALL: Downloading package CLOSER-MOP, required by moptilities
;;; ASDF-INSTALL: Downloading 20656 bytes from http://common-lisp.net/project/cl-containers/closer-mop/closer-mop_latest.tar.gz to /Users/gwking/temporary/asdf-test/closer-mop.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/closer-mop.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/
closer-mop/
closer-mop/allegro/
closer-mop/allegro/closer-mop-packages.lisp
closer-mop/allegro/closer-mop.lisp
closer-mop/clisp/
closer-mop/clisp/closer-mop-packages.lisp
closer-mop/clisp/closer-mop.lisp
closer-mop/closer-mop-utility-packages.lisp
closer-mop/closer-mop.asd
closer-mop/features.lisp
closer-mop/features.txt
closer-mop/lispworks/
closer-mop/lispworks/closer-mop-packages.lisp
closer-mop/lispworks/closer-mop.lisp
closer-mop/mcl/
closer-mop/mcl/closer-mop-packages.lisp
closer-mop/mcl/closer-mop.lisp
closer-mop/pcl/
closer-mop/pcl/closer-mop-packages.lisp
closer-mop/pcl/closer-mop.lisp
closer-mop/release-notes.txt
closer-mop/supported-cls.txt
closer-mop/test/
closer-mop/test/jeffs-code.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/closer-mop/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/closer-mop/" ;;; ASDF-INSTALL: Downloading package LW-COMPAT, required by closer-mop
;;; ASDF-INSTALL: Downloading 1817 bytes from http://common-lisp.net/project/cl-containers/lw-compat/lw-compat_latest.tar.gz to /Users/gwking/temporary/asdf-test/lw-compat.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/lw-compat.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/
lw-compat/
lw-compat/lw-compat-package.lisp
lw-compat/lw-compat.asd
lw-compat/lw-compat.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lw-compat/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lw-compat/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lw-compat/lw-compat-package.lisp" (written 04 APR 2006 09:27:44 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPACKAGE #:LISPWORKS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lw-compat/lw-compat-package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lw-compat/lw-compat.lisp" (written 04 APR 2006 09:27:44 AM):
; compiling (IN-PACKAGE #:LISPWORKS)
; compiling (DEFINE-MODIFY-MACRO APPENDF ...)
; compiling (DEFINE-MODIFY-MACRO NCONCF ...)
; compiling (DEFMACRO REBINDING ...)
; compiling (DEFINE-MODIFY-MACRO REMOVEF ...)
; compiling (DEFMACRO WHEN-LET ...)
; compiling (DEFMACRO WHEN-LET* ...)
; compiling (DEFMACRO WITH-UNIQUE-NAMES ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lw-compat/lw-compat.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/closer-mop/pcl/closer-mop-packages.lisp" (written 04 APR 2006 09:27:57 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPACKAGE #:CLOSER-MOP ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/closer-mop/pcl/closer-mop-packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/closer-mop/pcl/closer-mop.lisp" (written 04 APR 2006 09:27:57 AM):
; compiling (IN-PACKAGE :CLOSER-MOP)
; compiling (DEFUN REQUIRED-ARGS ...)
; compiling (DEFUN MODIFY-ACCESSORS ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...)
; compiling (DEFGENERIC TRANSFORM-SPECIALIZER ...)
; compiling (DEFUN ENSURE-METHOD ...)
; compiling (DEFVAR *STANDARD-SLOT-KEYS* ...)
; compiling (DEFUN FIX-SLOT-INITARGS ...)
; compiling (DEFGENERIC TYPEP ...)
; compiling (DEFGENERIC SUBTYPEP ...)
; compiling (PUSHNEW :CLOSER-MOP ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/closer-mop/pcl/closer-mop.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/closer-mop/closer-mop-utility-packages.lisp" (written 04 APR 2006 09:27:56 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPACKAGE #:CLOSER-COMMON-LISP ...)
; compiling (LET (#) ...)
; compiling (DEFPACKAGE #:CLOSER-COMMON-LISP-USER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/closer-mop/closer-mop-utility-packages.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/moptilities/dev/moptilities.lisp" (written 04 APR 2006 09:27:32 AM):
; compiling (IN-PACKAGE CL-USER)
; compiling (REQUIRE (QUOTE SB-INTROSPECT))
; compiling (DEFPACKAGE #:METABANG.MOPTILITIES ...)
; compiling (IN-PACKAGE #:MOPTILITIES)
; compiling (DEFMACRO NYI ...)
; compiling (DEFGENERIC GET-CLASS ...)
; compiling (DEFGENERIC SUBCLASSP ...)
; compiling (DEFMETHOD SUBCLASSP ...)
; compiling (DEFUN FINALIZE-CLASS-IF-NECESSARY ...)
; compiling (DEFUN SUPERCLASSES ...)
; compiling (DEFUN DIRECT-SUPERCLASSES ...)
; compiling (DEFUN DIRECT-SUBCLASSES ...)
; compiling (DEFGENERIC METHOD-NAME ...)
; compiling (DEFGENERIC GET-METHOD ...)
; compiling (DEFGENERIC SLOT-NAMES ...)
; compiling (DEFGENERIC SLOT-PROPERTIES ...)
; compiling (DEFGENERIC GET-SLOT-DEFINITION ...)
; compiling (DEFGENERIC DIRECT-SLOT-NAMES ...)
; compiling (DEFGENERIC READER-METHOD-P ...)
; compiling (DEFGENERIC WRITER-METHOD-P ...)
; compiling (DEFUN MAP-METHODS ...)
; compiling (DEFUN REMOVE-METHODS ...)
; compiling (DEFUN REMOVE-METHODS-IF ...)
; compiling (DEFUN GENERIC-FUNCTIONS ...)
; compiling (DEFUN DIRECT-SPECIALIZERS-OF ...)
; compiling (DEFUN SPECIALIZERS-OF ...)
; compiling (DEFUN MAP-SUBCLASSES ...)
; compiling (DEFUN SUBCLASSES ...)
; compiling (DEFUN IN-ORDER-P ...)
; compiling (DEFUN GET-STRUCTURE ...)
; compiling (DEFUN FUNCTION-ARGLIST ...)
; compiling (DEFUN MOPU-CLASS-INITARGS ...)
; compiling (DEFGENERIC EQL-SPECIALIZER-P ...)
; compiling (DEFUN DEFAULT-INITARGS ...)
; compiling (DEFUN LEAF-CLASS-P ...)
; compiling (DEFUN LEAF-SUBCLASSES ...)
; compiling (DEFGENERIC CLASS-NAME-OF ...)
; compiling (DEFGENERIC COPY-TEMPLATE ...)
; compiling (DEFMETHOD COPY-TEMPLATE ...)
; compiling (DEFGENERIC WHEN-GARBAGE-COLLECTED ...)
; compiling (DEFMETHOD WHEN-GARBAGE-COLLECTED ...)
; compiling (DEFUN CARE-WHEN-GARBAGE-COLLECTED ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/moptilities/dev/moptilities.lisp
; in: DEFUN CARE-WHEN-GARBAGE-COLLECTED
; (DEFUN METABANG.MOPTILITIES::CARE-WHEN-GARBAGE-COLLECTED
; (METABANG.MOPTILITIES::OBJECT)
; (METABANG.MOPTILITIES::NYI
; 'METABANG.MOPTILITIES::CARE-WHEN-GARBAGE-COLLECTED))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA METABANG.MOPTILITIES::CARE-WHEN-GARBAGE-COLLECTED
; (METABANG.MOPTILITIES::OBJECT)
; (BLOCK
; METABANG.MOPTILITIES::CARE-WHEN-GARBAGE-COLLECTED
; (METABANG.MOPTILITIES::NYI
; 'METABANG.MOPTILITIES::CARE-WHEN-GARBAGE-COLLECTED)))
;
; caught STYLE-WARNING:
; The variable OBJECT is defined but never used.
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/moptilities/dev/moptilities.fasl written
; compilation finished in 0:00:04
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {4000A3B9}> on
#<CL-SOURCE-FILE "moptilities" {4000A3C9}>.
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/package.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE :COMMON-LISP-USER)
; compiling (DEFPACKAGE #:METABANG.UTILITIES ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-utils.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFMACRO WITH-STANDARD-PRINTING ...)
; compiling (DEFUN NEQ ...)
; compiling (DECLAIM (INLINE NEQ))
; compiling (DEFINE-COMPILER-MACRO NEQ ...)
; compiling (DEFUN FORM-SYMBOL-IN-PACKAGE ...)
; compiling (DEFUN FORM-SYMBOL ...)
; compiling (DEFUN FORM-KEYWORD ...)
; compiling (DEFUN FORM-UNINTERNED-SYMBOL ...)
; compiling (DEFUN CURRENT-LOAD-FILE ...)
; compiling (DEFMACRO WITH-UNIQUE-NAMES ...)
; compiling (DEFUN ENSURE-LIST ...)
;
; caught STYLE-WARNING:
; using deprecated EVAL-WHEN situation names EVAL LOAD COMPILE
; compiling (DEFVAR *NEWSYM-COUNTER* ...)
; compiling (DEFUN NEWSYM ...)
; compiling (DEFUN EXPORT-EXPORTED-SYMBOLS ...)
; compiling (DEFGENERIC LENGTH-AT-LEAST-P ...)
; compiling (DEFMETHOD LENGTH-AT-LEAST-P ...)
; compiling (DEFMETHOD LENGTH-AT-LEAST-P ...)
; compiling (DEFGENERIC LENGTH-AT-MOST-P ...)
; compiling (DEFMETHOD LENGTH-AT-MOST-P ...)
; compiling (DEFMETHOD LENGTH-AT-MOST-P ...)
; compiling (DECLAIM (INLINE LENGTH-1-LIST-P))
; compiling (DEFUN LENGTH-1-LIST-P ...)
; compiling (DEFUN NEARLY-ZERO-P ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-utils.lisp
; in: DEFUN NEARLY-ZERO-P
; (< 0.0 METABANG.UTILITIES::X)
; --> > IF
; ==>
; (> SB-C::Y SB-C::X)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; (> METABANG.UTILITIES::THRESHOLD METABANG.UTILITIES::X)
;
; 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.
; (> METABANG.UTILITIES::X METABANG.UTILITIES::THRESHOLD)
;
; 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.
; (< 0.0 METABANG.UTILITIES::X)
; --> > IF
; ==>
; (> SB-C::Y SB-C::X)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; (> METABANG.UTILITIES::X METABANG.UTILITIES::THRESHOLD)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (> METABANG.UTILITIES::THRESHOLD METABANG.UTILITIES::X)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; compiling (DEFUN NEARLY-EQUAL-P ...)
; compiling (DEFPARAMETER +WHITESPACE-CHARACTERS+ ...)
; compiling (DEFUN WHITESPACEP ...)
; compiling (DEFUN DOTTED-PAIR-P ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-utils.fasl written
; compilation finished in 0:00:01
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {10008631}> on
#<CL-SOURCE-FILE "l0-utils" {10008641}>.
STYLE-WARNING: redefining FORM-SYMBOL-IN-PACKAGE in DEFUN
STYLE-WARNING: redefining FORM-SYMBOL in DEFUN
STYLE-WARNING: redefining FORM-KEYWORD in DEFUN
STYLE-WARNING: redefining FORM-UNINTERNED-SYMBOL in DEFUN
STYLE-WARNING: redefining NEWSYM in DEFUN
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-macros.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFMACRO DEPRECATED ...)
; compiling (DEFMACRO ONCE-ONLY ...)
; compiling (DEFMACRO WITH-VARIABLES ...)
; compiling (DEFMACRO EVAL-ALWAYS ...)
; compiling (DEFMACRO DEFCLASS-PROPERTY ...)
; compiling (DEFMACRO WITH-ATOMIC-EXECUTION ...)
; compiling (DEFMACRO HANDLER-BIND* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-macros.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-arrays.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFUN LINEARIZE-ARRAY ...)
; compiling (DEFUN COPY-ARRAY ...)
; compiling (DEFUN MAPARRAY ...)
; compiling (DEFUN MAPARRAY! ...)
; compiling (DEFUN ARRAY-ROW ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-arrays.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-clos.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFMETHOD RESET ...)
; compiling (DECLAIM (SPECIAL *SAMEP-TOLERANCE*))
; compiling (DEFVAR *SAMEP-TOLERANCE* ...)
; compiling (DECLAIM (SPECIAL *SAMEP-TEST*))
; compiling (DEFVAR *SAMEP-TEST* ...)
; compiling (DEFGENERIC SAMEP ...)
; compiling (DEFGENERIC NEARLY-SAMEP ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-clos.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-files.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFUN PATHNAME-NAME+TYPE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-files.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/set-equal.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFUN SET-EQUAL ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/set-equal.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/generic-lisp.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFVAR *DEFAULT-INTERFACE* ...)
; compiling (DEFUN DEFAULT-INTERFACE ...)
; compiling (DEFUN (SETF DEFAULT-INTERFACE) ...)
; compiling (DEFGENERIC IS-INTERFACE-AVAILABLE-P ...)
; compiling (DEFMETHOD IS-INTERFACE-AVAILABLE-P ...)
; compiling (DEFUN IS-DEFAULT-INTERFACE-AVAILABLE-P ...)
; compiling (DEFMETHOD QUIT-LISP* ...)
; compiling (DEFUN QUIT-LISP ...)
; compiling (DEFGENERIC TOTAL-BYTES-ALLOCATED* ...)
; compiling (DEFUN TOTAL-BYTES-ALLOCATED ...)
; compiling (DEFGENERIC GC-TIME* ...)
; compiling (DEFUN GC-TIME ...)
; compiling (DEFGENERIC COLLECT-GARBAGE* ...)
; compiling (DEFUN COLLECT-GARBAGE ...)
; compiling (DEFMACRO MAKE-LOAD-FORM* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/generic-lisp.fasl written
; compilation finished in 0:00:00
STYLE-WARNING: implicitly creating new generic function QUIT-LISP*
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/generic-interface.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DECLAIM (SPECIAL *DEVELOPMENT-MODE* ...))
; compiling (DEFVAR *DEVELOPMENT-MODE* ...)
; compiling (DEFVAR *USE-NATIVE-DEBUGGER* ...)
; compiling (DEFGENERIC MAKE-PROGRESS-BAR ...)
; compiling (DEFGENERIC PROGRESS-BAR-VALUE ...)
; compiling (DEFGENERIC (SETF PROGRESS-BAR-VALUE) ...)
; compiling (DEFGENERIC CLOSE-PROGRESS-BAR ...)
; compiling (DEFVAR *DUMMY-PROGRESS-VARIABLE*)
; compiling (DEFVAR *PROGRESS-BAR-COUNT* ...)
; compiling (DEFMACRO WITH-PROGRESS-BAR ...)
; compiling (DEFMACRO WITH-PROCESS-MESSAGE ...)
; compiling (DEFMACRO HANDLE-ERRORS ...)
; compiling (DEFGENERIC GUI-ERROR ...)
; compiling (DEFGENERIC GUI-WARN ...)
; compiling (DEFGENERIC MAKE-COLOR** ...)
; compiling (DEFMETHOD INTERFACE-BEEP* ...)
; compiling (DEFMETHOD INTERFACE-BEEP ...)
; compiling (DEFGENERIC QUIT-LISP* ...)
; compiling (DEFGENERIC Y-OR-N-QUESTION* ...)
; compiling (DEFMETHOD MAKE-PROGRESS-BAR ...)
; compiling (DEFMETHOD PROGRESS-BAR-VALUE ...)
; compiling (DEFMETHOD (SETF PROGRESS-BAR-VALUE) ...)
; compiling (DEFMETHOD CLOSE-PROGRESS-BAR ...)
; compiling (DEFMETHOD REPORT-CONDITION ...)
; compiling (DEFMETHOD GUI-ERROR* ...)
; compiling (DEFMETHOD GUI-ERROR ...)
; compiling (DEFMETHOD GUI-WARN* ...)
; compiling (DEFMETHOD GUI-WARN ...)
; compiling (DEFMETHOD MAKE-COLOR** ...)
; compiling (DEFMETHOD MAKE-COLOR* ...)
; compiling (DEFMETHOD MAKE-GRAY* ...)
; compiling (DEFMETHOD MAKE-GRAY ...)
; compiling (DEFMETHOD MAKE-SCALED-COLOR* ...)
; compiling (DEFMETHOD MAKE-SCALED-COLOR ...)
; compiling (DEFMETHOD Y-OR-N-QUESTION* ...)
; compiling (DEFUN Y-OR-N-QUESTION ...)
; compiling (DEFMETHOD CHOOSE-FILE-QUESTION* ...)
; compiling (DEFUN CHOOSE-FILE-QUESTION ...)
; compiling (DEFMETHOD CHOOSE-NEW-FILE-QUESTION* ...)
; compiling (DEFUN CHOOSE-NEW-FILE-QUESTION ...)
; compiling (DEFMETHOD CHOOSE-DIRECTORY-QUESTION* ...)
; compiling (DEFUN CHOOSE-DIRECTORY-QUESTION ...)
; compiling (DEFMETHOD CHOOSE-ITEM-QUESTION* ...)
; compiling (DEFUN CHOOSE-ITEM-QUESTION ...)
; compiling (DEFMETHOD CHOOSE-ITEM-FROM-PUP* ...)
; compiling (DEFUN CHOOSE-ITEM-FROM-PUP ...)
; compiling (DEFUN CHOOSE-ITEM-FROM-PUP-NO-SINGLETONS ...)
; compiling (DEFMETHOD MAKE-UI-POINT* ...)
; compiling (DEFUN MAKE-UI-POINT ...)
; compiling (DEFMETHOD PROCESS-PARAMETERS* ...)
; compiling (DEFMETHOD PROCESS-PARAMETERS ...)
; compiling (DEFMETHOD PUT-ITEM-ON-CLIPBOARD* ...)
; compiling (DEFMETHOD PUT-ITEM-ON-CLIPBOARD ...)
; compiling (DEFMETHOD INSPECT-THING* ...)
; compiling (DEFMETHOD INSPECT-THING ...)
; compiling (DEFUN INSPECT-THINGS ...)
; compiling (DEFMETHOD SOUND-NOTE* ...)
; compiling (DEFMETHOD SOUND-NOTE ...)
; compiling (DEFMETHOD STOP-NOTES* ...)
; compiling (DEFUN STOP-NOTES ...)
; compiling (DEFMETHOD SELECT-INSTRUMENT* ...)
; compiling (DEFMETHOD SELECT-INSTRUMENT ...)
; compiling (DEFUN QUERY-USER-FOR-STRING ...)
; compiling (DEFUN QUERY-USER-FOR-INTEGER ...)
; compiling (DEFMETHOD PROMPT-FOR* ...)
; compiling (DEFMETHOD PROMPT-FOR* ...)
; compiling (DEFMETHOD PROMPT-FOR* ...)
; compiling (DEFMETHOD PROMPT-FOR ...)
; compiling (DEFMETHOD SHELL-COMMAND* ...)
; compiling (DEFMETHOD SHELL-COMMAND ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/generic-interface.fasl written
; compilation finished in 0:00:04
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/defclass-star.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFVAR *AUTOMATIC-SLOT-ACCESSORS?* ...)
; compiling (DEFVAR *AUTOMATIC-SLOT-INITARGS?* ...)
; compiling (DEFVAR *CLOS-SLOT-OPTIONS* ...)
; compiling (DEFUN PARSE-BRIEF-SLOT ...)
; compiling (DEFMACRO DEFCLASS-BRIEF ...)
; compiling (DEFPARAMETER *DEFCLASS-COPY-CONDITION-FUNCTION* ...)
; compiling (DEFVAR *DEFCLASS-GENERATE-MAKE-LOAD-FORM* ...)
; compiling (DEFCLASS-PROPERTY DEFCLASS*-SUPERCLASSES)
; compiling (DEFUN CLASS-COPYABLE-P ...)
; compiling (DEFMACRO DEFCLASS* ...)
; compiling (DEFPARAMETER *DEFCONDITION-OPTIONS* ...)
; compiling (DEFMACRO DEFCONDITION ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/defclass-star.fasl written
; compilation finished in 0:00:02
STYLE-WARNING: implicitly creating new generic function DEFCLASS*-SUPERCLASSES
STYLE-WARNING:
implicitly creating new generic function (SETF DEFCLASS*-SUPERCLASSES)
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/define-class.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFVAR *DEFINE-CLASS-FORM* ...)
; compiling (DEFUN SIMPLE-DEFINE-CLASS ...)
; compiling (DEFUN SIMPLE-DEFINE-CLASS-NAME ...)
; compiling (DEFUN DEFINE-CLASS ...)
; compiling (DEFUN FIND-EXISTING-SUBCLASS ...)
; compiling (DEFUN FIND-OR-CREATE-CLASS ...)
; compiling (DEFUN REMOVE-REDUNDANT-CLASSES ...)
; compiling (DEFUN CLASS-REDUNDANT-P ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/define-class.fasl written
; compilation finished in 0:00:00
STYLE-WARNING: implicitly creating new generic function RESET
STYLE-WARNING: implicitly creating new generic function INTERFACE-BEEP*
STYLE-WARNING: implicitly creating new generic function INTERFACE-BEEP
STYLE-WARNING: redefining QUIT-LISP* in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function REPORT-CONDITION
STYLE-WARNING: implicitly creating new generic function GUI-ERROR*
STYLE-WARNING: implicitly creating new generic function GUI-WARN*
STYLE-WARNING: implicitly creating new generic function MAKE-COLOR*
STYLE-WARNING: implicitly creating new generic function MAKE-GRAY*
STYLE-WARNING: implicitly creating new generic function MAKE-GRAY
STYLE-WARNING: implicitly creating new generic function MAKE-SCALED-COLOR*
STYLE-WARNING: implicitly creating new generic function MAKE-SCALED-COLOR
STYLE-WARNING: implicitly creating new generic function CHOOSE-FILE-QUESTION*
STYLE-WARNING:
implicitly creating new generic function CHOOSE-NEW-FILE-QUESTION*
STYLE-WARNING:
implicitly creating new generic function CHOOSE-DIRECTORY-QUESTION*
STYLE-WARNING: implicitly creating new generic function CHOOSE-ITEM-QUESTION*
STYLE-WARNING: implicitly creating new generic function CHOOSE-ITEM-FROM-PUP*
STYLE-WARNING: implicitly creating new generic function MAKE-UI-POINT*
STYLE-WARNING: implicitly creating new generic function PROCESS-PARAMETERS*
STYLE-WARNING: implicitly creating new generic function PROCESS-PARAMETERS
STYLE-WARNING: implicitly creating new generic function PUT-ITEM-ON-CLIPBOARD*
STYLE-WARNING: implicitly creating new generic function PUT-ITEM-ON-CLIPBOARD
STYLE-WARNING: implicitly creating new generic function INSPECT-THING*
STYLE-WARNING: implicitly creating new generic function INSPECT-THING
STYLE-WARNING: implicitly creating new generic function SOUND-NOTE*
STYLE-WARNING: implicitly creating new generic function SOUND-NOTE
STYLE-WARNING: implicitly creating new generic function STOP-NOTES*
STYLE-WARNING: implicitly creating new generic function SELECT-INSTRUMENT*
STYLE-WARNING: implicitly creating new generic function SELECT-INSTRUMENT
STYLE-WARNING: implicitly creating new generic function PROMPT-FOR*
STYLE-WARNING: implicitly creating new generic function PROMPT-FOR
STYLE-WARNING: implicitly creating new generic function SHELL-COMMAND*
STYLE-WARNING: implicitly creating new generic function SHELL-COMMAND
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/dev/package.lisp" (written 04 APR 2006 09:26:53 AM):
; compiling (IN-PACKAGE :COMMON-LISP-USER)
; compiling (DEFPACKAGE #:DEFSYSTEM-COMPATIBILITY ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/dev/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/dev/api.lisp" (written 04 APR 2006 09:26:53 AM):
; compiling (IN-PACKAGE DEFSYSTEM-COMPATIBILITY)
; compiling (DEFGENERIC ASSOCIATED-TEST-SYSTEM* ...)
; compiling (DEFGENERIC ENSURE-SYSTEM-NAME* ...)
; compiling (DEFGENERIC FILENAME-LOOKS-LIKE-SYSTEM-FILE-P* ...)
; compiling (DEFGENERIC FIND-SYSTEM* ...)
; compiling (DEFGENERIC LOADED-SYSTEMS* ...)
; compiling (DEFGENERIC MAP-SYSTEM-FILES ...)
; compiling (DEFGENERIC REGISTERED-SYSTEMS* ...)
; compiling (DEFGENERIC SYSTEM-DEPENDENCIES* ...)
; compiling (DEFGENERIC SYSTEM-NAME-FOR-DISPLAY* ...)
; compiling (DEFGENERIC SYSTEM-PROPERTY* ...)
; compiling (DEFGENERIC SYSTEM-SOURCE-FILE* ...)
; compiling (DEFGENERIC SYSTEM-SUB-SYSTEMS* ...)
; compiling (DEFGENERIC TOP-LEVEL-SYSTEM-P* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/dev/api.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/dev/defsystem-compatibility.lisp" (written 04 APR 2006 09:26:53 AM):
; compiling (IN-PACKAGE DEFSYSTEM-COMPATIBILITY)
; compiling (DEFPARAMETER *PREFERED-SYSTEM-DEFINER* ...)
; compiling (DEFMETHOD FIND-SYSTEM* ...)
; compiling (DEFMETHOD FIND-SYSTEM* ...)
; compiling (DEFPARAMETER *PREFERED-DEFINER-FOR-SYSTEMS* ...)
; compiling (DEFMETHOD SELECT-SYSTEM-DEFINER ...)
; compiling (DEFMETHOD SELECT-SYSTEM-DEFINER ...)
; compiling (DEFMETHOD SELECT-SYSTEM-DEFINER ...)
; compiling (DEFUN SELECT-SYSTEM-DEFINER% ...)
; compiling (DEFUN REGISTERED-SYSTEMS ...)
; compiling (DEFUN LOADED-SYSTEMS ...)
; compiling (DEFUN FIND-SYSTEM ...)
; compiling (DEFUN ASSOCIATED-TEST-SYSTEM ...)
; compiling (DEFUN SYSTEM-SUB-SYSTEMS ...)
; compiling (DEFUN SYSTEM-PROPERTY ...)
; compiling (DEFUN SYSTEM-SOURCE-FILE ...)
; compiling (DEFUN TOP-LEVEL-SYSTEM-P ...)
; compiling (DEFUN SYSTEM-NAME-FOR-DISPLAY ...)
; compiling (DEFUN ENSURE-SYSTEM-NAME ...)
; compiling (DEFUN FILENAME-LOOKS-LIKE-SYSTEM-FILE-P ...)
; compiling (DEFUN SYSTEM-DEPENDENCIES ...)
; compiling (DEFUN SYSTEM-SOURCE-DIRECTORY ...)
; compiling (DEFUN COLLECT-SYSTEM-DEPENDENCIES ...)
; compiling (DEFUN MAP-SYSTEM-DEPENDENCIES ...)
; compiling (DEFMETHOD MAP-SYSTEM-FILES ...)
; compiling (DEFMETHOD MAP-SYSTEM-FILES ...)
; compiling (DEFUN COLLECT-SYSTEM-FILES ...)
; compiling (DEFUN PATHNAME-FOR-SYSTEM-FILE ...)
; compiling (DEFUN ENSURE-STRING ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/dev/defsystem-compatibility.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/dev/asdf.lisp" (written 04 APR 2006 09:26:53 AM):
; compiling (IN-PACKAGE DEFSYSTEM-COMPATIBILITY)
; compiling (DEFPARAMETER *RELATIVE-PATHNAME* ...)
; compiling (DEFMETHOD REGISTERED-SYSTEMS* ...)
; compiling (DEFMETHOD LOADED-SYSTEMS* ...)
; compiling (DEFMETHOD ASSOCIATED-TEST-SYSTEM* ...)
; compiling (DEFMETHOD SYSTEM-SUB-SYSTEMS* ...)
; compiling (DEFMETHOD TOP-LEVEL-SYSTEM-P* ...)
; compiling (DEFMETHOD SYSTEM-NAME-FOR-DISPLAY* ...)
; compiling (DEFMETHOD SYSTEM-SOURCE-FILE* ...)
; compiling (DEFMETHOD ENSURE-SYSTEM-NAME* ...)
; compiling (DEFMETHOD ENSURE-SYSTEM-NAME* ...)
; compiling (DEFMETHOD FILENAME-LOOKS-LIKE-SYSTEM-FILE-P* ...)
; compiling (DEFMETHOD SYSTEM-DEPENDENCIES* ...)
; compiling (DEFUN SAFE-SLOT-VALUE ...)
; compiling (DEFMETHOD %MAP-SYSTEM-FILES ...)
; compiling (DEFMETHOD %MAP-SYSTEM-FILES ...)
; compiling (DEFMETHOD %MAP-SYSTEM-FILES ...)
; compiling (DEFMETHOD SYSTEM-PROPERTY* ...)
; compiling (DEFMETHOD SELECT-SYSTEM-DEFINER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/dev/asdf.fasl written
; compilation finished in 0:00:02
STYLE-WARNING: implicitly creating new generic function SELECT-SYSTEM-DEFINER
STYLE-WARNING: implicitly creating new generic function %MAP-SYSTEM-FILES
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
; printed 10 notes
;;; ASDF-INSTALL: Downloading package METABANG-BIND, required by metatilities
;;; ASDF-INSTALL: Downloading 6199 bytes from http://common-lisp.net/project/cl-containers/metabang-bind/metabang-bind_latest.tar.gz to /Users/gwking/temporary/asdf-test/metabang-bind.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/metabang-bind.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/
metabang-bind/
metabang-bind/COPYING
metabang-bind/dev/
metabang-bind/dev/bind.lisp
metabang-bind/dev/metabang-bind.system
metabang-bind/metabang-bind-test.asd
metabang-bind/metabang-bind.asd
metabang-bind/unit-tests/
metabang-bind/unit-tests/package.lisp
metabang-bind/unit-tests/test-bind.lisp
metabang-bind/version
metabang-bind/website/
metabang-bind/website/source/
metabang-bind/website/source/images/
metabang-bind/website/source/index.lml
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metabang-bind/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metabang-bind/" ;;; ASDF-INSTALL: Downloading 3498 bytes from http://common-lisp.net/project/cl-containers/asdf-system-connections/asdf-system-connections_latest.tar.gz to /Users/gwking/temporary/asdf-test/ASDF-SYSTEM-CONNECTIONS.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/ASDF-SYSTEM-CONNECTIONS.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-system-connections/
asdf-system-connections/asdf-system-connections.asd
asdf-system-connections/COPYING
asdf-system-connections/dev/
asdf-system-connections/dev/asdf-system-connections.lisp
asdf-system-connections/dev/notes.text
asdf-system-connections/version
asdf-system-connections/website/
asdf-system-connections/website/source/
asdf-system-connections/website/source/images/
asdf-system-connections/website/source/index.lml
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-system-connections/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-system-connections/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-system-connections/dev/asdf-system-connections.lisp" (written 04 APR 2006 09:26:12 AM):
; compiling (IN-PACKAGE ASDF)
; compiling (EXPORT (QUOTE #))
; compiling (DEFCLASS SYSTEM-CONNECTION ...)
; compiling (DEFUN MAP-SYSTEM-CONNECTIONS ...)
; compiling (DEFMACRO DEFSYSTEM-CONNECTION ...)
; compiling (DEFUN LOAD-CONNECTED-SYSTEMS ...)
; compiling (DEFUN REQUIRED-SYSTEMS-LOADED-P ...)
; compiling (DEFUN SYSTEM-LOADED-P ...)
; compiling (DEFMETHOD PERFORM ...)
; compiling (DEFMETHOD OPERATION-DONE-P ...)
; compiling (DEFUN FIND-SYSTEM-IN-MEMORY ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-system-connections/dev/asdf-system-connections.fasl written
; compilation finished in 0:00:00
; in: LAMBDA NIL
; (IF (EQ 'METABANG.BIND-SYSTEM::A 'METABANG.BIND-SYSTEM::A)
; "EXPORT-EXPORTED-SYMBOLS"
; "export-exported-symbols")
; ==>
; "export-exported-symbols"
;
; note: deleting unreachable code
;
; compilation unit finished
; printed 1 note
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metabang-bind/dev/bind.lisp" (written 04 APR 2006 09:27:28 AM):
; compiling (DEFPACKAGE #:METABANG.BIND ...)
; compiling (IN-PACKAGE METABANG.BIND)
; compiling (DEFPARAMETER *BIND-ALL-DECLARATIONS* ...)
; compiling (DEFPARAMETER *BIND-NON-VAR-DECLARATIONS* ...)
; compiling (DEFPARAMETER *BIND-SIMPLE-VAR-DECLARATIONS* ...)
; compiling (DEFINE-CONDITION BIND-ERROR ...)
; compiling (DEFINE-CONDITION BIND-KEYWORD/OPTIONAL-NIL-WITH-DEFAULT-ERROR ...)
; compiling (DEFMACRO BIND ...)
; compiling (DEFUN BIND-MACRO-HELPER ...)
; compiling (DEFUN BIND-FIX-NILS ...)
; compiling (DEFUN BIND-FIX-NILS-DESTRUCTURED ...)
; compiling (DEFUN BIND-EXPAND-DECLARATIONS ...)
; compiling (DEFUN BIND-FILTER-DECLARATIONS ...)
; compiling (DEFMACRO FLUID-BIND ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metabang-bind/dev/bind.fasl written
; compilation finished in 0:00:00
;;; ASDF-INSTALL: Downloading package CL-CONTAINERS, required by metatilities
;;; ASDF-INSTALL: Downloading 207838 bytes from http://common-lisp.net/project/cl-containers/cl-containers_latest.tar.gz to /Users/gwking/temporary/asdf-test/cl-containers.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/cl-containers.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-containers/
cl-containers/cl-containers.asd
cl-containers/COPYING
cl-containers/dev/
cl-containers/dev/associative.lisp
cl-containers/dev/bags-and-sets.lisp
cl-containers/dev/basic-operations.lisp
cl-containers/dev/cl-containers.system
cl-containers/dev/compatibility.lisp
cl-containers/dev/container-api.lisp
cl-containers/dev/container-mixins.lisp
cl-containers/dev/container-sampling.lisp
cl-containers/dev/container-thread-safe.lisp
cl-containers/dev/containers-readtable.lisp
cl-containers/dev/containers.asdf
cl-containers/dev/containers.lisp
cl-containers/dev/copying.lisp
cl-containers/dev/eksl-priority-queue.lisp
cl-containers/dev/extra-stuff.lisp
cl-containers/dev/file-backed-table-container.lisp
cl-containers/dev/file-iterators.lisp
cl-containers/dev/flagged-issues.text
cl-containers/dev/heaps.lisp
cl-containers/dev/historical-notes.lisp
cl-containers/dev/immutable-containers.lisp
cl-containers/dev/iterator-api.lisp
cl-containers/dev/iterators.lisp
cl-containers/dev/lists.lisp
cl-containers/dev/load-glu.lisp
cl-containers/dev/miscellaneous.lisp
cl-containers/dev/more-containers.lisp
cl-containers/dev/notes.text
cl-containers/dev/package-container.lisp
cl-containers/dev/package.lisp
cl-containers/dev/quad-tree.lisp
cl-containers/dev/queues.lisp
cl-containers/dev/r-tree.lisp
cl-containers/dev/ring-buffers.lisp
cl-containers/dev/stacks.lisp
cl-containers/dev/table-container.lisp
cl-containers/dev/trees.lisp
cl-containers/dev/union-find-container.lisp
cl-containers/dev/utilities-integration.lisp
cl-containers/dev/vectors.lisp
cl-containers/dev/weighted-sampling.lisp
cl-containers/doc/
cl-containers/doc/acm_proc_article-sp.cls
cl-containers/doc/containers-hierarchy.graffle
cl-containers/doc/introduction-to-cl-containers.pdf
cl-containers/doc/introduction-to-cl-containers.tex
cl-containers/test/
cl-containers/test/package.lisp
cl-containers/test/scratch.lisp
cl-containers/test/test-containers.lisp
cl-containers/test/test-file-iterators.lisp
cl-containers/test/test-iterators.lisp
cl-containers/test/test-queue-delete.lisp
cl-containers/test/test-queues.lisp
cl-containers/test/test-reverse-container.lisp
cl-containers/test/test-set-container.lisp
cl-containers/test/test-vectors.lisp
cl-containers/version
cl-containers/website/
cl-containers/website/source/
cl-containers/website/source/images/
cl-containers/website/source/images/containers.pdf
cl-containers/website/source/images/iterators.pdf
cl-containers/website/source/index.lml
cl-containers/website/source/shared/
cl-containers/website/source/shared/buttons/
cl-containers/website/source/shared/buttons/cssvalid.gif
cl-containers/website/source/shared/buttons/hacker.png
cl-containers/website/source/shared/buttons/lambda-lisp.png
cl-containers/website/source/shared/buttons/lisp-lizard.png
cl-containers/website/source/shared/buttons/lml2-powered.png
cl-containers/website/source/shared/buttons/xhtml.gif
cl-containers/website/source/shared/lambda.png
cl-containers/website/source/shared/lisp-flag-with-hand.gif
cl-containers/website/source/shared/metabang-2.png
cl-containers/website/source/shared/style.css
cl-containers/website/stuff/
cl-containers/website/stuff/containers.dot
cl-containers/website/stuff/index.shtml
cl-containers/website/stuff/iterators.dot
cl-containers/website/stuff/project-name
cl-containers/website/stuff/Temp.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/dynamic-class.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFVAR *PARAMETER-DYNAMIC-CLASS-TABLE* ...)
; compiling (DEFUN TYPE->PARAMETER-TABLE ...)
; compiling (DEFUN (SETF TYPE->PARAMETER-TABLE) ...)
; compiling (DEFUN PARAMETER->DYNAMIC-CLASS ...)
; compiling (DEFUN (SETF PARAMETER->DYNAMIC-CLASS) ...)
; compiling (DEFUN TABLE&PARAMETER->DYNAMIC-CLASS ...)
; compiling (DEFUN ADD-PARAMETER->DYNAMIC-CLASS ...)
; compiling (DEFUN ADD-DYNAMIC-CLASS-FOR-PARAMETERS ...)
; compiling (DEFUN EMPTY-ADD-PARAMETER->DYNAMIC-CLASS ...)
; compiling (DEFUN EMPTY-ALL-ADD-PARAMETER->DYNAMIC-CLASS ...)
; compiling (DEFUN DYNAMIC-CLASS-INFORMATION ...)
; compiling (DEFMETHOD INCLUDE-CLASS-DEPENDENCIES ...)
; compiling (DEFMETHOD EXISTING-SUBCLASS ...)
; compiling (DEFUN DETERMINE-DYNAMIC-CLASS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/dynamic-class.fasl written
; compilation finished in 0:00:00
STYLE-WARNING:
implicitly creating new generic function INCLUDE-CLASS-DEPENDENCIES
STYLE-WARNING: implicitly creating new generic function EXISTING-SUBCLASS
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/package.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE COMMON-LISP-USER)
; compiling (DEFPACKAGE #:METABANG.CL-CONTAINERS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/container-api.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFGENERIC SAMPLE-ELEMENTS ...)
; compiling (DEFGENERIC SAMPLE-KEY ...)
; compiling (DEFGENERIC SAMPLE-UNIQUE-ELEMENTS ...)
; compiling (DEFGENERIC SAMPLE-ELEMENT ...)
; compiling (DEFGENERIC SAMPLE-ITEM ...)
; compiling (DEFGENERIC BEST-ITEM ...)
; compiling (DEFGENERIC ARGMAX ...)
; compiling (DEFGENERIC ARGMIN ...)
; compiling (DEFGENERIC MAKE-NODE-FOR-CONTAINER ...)
; compiling (DEFGENERIC NODE-EMPTY-P ...)
; compiling (DEFGENERIC SIZE ...)
; compiling (DEFGENERIC EMPTY! ...)
; compiling (DEFGENERIC SOME-ITEM-P ...)
; compiling (DEFGENERIC EVERY-ITEM-P ...)
; compiling (DEFGENERIC MAKE-CONTAINER-FOR-CONTENTS ...)
; compiling (DEFGENERIC NTH-ELEMENT ...)
; compiling (DEFGENERIC NTH-ITEM ...)
; compiling (DEFGENERIC TOTAL-SIZE ...)
; compiling (DEFGENERIC ITEM-AT ...)
; compiling (DEFGENERIC ITEM-AT! ...)
; compiling (DEFGENERIC FIND-ITEM ...)
; compiling (DEFGENERIC FIND-NODE ...)
; compiling (DEFGENERIC FIND-ELEMENT ...)
; compiling (DEFGENERIC SEARCH-FOR-ITEM ...)
; compiling (DEFGENERIC SEARCH-FOR-MATCH ...)
; compiling (DEFGENERIC ITERATE-NODES ...)
; compiling (DEFGENERIC PRINT-CONTAINER ...)
; compiling (DEFGENERIC COLLECT-NODES ...)
; compiling (DEFGENERIC COLLECT-ELEMENTS ...)
; compiling (DEFGENERIC COLLECT-KEY-VALUE ...)
; compiling (DEFGENERIC COLLECT-KEYS ...)
; compiling (DEFGENERIC ITERATE-KEY-VALUE ...)
; compiling (DEFGENERIC ITERATE-VALUE-KEY ...)
; compiling (DEFGENERIC FIRST-ELEMENT ...)
; compiling (DEFUN FIRST-ITEM ...)
; compiling (DEFGENERIC LAST-ELEMENT ...)
; compiling (DEFUN LAST-ITEM ...)
; compiling (DEFGENERIC DELETE-FIRST ...)
; compiling (DEFGENERIC DELETE-LAST ...)
; compiling (DEFGENERIC INSERT-ITEM ...)
; compiling (DEFGENERIC APPEND-ITEM ...)
; compiling (DEFGENERIC INSERT-NEW-ITEM ...)
; compiling (DEFGENERIC APPEND-NEW-ITEM ...)
; compiling (DEFGENERIC INSERT-SEQUENCE ...)
; compiling (DEFGENERIC INSERT-LIST ...)
; compiling (DEFGENERIC DELETE-LIST ...)
; compiling (DEFGENERIC REVERSE-FIND ...)
; compiling (DEFGENERIC ENQUEUE ...)
; compiling (DEFGENERIC DEQUEUE ...)
; compiling (DEFGENERIC POP-ITEM ...)
; compiling (DEFGENERIC CHILDREN ...)
; compiling (DEFGENERIC ENSURE-SORTED ...)
; compiling (DEFGENERIC FORCE-SORT ...)
; compiling (DEFGENERIC REMOVE-ITEMS-IF ...)
; compiling (DEFGENERIC CONTAINER->ARRAY ...)
; compiling (DEFGENERIC ELEMENT-POSITION ...)
; compiling (DEFGENERIC DELETE-ITEM ...)
; compiling (DEFGENERIC DELETE-ITEM-IF ...)
; compiling (DEFGENERIC REVERSE-CONTAINER ...)
; compiling (DEFGENERIC UNIQUE-ELEMENTS ...)
; compiling (DEFGENERIC UNIQUE-NODES ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/container-api.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/containers.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFPARAMETER +EMPTY-INITIAL-ELEMENT+ ...)
; compiling (DEFCLASS* ABSTRACT-CONTAINER ...)
; compiling (DEFCLASS* CONCRETE-CONTAINER ...)
; compiling (DEFCLASS* CONTAINER-NODE-MIXIN ...)
; compiling (DEFCLASS* LIST-CONTAINER ...)
; compiling (DEFCLASS* PARENT-NODE-MIXIN ...)
; compiling (DEFCLASS* TWO-CHILD-NODE ...)
; compiling (DEFCLASS* KEYED-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* TYPED-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* BOUNDED-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* INDEXED-CONTAINER-MIXIN ...)
; compiling (DEFMETHOD (SETF ITEM-AT) ...)
; compiling (DEFCLASS* INITIAL-ELEMENT-MIXIN ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFUN RETURN-EMPTY-INITIAL-ELEMENT ...)
; compiling (DEFMETHOD MAKE-INITIAL-ELEMENT ...)
; compiling (DEFCLASS* BASIC-INITIAL-CONTENTS-MIXIN ...)
; compiling (DEFCLASS* INITIAL-CONTENTS-MIXIN ...)
; compiling (DEFGENERIC INSERT-INITIAL-CONTENTS-P ...)
; compiling (DEFCLASS* INITIAL-CONTENTS-KEY-VALUE-MIXIN ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFCLASS* TEST-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* CONTAINER-USES-NODES-MIXIN ...)
; compiling (DEFCLASS* FINDABLE-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* SEARCHABLE-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* ITERATABLE-CONTAINER-MIXIN ...)
; compiling (DEFGENERIC ITERATABLE-P ...)
; compiling (DEFMETHOD ITERATE-CONTAINER ...)
; compiling (DEFMETHOD COLLECT-ITEMS ...)
; compiling (DEFCLASS* I-KNOW-MY-NODE-MIXIN ...)
; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; compiling (DEFCLASS* NON-ASSOCIATIVE-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* UNORDERED-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* ORDERED-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* SORTED-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* CLASSIFIED-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* USES-CONTENTS-MIXIN ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFCLASS* CONTENTS-AS-SEQUENCE-MIXIN ...)
; compiling (DEFCLASS* CONTENTS-AS-ARRAY-MIXIN ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD TOTAL-SIZE ...)
; compiling (DEFMETHOD INSERT-INITIAL-CONTENTS-P ...)
; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; compiling (DEFCLASS* CONTENTS-AS-LIST-MIXIN ...)
; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; compiling (DEFCLASS* CONTENTS-AS-HASHTABLE-MIXIN ...)
; compiling (DEFCLASS* STABLE-ASSOCIATIVE-CONTAINER ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFCLASS* ASSOCIATIVE-ARRAY ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/containers.fasl written
; compilation finished in 0:00:04
STYLE-WARNING: implicitly creating new generic function (SETF ITEM-AT)
STYLE-WARNING: implicitly creating new generic function MAKE-INITIAL-ELEMENT
STYLE-WARNING: implicitly creating new generic function ITERATE-CONTAINER
STYLE-WARNING: implicitly creating new generic function COLLECT-ITEMS
STYLE-WARNING: implicitly creating new generic function MAKE-NODE-FOR-CONTAINER
STYLE-WARNING: implicitly creating new generic function COLLECT-ELEMENTS
STYLE-WARNING: implicitly creating new generic function ITERATE-NODES
STYLE-WARNING: implicitly creating new generic function SIZE
STYLE-WARNING: implicitly creating new generic function TOTAL-SIZE
STYLE-WARNING:
implicitly creating new generic function MAKE-CONTAINER-FOR-CONTENTS
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/basic-operations.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCONDITION CONTAINER-ERROR ...)
; compiling (DEFCONDITION INDEX-OUT-OF-RANGE-ERROR ...)
; compiling (DEFGENERIC MAKE-CONTAINER ...)
; compiling (DEFUN FIND-MATCHING-CONTAINER-CLASS ...)
; compiling (DEFGENERIC EMPTY-P ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFMETHOD FIND-ELEMENT ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-ELEMENT ...)
; compiling (DEFMETHOD PRINT-CONTAINER ...)
; compiling (DEFMETHOD NTH-ELEMENT ...)
; compiling (DEFMETHOD NTH-ELEMENT ...)
; compiling (DEFMETHOD COLLECT-NODES ...)
; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
; compiling (DEFUN COLLECTOR-INTERNAL ...)
; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
; compiling (DEFMETHOD SEARCH-FOR-ELEMENT ...)
; compiling (DEFMETHOD SEARCH-FOR-NODE ...)
; compiling (DEFUN %SEARCH-IN-CONTAINER ...)
; compiling (DEFMETHOD SEARCH-FOR-MATCH ...)
; compiling (DEFUN %SEARCH-FOR-MATCH ...)
; compiling (DEFMETHOD SEARCH-FOR-MATCHING-NODE ...)
; compiling (DEFMETHOD SEARCH-FOR-NODE ...)
; compiling (DEFMETHOD SEARCH-FOR-NODE ...)
; compiling (DEFMETHOD SEARCH-FOR-NODE* ...)
; compiling (DEFMETHOD SEARCH-FOR-NODE* ...)
; compiling (DEFMETHOD BEST-ITEM ...)
; compiling (DEFMETHOD BEST-ITEM ...)
; compiling (DEFMETHOD BEST-NODE ...)
; compiling (DEFMETHOD BEST-ELEMENT ...)
; compiling (DEFUN %BEST-HELPER ...)
; compiling (DEFMETHOD ARGMAX ...)
; compiling (DEFMETHOD ARGMIN ...)
; compiling (DEFMETHOD REDUCE-CONTAINER ...)
; compiling (DEFMETHOD REDUCE-ELEMENTS ...)
; compiling (DEFMETHOD REDUCE-NODES ...)
; compiling (DEFUN REDUCE-INTERNAL ...)
; compiling (DEFMETHOD DELETE-ITEM-IF ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFCLASS* KEY-VALUE-ITERATABLE-CONTAINER-MIXIN ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-LIST ...)
; compiling (DEFMETHOD INSERT-LIST ...)
; compiling (DEFMETHOD INSERT-SEQUENCE ...)
; compiling (DEFMETHOD INSERT-SEQUENCE ...)
; compiling (DEFMETHOD INSERT-SEQUENCE ...)
; compiling (DEFMETHOD INSERT-NEW-ITEM ...)
; compiling (DEFGENERIC SUCCESSOR ...)
; compiling (DEFGENERIC PREDECESSOR ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD SORT-ELEMENTS ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFMETHOD SOME-ITEM-P ...)
; compiling (DEFMETHOD EVERY-ITEM-P ...)
; compiling (DEFMETHOD SOME-ELEMENT-P ...)
; compiling (DEFMETHOD EVERY-ELEMENT-P ...)
; compiling (DEFUN %EVERY-THING-P ...)
; compiling (DEFUN %SOME-THING-P ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD APPEND-ITEM ...)
; compiling (DEFMETHOD APPEND-NEW-ITEM ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD ITERATE-KEYS ...)
; compiling (DEFMETHOD COLLECT-KEY-VALUE ...)
; compiling (DEFUN %COLLECT-KEY-VALUE ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFMETHOD REVERSE-FIND ...)
; compiling (DEFMETHOD FIND-VALUE ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFMETHOD ADD-DEFAULT-ITEM ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD ITERATE-KEYS ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS-STABLY ...)
; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
; compiling (DEFMETHOD COLLECT-KEYS ...)
; compiling (DEFMETHOD ITERATE-KEY-VALUE-STABLY ...)
; compiling (DEFMETHOD COLLECT-KEY-VALUE-STABLY ...)
; compiling (DEFMETHOD COLLECT-ELEMENTS-STABLY ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFUN TUPLE-INDEX ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD CONTAINER-DIMENSION ...)
; compiling (DEFMETHOD DIMENSIONS ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFUN COLLECT-USING ...)
; compiling (DEFUN COUNT-USING ...)
; compiling (DEFMETHOD CONTAINER-DIFFERENCE ...)
; compiling (DEFUN ASSOCIATIVE-CONTAINER-P ...)
; compiling (DEFMETHOD ADD-INITIAL-CONTENTS ...)
; compiling (DEFMETHOD ADD-INITIAL-CONTENTS ...)
; compiling (DEFUN ADD-INITIAL-CONTENTS-INTERNAL ...)
; compiling (DEFMETHOD ADD-INITIAL-CONTENTS ...)
; compiling (DEFMETHOD ELEMENT-POSITION ...)
; compiling (DEFMETHOD ELEMENT-POSITION ...)
; compiling (DEFMETHOD SAMEP ...)
; compiling (DEFMETHOD SAMEP ...)
; compiling (DEFMETHOD SAMEP ...)
; compiling (DEFMETHOD SAMEP ...)
; compiling (DEFMETHOD REVERSE-CONTAINER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/basic-operations.fasl written
; compilation finished in 0:00:12
STYLE-WARNING: implicitly creating new generic function ITERATE-ELEMENTS
STYLE-WARNING: implicitly creating new generic function FIND-ELEMENT
STYLE-WARNING: implicitly creating new generic function DELETE-ITEM
STYLE-WARNING: implicitly creating new generic function DELETE-ELEMENT
STYLE-WARNING: implicitly creating new generic function PRINT-CONTAINER
STYLE-WARNING: implicitly creating new generic function NTH-ELEMENT
STYLE-WARNING: implicitly creating new generic function COLLECT-NODES
STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-ITEM
STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-ELEMENT
STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-NODE
STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-MATCH
STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-MATCHING-NODE
STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-NODE*
STYLE-WARNING: implicitly creating new generic function BEST-ITEM
STYLE-WARNING: implicitly creating new generic function BEST-NODE
STYLE-WARNING: implicitly creating new generic function BEST-ELEMENT
STYLE-WARNING: implicitly creating new generic function ARGMAX
STYLE-WARNING: implicitly creating new generic function ARGMIN
STYLE-WARNING: implicitly creating new generic function REDUCE-CONTAINER
STYLE-WARNING: implicitly creating new generic function REDUCE-ELEMENTS
STYLE-WARNING: implicitly creating new generic function REDUCE-NODES
STYLE-WARNING: implicitly creating new generic function DELETE-ITEM-IF
STYLE-WARNING: implicitly creating new generic function FIRST-ELEMENT
STYLE-WARNING: implicitly creating new generic function (SETF FIRST-ELEMENT)
STYLE-WARNING: implicitly creating new generic function DELETE-LIST
STYLE-WARNING: implicitly creating new generic function INSERT-LIST
STYLE-WARNING: implicitly creating new generic function INSERT-SEQUENCE
STYLE-WARNING: implicitly creating new generic function INSERT-NEW-ITEM
STYLE-WARNING: implicitly creating new generic function SORT-ELEMENTS
STYLE-WARNING: implicitly creating new generic function EMPTY!
STYLE-WARNING: implicitly creating new generic function FIND-ITEM
STYLE-WARNING: implicitly creating new generic function SOME-ITEM-P
STYLE-WARNING: implicitly creating new generic function EVERY-ITEM-P
STYLE-WARNING: implicitly creating new generic function SOME-ELEMENT-P
STYLE-WARNING: implicitly creating new generic function EVERY-ELEMENT-P
STYLE-WARNING: implicitly creating new generic function INSERT-ITEM
STYLE-WARNING: implicitly creating new generic function APPEND-ITEM
STYLE-WARNING: implicitly creating new generic function APPEND-NEW-ITEM
STYLE-WARNING: implicitly creating new generic function ITERATE-KEYS
STYLE-WARNING: implicitly creating new generic function COLLECT-KEY-VALUE
STYLE-WARNING: implicitly creating new generic function REVERSE-FIND
STYLE-WARNING: implicitly creating new generic function FIND-VALUE
STYLE-WARNING: implicitly creating new generic function ITEM-AT!
STYLE-WARNING: implicitly creating new generic function ADD-DEFAULT-ITEM
STYLE-WARNING: implicitly creating new generic function ITEM-AT
STYLE-WARNING: implicitly creating new generic function ITERATE-ELEMENTS-STABLY
STYLE-WARNING: implicitly creating new generic function ITERATE-KEY-VALUE
STYLE-WARNING: implicitly creating new generic function COLLECT-KEYS
STYLE-WARNING: implicitly creating new generic function ITERATE-KEY-VALUE-STABLY
STYLE-WARNING: implicitly creating new generic function COLLECT-KEY-VALUE-STABLY
STYLE-WARNING: implicitly creating new generic function COLLECT-ELEMENTS-STABLY
STYLE-WARNING: implicitly creating new generic function CONTAINER-DIMENSION
STYLE-WARNING: implicitly creating new generic function DIMENSIONS
STYLE-WARNING: implicitly creating new generic function CONTAINER-DIFFERENCE
STYLE-WARNING: implicitly creating new generic function ADD-INITIAL-CONTENTS
STYLE-WARNING: implicitly creating new generic function ELEMENT-POSITION
STYLE-WARNING: implicitly creating new generic function REVERSE-CONTAINER
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/queues.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* ABSTRACT-QUEUE ...)
; compiling (DEFINE-CONDITION EKSL-QUEUE-EMPTY ...)
; compiling (DEFMETHOD ENQUEUE ...)
; compiling (DEFMETHOD DEQUEUE ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD DELETE-FIRST ...)
; compiling (DEFMETHOD ERROR-IF-QUEUE-EMPTY ...)
; compiling (DEFCLASS* PRIORITY-QUEUE-ON-CONTAINER ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD DELETE-FIRST ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFMETHOD FIND-NODE ...)
; compiling (DEFMETHOD FIND-ELEMENT ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-NODE ...)
; compiling (DEFMETHOD DELETE-ELEMENT ...)
; compiling (DEFMETHOD DELETE-ITEM-IF ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFCLASS* BASIC-QUEUE ...)
; compiling (DEFUN FRONT-OF-QUEUE ...)
; compiling (DEFUN FRONT-OF-QUEUE! ...)
; compiling (DEFSETF FRONT-OF-QUEUE ...)
; compiling (DEFUN TAIL-OF-QUEUE ...)
; compiling (DEFUN TAIL-OF-QUEUE! ...)
; compiling (DEFSETF TAIL-OF-QUEUE ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD DELETE-FIRST ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/queues.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/stacks.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* ABSTRACT-STACK ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD PUSH-ITEM ...)
; compiling (DEFCLASS* STACK-CONTAINER ...)
; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD POP-ITEM ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/stacks.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/trees.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* ABSTRACT-TREE-CONTAINER ...)
; compiling (DEFCLASS* ROOTED-TREE-CONTAINER ...)
; compiling (DEFCLASS* MANY-CHILD-NODE ...)
; compiling (DEFMETHOD ITERATE-CHILDREN ...)
; compiling (DEFMETHOD HAS-CHILDREN-P ...)
; compiling (DEFMETHOD FIND-CHILD-NODE ...)
; compiling (DEFCLASS* MANY-ORDERED-CHILD-NODE ...)
; compiling (DEFMETHOD CHILDREN ...)
; compiling (DEFCLASS* MANY-UNORDERED-CHILD-NODE ...)
; compiling (DEFCLASS* BINARY-SEARCH-TREE ...)
; compiling (DEFCLASS* BST-NODE ...)
; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; compiling (DEFMETHOD NODE-EMPTY-P ...)
; compiling (DEFMETHOD NODE-EMPTY-P ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFMETHOD FIND-NODE ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD LAST-ELEMENT ...)
; compiling (DEFMETHOD LAST-ELEMENT ...)
; compiling (DEFMETHOD (SETF LAST-ELEMENT) ...)
; compiling (DEFMETHOD (SETF LAST-ELEMENT) ...)
; compiling (DEFMETHOD SUCCESSOR ...)
; compiling (DEFMETHOD PREDECESSOR ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD DELETE-NODE ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM-IF ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD INORDER-WALK ...)
; compiling (DEFMETHOD PREORDER-WALK ...)
; compiling (DEFMETHOD POSTORDER-WALK ...)
; compiling (DEFMETHOD INORDER-WALK-NODES ...)
; compiling (DEFMETHOD PREORDER-WALK-NODES ...)
; compiling (DEFMETHOD POSTORDER-WALK-NODES ...)
; compiling (DEFMETHOD WALK-TREE ...)
; compiling (DEFMETHOD WALK-TREE ...)
; compiling (DEFMETHOD WALK-TREE-NODES ...)
; compiling (DEFMETHOD WALK-TREE-NODES ...)
; compiling (DEFCONSTANT +RBT-COLOR-BLACK+ ...)
; compiling (DEFCONSTANT +RBT-COLOR-RED+ ...)
; compiling (DEFVAR *RBT-EMPTY-NODE* ...)
; compiling (DEFCLASS* RED-BLACK-TREE ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFCLASS* RED-BLACK-NODE ...)
; compiling (DEFMETHOD NODE-EMPTY-P ...)
; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (SETF *RBT-EMPTY-NODE* ...)
; compiling (DEFMETHOD ROTATE-LEFT ...)
; compiling (DEFMETHOD ROTATE-RIGHT ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD RB-DELETE-FIXUP ...)
; compiling (DEFMETHOD WALK-TREE-NODES ...)
; compiling (DEFMETHOD WALK-TREE ...)
; compiling (DEFMETHOD HEIGHT ...)
; compiling (DEFMETHOD HEIGHT ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD UPDATE-ELEMENT ...)
; compiling (DEFGENERIC BST-NODE-IS-LEFT-CHILD ...)
; compiling (DEFGENERIC BST-NODE-IS-RIGHT-CHILD ...)
; compiling (DEFGENERIC BST-NODE-SET-RIGHT-CHILD ...)
; compiling (DEFGENERIC BST-NODE-SET-LEFT-CHILD ...)
; compiling (DEFGENERIC BST-NODE-REPLACE-CHILD ...)
; compiling (DEFCLASS* SPLAY-TREE ...)
; compiling (DEFGENERIC SPLAY-TREE-ROTATE ...)
; compiling (DEFGENERIC SPLAY-TREE-SPLAY ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD UPDATE-ELEMENT ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFGENERIC RIGHT-MOST-CHILD ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM-AT ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/trees.fasl written
; compilation finished in 0:00:08
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/lists.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFMETHOD INSERT-LIST ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFMETHOD DELETE-FIRST ...)
; compiling (DEFMETHOD NTH-ELEMENT ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD PRINT-CONTAINER ...)
; compiling (DEFMETHOD LAST-ELEMENT ...)
; compiling (DEFMETHOD (SETF LAST-ELEMENT) ...)
; compiling (DEFCLASS* SORTED-LIST-CONTAINER ...)
; compiling (DEFMETHOD SET-DIRTY-FLAG ...)
; compiling (DEFMETHOD CLEAN-UP ...)
; compiling (DEFMETHOD INSERT-LIST ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD DELETE-FIRST ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD PRINT-CONTAINER ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
; compiling (DEFMETHOD ENSURE-SORTED ...)
; compiling (DEFMETHOD FORCE-SORT ...)
; compiling (DEFCLASS* DLIST-CONTAINER-NODE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCLASS* DLIST-CONTAINER ...)
; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD INSERT-ITEM-AFTER ...)
; compiling (DEFMETHOD INSERT-ITEM-AFTER ...)
; compiling (DEFMETHOD INSERT-ITEM-AFTER ...)
; compiling (DEFMETHOD INSERT-ITEM-AFTER ...)
; compiling (DEFMETHOD INSERT-ITEM-BEFORE ...)
; compiling (DEFMETHOD INSERT-ITEM-BEFORE ...)
; compiling (DEFMETHOD INSERT-ITEM-BEFORE ...)
; compiling (DEFMETHOD DELETE-ITEM-AFTER ...)
; compiling (DEFMETHOD DELETE-ITEM-BEFORE ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD REPLACE-ITEM ...)
; compiling (DEFMETHOD REPLACE-ITEM ...)
; compiling (DEFMETHOD SUCCESSOR ...)
; compiling (DEFMETHOD PREDECESSOR ...)
; compiling (DEFCLASS* SORTED-DLIST-CONTAINER ...)
; compiling (DEFMETHOD ITERATE-NODES-ABOUT-NODE ...)
; compiling (DEFMETHOD ITERATE-NODES-ABOUT-NODE ...)
; compiling (DEFMETHOD ITERATE-NODES-ABOUT-NODE ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ...)
; compiling (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ...)
; compiling (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ...)
; compiling (DEFMETHOD INSERT-ITEM-ORDERED ...)
; compiling (DEFMETHOD INSERT-ITEM-ORDERED ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD FORCE-SORT ...)
; compiling (DEFMETHOD ENSURE-SORTED ...)
; compiling (DEFMETHOD LEFT-NODE-FOR-ITEM ...)
; compiling (DEFMETHOD RIGHT-NODE-FOR-ITEM ...)
; compiling (DEFMETHOD LEFT-AND-RIGHT-NODES-FOR-ITEM ...)
; compiling (DEFMETHOD ITERATE-LEFT-NODES ...)
; compiling (DEFMETHOD ITERATE-LEFT-NODES ...)
; compiling (DEFMETHOD ITERATE-LEFT-NODES ...)
; compiling (DEFMETHOD ITERATE-RIGHT-NODES ...)
; compiling (DEFMETHOD ITERATE-RIGHT-NODES ...)
; compiling (DEFMETHOD ITERATE-RIGHT-NODES ...)
; compiling (DEFMETHOD ITERATE-LEFT ...)
; compiling (DEFMETHOD ITERATE-LEFT ...)
; compiling (DEFMETHOD ITERATE-LEFT ...)
; compiling (DEFMETHOD ITERATE-RIGHT ...)
; compiling (DEFMETHOD ITERATE-RIGHT ...)
; compiling (DEFMETHOD ITERATE-RIGHT ...)
; compiling (DEFMETHOD SORT-UPDATE-LEFT ...)
; compiling (DEFMETHOD SORT-UPDATE-RIGHT ...)
; compiling (DEFMETHOD UPDATE-ITEM ...)
; compiling (DEFMETHOD UPDATE-ITEM ...)
; compiling (DEFMETHOD UPDATE-ITEM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/lists.fasl written
; compilation finished in 0:00:11
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/bags-and-sets.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* ABSTRACT-BAG/SET-CONTAINER ...)
; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; compiling (DEFCLASS* BAG-CONTAINER ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
; compiling (DEFMETHOD SEARCH-FOR-MATCH ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFCLASS* SET-CONTAINER ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFCLASS* BAG/SET-CONTAINER ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFMETHOD FIND-VALUE ...)
; compiling (DEFCLASS* KEYED-BAG/SET-CONTAINER ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/bags-and-sets.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/ring-buffers.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* RING-BUFFER ...)
; compiling (DEFUN MAKE-RING-BUFFER ...)
; compiling (DEFMETHOD MAKE-CONTAINER ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFMETHOD INCREMENT-END ...)
; compiling (DEFMETHOD NEXT-ITEM ...)
; compiling (DEFMETHOD CURRENT-ITEM ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD DELETE-FIRST ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/ring-buffers.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/miscellaneous.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFUN MERGE-ELEMENTS ...)
; compiling (DEFUN MERGE-NODES ...)
; compiling (DEFUN %MERGE-HELPER ...)
; compiling (DEFUN ELEMENT-COUNTS ...)
; compiling (DEFUN NODE-COUNTS ...)
; compiling (DEFUN %CONTAINER-COUNTS ...)
; compiling (DEFUN MAP-WINDOW-OVER-ELEMENTS ...)
; compiling (DEFUN MAP-WINDOW-OVER-NODES ...)
; compiling (DEFUN COLLECT-WINDOW-OVER-ELEMENTS ...)
; compiling (DEFUN COLLECT-WINDOW-OVER-NODES ...)
; compiling (DEFUN MAP-WINDOW-OVER-ELEMENTS-HELPER ...)
; compiling (DEFUN MAP-PAIRS ...)
; compiling (DEFUN COLLECT-PAIRS ...)
; compiling (DEFMETHOD UNIQUE-ELEMENTS ...)
; compiling (DEFMETHOD UNIQUE-ELEMENTS ...)
; compiling (DEFMETHOD UNIQUE-NODES ...)
; compiling (DEFMETHOD UNIQUE-NODES ...)
; compiling (DEFUN %UNIQUE-ELEMENTS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/miscellaneous.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/associative.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* ASSOCIATIVE-CONTAINER-MIXIN ...)
; compiling (DEFMETHOD SOME-KEY-VALUE-P ...)
; compiling (DEFMETHOD EVERY-KEY-VALUE-P ...)
; compiling (DEFMETHOD SAMEP ...)
; compiling (DEFMETHOD COLLECT-KEYS ...)
; compiling (DEFMETHOD SEARCH-FOR-KEY ...)
; compiling (DEFMETHOD REMOVE-ITEMS-IF ...)
; compiling (DEFMETHOD REMOVE-ITEMS-IF ...)
; compiling (DEFMETHOD COUNT-ITEMS ...)
; compiling (DEFMETHOD COUNT-ELEMENTS ...)
; compiling (DEFMETHOD COUNT-ELEMENTS ...)
; compiling (DEFMETHOD COUNT-ELEMENTS-IF ...)
; compiling (DEFMETHOD COUNT-ELEMENTS-IF ...)
; compiling (DEFCLASS* ARRAY-CONTAINER-ABSTRACT ...)
; compiling (DEFCLASS* ARRAY-CONTAINER ...)
; compiling (DEFMETHOD PRINT-CONTAINER-SUMMARY ...)
; compiling (DEFUN MAKE-ARRAY-CONTAINER ...)
; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; compiling (DEFMETHOD MAKE-CONTAINER ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFMETHOD DIMENSIONS ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD NTH-ELEMENT ...)
; compiling (DEFCLASS* SPARSE-ARRAY-CONTAINER ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; compiling (DEFMETHOD TOTAL-SIZE ...)
; compiling (DEFUN SPARSE-ARRAY-ROW-MAJOR-INDEX ...)
; compiling (DEFUN SPARSE-ARRAY-VALUE-TO-INDEX ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFCLASS* SIMPLE-ASSOCIATIVE-CONTAINER ...)
; compiling (DEFMETHOD ITEM-AT-1 ...)
; compiling (DEFMETHOD ITEM-AT-1! ...)
; compiling (DEFMETHOD (SETF ITEM-AT-1) ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFMETHOD DELETE-ITEM-AT ...)
; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
; compiling (DEFCLASS* ASSOCIATIVE-CONTAINER ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD DELETE-ITEM-AT ...)
; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
; compiling (DEFUN DESCEND-HT ...)
; compiling (DEFUN FIND-OR-CREATE-HT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFMETHOD PRINT-CONTAINER ...)
; compiling (DEFMETHOD PRINT-CONTAINER ...)
; compiling (DEFCLASS* BIASSOCIATIVE-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* ALIST-CONTAINER ...)
; compiling (DEFMETHOD INITIALIZE-CONTAINER ...)
; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT-1 ...)
; compiling (DEFMETHOD ITEM-AT-1! ...)
; compiling (DEFUN MAYBE-SET-INITIAL-ELEMENT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFMETHOD DELETE-ITEM-AT ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD ITERATE-KEYS ...)
; compiling (DEFMETHOD REVERSE-FIND ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
; compiling (DEFMETHOD SORT-KEYS ...)
; compiling (DEFMETHOD SORT-ELEMENTS ...)
; compiling (DEFMETHOD SORT-CONTAINER ...)
; compiling (DEFCLASS* KEYED-ASSOCIATIVE-CONTAINER ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFUN IDENTITY-2 ...)
; compiling (DEFMETHOD ITEM-KEY ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD DELETE-ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFGENERIC KEY-EXISTS-P ...)
; compiling (DEFMETHOD KEY-EXISTS-P ...)
; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/associative.fasl written
; compilation finished in 0:00:09
STYLE-WARNING: implicitly creating new generic function SOME-KEY-VALUE-P
STYLE-WARNING: implicitly creating new generic function EVERY-KEY-VALUE-P
STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-KEY
STYLE-WARNING: implicitly creating new generic function REMOVE-ITEMS-IF
STYLE-WARNING: implicitly creating new generic function COUNT-ITEMS
STYLE-WARNING: implicitly creating new generic function COUNT-ELEMENTS
STYLE-WARNING: implicitly creating new generic function COUNT-ELEMENTS-IF
STYLE-WARNING: implicitly creating new generic function PRINT-CONTAINER-SUMMARY
STYLE-WARNING: implicitly creating new generic function ITEM-AT-1
STYLE-WARNING: implicitly creating new generic function ITEM-AT-1!
STYLE-WARNING: implicitly creating new generic function (SETF ITEM-AT-1)
STYLE-WARNING: implicitly creating new generic function DELETE-ITEM-AT
STYLE-WARNING: implicitly creating new generic function INITIALIZE-CONTAINER
STYLE-WARNING: implicitly creating new generic function SORT-KEYS
STYLE-WARNING: implicitly creating new generic function SORT-CONTAINER
STYLE-WARNING: implicitly creating new generic function ITEM-KEY
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/compatibility.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFMETHOD ITERATABLE-P ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
; compiling (DEFMETHOD ELEMENT-POSITION ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD LAST-ELEMENT ...)
; compiling (DEFMETHOD (SETF LAST-ELEMENT) ...)
; compiling (DEFMETHOD NTH-ELEMENT ...)
; compiling (DEFMETHOD SEARCH-FOR-MATCH ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
; compiling (DEFMETHOD SEARCH-FOR-ELEMENT ...)
; compiling (DEFMETHOD REDUCE-ELEMENTS ...)
; compiling (DEFMETHOD SOME-ITEM-P ...)
; compiling (DEFMETHOD SOME-ELEMENT-P ...)
; compiling (DEFMETHOD EVERY-ITEM-P ...)
; compiling (DEFMETHOD EVERY-ELEMENT-P ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD ITERATABLE-P ...)
; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD LAST-ELEMENT ...)
; compiling (DEFMETHOD (SETF LAST-ELEMENT) ...)
; compiling (DEFMETHOD SEARCH-FOR-MATCH ...)
; compiling (DEFMETHOD SOME-ITEM-P ...)
; compiling (DEFMETHOD SOME-ELEMENT-P ...)
; compiling (DEFMETHOD EVERY-ITEM-P ...)
; compiling (DEFMETHOD EVERY-ELEMENT-P ...)
; compiling (DEFMETHOD SORT-ELEMENTS ...)
; compiling (DEFMETHOD NTH-ELEMENT ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD ITERATABLE-P ...)
; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD LAST-ELEMENT ...)
; compiling (DEFMETHOD (SETF LAST-ELEMENT) ...)
; compiling (DEFMETHOD SEARCH-FOR-MATCH ...)
; compiling (DEFMETHOD SOME-ELEMENT-P ...)
; compiling (DEFMETHOD EVERY-ELEMENT-P ...)
; compiling (DEFMETHOD NTH-ELEMENT ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFMETHOD ITERATABLE-P ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
; compiling (DEFMETHOD COLLECT-KEYS ...)
; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFMETHOD ITEM-AT-1 ...)
; compiling (DEFMETHOD ITEM-AT-1! ...)
; compiling (DEFMETHOD PRINT-CONTAINER ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT-1 ...)
; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
; compiling (DEFMETHOD COLLECT-KEY-VALUE ...)
; compiling (DEFMETHOD DELETE-ITEM-AT ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/compatibility.fasl written
; compilation finished in 0:00:09
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/vectors.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* VECTOR-CONTAINER-MIXIN ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFMETHOD NTH-ELEMENT ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD LAST-ELEMENT ...)
; compiling (DEFMETHOD (SETF LAST-ELEMENT) ...)
; compiling (DEFCLASS* BASIC-VECTOR-CONTAINER ...)
; compiling (DEFCLASS* BOUNDED-VECTOR-CONTAINER ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFCLASS* VECTOR-CONTAINER ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD INSERT-ITEM-AT ...)
; compiling (DEFMETHOD DELETE-ITEM-AT ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-FIRST ...)
; compiling (DEFMETHOD DELETE-LAST ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFCLASS* FLEXIBLE-VECTOR-CONTAINER ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFUN RESIZE-VECTOR ...)
; compiling (DEFMETHOD SAMEP ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/vectors.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/quad-tree.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* QUAD-TREE ...)
; compiling (DEFCLASS* FOUR-CHILD-NODE ...)
; compiling (DEFCLASS* QUAD-TREE-NODE ...)
; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; compiling (DEFMETHOD NODE-EMPTY-P ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFGENERIC NOTIFY-ELEMENT-OF-CHILD-STATUS ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/quad-tree.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/heaps.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* HEAP-CONTAINER ...)
; compiling (DEFCLASS* HEAP-NODE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD L-CHILD ...)
; compiling (DEFMETHOD R-CHILD ...)
; compiling (DEFMETHOD HEAP-NODE-PARENT ...)
; compiling (DEFMETHOD L-CHILD-INDEX ...)
; compiling (DEFMETHOD R-CHILD-INDEX ...)
; compiling (DEFMETHOD NODE-PARENT-INDEX ...)
; compiling (DEFMETHOD EXCHANGE-HEAP-NODES ...)
; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; compiling (DEFMETHOD HEAPIFY ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD BIGGEST-ITEM ...)
; compiling (DEFMETHOD DELETE-BIGGEST-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFCLASS* K-BEST-HEAP-CONTAINER ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/heaps.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/container-mixins.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* FILTERED-CONTAINER-MIXIN ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/container-mixins.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/union-find-container.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* UNION-FIND-NODE ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD MAKE-SET ...)
; compiling (DEFMETHOD GRAFT-NODES ...)
; compiling (DEFMETHOD FIND-SET ...)
; compiling (DEFMETHOD LINK-NODES ...)
; compiling (DEFCLASS* UNION-FIND-CONTAINER ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD REPRESENTATIVE ...)
; compiling (DEFMETHOD REPRESENTATIVE-NODE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/union-find-container.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/package-container.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* PACKAGE-CONTAINER ...)
; compiling (DEFMETHOD (SETF PACKAGES) ...)
; compiling (DEFMETHOD (SETF PACKAGES) ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFUN BOUND-SYMBOLS-IN-PACKAGE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/package-container.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/iterator-api.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFGENERIC PRINT-ITERATOR ...)
; compiling (DEFGENERIC MOVE-P ...)
; compiling (DEFGENERIC ELEMENT-PASSES-P ...)
; compiling (DEFGENERIC MOVE ...)
; compiling (DEFGENERIC BASE-CLASS-FOR-ITERATEE ...)
; compiling (DEFGENERIC CLASS-FOR-CONTENTS-AS ...)
; compiling (DEFGENERIC CURRENT-ELEMENT ...)
; compiling (DEFGENERIC INCLUDE-CLASS-DEPENDENCIES ...)
; compiling (DEFGENERIC EXISTING-SUBCLASS ...)
; compiling (DEFGENERIC SETUP-INITIAL-CONTAINER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/iterator-api.fasl written
; compilation finished in 0:00:00
STYLE-WARNING: redefining INCLUDE-CLASS-DEPENDENCIES in DEFGENERIC
STYLE-WARNING: redefining EXISTING-SUBCLASS in DEFGENERIC
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/iterators.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCONSTANT +ITERATOR-BEFORE-BEGINNING+ ...)
; compiling (DEFCONSTANT +ITERATOR-AFTER-END+ ...)
; compiling (DEFCONDITION BASIC-ITERATOR-CONDITION ...)
; compiling (DEFCONDITION NO-CURRENT-ELEMENT-ERROR ...)
; compiling (DEFCLASS* ABSTRACT-GENERATOR ...)
; compiling (DEFCLASS* BASIC-ITERATOR ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD SETUP-INITIAL-CONTAINER ...)
; compiling (DEFMETHOD PRINT-ITERATOR ...)
; compiling (DEFMETHOD RESET ...)
; compiling (DEFMETHOD MOVE-P ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-ITERATOR ...)
; compiling (DEFCLASS* FORWARD-ITERATOR ...)
; compiling (DEFMETHOD ITERATE-CONTAINER ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD ELEMENT ...)
; compiling (DEFMETHOD NEXT-ELEMENT ...)
; compiling (DEFMETHOD CURRENT-ELEMENT-P ...)
; compiling (DEFMETHOD ELEMENT ...)
; compiling (DEFMETHOD MOVE ...)
; compiling (DEFUN MOVE-FORWARD-P ...)
; compiling (DEFMETHOD MOVE-FORWARD ...)
; compiling (DEFMETHOD ITERATE-FORWARD ...)
; compiling (DEFCLASS* TRANSFORMING-ITERATOR-MIXIN ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :ITERATOR ...)
; compiling (DEFMETHOD CURRENT-ELEMENT ...)
; compiling (DEFMETHOD MOVE ...)
; compiling (DEFCLASS* BASIC-FILTERED-ITERATOR-MIXIN ...)
; compiling (DEFMETHOD MOVE ...)
; compiling (DEFCLASS* FILTERED-ITERATOR-MIXIN ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :ITERATOR ...)
; compiling (DEFMETHOD ELEMENT-PASSES-P ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD MOVE-FORWARD-TO-NEXT-ELEMENT ...)
; compiling (DEFCLASS* UNIQUE-VALUE-ITERATOR-MIXIN ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :ITERATOR ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD ELEMENT-PASSES-P ...)
; compiling (DEFMETHOD ELEMENT ...)
; compiling (DEFCLASS* CIRCULAR-ITERATOR-MIXIN ...)
; compiling (DEFMETHOD MOVE-P ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :ITERATOR ...)
; compiling (DEFCLASS* LIST-ITERATOR ...)
; compiling (DEFMETHOD RESET ...)
; compiling (DEFMETHOD MOVE ...)
; compiling (DEFMETHOD CURRENT-ELEMENT ...)
; compiling (DEFMETHOD MOVE-P ...)
; compiling (DEFCLASS* ARRAY-ITERATOR ...)
; compiling (DEFMETHOD RESET ...)
; compiling (DEFMETHOD MOVE ...)
; compiling (DEFMETHOD CURRENT-ELEMENT ...)
; compiling (DEFMETHOD MOVE-P ...)
; compiling (DEFCLASS* HASH-TABLE-ITERATOR ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD RESET ...)
; compiling (DEFVAR *CURRENT-ITERATEE* ...)
; compiling (DEFUN DETERMINE-ITERATOR-CLASS ...)
; compiling (DEFUN MAKE-ITERATOR ...)
; compiling (DEFMETHOD CLASS-FOR-CONTENTS-AS ...)
; compiling (DEFMETHOD INCLUDE-CLASS-DEPENDENCIES ...)
; compiling (DEFMETHOD EXISTING-SUBCLASS ...)
; compiling (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...)
; compiling (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...)
; compiling (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...)
; compiling (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...)
; compiling (DEFUN DETERMINE-GENERATOR-CLASS ...)
; compiling (DEFUN MAKE-GENERATOR ...)
; compiling (DEFMETHOD INCLUDE-CLASS-DEPENDENCIES ...)
; compiling (DEFMETHOD EXISTING-SUBCLASS ...)
; compiling (DEFCLASS* BASIC-GENERATOR ...)
; compiling (DEFCLASS* ARITHMETIC-SEQUENCE-GENERATOR ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (ADD-DYNAMIC-CLASS-FOR-PARAMETERS :GENERATOR ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...)
; compiling (DEFMETHOD MOVE ...)
; compiling (DEFMETHOD MOVE-P ...)
; compiling (DEFMETHOD CURRENT-ELEMENT ...)
; compiling (DEFCLASS* FINITE-ARITHMETIC-SEQUENCE-GENERATOR ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...)
; compiling (DEFMETHOD MOVE-P ...)
; compiling (DEFUN MAP-CONTAINERS ...)
; compiling (DEFUN COLLECT-CONTAINERS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/iterators.fasl written
; compilation finished in 0:00:08
STYLE-WARNING: implicitly creating new generic function NEXT-ELEMENT
STYLE-WARNING: implicitly creating new generic function CURRENT-ELEMENT-P
STYLE-WARNING: implicitly creating new generic function MOVE-FORWARD
STYLE-WARNING: implicitly creating new generic function ITERATE-FORWARD
STYLE-WARNING:
implicitly creating new generic function MOVE-FORWARD-TO-NEXT-ELEMENT
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/file-iterators.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* BASIC-STREAM-ITERATOR ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD OPEN-FILE-FOR-ITERATOR ...)
; compiling (DEFMETHOD OPEN-FILE-FOR-ITERATOR ...)
; compiling (DEFMETHOD OPEN-FILE-FOR-ITERATOR ...)
; compiling (DEFCLASS* FILE-ITERATOR ...)
; compiling (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...)
; compiling (DEFMETHOD MOVE ...)
; compiling (DEFMETHOD ADVANCE ...)
; compiling (DEFMETHOD CURRENT-ELEMENT ...)
; compiling (DEFMETHOD CURRENT-ELEMENT-P ...)
; compiling (DEFMETHOD MOVE-P ...)
; compiling (DEFCLASS* FILE-LINE-ITERATOR ...)
; compiling (DEFMETHOD MOVE ...)
; compiling (DEFMETHOD ADVANCE ...)
; compiling (DEFMETHOD CURRENT-ELEMENT ...)
; compiling (DEFMETHOD CURRENT-ELEMENT-P ...)
; compiling (DEFMETHOD MOVE-P ...)
; compiling (DEFMETHOD CLASS-FOR-CONTENTS-AS ...)
; compiling (DEFCLASS* DELIMITED-ITERATOR ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD CHECK-DELIMITER ...)
; compiling (DEFMETHOD MOVE ...)
; compiling (DEFMETHOD ADVANCE ...)
; compiling (DEFMETHOD CURRENT-ELEMENT ...)
; compiling (DEFMETHOD CURRENT-ELEMENT-P ...)
; compiling (DEFMETHOD MOVE-P ...)
; compiling (DEFCLASS* WORD-ITERATOR ...)
; compiling (DEFCLASS* LINE-ITERATOR ...)
; compiling (DEFMETHOD CLASS-FOR-CONTENTS-AS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/file-iterators.fasl written
; compilation finished in 0:00:03
STYLE-WARNING: redefining BEST-ITEM in DEFGENERIC
STYLE-WARNING: redefining ARGMAX in DEFGENERIC
STYLE-WARNING: redefining ARGMIN in DEFGENERIC
STYLE-WARNING: redefining MAKE-NODE-FOR-CONTAINER in DEFGENERIC
STYLE-WARNING: redefining SIZE in DEFGENERIC
STYLE-WARNING: redefining EMPTY! in DEFGENERIC
STYLE-WARNING: redefining SOME-ITEM-P in DEFGENERIC
STYLE-WARNING: redefining EVERY-ITEM-P in DEFGENERIC
STYLE-WARNING: redefining MAKE-CONTAINER-FOR-CONTENTS in DEFGENERIC
STYLE-WARNING: redefining NTH-ELEMENT in DEFGENERIC
STYLE-WARNING: redefining TOTAL-SIZE in DEFGENERIC
STYLE-WARNING: redefining ITEM-AT in DEFGENERIC
STYLE-WARNING: redefining ITEM-AT! in DEFGENERIC
STYLE-WARNING: redefining FIND-ITEM in DEFGENERIC
STYLE-WARNING: redefining FIND-ELEMENT in DEFGENERIC
STYLE-WARNING: redefining SEARCH-FOR-ITEM in DEFGENERIC
STYLE-WARNING: redefining SEARCH-FOR-MATCH in DEFGENERIC
STYLE-WARNING: redefining ITERATE-NODES in DEFGENERIC
STYLE-WARNING: redefining PRINT-CONTAINER in DEFGENERIC
STYLE-WARNING: redefining COLLECT-NODES in DEFGENERIC
STYLE-WARNING: redefining COLLECT-ELEMENTS in DEFGENERIC
STYLE-WARNING: redefining COLLECT-KEY-VALUE in DEFGENERIC
STYLE-WARNING: redefining COLLECT-KEYS in DEFGENERIC
STYLE-WARNING: redefining ITERATE-KEY-VALUE in DEFGENERIC
STYLE-WARNING: redefining FIRST-ELEMENT in DEFGENERIC
STYLE-WARNING: redefining LAST-ELEMENT in DEFGENERIC
STYLE-WARNING: redefining INSERT-ITEM in DEFGENERIC
STYLE-WARNING: redefining APPEND-ITEM in DEFGENERIC
STYLE-WARNING: redefining INSERT-NEW-ITEM in DEFGENERIC
STYLE-WARNING: redefining APPEND-NEW-ITEM in DEFGENERIC
STYLE-WARNING: redefining INSERT-SEQUENCE in DEFGENERIC
STYLE-WARNING: redefining INSERT-LIST in DEFGENERIC
STYLE-WARNING: redefining DELETE-LIST in DEFGENERIC
STYLE-WARNING: redefining REVERSE-FIND in DEFGENERIC
STYLE-WARNING: redefining REMOVE-ITEMS-IF in DEFGENERIC
STYLE-WARNING: redefining ELEMENT-POSITION in DEFGENERIC
STYLE-WARNING: redefining DELETE-ITEM in DEFGENERIC
STYLE-WARNING: redefining DELETE-ITEM-IF in DEFGENERIC
STYLE-WARNING: redefining REVERSE-CONTAINER in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function ERROR-IF-QUEUE-EMPTY
STYLE-WARNING: implicitly creating new generic function DELETE-NODE
STYLE-WARNING: implicitly creating new generic function PUSH-ITEM
STYLE-WARNING: implicitly creating new generic function ITERATE-CHILDREN
STYLE-WARNING: implicitly creating new generic function HAS-CHILDREN-P
STYLE-WARNING: implicitly creating new generic function FIND-CHILD-NODE
STYLE-WARNING: implicitly creating new generic function INORDER-WALK
STYLE-WARNING: implicitly creating new generic function PREORDER-WALK
STYLE-WARNING: implicitly creating new generic function POSTORDER-WALK
STYLE-WARNING: implicitly creating new generic function INORDER-WALK-NODES
STYLE-WARNING: implicitly creating new generic function PREORDER-WALK-NODES
STYLE-WARNING: implicitly creating new generic function POSTORDER-WALK-NODES
STYLE-WARNING: implicitly creating new generic function WALK-TREE
STYLE-WARNING: implicitly creating new generic function WALK-TREE-NODES
STYLE-WARNING: implicitly creating new generic function ROTATE-LEFT
STYLE-WARNING: implicitly creating new generic function ROTATE-RIGHT
STYLE-WARNING: implicitly creating new generic function RB-DELETE-FIXUP
STYLE-WARNING: implicitly creating new generic function HEIGHT
STYLE-WARNING: implicitly creating new generic function UPDATE-ELEMENT
STYLE-WARNING: implicitly creating new generic function SET-DIRTY-FLAG
STYLE-WARNING: implicitly creating new generic function CLEAN-UP
STYLE-WARNING: implicitly creating new generic function INSERT-ITEM-AFTER
STYLE-WARNING: implicitly creating new generic function INSERT-ITEM-BEFORE
STYLE-WARNING: implicitly creating new generic function DELETE-ITEM-AFTER
STYLE-WARNING: implicitly creating new generic function DELETE-ITEM-BEFORE
STYLE-WARNING: implicitly creating new generic function REPLACE-ITEM
STYLE-WARNING: implicitly creating new generic function ITERATE-NODES-ABOUT-NODE
STYLE-WARNING:
implicitly creating new generic function INSERT-ITEM-ORDERED-ABOUT-NODE
STYLE-WARNING: implicitly creating new generic function INSERT-ITEM-ORDERED
STYLE-WARNING: implicitly creating new generic function LEFT-NODE-FOR-ITEM
STYLE-WARNING: implicitly creating new generic function RIGHT-NODE-FOR-ITEM
STYLE-WARNING:
implicitly creating new generic function LEFT-AND-RIGHT-NODES-FOR-ITEM
STYLE-WARNING: implicitly creating new generic function ITERATE-LEFT-NODES
STYLE-WARNING: implicitly creating new generic function ITERATE-RIGHT-NODES
STYLE-WARNING: implicitly creating new generic function ITERATE-LEFT
STYLE-WARNING: implicitly creating new generic function ITERATE-RIGHT
STYLE-WARNING: implicitly creating new generic function SORT-UPDATE-LEFT
STYLE-WARNING: implicitly creating new generic function SORT-UPDATE-RIGHT
STYLE-WARNING: implicitly creating new generic function UPDATE-ITEM
STYLE-WARNING: implicitly creating new generic function INCREMENT-END
STYLE-WARNING: implicitly creating new generic function CURRENT-ITEM
STYLE-WARNING: implicitly creating new generic function INSERT-ITEM-AT
STYLE-WARNING: implicitly creating new generic function L-CHILD
STYLE-WARNING: implicitly creating new generic function R-CHILD
STYLE-WARNING: implicitly creating new generic function HEAP-NODE-PARENT
STYLE-WARNING: implicitly creating new generic function L-CHILD-INDEX
STYLE-WARNING: implicitly creating new generic function R-CHILD-INDEX
STYLE-WARNING: implicitly creating new generic function NODE-PARENT-INDEX
STYLE-WARNING: implicitly creating new generic function EXCHANGE-HEAP-NODES
STYLE-WARNING: implicitly creating new generic function HEAPIFY
STYLE-WARNING: implicitly creating new generic function BIGGEST-ITEM
STYLE-WARNING: implicitly creating new generic function DELETE-BIGGEST-ITEM
STYLE-WARNING: implicitly creating new generic function MAKE-SET
STYLE-WARNING: implicitly creating new generic function GRAFT-NODES
STYLE-WARNING: implicitly creating new generic function FIND-SET
STYLE-WARNING: implicitly creating new generic function LINK-NODES
STYLE-WARNING: implicitly creating new generic function REPRESENTATIVE
STYLE-WARNING: implicitly creating new generic function REPRESENTATIVE-NODE
STYLE-WARNING: implicitly creating new generic function (SETF PACKAGES)
STYLE-WARNING: implicitly creating new generic function OPEN-FILE-FOR-ITERATOR
STYLE-WARNING: implicitly creating new generic function ADVANCE
STYLE-WARNING: implicitly creating new generic function CHECK-DELIMITER
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/utilities-integration.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (MAKE-LOAD-FORM* ABSTRACT-CONTAINER)
; compiling (MAKE-LOAD-FORM* CONTAINER-NODE-MIXIN)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/utilities-integration.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/package-additional.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (EXPORT-EXPORTED-SYMBOLS (QUOTE METABANG.BIND) ...)
; compiling (SHADOWING-IMPORT (QUOTE #) ...)
; compiling (SHADOWING-IMPORT (QUOTE #) ...)
; compiling (SHADOWING-IMPORT (QUOTE #) ...)
; compiling (USE-PACKAGE (QUOTE CL-FAD) ...)
; compiling (EXPORT-EXPORTED-SYMBOLS (QUOTE CONTAINERS) ...)
; compiling (MAKE-LOAD-FORM* METABANG.CL-CONTAINERS::BST-NODE)
; compiling (MAKE-LOAD-FORM* METABANG.CL-CONTAINERS::QUAD-TREE-NODE)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/package-additional.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/anaphoric.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFMACRO AIF ...)
; compiling (DEFMACRO AWHEN ...)
; compiling (DEFMACRO AWHILE ...)
; compiling (DEFMACRO AAND ...)
; compiling (DEFMACRO ACOND ...)
; compiling (DEFMACRO ALAMBDA ...)
; compiling (DEFMACRO ABLOCK ...)
; compiling (DEFMACRO AIF2 ...)
; compiling (DEFMACRO AWHEN2 ...)
; compiling (DEFMACRO AWHILE2 ...)
; compiling (DEFMACRO ACOND2 ...)
; compiling (DEFMACRO APROG1 ...)
; compiling (DEFMACRO ATYPECASE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/anaphoric.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/graham.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFUN MOST ...)
; compiling (DEFUN BEST ...)
; compiling (DEFUN MOSTN ...)
; compiling (DEFUN MAP0-N ...)
; compiling (DEFUN MAP1-N ...)
; compiling (DEFUN MAPA-B ...)
; compiling (DEFUN MAP-> ...)
; compiling (DEFUN MAPCARS ...)
; compiling (DEFUN FILTER-VALUES ...)
; compiling (DEFMACRO WITH-GENSYMS ...)
; compiling (DEFMACRO ALLF ...)
; compiling (DEFMACRO NILF ...)
; compiling (DEFMACRO TF ...)
; compiling (DEFMACRO TOGGLE! ...)
; compiling (DEFINE-MODIFY-MACRO TOGGLE-AUX ...)
; compiling (DEFINE-MODIFY-MACRO CONCF ...)
; compiling (DEFMACRO FN ...)
; compiling (DEFUN RBUILD ...)
; compiling (DEFUN BUILD-CALL ...)
; compiling (DEFUN BUILD-COMPOSE ...)
; compiling (DEFMACRO WITH-MATRIX ...)
; compiling (DEFMACRO WITH-ARRAY ...)
; compiling (DEFMACRO WITH-STRUCT ...)
; compiling (DEFUN MATCH ...)
; compiling (DEFUN VARSYM? ...)
; compiling (DEFUN BINDING ...)
; compiling (DEFMACRO IF-MATCH ...)
; compiling (DEFUN VARS-IN ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/graham.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/dates-and-times.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFCONSTANT +MINUTES-PER-HOUR+ ...)
; compiling (DEFCONSTANT +SECONDS-PER-MINUTE+ ...)
; compiling (DEFCONSTANT +USUAL-DAYS-PER-YEAR+ ...)
; compiling (DEFCONSTANT +SECONDS-PER-HOUR+ ...)
; compiling (DEFPARAMETER +MONTH-LIST+ ...)
; compiling (DEFPARAMETER +DAY-LIST+ ...)
; compiling (DEFPARAMETER +FLUFF-LIST+ ...)
; compiling (DEFCONSTANT +LONGER-FORMAT-INDEX+ ...)
; compiling (DEFCONSTANT +SHORTER-FORMAT-INDEX+ ...)
; compiling (DEFPARAMETER +MONTH-OUTPUT-LIST+ ...)
; compiling (DEFPARAMETER +DOW-OUTPUT-LIST ...)
; compiling (DEFPARAMETER +DAYS-PER-MONTH+ ...)
; compiling (DEFUN DAY->STRING ...)
; compiling (DEFUN MONTH->STRING ...)
; compiling (DEFUN STRING->MONTH ...)
; compiling (DEFUN PRINT-DATE ...)
; compiling (DEFUN DATE-STRING ...)
; compiling (DEFUN DATE-STRING-BRIEF ...)
; compiling (DEFUN PRINT-TIME-WITH-NO-COLONS ...)
; compiling (DEFUN PRINT-TIME ...)
; compiling (DEFUN PRINT-UNIVERSAL-TIME-WITH-NO-COLONS ...)
; compiling (DEFUN PRINT-UNIVERSAL-TIME ...)
; compiling (DEFUN TIME-STRING ...)
; compiling (DEFUN TIME-STRING-WITH-NO-COLONS ...)
; compiling (DEFUN DATE-AND-TIME-STRING ...)
; compiling (DECLAIM (INLINE MONTH-OK-P ...))
; compiling (DEFUN NTH-OK-P ...)
; compiling (DEFUN MONTH-OK-P ...)
; compiling (DEFUN DAY-OK-P ...)
; compiling (DEFUN YEARP ...)
; compiling (DEFUN INDEX-OF ...)
; compiling (DEFUN TOKEN-TYPE ...)
; compiling (DEFUN READ-TIME ...)
; compiling (DEFUN READ-DATE ...)
; compiling (DEFMACRO HANDLE-TOKEN ...)
; compiling (DEFUN PARSE-DATE-AND-TIME-STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/dates-and-times.lisp
; in: DEFUN PARSE-DATE-AND-TIME-STRING
; (ERROR "unsupported reader call")
; ==>
; "unsupported reader call"
;
; note: deleting unreachable code
; compiling (DEFUN PARSE-DATE-AND-TIME ...)
; compiling (DEFUN PRINT-BRIEF-UT ...)
; compiling (DEFUN PRINT-UT ...)
; compiling (DEFUN PRINT-TIME-INTERVAL ...)
; compiling (DEFUN PRINT-BRIEF-TIME-INTERVAL ...)
; compiling (DEFUN PARSE-NUMBER ...)
; compiling (DEFVAR TIME-INTERVAL-ARRAY ...)
; compiling (DEFVAR TIME-INTERVAL-UNIT-TYPES ...)
; compiling (DEFUN TIME-INTERVAL-TO-SECONDS ...)
; compiling (DEFUN PARSE-INTERVAL-OR-NEVER ...)
; compiling (DEFUN PARSE-TIME ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/dates-and-times.lisp
; in: DEFUN PARSE-TIME
; (+ METABANG.UTILITIES:IT 4)
;
; note: deleting unreachable code
; compiling (DEFUN INIT-TIME-INTERVAL-ARRAY ...)
; compiling (INIT-TIME-INTERVAL-ARRAY)
; compiling (DEFUN PRINT-UNIVERSAL-DATE-VERBOSE ...)
; compiling (DEFUN PRINT-DATE-VERBOSE ...)
; compiling (EVAL-ALWAYS (DEFMACRO GENERATE-TIME-PART-FUNCTION ...) ...)
; compiling (DEFUN FORMAT-DATE ...)
; compiling (DEFUN DAYS-IN-MONTH ...)
; compiling (DEFUN LEAP-YEAR-P ...)
; compiling (DEFUN DAY-OF-YEAR ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/dates-and-times.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/files.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFCONSTANT +MAC-OS-FILENAME-LIMIT+ ...)
; compiling (DEFUN NICELY-FORMAT-FILENAME ...)
; compiling (DEFUN FILE-TO-LIST ...)
; compiling (DEFUN UNIQUE-FILE-NAME-FROM-DATE ...)
; compiling (DEFUN PRETTY-NAMESTRING-FROM-DATE ...)
; compiling (DEFUN EOS-NAMESTRING-FROM-DATE ...)
; compiling (DEFUN SHORT-EOS-NAMESTRING-FROM-DATE ...)
; compiling (DEFUN RENAME-FILE-IF-PRESENT ...)
; compiling (DEFGENERIC UNIQUIFY-FILE-NAME ...)
; compiling (DEFMETHOD UNIQUIFY-FILE-NAME ...)
; compiling (DEFMETHOD UNIQUIFY-FILE-NAME ...)
; compiling (DEFUN MAP-FILES ...)
; compiling (DEFMETHOD MAP-FORMS-IN-FILE ...)
; compiling (DEFGENERIC MAP-FORMS-IN-FILE ...)
; compiling (DEFMETHOD MAP-FORMS-IN-FILE ...)
; compiling (DEFMETHOD MAP-FORMS-IN-FILE ...)
; compiling (DEFMETHOD MAP-LINES-IN-FILE ...)
; compiling (DEFGENERIC MAP-LINES-IN-FILE ...)
; compiling (DEFMETHOD MAP-LINES-IN-FILE ...)
; compiling (DEFMETHOD MAP-LINES-IN-FILE ...)
; compiling (DEFMACRO MAP-LINES ...)
; compiling (DEFUN FILE-NEWER-THAN-FILE-P ...)
; compiling (DEFUN ENSURE-WILD-FILE-SPEC ...)
; compiling (DEFUN REMOVE-DEAD-VERSIONS ...)
; compiling (DEFUN FILE-PACKAGE ...)
; compiling (DEFVAR *GLU-BLAST-PATHNAME-DEFAULTS* ...)
; compiling (DEFVAR *GLU-BLAST-DEFAULT-SELECTOR* ...)
; compiling (DEFUN GLU-BLAST ...)
; compiling (DEFUN PATHNAME-IS-OLD-CVS-JUNK-P ...)
; compiling (DEFPARAMETER *FILENAME-ESCAPE-CHARACTERS* ...)
; compiling (DEFUN ENSURE-FILENAME-SAFE-FOR-OS ...)
; compiling (DEFUN GOOD-FILENAME-CHAR-P ...)
; compiling (DEFUN REMOVE-ILLEGAL-FILENAME-CHARACTERS ...)
; compiling (DEFGENERIC SHORTEN-FILENAME-FOR-OS ...)
; compiling (DEFMETHOD SHORTEN-FILENAME-FOR-OS ...)
; compiling (DEFMETHOD SHORTEN-FILENAME-FOR-OS ...)
; compiling (DEFUN MAXIMUM-FILENAME-LENGTH ...)
; compiling (DEFUN PHYSICAL-PATHNAME-DIRECTORY-SEPARATOR ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/files.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/macros.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFMACRO NYI ...)
;
; caught STYLE-WARNING:
; NYI is being redefined as a macro when it was previously assumed to be a function.
; compiling (DEFMACRO MAKE-OBSOLETE ...)
; compiling (DEFMACRO NAMED-LAMBDA ...)
; compiling (DEFMACRO DELETEF ...)
; compiling (DEFMACRO REMOVEF ...)
; compiling (DEFMACRO DOPLIST ...)
; compiling (DEFMACRO ASSERT* ...)
; compiling (DEFINE-MODIFY-MACRO MAXF ...)
; compiling (DEFINE-MODIFY-MACRO MINF ...)
; compiling (DEFINE-MODIFY-MACRO MULTF ...)
; compiling (DEFMACRO SOME* ...)
; compiling (DEFMACRO HANDLER-CASE-IF ...)
; compiling (DEFUN GENSYM* ...)
; compiling (DEFMACRO REBINDING ...)
; compiling (DEFUN FUNCTION-EXPRESSION-P ...)
; compiling (DEFUN EXTRACT-HEAD-FORM ...)
; compiling (DEFMACRO |\\| ...)
; compiling (DEFMACRO ENSURE-TYPE ...)
; compiling (DEFMACRO WITH-SLOT-BINDINGS ...)
; compiling (DEFMACRO FUNCALL-IF ...)
; compiling (DEFVAR *FILE-IF-EXISTS* ...)
; compiling (DEFVAR *FILE-PRINT-RIGHT-MARGIN* ...)
; compiling (DEFMACRO WITH-NEW-FILE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/macros.fasl written
; compilation finished in 0:00:01
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {10007FE9}> on
#<CL-SOURCE-FILE "macros" {10007FF9}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/sequences.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFUN REDUCE-IF ...)
; compiling (DEFUN MINIMIZE ...)
; compiling (DEFUN MAPCAN1 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/sequences.lisp
; in: DEFUN MAPCAN1
; (FUNCALL METABANG.UTILITIES::FUN (CAR LIST))
; --> 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.
; (FUNCALL METABANG.UTILITIES::FUN ELT)
; --> 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 FLATTEN ...)
; compiling (DEFUN POWER-SET ...)
; compiling (DEFUN ALL-PAIRS ...)
; compiling (DEFUN MAP-COMBINATIONS ...)
; compiling (DEFUN COMBINATIONS ...)
; compiling (DEFUN PERMUTE ...)
; compiling (DEFUN REMOVE-MEMBERS ...)
; compiling (DEFUN TRANSPOSE ...)
; compiling (DEFUN TRANSPOSE2 ...)
; compiling (DEFUN LIST-CHOOSE-K ...)
; compiling (DEFUN SAME-LENGTH-P ...)
; compiling (DEFUN LENGTH-EXACTLY-P ...)
; compiling (DEFUN PERCENT-OVERLAP ...)
; compiling (DEFUN ITERATE-OVER-INDEXES ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/sequences.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/spy.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFPARAMETER *SPY-DEBUGGING* ...)
; compiling (DEFPARAMETER *SPY-OUTPUT* ...)
; compiling (DEFPARAMETER *SPY-NO-NEWLINE* ...)
; compiling (DEFPARAMETER *SPY-NO-EXPAND* ...)
; compiling (DEFUN SPY-PRIN1 ...)
; compiling (DEFUN SPY-PARSE-ARGLIST ...)
; compiling (DEFUN SPY-DO-FORM ...)
; compiling (DEFUN SPY-EXPAND-FORM ...)
; compiling (DEFMACRO SPY ...)
; compiling (DEFMACRO SPY* ...)
; compiling (DEFMACRO SPYX ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/spy.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/strings.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFUN STRING-BEFORE ...)
; compiling (DEFUN STRING-AFTER ...)
; compiling (DEFUN STRING-STARTS-WITH ...)
; compiling (DEFUN STRING-ENDS-WITH ...)
; compiling (DEFUN SUBSTRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/strings.lisp
; in: DEFUN SUBSTRING
; (CHAR STRING METABANG.UTILITIES::R-INDEX)
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR-DOWNCASE METABANG.UTILITIES::C)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; compiling (DEFUN (SETF SUBSTRING) ...)
; compiling (DEFUN STRING-CONTAINS-P ...)
; compiling (DEFUN COLLECT-TO-CHAR ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/strings.lisp
; in: DEFUN COLLECT-TO-CHAR
; (POSITION CHAR
; STRING
; :START
; METABANG.UTILITIES::START
; :END
; METABANG.UTILITIES::END
; :TEST
; #'CHAR=)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; because:
; upgraded array element type not known at compile time
; compiling (DEFUN COLLECT-TO-NOT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/strings.lisp
; in: DEFUN COLLECT-TO-NOT
; (POSITION CHAR
; STRING
; :START
; METABANG.UTILITIES::START
; :END
; METABANG.UTILITIES::END
; :TEST-NOT
; #'CHAR=)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; because:
; upgraded array element type not known at compile time
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST LET LET
; --> COND IF COND IF COND IF PROGN
; ==>
; (COMPLEMENT (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-412))
;
; note: unable to open code because: The function doesn't have a fixed argument count.
; compiling (DEFUN STRING->SYMBOL ...)
; compiling (DEFUN SYMBOL->STRING ...)
; compiling (DEFUN TOKENIZE-STRING ...)
; compiling (DEFUN LIST->FORMATTED-STRING ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/strings.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/utilities.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFUN MAPAPPEND ...)
;
; caught STYLE-WARNING:
; using deprecated EVAL-WHEN situation names LOAD
; compiling (SETF (FDEFINITION #) ...)
; compiling (DEFUN TREE-MAP ...)
; compiling (DEFUN TREE-FIND ...)
; compiling (DEFUN TREE-FIND-IF ...)
; compiling (DEFUN TREE-REMOVE-IF ...)
; compiling (DEFUN PARTITION ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (DECLAIM (INLINE FIND-ALL))
; compiling (DEFUN FIND-ALL ...)
; compiling (DEFUN NMERGE-LIST ...)
; compiling (DEFUN DELETE-IF! ...)
; compiling (DEFUN COMPACT-ARRAY ...)
; compiling (DEFUN CIRCULAR-LIST ...)
; compiling (DEFUN GENSYM0 ...)
; compiling (DEFUN GROUP ...)
; compiling (DEFUN MAKE-INITIALIZED-ARRAY ...)
; compiling (DEFUN FIXNUMP ...)
; compiling (DEFUN OBJECT->STRING ...)
; compiling (DEFUN FLOAT->INTEGER ...)
; compiling (DEFUN SORT-USING-LIST-ORDER ...)
; compiling (DEFUN UNUSED-VARIABLES ...)
; compiling (DEFUN LAMBDA-LIST->ARGS ...)
; compiling (DECLAIM (INLINE CAR-SAFE))
; compiling (DEFUN CAR-SAFE ...)
; compiling (DECLAIM (INLINE CAR-SAFE))
; compiling (DEFUN CDR-SAFE ...)
; compiling (DEFPARAMETER +VERY-SMALL-NUMBER+ ...)
; compiling (DEFUN VERY-SMALL-NUMBER-P ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/utilities.lisp
; in: DEFUN VERY-SMALL-NUMBER-P
; (ABS NUMBER)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (< (ABS NUMBER) METABANG.UTILITIES:+VERY-SMALL-NUMBER+)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (ABS NUMBER)
;
; note: forced to do full call
; unable to do inline float arithmetic (cost 1) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 1) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES (REAL 0)
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; (< (ABS NUMBER) METABANG.UTILITIES:+VERY-SMALL-NUMBER+)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (OR (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; compiling (DEFUN CONVERT-CLAUSES-INTO-LISTS ...)
; compiling (DEFUN CONVERT-CLAUSES-INTO-LISTS* ...)
; compiling (DEFUN CLEANUP-PARSED-PARAMETER ...)
; compiling (DEFUN FIRSTN ...)
; compiling (DEFUN CURRY ...)
; compiling (DEFINE-COMPILER-MACRO CURRY ...)
; compiling (DEFUN CURRY-AFTER ...)
; compiling (DEFUN COMPOSE ...)
; compiling (DEFUN CONJOIN ...)
; compiling (DEFINE-COMPILER-MACRO CONJOIN ...)
; compiling (DEFUN DISJOIN ...)
; compiling (DEFINE-COMPILER-MACRO DISJOIN ...)
; compiling (DEFUN ADD-CLASSES-IF-NECESSARY ...)
; compiling (DEFUN DIRECT-SUPERCLASSES-DEFCLASS* ...)
; compiling (DEFUN SUPERCLASSES-DEFCLASS* ...)
; compiling (DEFUN ADD-CLASS-IF-NECESSARY ...)
; compiling (DEFUN REMOVE-LEADING-QUOTE ...)
; compiling (DEFUN NTH-ELT-OF-CROSS-PRODUCT ...)
; compiling (DEFUN NTH-ELT-OF-CROSS-PRODUCT-AS-MULTIPLE-VALUES ...)
; compiling (DEFUN CONSTANT-EXPRESSION-P ...)
; compiling (DEFUN CONSTANT-FUNCTION-P ...)
; compiling (DEFUN MAKE-SORTER ...)
; compiling (DEFMACRO PUSH-END ...)
;
; caught STYLE-WARNING:
; PUSH-END is being redefined as a macro when it was previously assumed to be a function.
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/utilities.fasl written
; compilation finished in 0:00:02
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {400080C1}> on
#<CL-SOURCE-FILE "utilities" {400080D1}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/searching.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFUN BINARY-SEARCH ...)
; compiling (DEFUN TREE-SEARCH ...)
; compiling (DEFUN PREPEND ...)
; compiling (DEFUN DEPTH-FIRST-SEARCH ...)
; compiling (DEFUN BREADTH-FIRST-SEARCH ...)
; compiling (DEFUN MAKE-SORTER-FN ...)
; compiling (DEFUN BEST-FIRST-SEARCH ...)
; compiling (DEFUN BEAM-SEARCH ...)
; compiling (DEFUN ITER-WIDE-SEARCH ...)
; compiling (DEFUN GRAPH-SEARCH ...)
; compiling (DEFUN NEW-STATES ...)
; compiling (DEFVAR *A*-COUNT* ...)
; compiling (DEFVAR *A*-LIMIT* ...)
; compiling (DEFUN SEARCH-ALL ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/searching.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/copy-file.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFINE-CONDITION SOURCE/TARGET-FILE-ERROR ...)
; compiling (DEFINE-CONDITION SOURCE/TARGET-TARGET-ALREADY-EXISTS-ERROR ...)
;
; caught STYLE-WARNING:
; Too many arguments (2) to FORMAT "File action failed because target ~S already exists": uses at most 1.
; See also:
; The ANSI Standard, Section 22.3.10.2
; compiling (DEFINE-CONDITION SOURCE/TARGET-SOURCE-DOES-NOT-EXIST-ERROR ...)
; compiling (DEFUN COPY-FILE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/copy-file.fasl written
; compilation finished in 0:00:00
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {400080C1}> on
#<CL-SOURCE-FILE "copy-file" {401D2819}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/views-and-windows.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFCLASS VIEW-REQUIRING-CLEANUP-MIXIN ...)
; compiling (DEFGENERIC CLEAN-UP-VIEW ...)
; compiling (DEFGENERIC UPDATE-DIALOG-UI ...)
; compiling (DEFCLASS* HELP-TEXT-MIXIN ...)
; compiling (DEFMETHOD HELP-SPEC ...)
; compiling (DEFCLASS* MARGINS-MIXIN ...)
; compiling (DEFMETHOD (SETF LEFT-MARGIN) ...)
; compiling (DEFMETHOD (SETF TOP-MARGIN) ...)
; compiling (DEFMETHOD (SETF RIGHT-MARGIN) ...)
; compiling (DEFMETHOD (SETF BOTTOM-MARGIN) ...)
; compiling (DEFMETHOD VIEW-X/VIEW-Y->X/Y ...)
; compiling (DEFMETHOD VIEW-SCALE ...)
; compiling (DEFGENERIC ADJUST-POINT-FOR-SCALING ...)
; compiling (DEFGENERIC VIEW-X/VIEW-Y->POINT ...)
; compiling (DEFGENERIC NOTE-VIEW-SETTINGS-CHANGED ...)
; compiling (DEFGENERIC REDRAW ...)
; compiling (DEFGENERIC DIALOG-ITEM-VALUE ...)
; compiling (DEFGENERIC (SETF DIALOG-ITEM-VALUE) ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/views-and-windows.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/sbcl/generic-lisp.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (SETF (DEFAULT-INTERFACE) ...)
; compiling (DEFMETHOD IS-INTERFACE-AVAILABLE-P ...)
; compiling (DEFMETHOD QUIT-LISP* ...)
; compiling (DEFMETHOD TOTAL-BYTES-ALLOCATED* ...)
; compiling (DEFMETHOD GC-TIME* ...)
; compiling (DEFMETHOD COLLECT-GARBAGE* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/sbcl/generic-lisp.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/sbcl/generic-interface-support.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFMETHOD CHOOSE-FILE-QUESTION* ...)
; compiling (DEFMETHOD CHOOSE-NEW-FILE-QUESTION* ...)
; compiling (DEFMETHOD CHOOSE-DIRECTORY-QUESTION* ...)
; compiling (DEFMETHOD INSPECT-THING* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/sbcl/generic-interface-support.fasl written
; compilation finished in 0:00:00
STYLE-WARNING: redefining TIME-SECOND in DEFUN
STYLE-WARNING: redefining TIME-MINUTE in DEFUN
STYLE-WARNING: redefining TIME-HOUR in DEFUN
STYLE-WARNING: redefining TIME-DATE in DEFUN
STYLE-WARNING: redefining TIME-MONTH in DEFUN
STYLE-WARNING: redefining TIME-YEAR in DEFUN
STYLE-WARNING: redefining TIME-DAY-OF-WEEK in DEFUN
STYLE-WARNING: redefining TIME-DAYLIGHT-SAVINGS-TIME-P in DEFUN
STYLE-WARNING: implicitly creating new generic function MAP-FORMS-IN-FILE
STYLE-WARNING: redefining MAP-FORMS-IN-FILE in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function MAP-LINES-IN-FILE
STYLE-WARNING: redefining MAP-LINES-IN-FILE in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function HELP-SPEC
STYLE-WARNING: implicitly creating new generic function VIEW-X/VIEW-Y->X/Y
STYLE-WARNING: implicitly creating new generic function VIEW-SCALE
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/spy.lisp
; in: DEFUN METABANG.UTILITIES::SPY-PARSE-ARGLIST
; (METABANG.UTILITIES::DEBUGGING-P-FN DEBUG)
;
; caught STYLE-WARNING:
; undefined function: METABANG.UTILITIES::DEBUGGING-P-FN
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/dates-and-times.lisp
; in: DEFUN METABANG.UTILITIES:FORMAT-DATE
; (METABANG.UTILITIES:NYI)
;
; caught STYLE-WARNING:
; undefined function: METABANG.UTILITIES:NYI
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/utilities.lisp
; in: DEFUN METABANG.UTILITIES:ADD-CLASS-IF-NECESSARY
; (METABANG.UTILITIES:PUSH-END METABANG.UTILITIES::SUPERCLASS-NAME
; METABANG.UTILITIES::CLASS-LIST)
;
; caught STYLE-WARNING:
; undefined function: METABANG.UTILITIES:PUSH-END
;
; caught STYLE-WARNING:
; These functions are undefined:
; METABANG.UTILITIES::DEBUGGING-P-FN METABANG.UTILITIES:NYI METABANG.UTILITIES:PUSH-END
;
; compilation unit finished
; caught 8 STYLE-WARNING conditions
; printed 18 notes
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-status/dev/package.lisp" (written 04 APR 2006 09:26:07 AM):
; compiling (IN-PACKAGE :COMMON-LISP-USER)
; compiling (DEFPACKAGE "ASDF-STATUS" ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-status/dev/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-status/dev/definitions.lisp" (written 04 APR 2006 09:26:07 AM):
; compiling (IN-PACKAGE ASDF-STATUS)
; compiling (DEFPARAMETER *WORKING-DIRECTORY* ...)
; compiling (DEFPARAMETER *OUTPUT-DIRECTORY* ...)
; compiling (DEFPARAMETER *INPUT-DIRECTORY* ...)
; compiling (DEFPARAMETER *DATA-DIRECTORY* ...)
; compiling (DEFPARAMETER *ERROR-DIRECTORY* ...)
; compiling (DEFPARAMETER *SAVE-DIRECTORY* ...)
; compiling (DEFPARAMETER *ASDF-SYSTEMS* ...)
; compiling (DEFVAR *CURRENT-IMPLEMENTATION* ...)
; compiling (DEFVAR *CURRENT-SYSTEM* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-status/dev/definitions.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-status/dev/macros.lisp" (written 04 APR 2006 09:26:07 AM):
; compiling (IN-PACKAGE ASDF-STATUS)
; compiling (DEFMACRO HTML-PAGE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-status/dev/macros.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-status/dev/utility.lisp" (written 04 APR 2006 09:26:07 AM):
; compiling (IN-PACKAGE ASDF-STATUS)
; compiling (DEFUN PROCESS-SYSTEMS-DATA ...)
; compiling (DEFUN LOAD-CURRENT-DATA ...)
; compiling (DEFCONDITION DATA-ERROR ...)
; compiling (DEFUN LOAD-NEW-DATA ...)
; compiling (DEFUN SAVE-INPUT ...)
; compiling (DEFUN MERGE-DATA ...)
; compiling (DEFUN INTERESTING-CHANGE-P ...)
; compiling (DEFUN SAVE-DATA ...)
; compiling (DEFUN DATA-ERROR-P ...)
; compiling (DEFUN LML-INSERT-FILE ...)
; compiling (DEFUN MOVE-FILE ...)
; compiling (DEFUN MOVE-FILES-TO-DIRECTORY ...)
; compiling (DEFUN ENSURE-UNIQUE-FILENAME ...)
; compiling (DEFUN ENSURE-UNIQUE-FILENAME-WITH-DATE ...)
; compiling (DEFUN COPY-FILE-TO-DIRECTORY ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-status/dev/utility.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-status/dev/system-summary.lisp" (written 04 APR 2006 09:26:07 AM):
; compiling (IN-PACKAGE ASDF-STATUS)
; compiling (DEFPARAMETER *KEYS* ...)
; compiling (DEFPARAMETER *ERROR-KEY* ...)
; compiling (DEFPARAMETER *IMPLEMENTATION-CODES* ...)
; compiling (DEFUN SYSTEMS-MATRIX ...)
; compiling (DEFUN ALL-IMPLEMENTATIONS-FOR-MATRIX ...)
; compiling (DEFUN SYSTEM-SUMMARY-COUNTS ...)
; compiling (DEFUN GENERATE-ASDF-STATUS-WEBSITE ...)
; compiling (DEFUN GENERATE-STATUS-PAGES ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-status/dev/system-summary.lisp
; in: DEFUN GENERATE-STATUS-PAGES
; (DEFUN ASDF-STATUS::GENERATE-STATUS-PAGES
; (&KEY (ASDF-STATUS::SYSTEMS ASDF-STATUS::*ASDF-SYSTEMS*)
; (METABANG.CL-CONTAINERS:FILTER (CONSTANTLY T))
; (ASDF-STATUS::OUTPUT (ASDF-STATUS::PATH-OF-SUMMARY-PAGE "index"))
; (ASDF-STATUS::VERBOSE? T) (ASDF-STATUS::MAKE-BACKUP? T)
; (ASDF-STATUS::MAKE-DETAIL-PAGES? T))
; (LET* ((ASDF-STATUS::MATRIX
; (ASDF-STATUS::SYSTEMS-MATRIX ASDF-STATUS::SYSTEMS
; :FILTER
; METABANG.CL-CONTAINERS:FILTER))
; (ASDF-STATUS::ALL-IMPLEMENTATIONS
; (ASDF-STATUS::ALL-IMPLEMENTATIONS-FOR-MATRIX ASDF-STATUS::MATRIX))
; (ASDF-STATUS::SUMMARY-COUNTS
; (ASDF-STATUS::SYSTEM-SUMMARY-COUNTS ASDF-STATUS::SYSTEMS
; METABANG.CL-CONTAINERS:FILTER))
; (ASDF-STATUS::BACKUP
; (ASDF-STATUS::ENSURE-UNIQUE-FILENAME-WITH-DATE
; ASDF-STATUS::OUTPUT)))
; (ASSERT
; (<= (METABANG.UTILITIES:SIZE ASDF-STATUS::ALL-IMPLEMENTATIONS)
; (METABANG.UTILITIES:SIZE ASDF-STATUS::*IMPLEMENTATION-CODES*)))
; (ASDF-STATUS::GENERATE-SUMMARY-HTML ASDF-STATUS::OUTPUT
; ASDF-STATUS::MATRIX
; ASDF-STATUS::ALL-IMPLEMENTATIONS
; ASDF-STATUS::SUMMARY-COUNTS
; :LINKS
; T
; :BACKUP
; (AND ASDF-STATUS::MAKE-BACKUP?
; ASDF-STATUS::BACKUP)
; :MAKE-DETAIL-PAGES?
; ASDF-STATUS::MAKE-DETAIL-PAGES?)
; (WHEN ASDF-STATUS::MAKE-BACKUP?
; (ASDF-STATUS::GENERATE-SUMMARY-HTML ASDF-STATUS::BACKUP
; ASDF-STATUS::MATRIX
; ASDF-STATUS::ALL-IMPLEMENTATIONS
; ASDF-STATUS::SUMMARY-COUNTS
; :LINKS
; NIL))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA ASDF-STATUS::GENERATE-STATUS-PAGES
; (&KEY
; (ASDF-STATUS::SYSTEMS ASDF-STATUS::*ASDF-SYSTEMS*)
; (METABANG.CL-CONTAINERS:FILTER (CONSTANTLY T))
; (ASDF-STATUS::OUTPUT
; (ASDF-STATUS::PATH-OF-SUMMARY-PAGE "index"))
; (ASDF-STATUS::VERBOSE? T)
; (ASDF-STATUS::MAKE-BACKUP? T)
; (ASDF-STATUS::MAKE-DETAIL-PAGES? T))
; (BLOCK ASDF-STATUS::GENERATE-STATUS-PAGES
; (LET* ((ASDF-STATUS::MATRIX #)
; (ASDF-STATUS::ALL-IMPLEMENTATIONS #)
; (ASDF-STATUS::SUMMARY-COUNTS #)
; (ASDF-STATUS::BACKUP #))
; (ASSERT (<= # #))
; (ASDF-STATUS::GENERATE-SUMMARY-HTML
; ASDF-STATUS::OUTPUT
; ASDF-STATUS::MATRIX
; ASDF-STATUS::ALL-IMPLEMENTATIONS
; ASDF-STATUS::SUMMARY-COUNTS
; :LINKS
; T
; :BACKUP
; (AND ASDF-STATUS::MAKE-BACKUP?
; ASDF-STATUS::BACKUP)
; :MAKE-DETAIL-PAGES?
; ASDF-STATUS::MAKE-DETAIL-PAGES?)
; (WHEN ASDF-STATUS::MAKE-BACKUP?
; (ASDF-STATUS::GENERATE-SUMMARY-HTML
; ASDF-STATUS::BACKUP
; ASDF-STATUS::MATRIX
; ASDF-STATUS::ALL-IMPLEMENTATIONS
; ASDF-STATUS::SUMMARY-COUNTS
; :LINKS
; NIL)))))
;
; caught STYLE-WARNING:
; The variable VERBOSE? is defined but never used.
; compiling (DEFUN ALL-AUTHORS ...)
; compiling (DEFUN GENERATE-SUMMARY-HTML ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-status/dev/system-summary.lisp
; in: DEFUN GENERATE-SUMMARY-HTML
; (DEFUN ASDF-STATUS::GENERATE-SUMMARY-HTML
; (ASDF-STATUS::OUTPUT ASDF-STATUS::MATRIX
; ASDF-STATUS::ALL-IMPLEMENTATIONS ASDF-STATUS::SUMMARY-COUNTS
; &KEY ASDF-STATUS::LINKS ASDF-STATUS::BACKUP
; (ASDF-STATUS::MAKE-DETAIL-PAGES? ASDF-STATUS::LINKS)
; (ASDF-STATUS::TITLE "ASDF Systems Summary"))
; (ASDF-STATUS::HTML-PAGE (ASDF-STATUS::OUTPUT)
; (LISP-MARKUP-LANGUAGE-2:HTML
; (:HEAD (:TITLE #) (#) (#) (#) (#))
; (:BODY (# # # # #)
; (:P "Brought to you by "
; #
; ". Remember, when ASDF is happy, you're happy too.")
; (# # # #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA ASDF-STATUS::GENERATE-SUMMARY-HTML
; (ASDF-STATUS::OUTPUT ASDF-STATUS::MATRIX
; ASDF-STATUS::ALL-IMPLEMENTATIONS
; ASDF-STATUS::SUMMARY-COUNTS
; &KEY
; ASDF-STATUS::LINKS
; ASDF-STATUS::BACKUP
; (ASDF-STATUS::MAKE-DETAIL-PAGES?
; ASDF-STATUS::LINKS)
; (ASDF-STATUS::TITLE
; "ASDF Systems Summary"))
; (BLOCK ASDF-STATUS::GENERATE-SUMMARY-HTML
; (ASDF-STATUS::HTML-PAGE (ASDF-STATUS::OUTPUT)
; (LISP-MARKUP-LANGUAGE-2:HTML
; (:HEAD # # # # #)
; (:BODY # # #)))))
;
; caught STYLE-WARNING:
; The variable BACKUP is defined but never used.
; compiling (DEFUN GENERATE-SYSTEMS-MATRIX ...)
; compiling (DEFUN GENERATE-FOOTER-LINKS ...)
; compiling (DEFUN GENERATE-KEYS ...)
; compiling (DEFUN GENERATE-STATUS-KEYS ...)
; compiling (DEFUN GENERATE-IMPLEMENTATION-KEYS ...)
; compiling (DEFUN GENERATE-SYSTEM-DETAIL ...)
; compiling (DEFUN PROCESS-DEPENDS-ON ...)
; compiling (DEFUN MAKE-CLIKI-LINK ...)
; compiling (DEFUN PATH-OF-DETAIL-PAGE ...)
; compiling (DEFUN NAME-OF-DETAIL-PAGE ...)
; compiling (DEFUN PATH-OF-SUMMARY-PAGE ...)
; compiling (DEFUN SUMMARY-PAGE-NAME ...)
; compiling (DEFUN ERROR-SUMMARY ...)
; compiling (DEFUN SUMMARIZE-ERROR ...)
; compiling (DEFUN CLASSIFY-ERROR ...)
; compiling (DEFSYSTEM-COMPATIBILITY:SYSTEM-SOURCE-DIRECTORY (QUOTE ASDF-STATUS))compilation aborted because of fatal error:
READ failure in COMPILE-FILE:
READER-ERROR at 19789 (line 492, column 26) on #<SB-SYS:FD-STREAM for "file /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-status/dev/system-summary.lisp" {40007B11}>:
The symbol "COPY-FILE" is not external in the CL-FAD package.
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-status/dev/system-summary.fasl written
; compilation finished in 0:00:01
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40007089}> on
#<CL-SOURCE-FILE "system-summary" {40007099}>.
;
; compilation unit aborted
; caught 2 fatal ERROR conditions
; caught 2 STYLE-WARNING conditions
erred while invoking #<COMPILE-OP NIL {40007089}> on
#<CL-SOURCE-FILE "system-summary" {40007099}>
