REPL Output
;;; ASDF-INSTALL: Downloading 11475 bytes from http://fare.tunes.org/asdf-packages/fare-utils.tar.gz to /Users/gwking/temporary/asdf-test/FARE-UTILS.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/FARE-UTILS.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/
fare-utils/atomic.lisp
fare-utils/fare-utils.asd
fare-utils/msv.lisp
fare-utils/package.lisp
fare-utils/utils.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/package.lisp" (written 05 NOV 2005 09:22:15 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (DEFPACKAGE #:FARE-UTILS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp" (written 05 NOV 2005 09:18:52 PM):
; compiling (IN-PACKAGE #:FARE-UTILS)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFMACRO EVAL-NOW ...)
; compiling (EVAL-NOW (WHEN # ...))
; compiling (DEFMACRO DECLAIM-TYPE ...)
; compiling (DEFMACRO DECLAIM-TYPE ...)
; compiling (DEFMACRO THE* ...)
; compiling (DEFUN NIY ...)
; compiling (DEFUN QUIT ...)
; compiling (DEFUN NULL-STRING-P ...)
; compiling (DEFUN STUFF->STRING ...)
; compiling (DEFUN CONC-STRING ...)
; compiling (DEFUN CONC-SYMBOL-IN ...)
; compiling (DEFUN CONC-SYMBOL ...)
; compiling (DEFUN CONC-GENSYM ...)
; compiling (DEFUN CONC-KEYWORD ...)
; compiling (DEFUN PRINT-STRINGS ...)
; compiling (DEFUN JOIN-STRINGS ...)
; compiling (DEFUN PLIST->ALIST ...)
; compiling (DEFMACRO WITH-GENSYMS ...)
; compiling (DEFUN MERGE-BACKQUOTE-LIST ...)
; compiling (DEFMACRO EVALUATING-ONCE ...)
; compiling (DEFMACRO DEFSUBST ...)
; compiling (DEFMACRO DEFINE-ENCLOSING-MACRO ...)
; compiling (DEFMACRO DMM ...)
; compiling (DEFMACRO DEFINE-VALUES-MODIFY-MACRO ...)
; compiling (DEFMACRO DEFINE-VALUES-POST-MODIFY-MACRO ...)
; compiling (DEFMACRO DEFINE-POST-MODIFY-MACRO ...)
; compiling (DEFINE-POST-MODIFY-MACRO POST-INCF ...)
; compiling (DEFINE-POST-MODIFY-MACRO POST-DECF ...)
; compiling (DEFMACRO DEFINE-ABBREVS ...)
; compiling (DEFMACRO MULTIPLE-VALUE-QUOTE ...)
; compiling (DEFINE-ABBREVS MVBIND ...)
; compiling (DEFMACRO LET1 ...)
; compiling (DEFUN SYMBOL-MACRO-EXPANSION ...)
; compiling (DEFMACRO MAC ...)
; compiling (DEFMACRO TEST-ONLY ...)
; compiling (DEFMACRO IF-TESTING ...)
; compiling (DEFMACRO DBG-TIME ...)
; compiling (DEFUN REPORT-TESTING-ERROR ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN REPORT-TESTING-ERROR
; (FORMAT STREAM
; "Form ~A returned ~A instead of ~A."
; (FARE-UTILS::TESTING-ERROR-FAILED-FORM CONDITION)
; (FARE-UTILS::TESTING-ERROR-RETURNED-VALUE CONDITION)
; (FARE-UTILS::TESTING-ERROR-EXPECTED-VALUE CONDITION))
; ==>
; (FORMAT SB-C::DEST
; (FORMATTER "Form ~A returned ~A instead of ~A.")
; #:G569
; #:G570
; #:G571)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a STREAM.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a (MEMBER T).
; compiling (DEFINE-CONDITION TESTING-ERROR ...)
; compiling (DEFUN TEST-FORM-HELPER ...)
; compiling (DEFMACRO DO-TEST-FORM ...)
; compiling (DEFMACRO TEST-FORM ...)
; compiling (DEFMACRO TEST-FORMS ...)
; compiling (DEFMACRO TTEST ...)
; compiling (DEFMACRO TTEST* ...)
; compiling (DEFUN DO-DEBUG-MESSAGE ...)
; compiling (DEFMACRO DEBUG-MESSAGE ...)
; compiling (DEFMACRO MSG ...)
; compiling (DEFMACRO DBG ...)
; compiling (DEFUN NOP ...)
; compiling (DEFUN DISABLE-FUN ...)
; compiling (DEFUN ENABLE-FUN ...)
; compiling (DEFUN RLIST* ...)
; compiling (DEFUN RCONS ...)
; compiling (DEFUN FIRSTN ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN FIRSTN
; (SUBSEQ FARE-UTILS::L 0 FARE-UTILS::N)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 16)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES (SIMPLE-ARRAY FIXNUM (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 32)
; (*))
; &REST
; T).
; compiling (DEFUN APPEND/LIST ...)
; compiling (DEFUN MAPPEND ...)
; compiling (DEFUN MAPCAR2 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN MAPCAR2
; (FUNCALL FARE-UTILS::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.
; compiling (DEFUN INTEGERS-BELOW ...)
; compiling (DEFUN INTEGERS-BETWEEN ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN INTEGERS-BETWEEN
; (CEILING FARE-UTILS::N)
; ==>
; (CEILING FARE-UTILS::N 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.
; (LOOP FARE-UTILS::FOR
; FARE-UTILS::I
; FARE-UTILS::FROM
; (CEILING FARE-UTILS::N)
; FARE-UTILS::TO
; FARE-UTILS::M
; FARE-UTILS::COLLECT
; FARE-UTILS::I)
; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY
; --> TAGBODY WHEN COND IF
; ==>
; (> FARE-UTILS::I #:LOOP-LIMIT-754)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY
; --> TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 1+
; ==>
; (+ FARE-UTILS::I 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.
; compiling (DEFUN LIST-OF-INTEGERS ...)
; compiling (DEFUN COPY-LIST-WITHOUT-NTH ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN COPY-LIST-WITHOUT-NTH
; (= FARE-UTILS::I FARE-UTILS::N)
;
; 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).
;
; note: unable to open code because: The operands might not be the same type.
; (LOOP FARE-UTILS::FOR
; FARE-UTILS::X
; FARE-UTILS::IN
; LIST
; FARE-UTILS::FOR
; FARE-UTILS::I
; FIXNUM
; FARE-UTILS::FROM
; 0
; UNLESS
; (= FARE-UTILS::I FARE-UTILS::N)
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ
; ==>
; (THE #<SB-KERNEL:NUMERIC-TYPE FIXNUM> (1+ FARE-UTILS::I))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; compiling (DEFUN REMOVE-NTH ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN REMOVE-NTH
; (LOOP FARE-UTILS::WITH
; FARE-UTILS::HEAD
; =
; (CONS T NIL)
; FARE-UTILS::WITH
; FARE-UTILS::LINK
; =
; FARE-UTILS::HEAD
; FARE-UTILS::FOR
; FARE-UTILS::TAIL
; FARE-UTILS::ON
; ...)
; --> BLOCK LET LET LET LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN COND IF >= IF
; ==>
; (< FARE-UTILS::I #:LOOP-LIMIT-780)
;
; 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.
; --> BLOCK LET LET LET LET LET SB-LOOP::LOOP-BODY TAGBODY
; --> SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 1+
; ==>
; (+ FARE-UTILS::I 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 (TEST-FORM (REMOVE-NTH 3 ...) ...)
; compiling (DEFSUBST NDOLIST-WITH-REST-FUN ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFSUBST NDOLIST-WITH-REST-FUN
; (FUNCALL FARE-UTILS::FUN FARE-UTILS::ELEM REST)
; --> 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 (DEFSUBST DOLIST-WITH-REST-FUN ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFSUBST DOLIST-WITH-REST-FUN
; (COPY-SEQ LIST)
;
; 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).
; in: DEFSUBST NDOLIST-WITH-REST-FUN
; (FUNCALL FARE-UTILS::FUN FARE-UTILS::ELEM REST)
; --> 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 (DEFMACRO NDOLIST-WITH-REST ...)
; compiling (DEFMACRO DOLIST-WITH-REST ...)
; compiling (DEFUN EXTREMUM ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN EXTREMUM
; (FUNCALL FARE-UTILS::KEY FARE-UTILS::X)
; --> 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 FARE-UTILS::KEY FARE-UTILS::Y)
; --> 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 FARE-UTILS::PREDICATE
; (FUNCALL FARE-UTILS::KEY FARE-UTILS::X)
; (FUNCALL FARE-UTILS::KEY FARE-UTILS::Y))
; --> 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 LENGTH=-P ...)
; compiling (DEFUN LENGTH=N-P ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN LENGTH=N-P
; (ZEROP FARE-UTILS::N)
; --> = IF
; ==>
; (= FARE-UTILS::N 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.
; (1- FARE-UTILS::N)
; ==>
; (- FARE-UTILS::N 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.
; compiling (DEFUN LENGTH<-P ...)
; compiling (DEFUN LENGTH<N-P ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN LENGTH<N-P
; (ZEROP FARE-UTILS::N)
; ==>
; (= FARE-UTILS::N 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.
; (1- FARE-UTILS::N)
; ==>
; (- FARE-UTILS::N 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.
; compiling (DEFUN LENGTH<=-P ...)
; compiling (DEFUN LENGTH<=N-P ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN LENGTH<=N-P
; (1+ FARE-UTILS::N)
; ==>
; (+ FARE-UTILS::N 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 T, 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 T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFUN LENGTH>-P ...)
; compiling (DEFUN LENGTH>N-P ...)
; compiling (DEFUN LENGTH>=-P ...)
; compiling (DEFUN LENGTH>=N-P ...)
; compiling (DEFUN CONS-TREE-MAP ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN CONS-TREE-MAP
; (FUNCALL FARE-UTILS::FUN FARE-UTILS::X)
; --> 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 (DEFMACRO MAKE-KEYS ...)
; compiling (DEFUN DEFAULT-BEHAVIOR ...)
; compiling (DEFUN ASSOCIATION ...)
; compiling (DEFINE-SETF-EXPANDER ASSOCIATION ...)
; compiling (DEFUN COPY-ARRAY-SHAPE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN COPY-ARRAY-SHAPE
; (MAKE-ARRAY (ARRAY-DIMENSIONS ARRAY) :ELEMENT-TYPE (ARRAY-ELEMENT-TYPE ARRAY))
;
; note: unable to
; optimize
; because:
; The element-type is not constant; cannot open code array creation.
; compiling (DEFUN COPY-ARRAY ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN COPY-ARRAY
; (ARRAY-TOTAL-SIZE ARRAY)
;
; note: unable to optimize because: can't tell the rank at compile time
; (ROW-MAJOR-AREF ARRAY FARE-UTILS::I)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:%CHECK-BOUND
; ==>
; (ARRAY-TOTAL-SIZE ARRAY)
;
; note: unable to optimize because: can't tell the rank at compile time
; ==>
; (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.
; (SETF (ROW-MAJOR-AREF FARE-UTILS::NEW-ARRAY FARE-UTILS::I)
; (ROW-MAJOR-AREF ARRAY FARE-UTILS::I))
; --> 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
; --> 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 SIMPLE-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 FILL-ARRAY ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN FILL-ARRAY
; (ARRAY-TOTAL-SIZE ARRAY)
;
; note: unable to optimize because: can't tell the rank at compile time
; (FILL
; (MAKE-ARRAY (ARRAY-TOTAL-SIZE ARRAY)
; :ELEMENT-TYPE
; (ARRAY-ELEMENT-TYPE ARRAY)
; :DISPLACED-TO
; ARRAY)
; FARE-UTILS::VALUE)
;
; note: unable to
; open code
; because:
; upgraded array element type not known at compile time
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-BIT-VECTOR.
; The second argument is a T, not a BIT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-BASE-STRING.
; The second argument is a T, not a BASE-CHAR.
; compiling (DEFUN N-STREAM-HAS-CHAR-P ...)
; compiling (DEFUN N-STREAM-EOL-P ...)
; compiling (DEFUN COMPOSE/2 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN COMPOSE/2
; (MULTIPLE-VALUE-CALL FARE-UTILS::F (APPLY FARE-UTILS::G REST))
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FARE-UTILS::F)
;
; 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.
; (APPLY FARE-UTILS::G REST)
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FARE-UTILS::G)
;
; 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 COMPOSE ...)
; compiling (DEFUN I ...)
; compiling (DEFUN K ...)
; compiling (DEFUN S ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN S
; (FUNCALL FARE-UTILS::F FARE-UTILS::X)
; --> 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 FARE-UTILS::G FARE-UTILS::X)
; --> 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 (FUNCALL FARE-UTILS::F FARE-UTILS::X)
; (FUNCALL FARE-UTILS::G FARE-UTILS::X))
; --> 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 C ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN C
; (FUNCALL FARE-UTILS::G FARE-UTILS::X)
; --> 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 FARE-UTILS::F (FUNCALL FARE-UTILS::G FARE-UTILS::X))
; --> 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 (DEFMACRO AIF ...)
; compiling (WITH-GENSYMS (RESULT TEST) ...)
; compiling (DEFUN BINDABLE-SYMBOL-P ...)
; compiling (DEFUN NORMALIZE-OPTIONAL-BINDING ...)
; compiling (DEFUN OPTIONAL-BINDING-SYMBOL ...)
; compiling (DEFUN FIRST-BINDING ...)
; compiling (DEFMACRO IF-BIND ...)
; compiling (DEFMACRO DEFXCOND ...)
; compiling (DEFXCOND ACOND ...)
; compiling (DEFXCOND COND2 ...)
; compiling (DEFXCOND ACOND2 ...)
; compiling (DEFMACRO MAPMACRO ...)
; compiling (DEFMACRO PROPMACRO ...)
; compiling (DEFMACRO PROPMACROS ...)
; compiling (DEFMACRO HASHMACRO ...)
; compiling (DEFMACRO HASHMACROS ...)
; compiling (DEFUN ERROR-BEHAVIOUR ...)
; compiling (DEFUN MAKE-PREDICATE-SYMBOL ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN MAKE-PREDICATE-SYMBOL
; (EVERY #'ALPHANUMERICP FARE-UTILS::N)
; --> LET BLOCK MAP LAMBDA FUNCTION LET FUNCALL SB-C::%FUNCALL BLOCK LET OR LET
; --> < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET BLOCK MAP TRULY-THE
; ==>
; (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G1127)
;
; note: unable to open code because: can't determine sequence argument type
; --> LET BLOCK MAP LAMBDA FUNCTION LET FUNCALL SB-C::%FUNCALL BLOCK LET OR LET
; --> IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET BLOCK MAP LAMBDA FUNCTION LET FUNCALL SB-C::%FUNCALL 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 SINGLE-ARG-FORM-P ...)
; compiling (DEFUN PROPER-LIST-P ...)
; compiling (DEFUN SINGLE-ARG ...)
; compiling (DEFMACRO MAKE-SINGLE-ARG-FORM ...)
; compiling (MAKE-SINGLE-ARG-FORM QUOTE ...)
; compiling (DEFUN COMBINATIONP ...)
; compiling (DEFUN LITERALP ...)
; compiling (DEFMACRO COPY-SYMBOL-VALUE ...)
; compiling (DEFMACRO COPY-SYMBOL-FUNCTION ...)
; compiling (DEFSTRUCT FIFO ...)
; compiling (DEFUN FIFO-EMPTY-P ...)
; compiling (DEFUN FIFO-ENQUEUE ...)
; compiling (DEFUN FIFO-DEQUEUE ...)
; compiling (DEFUN FIFO-NCONC2 ...)
; compiling (DEFUN FIFO-DEQUEUE-OBJECT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN FIFO-DEQUEUE-OBJECT
; (EQL FARE-UTILS::OBJ FARE-UTILS::TOP)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
;
; note: forced to do GENERIC-EQL (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; compiling (DEFMACRO DEFCONSTANT* ...)
; compiling (DEFUN DO-BEGIN-GENSYM* ...)
; compiling (DEFUN DO-END-GENSYM* ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.lisp
; in: DEFUN DO-END-GENSYM*
; (DO-SYMBOLS (FARE-UTILS::L :TMP) (UNINTERN FARE-UTILS::L :TMP))
; --> BLOCK FLET LET* FLET BLOCK LET DOTIMES DO BLOCK LET TAGBODY TAGBODY WHEN
; --> COND IF PROGN LET UNLESS COND IF NOT IF MEMBER BLOCK LET DO BLOCK LET
; --> TAGBODY TAGBODY LET IF SB-IMPL::SATISFIES-THE-TEST LET COND IF PROGN
; --> FUNCALL SB-C::%FUNCALL
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1
; SB-C::STRING2
; SB-C::START1
; SB-C::END1
; SB-C::START2
; SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; The second argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; compiling (DEFUN GENSYM* ...)
; compiling (DEFMACRO BEGIN-GENSYM* ...)
; compiling (DEFMACRO END-GENSYM* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/utils.fasl written
; compilation finished in 0:00:03
STYLE-WARNING: redefining NULL-STRING-P in DEFUN
STYLE-WARNING: redefining STUFF->STRING in DEFUN
STYLE-WARNING: redefining CONC-STRING in DEFUN
STYLE-WARNING: redefining CONC-SYMBOL-IN in DEFUN
STYLE-WARNING: redefining CONC-SYMBOL in DEFUN
STYLE-WARNING: redefining CONC-GENSYM in DEFUN
STYLE-WARNING: redefining CONC-KEYWORD in DEFUN
STYLE-WARNING: redefining PRINT-STRINGS in DEFUN
STYLE-WARNING: redefining JOIN-STRINGS in DEFUN
STYLE-WARNING: redefining PLIST->ALIST in DEFUN
STYLE-WARNING: redefining MAKE-PREDICATE-SYMBOL in DEFUN
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/msv.lisp" (written 03 NOV 2005 07:27:35 PM):
; compiling (IN-PACKAGE :FARE-UTILS)
; compiling (HASHMACRO MSV-NAMED)
; compiling (DEFUN MAKE-MSV-CACHE ...)
; compiling (DEFVAR *MSV-CACHE* ...)
; compiling (DEFSTRUCT (MAGIC-SPECIAL-VARIABLE # ...) ...)
; compiling (DEFSTRUCT (MAGIC-SPECIAL-VARIABLE-CACHE # ...) ...)
; compiling (DEFUN DO-WRITE-MSV ...)
; compiling (DEFUN DO-READ-MSV ...)
; compiling (DEFUN MSV-CACHE ...)
; compiling (DEFUN DO-MAKE-MSV-CACHE ...)
; compiling (DEFUN ENSURE-MSV-CACHE ...)
; compiling (DEFUN DO-FLUSH-MSV-WRITE-CACHE ...)
; compiling (DEFUN DO-INVALIDATE-MSV-CACHE ...)
; compiling (DEFUN DO-FLUSH-AND-INVALIDATE-MSV-CACHE ...)
; compiling (DEFUN DO-FILL-MSV-READ-CACHE ...)
; compiling (DEFUN MSV-GET ...)
; compiling (DEFUN MSV-SET ...)
; compiling (DEFUN (SETF MSV-GET) ...)
; compiling (DEFMACRO MAGIC-SPECIAL-VARIABLE ...)
; compiling (DEFUN FLUSH-ALL-MSV ...)
; compiling (DEFUN FLUSH-AND-INVALIDATE-ALL-MSV ...)
; compiling (DEFUN REGISTER-MSV ...)
; compiling (DEFMACRO REGISTER-MAGIC-SPECIAL-VARIABLE ...)
; compiling (DEFMACRO DEFINE-MAGIC-SPECIAL-VARIABLE ...)
; compiling (DEFMACRO WITH-MAGIC-SPECIAL-VARIABLES ...)
; compiling (DEFMACRO WITH-MAGIC-SPECIAL-VARIABLES-SAFELY ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFINE-ABBREVS DEFMSV ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/fare-utils/msv.fasl written
; compilation finished in 0:00:01
;
; compilation unit finished
; printed 101 notes