REPL Output
;;; ASDF-INSTALL: Downloading 48565 bytes from http://common-lisp.net/project/cl-store/files/cl-store-latest.tgz to /Users/gwking/temporary/asdf-test/CL-STORE.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/CL-STORE.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-store_0.6.8/
cl-store_0.6.8/clisp/
cl-store_0.6.8/clisp/mop.lisp
cl-store_0.6.8/clisp/.cvsignore
cl-store_0.6.8/.cvsignore
cl-store_0.6.8/ChangeLog
cl-store_0.6.8/LICENCE
cl-store_0.6.8/README
cl-store_0.6.8/backends.lisp
cl-store_0.6.8/tests.lisp
cl-store_0.6.8/cl-store.asd
cl-store_0.6.8/default-backend.lisp
cl-store_0.6.8/package.lisp
cl-store_0.6.8/plumbing.lisp
cl-store_0.6.8/circularities.lisp
cl-store_0.6.8/utils.lisp
cl-store_0.6.8/xml-backend.lisp
cl-store_0.6.8/cmucl/
cl-store_0.6.8/cmucl/custom-xml.lisp
cl-store_0.6.8/cmucl/custom.lisp
cl-store_0.6.8/cmucl/.cvsignore
cl-store_0.6.8/doc/
cl-store_0.6.8/doc/style.css
cl-store_0.6.8/doc/index.html
cl-store_0.6.8/doc/cl-store.texi
cl-store_0.6.8/doc/html/
cl-store_0.6.8/doc/html/CL-STORE/
cl-store_0.6.8/doc/html/CL-STORE-XML/
cl-store_0.6.8/doc/html/icons/
cl-store_0.6.8/doc/cl-store.texi.~1.12.~
cl-store_0.6.8/lispworks/
cl-store_0.6.8/lispworks/custom-xml.lisp
cl-store_0.6.8/lispworks/custom.lisp
cl-store_0.6.8/lispworks/.cvsignore
cl-store_0.6.8/mcl/
cl-store_0.6.8/sbcl/
cl-store_0.6.8/sbcl/custom-xml.lisp
cl-store_0.6.8/sbcl/custom.lisp
cl-store_0.6.8/sbcl/.cvsignore
cl-store_0.6.8/ecl/
cl-store_0.6.8/ecl/mop.lisp
cl-store_0.6.8/ecl/.cvsignore
cl-store_0.6.8/acl/
cl-store_0.6.8/acl/custom.lisp
cl-store_0.6.8/acl/.cvsignore
cl-store_0.6.8/clean.sh
cl-store_0.6.8/xml-package.lisp
cl-store_0.6.8/xml-tests.lisp
cl-store_0.6.8/TODO
cl-store_0.6.8/.ChangeLog.swp
cl-store_0.6.8/cl-store-xml.noasd
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/package.lisp" (written 15 DEC 2005 03:18:50 AM):
; compiling (DEFPACKAGE #:CL-STORE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/package.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/utils.lisp" (written 15 DEC 2005 03:18:50 AM):
; compiling (IN-PACKAGE :CL-STORE)
; compiling (DEFMACRO AIF ...)
; compiling (DEFMACRO WITH-GENSYMS ...)
; compiling (DEFUN MAPPEND ...)
; compiling (DEFGENERIC SERIALIZABLE-SLOTS ...)
; compiling (DEFGENERIC SERIALIZABLE-SLOTS-USING-CLASS ...)
; compiling (DEFGENERIC GET-SLOT-DETAILS ...)
; compiling (DEFMACRO WHEN-LET ...)
; compiling (DEFUN FLOAT-TYPE ...)
; compiling (DEFUN GET-FLOAT-TYPE ...)
; compiling (DEFTYPE UB32 ...)
; compiling (DEFTYPE SB32 ...)
; compiling (DEFTYPE ARRAY-SIZE ...)
; compiling (DEFTYPE ARRAY-TOT-SIZE ...)
; compiling (DEFUN STORE-32-BIT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/utils.lisp
; in: DEFUN STORE-32-BIT
; (LOGAND 4294967295 CL-STORE::OBJ)
; ==>
; (LOGAND SB-C::Y 4294967295)
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
; compiling (DEFMACRO MAKE-UB32 ...)
; compiling (DEFUN READ-32-BIT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/utils.lisp
; in: DEFUN READ-32-BIT
; (CL-STORE::MAKE-UB32 CL-STORE::BYTE4
; CL-STORE::BYTE3
; CL-STORE::BYTE2
; CL-STORE::BYTE1)
; --> THE LOGIOR
; ==>
; (LOGIOR
; (LOGIOR (LOGIOR (ASH CL-STORE::BYTE4 24) (ASH CL-STORE::BYTE3 16))
; (ASH CL-STORE::BYTE2 8))
; CL-STORE::BYTE1)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; compiling (DEFUN KWD ...)
; compiling (DEFUN MKSTR ...)
; compiling (DEFUN SYMBOLICATE ...)
; compiling (DEFUN SAFE-LENGTH ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/utils.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/backends.lisp" (written 15 DEC 2005 03:18:50 AM):
; compiling (IN-PACKAGE :CL-STORE)
; compiling (DEFUN REQUIRED-ARG ...)
; compiling (DEFCLASS BACKEND ...)
; compiling (DEFTYPE BACKEND-DESIGNATOR ...)
; compiling (DEFPARAMETER *REGISTERED-BACKENDS* ...)
; compiling (DEFUN FIND-BACKEND ...)
; compiling (DEFUN BACKEND-DESIGNATOR->BACKEND ...)
; compiling (DEFUN GET-STORE-MACRO ...)
; compiling (DEFUN GET-RESTORE-MACRO ...)
; compiling (DEFUN REGISTER-BACKEND ...)
; compiling (DEFUN GET-CLASS-FORM ...)
; compiling (DEFMACRO DEFBACKEND ...)
; compiling (DEFMACRO WITH-BACKEND ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/backends.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/plumbing.lisp" (written 15 DEC 2005 03:18:50 AM):
; compiling (IN-PACKAGE :CL-STORE)
; compiling (DEFVAR *STORE-USED-PACKAGES* ...)
; compiling (DEFVAR *NUKE-EXISTING-PACKAGES* ...)
; compiling (DEFVAR *NUKE-EXISTING-CLASSES* ...)
; compiling (DEFVAR *STORE-CLASS-SUPERCLASSES* ...)
; compiling (DEFVAR *STORE-CLASS-SLOTS* ...)
; compiling (DECLAIM (TYPE BACKEND ...))
; compiling (DEFVAR *DEFAULT-BACKEND*)
; compiling (DEFVAR *CURRENT-BACKEND*)
; compiling (DEFUN CL-STORE-REPORT ...)
; compiling (DEFINE-CONDITION CL-STORE-ERROR ...)
; compiling (DEFINE-CONDITION STORE-ERROR ...)
; compiling (DEFINE-CONDITION RESTORE-ERROR ...)
; compiling (DEFUN STORE-ERROR ...)
; compiling (DEFUN RESTORE-ERROR ...)
; compiling (DEFUN STORE-TO-FILE ...)
; compiling (DEFGENERIC STORE ...)
; compiling (DEFGENERIC BACKEND-STORE ...)
; compiling (DEFGENERIC STORE-BACKEND-CODE ...)
; compiling (DECLAIM (INLINE STORE-OBJECT))
; compiling (DEFUN STORE-OBJECT ...)
; compiling (DEFGENERIC BACKEND-STORE-OBJECT ...)
; compiling (DEFGENERIC INTERNAL-STORE-OBJECT ...)
; compiling (DEFGENERIC RESTORE ...)
; compiling (DEFGENERIC BACKEND-RESTORE ...)
; compiling (DEFUN RESTORE-FROM-FILE ...)
; compiling (DEFUN (SETF RESTORE) ...)
; compiling (DEFGENERIC CHECK-MAGIC-NUMBER ...)
; compiling (DEFUN LOOKUP-READER ...)
; compiling (DEFGENERIC GET-NEXT-READER ...)
; compiling (DECLAIM (INLINE RESTORE-OBJECT))
; compiling (DEFUN RESTORE-OBJECT ...)
; compiling (DEFGENERIC BACKEND-RESTORE-OBJECT ...)
; compiling (DEFGENERIC INTERNAL-RESTORE-OBJECT ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/plumbing.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/circularities.lisp" (written 15 DEC 2005 03:18:50 AM):
; compiling (IN-PACKAGE :CL-STORE)
; compiling (DEFVAR *CHECK-FOR-CIRCS* ...)
; compiling (DEFSTRUCT DELAY ...)
; compiling (DEFMACRO DELAY ...)
; compiling (DEFUN FORCE ...)
; compiling (DEFMACRO SETTING ...)
; compiling (DEFMACRO SETTING-HASH ...)
; compiling (DEFMACRO RESOLVING-OBJECT ...)
; compiling (DEFSTRUCT REFERRER ...)
; compiling (DEFUN REFERRED-VALUE ...)
; compiling (DEFCLASS RESOLVING-BACKEND ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *STORED-COUNTER*)
; compiling (DEFVAR *STORED-VALUES*)
; compiling (DEFVAR *STORE-HASH-SIZE* ...)
; compiling (DEFMETHOD BACKEND-STORE ...)
; compiling (DEFUN SEEN ...)
; compiling (DEFUN UPDATE-SEEN ...)
; compiling (DEFTYPE NOT-CIRC ...)
; compiling (DEFUN NEEDS-CHECKP ...)
; compiling (DEFGENERIC STORE-REFERRER ...)
; compiling (DEFUN GET-REF ...)
; compiling (DEFMETHOD BACKEND-STORE-OBJECT ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *RESTORE-COUNTER*)
; compiling (DEFVAR *NEED-TO-FIX*)
; compiling (DEFVAR *RESTORED-VALUES*)
; compiling (DEFVAR *RESTORE-HASH-SIZE* ...)
; compiling (DEFMETHOD BACKEND-RESTORE ...)
; compiling (DEFUN UPDATE-RESTORED ...)
; compiling (DEFUN HANDLE-NORMAL ...)
; compiling (DEFGENERIC REFERRERP ...)
; compiling (DEFUN HANDLE-RESTORE ...)
; compiling (DEFMETHOD BACKEND-RESTORE-OBJECT ...)
; compiling (DEFGENERIC INT-OR-CHAR-P ...)
; compiling (DEFUN NEW-VAL ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/circularities.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/default-backend.lisp" (written 15 DEC 2005 03:18:50 AM):
; compiling (IN-PACKAGE :CL-STORE)
; compiling (DEFBACKEND CL-STORE ...)
; compiling (DEFUN REGISTER-CODE ...)
; compiling (DEFVAR +REFERRER-CODE+ ...)
; compiling (DEFVAR +UNICODE-STRING-CODE+ ...)
; compiling (DEFVAR +INTEGER-CODE+ ...)
; compiling (DEFVAR +SIMPLE-STRING-CODE+ ...)
; compiling (DEFVAR +FLOAT-CODE+ ...)
; compiling (DEFVAR +RATIO-CODE+ ...)
; compiling (DEFVAR +CHARACTER-CODE+ ...)
; compiling (DEFVAR +COMPLEX-CODE+ ...)
; compiling (DEFVAR +SYMBOL-CODE+ ...)
; compiling (DEFVAR +CONS-CODE+ ...)
; compiling (DEFVAR +PATHNAME-CODE+ ...)
; compiling (DEFVAR +HASH-TABLE-CODE+ ...)
; compiling (DEFVAR +STANDARD-OBJECT-CODE+ ...)
; compiling (DEFVAR +CONDITION-CODE+ ...)
; compiling (DEFVAR +STRUCTURE-OBJECT-CODE+ ...)
; compiling (DEFVAR +STANDARD-CLASS-CODE+ ...)
; compiling (DEFVAR +BUILT-IN-CLASS-CODE+ ...)
; compiling (DEFVAR +ARRAY-CODE+ ...)
; compiling (DEFVAR +SIMPLE-VECTOR-CODE+ ...)
; compiling (DEFVAR +PACKAGE-CODE+ ...)
; compiling (DEFVAR +POSITIVE-INFINITY-CODE+ ...)
; compiling (DEFVAR +NEGATIVE-INFINITY-CODE+ ...)
; compiling (DEFVAR +32-BIT-INTEGER-CODE+ ...)
; compiling (DEFVAR +FLOAT-NAN-CODE+ ...)
; compiling (DEFVAR +FUNCTION-CODE+ ...)
; compiling (DEFVAR +GF-CODE+ ...)
; compiling (DEFVAR +STRUCTURE-CLASS-CODE+ ...)
; compiling (DEFVAR +STRUCT-DEF-CODE+ ...)
; compiling (DEFVAR +GENSYM-CODE+ ...)
; compiling (DEFVAR +POSITIVE-DOUBLE-INFINITY-CODE+ ...)
; compiling (DEFVAR +NEGATIVE-DOUBLE-INFINITY-CODE+ ...)
; compiling (DEFVAR +FLOAT-DOUBLE-NAN-CODE+ ...)
; compiling (DEFVAR +UNICODE-BASE-STRING-CODE+ ...)
; compiling (DEFVAR +SIMPLE-BASE-STRING-CODE+ ...)
; compiling (DEFUN OUTPUT-TYPE-CODE ...)
; compiling (DECLAIM (INLINE READ-TYPE-CODE))
; compiling (DEFUN READ-TYPE-CODE ...)
; compiling (DEFMETHOD REFERRERP ...)
; compiling (DEFVAR *RESTORERS* ...)
; compiling (DEFUN LOOKUP-CODE ...)
; compiling (DEFMETHOD GET-NEXT-READER ...)
; compiling (DEFMETHOD STORE-REFERRER ...)
; compiling (DEFRESTORE-CL-STORE (REFERRER STREAM) ...)
; compiling (DEFMETHOD INT-OR-CHAR-P ...)
; compiling (DEFSTORE-CL-STORE (OBJ INTEGER ...) ...)
; compiling (DEFUN DUMP-INT ...)
; compiling (DEFUN UNDUMP-INT ...)
; compiling (DEFUN STORE-32-BIT-INTEGER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/default-backend.lisp
; in: DEFUN STORE-32-BIT-INTEGER
; (ABS CL-STORE::OBJ)
; --> 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 (INTEGER -2147483648 -1), not a FIXNUM.
; The result is a (VALUES (INTEGER 1 2147483648)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER 1 2147483648)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; compiling (DEFRESTORE-CL-STORE (32-BIT-INTEGER STREAM) ...)
; compiling (DEFUN STORE-ARBITRARY-INTEGER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/default-backend.lisp
; in: DEFUN STORE-ARBITRARY-INTEGER
; (ABS CL-STORE::OBJ)
; --> 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 INTEGER, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, 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 (INTEGER * -1), not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 2) because:
; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 32).
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; (ASH CL-STORE::N -32)
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (LOOP CL-STORE::FOR
; CL-STORE::N
; =
; (ABS CL-STORE::OBJ)
; CL-STORE::THEN
; (ASH CL-STORE::N -32)
; CL-STORE::FOR
; CL-STORE::COUNTER
; CL-STORE::FROM
; 0
; CL-STORE::WITH
; ...)
; --> BLOCK LET LET LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ
; --> SETQ THE 1+
; ==>
; (+ CL-STORE::COUNTER 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (MINUSP CL-STORE::OBJ)
; ==>
; (< CL-STORE::OBJ 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.
; (- CL-STORE::COUNTER)
; ==>
; (SB-KERNEL:%NEGATE CL-STORE::COUNTER)
;
; note: forced to do static-fun %Negate (cost 52)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER * 0)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES (INTEGER * 0)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; compiling (DEFRESTORE-CL-STORE (INTEGER BUFF) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/default-backend.lisp
; in: DEFRESTORE-CL-STORE (INTEGER BUFF)
; (ABS COUNT)
; --> 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 INTEGER, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, 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 (INTEGER * -1), not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 2) because:
; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 32).
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; (LOOP CL-STORE::REPEAT
; (ABS COUNT)
; DO
; (SETF CL-STORE::RESULT
; (THE INTEGER
; (+ (ASH CL-STORE::RESULT 32) (THE CL-STORE::UB32 #)))))
; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY IF <= IF
; ==>
; (> #:LOOP-REPEAT-379 0)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; etc.
; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY IF DECF LET*
; ==>
; (- #:LOOP-REPEAT-379 #:G381)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (ASH CL-STORE::RESULT 32)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (+ (ASH CL-STORE::RESULT 32)
; (THE CL-STORE::UB32 (CL-STORE::UNDUMP-INT CL-STORE::BUFF)))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (MINUSP COUNT)
; ==>
; (< COUNT 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.
; (- CL-STORE::RESULT)
; ==>
; (SB-KERNEL:%NEGATE CL-STORE::RESULT)
;
; 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).
; compiling (DEFVAR *SPECIAL-FLOATS* ...)
; compiling (DEFSTORE-CL-STORE (OBJ FLOAT ...) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/default-backend.lisp
; in: DEFSTORE-CL-STORE (OBJ FLOAT STREAM)
; (ASSOC CL-STORE::OBJ CL-STORE::*SPECIAL-FLOATS*)
;
; note: unable to convert to EQ test because: Item might be a number.
; (INTEGER-DECODE-FLOAT CL-STORE::OBJ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a FLOAT, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a FLOAT, not a DOUBLE-FLOAT.
; compiling (DEFRESTORE-CL-STORE (FLOAT STREAM) ...)
; compiling (DEFUN HANDLE-SPECIAL-FLOAT ...)
; compiling (DEFRESTORE-CL-STORE (NEGATIVE-INFINITY STREAM) ...)
; compiling (DEFRESTORE-CL-STORE (POSITIVE-INFINITY STREAM) ...)
; compiling (DEFRESTORE-CL-STORE (NAN-FLOAT STREAM) ...)
; compiling (DEFRESTORE-CL-STORE (NEGATIVE-DOUBLE-INFINITY STREAM) ...)
; compiling (DEFRESTORE-CL-STORE (POSITIVE-DOUBLE-INFINITY STREAM) ...)
; compiling (DEFRESTORE-CL-STORE (FLOAT-DOUBLE-NAN STREAM) ...)
; compiling (DEFSTORE-CL-STORE (OBJ RATIO ...) ...)
; compiling (DEFRESTORE-CL-STORE (RATIO STREAM) ...)
; compiling (DEFSTORE-CL-STORE (OBJ CHARACTER ...) ...)
; compiling (DEFRESTORE-CL-STORE (CHARACTER STREAM) ...)
; compiling (DEFSTORE-CL-STORE (OBJ COMPLEX ...) ...)
; compiling (DEFRESTORE-CL-STORE (COMPLEX STREAM) ...)
; compiling (DEFSTORE-CL-STORE (OBJ SYMBOL ...) ...)
; compiling (DEFRESTORE-CL-STORE (SYMBOL STREAM) ...)
; compiling (DEFRESTORE-CL-STORE (GENSYM STREAM) ...)
; compiling (DEFUN DUMP-LIST ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/default-backend.lisp
; in: DEFUN DUMP-LIST
; (LOOP CL-STORE::REPEAT
; LENGTH
; CL-STORE::FOR
; CL-STORE::X
; CL-STORE::ON
; LIST
; DO
; (CL-STORE:STORE-OBJECT (CAR CL-STORE::X) STREAM))
; --> BLOCK LET CEILING
; ==>
; (CEILING LENGTH 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> BLOCK LET SB-LOOP::LOOP-BODY LET TAGBODY IF <= IF
; ==>
; (> #:LOOP-REPEAT-928 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 LET SB-LOOP::LOOP-BODY LET TAGBODY IF DECF LET*
; ==>
; (- #:LOOP-REPEAT-928 #:G932)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFUN RESTORE-LIST ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/default-backend.lisp
; in: DEFUN RESTORE-LIST
; (DOTIMES (CL-STORE::X CL-STORE::CONSES)
; (LET ((CL-STORE::OBJ (CL-STORE:RESTORE-OBJECT STREAM)))
; (WHEN
; (AND CL-STORE:*CHECK-FOR-CIRCS* (CL-STORE::REFERRER-P CL-STORE::OBJ))
; (LET (#)
; (PUSH # CL-STORE:*NEED-TO-FIX*)))
; (IF CL-STORE::RET
; (SETF (CDR CL-STORE::TAIL)
; (LIST CL-STORE::OBJ)
; CL-STORE::TAIL
; (CDR CL-STORE::TAIL))
; (SETF CL-STORE::RET
; (LIST CL-STORE::OBJ)
; CL-STORE::TAIL
; (LAST CL-STORE::RET)))))
; --> DO BLOCK LET TAGBODY UNLESS COND IF NOT IF >= IF
; ==>
; (< CL-STORE::X #:G940)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; --> DO BLOCK LET TAGBODY PSETQ PSETF LET* MULTIPLE-VALUE-BIND LET 1+
; ==>
; (+ CL-STORE::X 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFSTORE-CL-STORE (LIST CONS ...) ...)
; compiling (DEFRESTORE-CL-STORE (CONS STREAM) ...)
; compiling (DEFSTORE-CL-STORE (OBJ PATHNAME ...) ...)
; compiling (DEFRESTORE-CL-STORE (PATHNAME STREAM) ...)
; compiling (DEFSTORE-CL-STORE (OBJ HASH-TABLE ...) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/default-backend.lisp
; in: DEFSTORE-CL-STORE (OBJ HASH-TABLE STREAM)
; (CL-STORE:STORE-OBJECT (HASH-TABLE-REHASH-THRESHOLD CL-STORE::OBJ) STREAM)
; --> BLOCK
; ==>
; (CL-STORE:BACKEND-STORE-OBJECT CL-STORE:BACKEND CL-STORE::OBJ STREAM)
;
; note: doing float to pointer coercion (cost 13)
; compiling (DEFRESTORE-CL-STORE (HASH-TABLE STREAM) ...)
; compiling (DEFUN STORE-TYPE-OBJECT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/default-backend.lisp
; in: DEFUN STORE-TYPE-OBJECT
; (INCF LENGTH)
; --> LET*
; ==>
; (+ LENGTH #:G1286)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFSTORE-CL-STORE (OBJ STANDARD-OBJECT ...) ...)
; compiling (DEFSTORE-CL-STORE (OBJ CONDITION ...) ...)
; compiling (DEFUN RESTORE-TYPE-OBJECT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/default-backend.lisp
; in: DEFUN RESTORE-TYPE-OBJECT
; (= COUNT CL-STORE::SLOT-NAME)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (LOOP CL-STORE::FOR
; COUNT
; CL-STORE::FROM
; 0
; DO
; (LET ((CL-STORE::SLOT-NAME (CL-STORE:RESTORE-OBJECT STREAM)))
; (ETYPECASE CL-STORE::SLOT-NAME
; (INTEGER
; (ASSERT #
; #
; "Number of slots restored does not match slots stored.")
; (RETURN))
; (SYMBOL (CL-STORE:SETTING # #)))))
; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; --> 1+
; ==>
; (+ COUNT 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).
;
; 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.
; (= COUNT CL-STORE::SLOT-NAME)
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; compiling (DEFRESTORE-CL-STORE (STANDARD-OBJECT STREAM) ...)
; compiling (DEFRESTORE-CL-STORE (CONDITION STREAM) ...)
; compiling (DEFSTORE-CL-STORE (OBJ STANDARD-CLASS ...) ...)
; compiling (DEFRESTORE-CL-STORE (STANDARD-CLASS STREAM) ...)
; compiling (DEFSTORE-CL-STORE (OBJ BUILT-IN-CLASS ...) ...)
; compiling (DEFMETHOD INTERNAL-STORE-OBJECT ...)
; compiling (DEFRESTORE-CL-STORE (BUILT-IN-CLASS STREAM) ...)
; compiling (DEFSTORE-CL-STORE (OBJ ARRAY ...) ...)
; compiling (DEFUN STORE-ARRAY ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/default-backend.lisp
; in: DEFUN STORE-ARRAY
; (ARRAY-RANK CL-STORE::OBJ)
;
; note: unable to optimize because: The array rank is not known at compile time: *
; (ARRAY-TOTAL-SIZE CL-STORE::OBJ)
;
; note: unable to optimize because: can't tell the rank at compile time
;
; note: unable to optimize because: can't tell the rank at compile time
; (ROW-MAJOR-AREF CL-STORE::OBJ CL-STORE::X)
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
; (SB-KERNEL:%CHECK-BOUND ARRAY
; (ARRAY-TOTAL-SIZE
; ARRAY)
; SB-INT:INDEX))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a ARRAY, 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 (DEFRESTORE-CL-STORE (ARRAY STREAM) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/default-backend.lisp
; in: DEFRESTORE-CL-STORE (ARRAY STREAM)
; (CL-STORE:SETTING (ROW-MAJOR-AREF CL-STORE::OBJ CL-STORE::POS)
; (CL-STORE:RESTORE-OBJECT STREAM))
; --> LET IF SETF SB-KERNEL:%SET-ROW-MAJOR-AREF SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> SB-KERNEL:%CHECK-BOUND
; ==>
; (ARRAY-TOTAL-SIZE ARRAY)
;
; note: unable to optimize because: can't tell the rank at compile time
; --> LET IF SETF SB-KERNEL:%SET-ROW-MAJOR-AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:%CHECK-BOUND ARRAY
; (ARRAY-TOTAL-SIZE
; ARRAY)
; SB-INT:INDEX)
; SB-C::NEW-VALUE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a ARRAY, 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.
; --> LET IF IF PUSH LET* CL-STORE::DELAY CL-STORE::MAKE-DELAY FUNCTION SETF
; --> SB-KERNEL:%SET-ROW-MAJOR-AREF SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> SB-KERNEL:%CHECK-BOUND
; ==>
; (ARRAY-TOTAL-SIZE ARRAY)
;
; note: unable to optimize because: can't tell the rank at compile time
; --> LET IF IF PUSH LET* CL-STORE::DELAY CL-STORE::MAKE-DELAY FUNCTION SETF
; --> SB-KERNEL:%SET-ROW-MAJOR-AREF
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
; (SB-KERNEL:%CHECK-BOUND ARRAY
; (ARRAY-TOTAL-SIZE
; ARRAY)
; SB-INT:INDEX)
; SB-C::NEW-VALUE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a ARRAY, 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 STORE-SIMPLE-VECTOR ...)
; compiling (DEFRESTORE-CL-STORE (SIMPLE-VECTOR STREAM) ...)
; compiling (DEFVAR *CHAR-MARKER* ...)
; compiling (DEFUN UNICODE-STRING-P ...)
; compiling (DEFUN STORE-SIMPLE-STRING ...)
; compiling (DEFUN STORE-SIMPLE-BASE-STRING ...)
; compiling (DEFUN DUMP-STRING ...)
; compiling (DEFRESTORE-CL-STORE (SIMPLE-STRING STREAM) ...)
; compiling (DEFRESTORE-CL-STORE (UNICODE-STRING STREAM) ...)
; compiling (DEFRESTORE-CL-STORE (SIMPLE-BASE-STRING STREAM) ...)
; compiling (DEFRESTORE-CL-STORE (UNICODE-BASE-STRING STREAM) ...)
; compiling (DEFUN UNDUMP-STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/default-backend.lisp
; in: DEFUN UNDUMP-STRING
; (MAKE-STRING LENGTH :ELEMENT-TYPE TYPE)
; --> THE
; ==>
; (MAKE-ARRAY (THE SB-INT:INDEX LENGTH) :ELEMENT-TYPE SB-C::ELEMENT-TYPE)
;
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; compiling (DEFSTORE-CL-STORE (OBJ PACKAGE ...) ...)
; compiling (DEFUN REMOVE-REMAINING ...)
; compiling (DEFRESTORE-CL-STORE (PACKAGE STREAM) ...)
; compiling (DEFUN INTERNAL-SYMBOLS ...)
; compiling (DEFUN EXTERNAL-SYMBOLS ...)
; compiling (DEFUN RESTORE-PACKAGE ...)
; compiling (DEFUN PARSE-NAME ...)
; compiling (DEFVAR *SBCL-READTABLE* ...)
; compiling (SET-MACRO-CHARACTER #\# ...)
; compiling (DEFUN GET-FUNCTION-NAME ...)
; compiling (DEFSTORE-CL-STORE (OBJ FUNCTION ...) ...)
; compiling (DEFRESTORE-CL-STORE (FUNCTION STREAM) ...)
; compiling (DEFSTORE-CL-STORE (OBJ GENERIC-FUNCTION ...) ...)
; compiling (DEFRESTORE-CL-STORE (GENERIC-FUNCTION STREAM) ...)
; compiling (SETF *DEFAULT-BACKEND* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/default-backend.fasl written
; compilation finished in 0:00:07
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/sbcl/custom.lisp" (written 15 DEC 2005 03:18:50 AM):
; compiling (IN-PACKAGE :CL-STORE)
; compiling (DEFVAR +SINGLE-POSITIVE-INFINITY+ ...)
; compiling (DEFVAR +SINGLE-NEGATIVE-INFINITY+ ...)
; compiling (DEFVAR +SINGLE-NAN+)
; compiling (DEFVAR +DOUBLE-POSITIVE-INFINITY+ ...)
; compiling (DEFVAR +DOUBLE-NEGATIVE-INFINITY+ ...)
; compiling (DEFVAR +DOUBLE-NAN+)
; compiling (SB-INT:WITH-FLOAT-TRAPS-MASKED (:OVERFLOW :INVALID) ...)
; compiling (SETF *SPECIAL-FLOATS* ...)
; compiling (DEFSTORE-CL-STORE (OBJ STRUCTURE-OBJECT ...) ...)
; compiling (DEFRESTORE-CL-STORE (STRUCTURE-OBJECT STREAM) ...)
; compiling (DEFUN GET-LAYOUT ...)
; compiling (DEFUN GET-INFO ...)
; compiling (DEFUN DD-NAME ...)
; compiling (DEFVAR *SBCL-STRUCT-INHERITS* ...)
; compiling (DEFSTRUCT (STRUCT-DEF #) ...)
; compiling (DEFUN INFO-OR-DIE ...)
; compiling (DEFUN SAVE-ABLE-SUPERS ...)
; compiling (DEFUN GET-SUPERS ...)
; compiling (DEFSTORE-CL-STORE (OBJ STRUCTURE-CLASS ...) ...)
; compiling (DEFSTORE-CL-STORE (OBJ STRUCT-DEF ...) ...)
; compiling (DEFUN SBCL-STRUCT-DEFS ...)
; compiling (DEFUN CREATE-MAKE-FOO ...)
; compiling (DEFUN SBCL-DEFINE-STRUCTURE ...)
; compiling (DEFUN SUPER-LAYOUT ...)
; compiling (DEFUN SUPER-LAYOUTS ...)
; compiling (DEFRESTORE-CL-STORE (STRUCTURE-CLASS STREAM) ...)
; compiling (DEFRESTORE-CL-STORE (STRUCT-DEF STREAM) ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-store_0.6.8/sbcl/custom.fasl written
; compilation finished in 0:00:00
;
; compilation unit finished
; printed 55 notes