REPL Output
;;; ASDF-INSTALL: Downloading 30338 bytes from http://www.csd.uwo.ca/~wozniak/eel/eel_0.2.tar.gz to /Users/gwking/temporary/asdf-test/EEL.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/EEL.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/
eel/eel.asd
eel/eel.lisp
eel/INSTALL
eel/README
eel/asdf-init.lisp
eel/packages.lisp
eel/utils.lisp
eel/patterns/dsource.lisp
eel/patterns/matching.lisp
eel/patterns/matchpred.lisp
eel/patterns/packages.lisp
eel/patterns/patterns.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/patterns/packages.lisp" (written 26 MAR 2006 09:16:25 PM):
; compiling (DEFPACKAGE DATA-SOURCE ...)
; compiling (DEFPACKAGE EEL-PATTERN-MATCHER ...)
; compiling (DEFPACKAGE EEL-PATTERN-MATCHER-PREDICATES ...)
; compiling (DEFPACKAGE EEL-COMPLEX-PATTERN-MATCHING ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/patterns/packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/patterns/dsource.lisp" (written 01 APR 2006 03:27:31 PM):
; compiling (IN-PACKAGE "DATA-SOURCE")
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DECLAIM (INLINE GET-NEXT ...))
; compiling (DEFTYPE GET-NEXT-FUNCTION ...)
; compiling (DEFTYPE SUBSEQ-FUNCTION ...)
; compiling (DEFSTRUCT SOURCE ...)
; compiling (DEFUN GET-NEXT-DUMMY ...)
; compiling (DEFUN SUBSEQ-DUMMY ...)
; compiling (DEFUN NEXT-POS-EOF-VALUE ...)
; compiling (DEFUN NEXT-POS-EOF-VALUE-P ...)
; compiling (DEFUN GET-NEXT ...)
; compiling (DEFMACRO LOOKUP-IN-CACHE ...)
; compiling (DEFMACRO ADD-TO-CACHE ...)
; compiling (DEFUN DATA-SOURCE-P ...)
; compiling (DEFUN BOFP ...)
; compiling (DEFUN EOFP ...)
; compiling (DEFUN NEXT ...)
; compiling (DEFUN CURRENT ...)
; compiling (DEFUN POSITION-OF ...)
; compiling (DEFUN RESET ...)
; compiling (DEFUN SUBSEQUENCE ...)
; compiling (DEFMACRO CONSTRUCT-GET-NEXT-FUNCTION ...)
; compiling (DEFMACRO CONSTRUCT-SUBSEQUENCE-FUNCTION ...)
; compiling (DEFPARAMETER *DATA-SOURCE-TYPES* ...)
; compiling (DEFMACRO DEFINE-DATA-SOURCE-TYPE-MEASUREABLE ...)
; compiling (DEFMACRO DEFINE-DATA-SOURCE-TYPE-READABLE ...)
; compiling (DEFMACRO DEFINE-DATA-SOURCE-TYPE-CACHABLE ...)
; compiling (DEFMACRO DEFINE-DATA-SOURCE-MEASURABLE-HIERARCHY ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/patterns/dsource.lisp
; in: DEFMACRO DEFINE-DATA-SOURCE-MEASURABLE-HIERARCHY
; (LABELS ((DATA-SOURCE::GENERATE-HIERARCHIES
; (DATA-SOURCE::HIERARCHIES &OPTIONAL (DATA-SOURCE::CODE NIL))
; (COND (# DATA-SOURCE::CODE) (# `#) (T #))))
; `(PROGN
; ,@(REVERSE (DATA-SOURCE::GENERATE-HIERARCHIES DATA-SOURCE::HIERARCHIES))))
;
; note: Return type not fixed values, so can't use known return convention:
; *
; compiling (DEFINE-DATA-SOURCE-MEASURABLE-HIERARCHY (# # ...) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/patterns/dsource.lisp
; in: DEFMACRO DEFINE-DATA-SOURCE-TYPE-MEASUREABLE
; (SUBSEQ DATA-SOURCE::SRC DATA-SOURCE::START DATA-SOURCE::END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (SIMPLE-ARRAY * (*))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (SIMPLE-ARRAY * (*))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The result is a (VALUES (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 VECTOR, not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES (SIMPLE-ARRAY * (*))
; &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY FIXNUM (*)).
; The result is a (VALUES (SIMPLE-ARRAY * (*))
; &OPTIONAL), not a (VALUES (SIMPLE-ARRAY FIXNUM (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The result is a (VALUES (SIMPLE-ARRAY * (*))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 32)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a BIT-VECTOR, not a SIMPLE-BIT-VECTOR.
; (LENGTH DATA-SOURCE::SRC)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (SUBSEQ DATA-SOURCE::SRC DATA-SOURCE::START DATA-SOURCE::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).
; (LENGTH DATA-SOURCE::SRC)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (SUBSEQ DATA-SOURCE::SRC DATA-SOURCE::START DATA-SOURCE::END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; (LENGTH DATA-SOURCE::SRC)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; in:
; DEFINE-DATA-SOURCE-MEASURABLE-HIERARCHY ((:TYPE VECTOR :ACCESSOR SVREF)
; ((:TYPE STRING :ACCESSOR CHAR)
; ((:TYPE SIMPLE-STRING
; :ACCESSOR
; SCHAR)
; ((:TYPE # :ACCESSOR SCHAR))))
; ((:TYPE BIT-VECTOR :ACCESSOR SBIT)))
; (DATA-SOURCE::DEFINE-DATA-SOURCE-MEASURABLE-HIERARCHY
; ((:TYPE VECTOR :ACCESSOR SVREF)
; ((:TYPE STRING :ACCESSOR CHAR) ((:TYPE SIMPLE-STRING :ACCESSOR SCHAR) (#)))
; ((:TYPE BIT-VECTOR :ACCESSOR SBIT)))
; ((:TYPE LIST :ACCESSOR SVREF :COERCE-TO VECTOR)))
; --> PROGN DATA-SOURCE::DEFINE-DATA-SOURCE-TYPE-MEASUREABLE PUSH LET* LET*
; --> CONS FUNCTION LET LET SETF LET* MULTIPLE-VALUE-BIND LET LET
; --> DATA-SOURCE::CONSTRUCT-GET-NEXT-FUNCTION FUNCTION LET IF VALUES CHAR 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.
; in: DEFMACRO DEFINE-DATA-SOURCE-TYPE-MEASUREABLE
; (SUBSEQ DATA-SOURCE::SRC DATA-SOURCE::START DATA-SOURCE::END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (SIMPLE-ARRAY * (*))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (SIMPLE-ARRAY * (*))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The result is a (VALUES (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 VECTOR, not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES (SIMPLE-ARRAY * (*))
; &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The result is a (VALUES (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 VECTOR, not a (SIMPLE-ARRAY FIXNUM (*)).
; The result is a (VALUES (SIMPLE-ARRAY * (*))
; &OPTIONAL), not a (VALUES (SIMPLE-ARRAY FIXNUM (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The result is a (VALUES (SIMPLE-ARRAY * (*))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 32)
; (*))
; &REST
; T).
; (LENGTH DATA-SOURCE::SRC)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; compiling (DEFINE-DATA-SOURCE-TYPE-READABLE :TYPE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/patterns/dsource.lisp
; in: DEFMACRO DEFINE-DATA-SOURCE-TYPE-READABLE
; (EQL DATA-SOURCE::EOF-VALUE DATA-SOURCE::OBJ)
;
; 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.
; in: DEFINE-DATA-SOURCE-TYPE-READABLE :TYPE
; (DATA-SOURCE::DEFINE-DATA-SOURCE-TYPE-READABLE :TYPE
; STREAM
; :POS-FUNC
; FILE-POSITION)
; --> PUSH LET* LET* CONS FUNCTION LET SETF LET* MULTIPLE-VALUE-BIND LET
; --> DATA-SOURCE::CONSTRUCT-SUBSEQUENCE-FUNCTION FUNCTION LET LOOP BLOCK
; --> SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY TAGBODY
; --> UNLESS COND IF NOT IF
; ==>
; (< (FILE-POSITION DATA-SOURCE::SRC) DATA-SOURCE::END)
;
; 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.
; compiling (DEFINE-DATA-SOURCE-TYPE-CACHABLE :TYPE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/patterns/dsource.lisp
; in: DEFMACRO DEFINE-DATA-SOURCE-TYPE-CACHABLE
; (< (DATA-SOURCE:POSITION-OF DATA-SOURCE::DSRC) DATA-SOURCE::END)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (EQL DATA-SOURCE::EOF-VALUE DATA-SOURCE::OBJ)
;
; 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.
; (< (DATA-SOURCE:POSITION-OF DATA-SOURCE::DSRC) DATA-SOURCE::END)
;
; 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.
; (DATA-SOURCE::CONSTRUCT-GET-NEXT-FUNCTION (DATA-SOURCE::SRC DATA-SOURCE::POS)
; (DATA-SOURCE::OBJ
; (FUNCALL DATA-SOURCE::SRC))
; (EQL DATA-SOURCE::EOF-VALUE
; DATA-SOURCE::OBJ)
; NIL
; (1+ DATA-SOURCE::POS)
; FUNCTION)
; --> FUNCTION LET IF
; ==>
; (VALUES DATA-SOURCE::OBJ (1+ DATA-SOURCE::POS))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; compiling (DEFUN SOURCE-TYPE-LOOKUP ...)
; compiling (DEFTYPE CREATE-DATA-SOURCE-FUNCTION ...)
; compiling (DEFUN CREATE-DATA-SOURCE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/patterns/dsource.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/patterns/matching.lisp" (written 08 MAR 2006 08:32:32 AM):
; compiling (IN-PACKAGE "EEL-PATTERN-MATCHER")
; compiling (DEFUN MAX-REPETITIONS ...)
; compiling (DEFUN NORMALIZE-PATTERN ...)
; compiling (DEFUN NORMALIZE-SIMPLE-PATTERN ...)
; compiling (DEFUN NORMALIZE-COMPOUND-PATTERN ...)
; compiling (DEFUN NORMALIZE-GROUP-NAME ...)
; compiling (DEFUN NORMALIZE-REPETITION-ELEMS ...)
; compiling (DEFUN FLATTEN-PATTERN ...)
; compiling (DEFUN FLATTEN-ALT/SEQ ...)
; compiling (DEFUN FLATTEN-REP/LAZY ...)
; compiling (DEFUN NUMBER-GROUPS ...)
; compiling (DEFUN NUMBER-GROUPS-1 ...)
; compiling (DEFUN NUMBER-GREEDY-REPETITION ...)
; compiling (DEFUN NUMBER-BACKREFERENCE ...)
; compiling (DEFUN COMPILE-PATTERN ...)
; compiling (DEFUN OPTIMIZE-PATTERN ...)
; compiling (DEFUN TRANSFORM-PATTERN ...)
; compiling (DEFUN SIMPLE-PATTERN-P ...)
; compiling (DEFUN COMPOUND-PATTERN-P ...)
; compiling (DEFUN PATTERN-P ...)
; compiling (DEFUN COUNT-GROUPS ...)
; compiling (DEFUN COUNT-GROUPS-1 ...)
; compiling (DEFSTRUCT ALTBTT ...)
; compiling (DEFSTRUCT SEQBTT ...)
; compiling (DEFSTRUCT GROUPBTT ...)
; compiling (DEFSTRUCT GREEDY-REPBTT ...)
; compiling (DEFSTRUCT LAZY-REPBTT ...)
; compiling (DEFUN CREATE-BACKTRACK-TEMPLATE ...)
; compiling (DEFSTRUCT BACKREFS ...)
; compiling (DEFUN BACKREFS-ADD ...)
; compiling (DEFUN BACKREFS-CLEAR ...)
; compiling (DEFUN BACKREFS-NTH-LAST ...)
; compiling (DEFUN BACKREFS-TRANSLATE-INDICATOR ...)
; compiling (DEFUN BACKREFS-INFO ...)
; compiling (DEFUN BACKREFS-INVERT-SYMTAB ...)
; compiling (DEFUN BACKREFS-SPOS/EPOS-ALIST ...)
; compiling (DEFUN BACKREFS-CREATE-SYMTAB ...)
; compiling (DEFUN MAKE-BACKREFERENCES ...)
; compiling (DEFSTRUCT MATCHENV ...)
; compiling (DEFUN MATCHENV-LOOKUP-OPTION ...)
; compiling (DEFUN ADD-BACKREFERENCE ...)
; compiling (DEFUN CLEAR-BACKREFERENCE ...)
; compiling (DEFUN BACKREFERENCE-INFO ...)
; compiling (DEFUN BACKREFERENCE-END-POSITION ...)
; compiling (DEFUN BOFP ...)
; compiling (DEFUN EOFP ...)
; compiling (DEFUN CURRENT ...)
; compiling (DEFUN NEXT ...)
; compiling (DEFUN POS-OF ...)
; compiling (DEFMACRO WITH-CURRENT-POSITION ...)
; compiling (DEFSTRUCT (MATCH-CONTINUATION #) ...)
; compiling (DEFUN MC-ADD-EXTRA-INFO ...)
; compiling (DEFUN MC-UPDATE-EXTRA-INFO ...)
; compiling (DEFUN MC-LOOKUP-EXTRA-INFO ...)
; compiling (DEFUN MAKE-SUBSEQUENCES-SYMTAB ...)
; compiling (DEFUN GROUPING-INFORMATION ...)
; compiling (DEFUN MATCH-CONTINUATION ...)
; compiling (DEFUN BUNDLE-MATCH-VALUES ...)
; compiling (DEFUN BUNDLE-AS-CONTINUATION ...)
; compiling (DEFUN MATCH ...)
; compiling (DEFUN SCAN ...)
; compiling (DEFUN MATCH-PATTERN ...)
; compiling (DEFUN MATCH-BEGINNING ...)
; compiling (DEFUN MATCH-END ...)
; compiling (DEFUN MATCH-EMPTY ...)
; compiling (DEFUN MATCH-PRED ...)
; compiling (DEFUN MATCH-OBJECT ...)
; compiling (DEFUN ALTBTT-RESET ...)
; compiling (DEFUN ALTBTT-INIT-P ...)
; compiling (DEFUN ALTBTT-END-P ...)
; compiling (DEFUN ALTBTT-CURRENT-SUB-BTT ...)
; compiling (DEFUN ALTBTT-PTR-INCREMENT ...)
; compiling (DEFUN ALTBTT-ADJUST-PTR ...)
; compiling (DEFUN ALTERNATION-NEXT-PATTERN ...)
; compiling (DEFUN MATCH-ALTERNATION-CONTINUE-FORWARD ...)
; compiling (DEFUN MATCH-ALTERNATION ...)
; compiling (DEFUN SEQBTT-INIT-P ...)
; compiling (DEFUN SEQBTT-RESET ...)
; compiling (DEFUN SEQBTT-BACKTRACK-P ...)
; compiling (DEFUN SEQBTT-FORWARD-P ...)
; compiling (DEFUN SEQBTT-INCREMENT-PTR ...)
; compiling (DEFUN SEQBTT-PTR-IN-RANGE ...)
; compiling (DEFUN SEQBTT-CURRENT-SUB-BTT ...)
; compiling (DEFUN SEQBTT-CURRENT-SUB-PATTERN ...)
; compiling (DEFUN SEQBTT-PUSH-STACK ...)
; compiling (DEFUN SEQBTT-ADJUST-PTR-DOWN ...)
; compiling (DEFUN SEQUENCE-NEXT-PATTERN ...)
; compiling (DEFUN SEQUENCE-SUCCESS-P ...)
; compiling (DEFUN SEQUENCE-FAILURE-P ...)
; compiling (DEFUN SEQUENCE-CONTINUE-FORWARD ...)
; compiling (DEFUN SEQUENCE-BACKTRACK ...)
; compiling (DEFUN MATCH-SEQUENCE ...)
; compiling (DEFUN GCOUNT ...)
; compiling (DEFUN GREEDY-REPBTT-INIT-P ...)
; compiling (DEFUN GREEDY-REPBTT-INIT ...)
; compiling (DEFUN GREEDY-REPBTT-RESET ...)
; compiling (DEFUN GREEDY-REPBTT-FORWARD-P ...)
; compiling (DEFUN GREEDY-REPBTT-INCREMENT-LEVEL ...)
; compiling (DEFUN GREEDY-REPBTT-DECREMENT-LEVEL ...)
; compiling (DEFUN GREEDY-REPBTT-COLLECT-BREFS ...)
; compiling (DEFUN GREEDY-REPBTT-RESTORE-BREFS ...)
; compiling (DEFUN GSTACK-BREFS ...)
; compiling (DEFUN GSTACK-POS ...)
; compiling (DEFUN GSTACK-BTT ...)
; compiling (DEFUN GREEDY-REPBTT-STACK-EMPTY-P ...)
; compiling (DEFUN GREEDY-REPBTT-TOP ...)
; compiling (DEFUN GREEDY-REPBTT-POP ...)
; compiling (DEFUN GREEDY-REPBTT-PUSH ...)
; compiling (DEFUN GREEDY-REPBTT-TOP-CONTINUES-P ...)
; compiling (DEFUN GREEDY-REPBTT-LAST-MATCH-ADVANCED-P ...)
; compiling (DEFUN GREEDY-REP-NEXT-PATTERN ...)
; compiling (DEFUN GREEDY-REP-CONTINUE-FORWARD ...)
; compiling (DEFUN MATCH-GREEDY-REP ...)
; compiling (DEFUN LCOUNT ...)
; compiling (DEFUN LAZY-REPBTT-INIT ...)
; compiling (DEFUN LAZY-REPBTT-START-MARKER-P ...)
; compiling (DEFUN LAZY-REPBTT-INIT-P ...)
; compiling (DEFUN LAZY-REPBTT-RESET ...)
; compiling (DEFUN LAZY-REPBTT-BACKWARD-P ...)
; compiling (DEFUN LAZY-REPBTT-FORWARD-P ...)
; compiling (DEFUN LAZY-REPBTT-INCREMENT-COUNT ...)
; compiling (DEFUN LAZY-REPBTT-PUSH ...)
; compiling (DEFUN LAZY-REP-STARTPOS-OF-MATCH ...)
; compiling (DEFUN LAZY-REP-NEXT-SUB-BTT ...)
; compiling (DEFUN LAZY-REP-FORWARD ...)
; compiling (DEFMACRO WITH-NEXT-SUBBTT/STARTPOS ...)
; compiling (DEFUN MATCH-LAZY-REP ...)
; compiling (DEFUN GROUPBTT-INIT-P ...)
; compiling (DEFUN GROUPBTT-RESET ...)
; compiling (DEFUN GROUP-CURRENT-SUB-BTT ...)
; compiling (DEFMACRO WITH-GROUPING-SETUP ...)
; compiling (DEFUN MATCH-GROUPING ...)
; compiling (DEFUN BREF-MATCH-OBJECT ...)
; compiling (DEFUN BREF-MATCH-PRED ...)
; compiling (DEFUN BREF-MATCH-ALTERNATION ...)
; compiling (DEFUN BREF-MATCH-SEQUENCE ...)
; compiling (DEFUN BREF-MATCH-GREEDY-REP ...)
; compiling (DEFUN BREF-MATCH-LAZY-REP ...)
; compiling (DEFUN BREF-MATCH-GROUP ...)
; compiling (DEFUN BREF-MATCH-BACKREFERENCE ...)
; compiling (DEFUN BREF-MATCH ...)
; compiling (DEFUN MATCH-BACKREFERENCE ...)
; compiling (DEFUN SPLIT-DEFPRED-BODY ...)
; compiling (DEFMACRO DEFPPRED ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/patterns/matching.fasl written
; compilation finished in 0:00:04
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/patterns/matchpred.lisp" (written 22 MAR 2006 10:28:20 PM):
; compiling (IN-PACKAGE "EEL-PATTERN-MATCHER-PREDICATES")
; compiling (DEFPPRED ANYTHING ...)
; compiling (DEFPPRED ALPHA? ...)
; compiling (DEFPPRED ALNUM? ...)
; compiling (DEFPPRED BLANK? ...)
; compiling (DEFPPRED DIGIT? ...)
; compiling (DEFPPRED LOWER? ...)
; compiling (DEFPPRED UPPER? ...)
; compiling (DEFPPRED PUNCT? ...)
; compiling (DEFPPRED SPACE? ...)
; compiling (DEFPPRED WORD? ...)
; compiling (DEFPPRED INT? ...)
; compiling (DEFPPRED CHAR? ...)
; compiling (DEFPPRED SYMBOL? ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/patterns/matchpred.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/patterns/patterns.lisp" (written 06 APR 2006 11:44:45 PM):
; compiling (IN-PACKAGE "EEL-COMPLEX-PATTERN-MATCHING")
; compiling (DEFUN TO-LIST ...)
; compiling (DEFUN SEQL ...)
; compiling (DEFUN START-WITH-P ...)
; compiling (DEFUN END-WITH-P ...)
; compiling (DEFUN DELIMITED-BY-P ...)
; compiling (DEFUN HALF-DELIMITED-BY-P ...)
; compiling (DEFUN CONVENTIONAL-NAME-P ...)
; compiling (DEFUN LENGTH-SYMBOL-P ...)
; compiling (DEFUN EXTRACT-LENGTH-SYMBOL ...)
; compiling (DEFUN CHOP-SYMBOL ...)
; compiling (DEFUN LAMBDA-LIST-KEYWORD-P ...)
; compiling (DEFUN INTERPOLATION-READER ...)
; compiling (DEFUN BRACE-READER ...)
; compiling (DEFUN VERT-READER ...)
; compiling (DEFMACRO WITH-PDESC-READER ...)
; compiling (DEFSTRUCT (PATTERN-DICTIONARY # ...) ...)
; compiling (DEFUN PRINT-PATTERN-DICTIONARY ...)
; compiling (DEFUN COPY-PATTERN-DICTIONARY ...)
; compiling (DEFUN PATTERN-DICTIONARY-PROTECTED-P ...)
; compiling (DEFUN PATTERN-DICTIONARY-SET-PROTECTED ...)
; compiling (DEFUN PATTERN-DICTIONARY-UNSET-PROTECTED ...)
; compiling (DEFUN PATTERN-DICTIONARY-SET ...)
; compiling (DEFUN PATTERN-DICTIONARY-GET-ALL ...)
; compiling (DEFUN PATTERN-DICTIONARY-GET ...)
; compiling (DEFUN PATTERN-DICTIONARY-REMOVE ...)
; compiling (DEFUN PATTERN-DICTIONARY-PRINT ...)
; compiling (DEFPARAMETER *PATTERN-DICTIONARY* ...)
; compiling (DEFUN SYMBOLIC-PSUBST-NAME ...)
; compiling (DEFUN SET-SYMBOLIC-PATTERN-SUBST ...)
; compiling (DEFUN GET-SYMBOLIC-PATTERN-SUBST ...)
; compiling (DEFUN REMOVE-SYMBOLIC-PATTERN-SUBST ...)
; compiling (DEFUN SYMBOLIC-PATTERN-SUBST-P ...)
; compiling (DEFUN SYMBOLIC-PATTERN-SUBST-PROTECTED-P ...)
; compiling (SET-SYMBOLIC-PATTERN-SUBST :START ...)
; compiling (SET-SYMBOLIC-PATTERN-SUBST :END ...)
; compiling (SET-SYMBOLIC-PATTERN-SUBST :EMPTY ...)
; compiling (SET-SYMBOLIC-PATTERN-SUBST :E ...)
; compiling (SET-SYMBOLIC-PATTERN-SUBST (QUOTE ^) ...)
; compiling (SET-SYMBOLIC-PATTERN-SUBST (QUOTE $) ...)
; compiling (SET-SYMBOLIC-PATTERN-SUBST (QUOTE _) ...)
; compiling (DEFSTRUCT PINFO ...)
; compiling (DEFUN PINFO-LOOKUP-SUBST ...)
; compiling (DEFUN PINFO-SUBST-P ...)
; compiling (DEFUN PINFO-LOOKUP-ALIAS ...)
; compiling (DEFUN PINFO-ALIAS-P ...)
; compiling (DEFUN PINFO-ADD-IGNORE ...)
; compiling (DEFUN PINFO-ADD-ALIAS ...)
; compiling (DEFUN PINFO-ADD-SUBSTITUTION ...)
; compiling (DEFUN PINFO-ADD-CONSTRAINT ...)
; compiling (DEFUN PINFO-CLEAR-NAMES-SEEN ...)
; compiling (DEFUN PINFO-ADD-NAME-SEEN ...)
; compiling (DEFUN PINFO-NAME-SEEN-P ...)
; compiling (DEFUN PINFO-ALIASED-NAMES ...)
; compiling (DEFUN PINFO-EXPORTED-NAMES-LOCAL ...)
; compiling (DEFUN PINFO-EXPORTED-NAMES ...)
; compiling (DEFUN PINFO-ADD-NAMEMAP/CFUNC ...)
; compiling (DEFUN BASE-OF-PINFO ...)
; compiling (DEFUN PINFO-SOURCES-EXPECTED ...)
; compiling (DEFUN PARSE-COVER-PATTERN-ELEMENT ...)
; compiling (DEFUN PARSE-COVER-PATTERN ...)
; compiling (DEFUN PARSE-WPATT-BASIC-SYMBOL ...)
; compiling (DEFUN PARSE-WPATT-BASIC ...)
; compiling (DEFUN PARSE-WPATT-SYMBOL ...)
; compiling (DEFUN PARSE-WPATT-SS-LOOKUP ...)
; compiling (DEFUN PARSE-WPATT-GROUP ...)
; compiling (DEFUN PARSE-WPATT-MAPPER ...)
; compiling (DEFUN PARSE-WPATT-LIST ...)
; compiling (DEFUN PARSE-WPATT ...)
; compiling (DEFUN PARSE-WRITTEN-PATTERN ...)
; compiling (DEFUN PARSE-ALIAS ...)
; compiling (DEFUN PARSE-ALIAS/SUBST ...)
; compiling (DEFUN PARSE-ALL-CLAUSE ...)
; compiling (DEFUN PARSE-SOME-CLAUSE ...)
; compiling (DEFUN PARSE-ALIAS/CONSTRAINT ...)
; compiling (DEFUN NORMALIZE-LENGTH-CONSTRAINT-FORM ...)
; compiling (DEFUN LENGTH-CONSTRAINT-END-MARKER-P ...)
; compiling (DEFUN PARSE-CHAINED-LENGTH-CONSTRAINT ...)
; compiling (DEFUN PARSE-LENGTH-CONSTRAINT ...)
; compiling (DEFUN PARSE-WHERE-CLAUSE ...)
; compiling (DEFUN PARSE-ALL-WHERE-CLAUSES ...)
; compiling (DEFUN PARSE-IGNORE-CLAUSE ...)
; compiling (DEFUN PARSE-INFO-CLAUSE ...)
; compiling (DEFUN PARSE-INFORMATION-CLAUSES ...)
; compiling (DEFUN PARTITION-PATTERN-DESCRIPTION ...)
; compiling (DEFUN PARSE-SINGLE-PDESC ...)
; compiling (DEFUN PARSE-PATTERN-DESCRIPTION-1 ...)
; compiling (DEFUN PARSE-PATTERN-DESCRIPTION ...)
; compiling (DEFSTRUCT PATTERN ...)
; compiling (DEFUN ADD-MAPPING-TO-NAME-MAP ...)
; compiling (DEFUN LOOKUP-MAPPING-IN-NAME-MAP ...)
; compiling (DEFUN MAKE-SUB-ENV ...)
; compiling (DEFUN CREATE-PATTERN-CONSTRAINT-FUNCTION-1 ...)
; compiling (DEFUN CREATE-PATTERN-CONSTRAINT-FUNCTION ...)
; compiling (DEFUN ASSIMILATE-PATTERN-VALUE ...)
; compiling (DEFUN CHECK-OBJECT-PATTERN ...)
; compiling (DEFUN ADJUST-GROUP ...)
; compiling (DEFUN ADJUST-BREF ...)
; compiling (DEFUN UPDATE-PINFO-FROM-GROUP ...)
; compiling (DEFUN ANALYZE-PATTERN-VALUES ...)
; compiling (DEFUN CREATE-PATTERN ...)
; compiling (DEFUN RAWPATT->EFORM ...)
; compiling (DEFUN CREATE-CONSTRAINT-FUNCTION ...)
; compiling (DEFUN GENERATE-DEPFUNC ...)
; compiling (DEFUN MAKE-PATTERN-GENERATOR-FUNC ...)
; compiling (DEFUN PGENERATOR-SIMPLE ...)
; compiling (DEFUN NEXT-GEN/DEPFUN ...)
; compiling (DEFUN PGENERATOR ...)
; compiling (DEFMACRO PATTERN ...)
; compiling (DEFUN PMATCH ...)
; compiling (DEFUN NORMALIZE-SOURCE-FORM ...)
; compiling (DEFUN SPLIT-BODY-FORM ...)
; compiling (DEFUN SPLIT-PLAMBDA-LIST ...)
; compiling (DEFMACRO PIF ...)
; compiling (DEFMACRO PCOND ...)
; compiling (DEFMACRO PCASE ...)
; compiling (DEFMACRO PLAMBDA ...)
; compiling (DEFMACRO DEFPFUN ...)
; compiling (DEFMACRO PGEN-DO ...)
; compiling (DEFMACRO PGEN-MAP ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/patterns/patterns.fasl written
; compilation finished in 0:00:03
STYLE-WARNING: redefining COPY-PATTERN-DICTIONARY in DEFUN
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/packages.lisp" (written 06 APR 2006 11:41:37 PM):
; compiling (DEFPACKAGE EEL ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/utils.lisp" (written 06 APR 2006 11:47:23 PM):
; compiling (IN-PACKAGE "EEL")
; compiling (DEFGENERIC CONCAT ...)
; compiling (DEFMACRO DEFINE-CONCAT-METHODS ...)
; compiling (DEFINE-CONCAT-METHODS STRING ...)
; compiling (DEFGENERIC POWER ...)
; compiling (DEFMACRO DEFINE-POWER-METHODS ...)
; compiling (DEFINE-POWER-METHODS (STRING "") ...)
; compiling (DEFUN SUPERSTRINGP ...)
; compiling (DEFUN EXCISE-NTH ...)
; compiling (DEFUN PERMUTATIONS-AUX ...)
; compiling (DEFUN PERMUTATIONS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/eel/utils.fasl written
; compilation finished in 0:00:01
;
; compilation unit finished
; printed 62 notes