REPL Output
;;; ASDF-INSTALL: Downloading 33098 bytes from http://common-lisp.net/project/cl-containers/cl-html-parse/cl-html-parse_latest.tar.gz to /Users/gwking/temporary/asdf-test/CL-HTML-PARSE.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/CL-HTML-PARSE.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-html-parse/
cl-html-parse/cl-html-parse.asd
cl-html-parse/COPYING
cl-html-parse/dev/
cl-html-parse/dev/cl-html-parse.lisp
cl-html-parse/dev/cl-html-parse.system
cl-html-parse/dev/examples/
cl-html-parse/dev/examples/contacts.html
cl-html-parse/dev/htout.lisp
cl-html-parse/dev/if-star.lisp
cl-html-parse/dev/package.lisp
cl-html-parse/dev/README
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-html-parse/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-html-parse/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-html-parse/dev/package.lisp" (written 04 APR 2006 09:26:32 AM):
; compiling (IN-PACKAGE :COMMON-LISP-USER)
; compiling (DEFPACKAGE :ACL-COMPAT.EXCL ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-html-parse/dev/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-html-parse/dev/if-star.lisp" (written 04 APR 2006 09:26:32 AM):
; compiling (IN-PACKAGE :ACL-COMPAT.EXCL)
; compiling (DEFVAR IF*-KEYWORD-LIST ...)
; compiling (DEFMACRO IF* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-html-parse/dev/if-star.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-html-parse/dev/cl-html-parse.lisp" (written 04 APR 2006 09:26:31 AM):
; compiling (DEFPACKAGE NET.HTML.PARSER ...)
; compiling (IN-PACKAGE :NET.HTML.PARSER)
; compiling (DEFUN CURRENT-CASE-MODE ...)
; compiling (DEFMACRO TAG-AUTO-CLOSE ...)
; compiling (DEFMACRO TAG-AUTO-CLOSE-STOP ...)
; compiling (DEFMACRO TAG-NO-END ...)
; compiling (DEFMACRO TAG-NO-PCDATA ...)
; compiling (DEFMACRO TAG-NAME ...)
;
; caught STYLE-WARNING:
; using deprecated EVAL-WHEN situation names EVAL LOAD COMPILE
; compiling (DEFCONSTANT STATE-PCDATA ...)
; compiling (DEFCONSTANT STATE-READTAGFIRST ...)
; compiling (DEFCONSTANT STATE-READTAG ...)
; compiling (DEFCONSTANT STATE-FINDATTRIBNAME ...)
; compiling (DEFCONSTANT STATE-ATTRIBNAME ...)
; compiling (DEFCONSTANT STATE-ATTRIBSTARTVALUE ...)
; compiling (DEFCONSTANT STATE-ATTRIBVALUEDELIM ...)
; compiling (DEFCONSTANT STATE-ATTRIBVALUENODELIM ...)
; compiling (DEFCONSTANT STATE-READCOMMENT ...)
; compiling (DEFCONSTANT STATE-READCOMMENT-ONE ...)
; compiling (DEFCONSTANT STATE-READCOMMENT-TWO ...)
; compiling (DEFCONSTANT STATE-FINDVALUE ...)
; compiling (DEFCONSTANT STATE-RAWDATA ...)
; compiling (DEFSTRUCT COLLECTOR ...)
; compiling (DEFPARAMETER *COLLECTORS* ...)
; compiling (DEFUN GET-COLLECTOR ...)
; compiling (DEFUN PUT-BACK-COLLECTOR ...)
; compiling (DEFUN GROW-AND-ADD ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-html-parse/dev/cl-html-parse.lisp
; in: DEFUN GROW-AND-ADD
; (LENGTH NET.HTML.PARSER::ODATA)
;
; 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.
; (MAKE-STRING (* 2 (LENGTH NET.HTML.PARSER::ODATA)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; (SETF (NET.HTML.PARSER::COLLECTOR-NEXT NET.HTML.PARSER::COLL)
; (1+ NET.HTML.PARSER::NEXT))
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME (SETF NET.HTML.PARSER::COLLECTOR-NEXT) :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION (T NET.HTML.PARSER::COLLECTOR) (VALUES T &OPTIONAL))> :WHERE-FROM :DECLARED :KIND :GLOBAL-FUNCTION {400DE9A9}>
; --> LET LET
; ==>
; (SB-KERNEL:%INSTANCE-SET (THE NET.HTML.PARSER::COLLECTOR #:ONCE-ONLY-154)
; 1
; (THE T #:ONCE-ONLY-153))
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of INSTANCE-INDEX-SET
; compiling (DEFCONSTANT CHAR-TAGCHARACTER ...)
; compiling (DEFCONSTANT CHAR-ATTRIBNAMECHAR ...)
; compiling (DEFCONSTANT CHAR-ATTRIBUNDELIMATTRIBVALUE ...)
; compiling (DEFCONSTANT CHAR-SPACECHAR ...)
; compiling (DEFPARAMETER *CHARACTERISTICS* ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-html-parse/dev/cl-html-parse.lisp
; in: DEFPARAMETER *CHARACTERISTICS*
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\:)
; (+ NET.HTML.PARSER::CHAR-ATTRIBNAMECHAR
; NET.HTML.PARSER::CHAR-TAGCHARACTER))
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\:))
; (+ NET.HTML.PARSER::CHAR-ATTRIBNAMECHAR
; NET.HTML.PARSER::CHAR-TAGCHARACTER))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\_)
; (+ NET.HTML.PARSER::CHAR-ATTRIBNAMECHAR
; NET.HTML.PARSER::CHAR-TAGCHARACTER))
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\_))
; (+ NET.HTML.PARSER::CHAR-ATTRIBNAMECHAR
; NET.HTML.PARSER::CHAR-TAGCHARACTER))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\-)
; (+ NET.HTML.PARSER::CHAR-ATTRIBNAMECHAR
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE))
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\-))
; (+ NET.HTML.PARSER::CHAR-ATTRIBNAMECHAR
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\.)
; (+ NET.HTML.PARSER::CHAR-ATTRIBNAMECHAR
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE))
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\.))
; (+ NET.HTML.PARSER::CHAR-ATTRIBNAMECHAR
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\:)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\:))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\@)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\@))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\/)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\/))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\!)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\!))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\#)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\#))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\$)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\$))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\%)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\%))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\^)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\^))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\&)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\&))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\()
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\())
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\)))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\_)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\_))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\=)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\=))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\+)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\+))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\\)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\\))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\|)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\|))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\{)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\{))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\})
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\}))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\[)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\[))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\])
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\]))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\;)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\;))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\')
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\'))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\")
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\"))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\,)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\,))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\<)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\<))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\?)
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\?))
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\-) NET.HTML.PARSER::CHAR-TAGCHARACTER)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\-))
; NET.HTML.PARSER::CHAR-TAGCHARACTER)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\!) NET.HTML.PARSER::CHAR-TAGCHARACTER)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\!))
; NET.HTML.PARSER::CHAR-TAGCHARACTER)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\ ) NET.HTML.PARSER::CHAR-SPACECHAR)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\ ))
; NET.HTML.PARSER::CHAR-SPACECHAR)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\Tab) NET.HTML.PARSER::CHAR-SPACECHAR)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\Tab))
; NET.HTML.PARSER::CHAR-SPACECHAR)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\Return) NET.HTML.PARSER::CHAR-SPACECHAR)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\Return))
; NET.HTML.PARSER::CHAR-SPACECHAR)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT (CHAR-CODE #\Newline) NET.HTML.PARSER::CHAR-SPACECHAR)
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR (CHAR-CODE #\Newline))
; NET.HTML.PARSER::CHAR-SPACECHAR)
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; (NET.HTML.PARSER::ADDIT NET.HTML.PARSER::I
; (+ NET.HTML.PARSER::CHAR-TAGCHARACTER
; NET.HTML.PARSER::CHAR-ATTRIBNAMECHAR
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE))
; --> SETF SB-KERNEL:%SVSET SB-KERNEL:%ASET
; ==>
; (LOGIOR (SVREF NET.HTML.PARSER::ARR NET.HTML.PARSER::I)
; (+ NET.HTML.PARSER::CHAR-TAGCHARACTER
; NET.HTML.PARSER::CHAR-ATTRIBNAMECHAR
; NET.HTML.PARSER::CHAR-ATTRIBUNDELIMATTRIBVALUE))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; compiling (DEFUN CHAR-CHARACTERISTIC ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-html-parse/dev/cl-html-parse.lisp
; in: DEFUN CHAR-CHARACTERISTIC
; (LOGAND (SVREF NET.HTML.PARSER::*CHARACTERISTICS* NET.HTML.PARSER::CODE) BIT)
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, 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 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The second argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; compiling (DEFVAR *HTML-ENTITY-TO-CODE* ...)
; compiling (DEFSTRUCT TOKENBUF ...)
; compiling (DEFPARAMETER *TOKENBUFS* ...)
; compiling (DEFUN GET-TOKENBUF ...)
; compiling (DEFUN PUT-BACK-TOKENBUF ...)
; compiling (DEFUN TO-PREFERRED-CASE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-html-parse/dev/cl-html-parse.lisp
; in: DEFUN TO-PREFERRED-CASE
; (CHAR-UPCASE NET.HTML.PARSER::CH)
; ==>
; NET.HTML.PARSER::CH
;
; note: deleting unreachable code
; compiling (DEFUN NEXT-TOKEN ...); in: LAMBDA (#:WHOLE708 #:ENVIRONMENT709)
; (LET* ((STREAM (CAR (CDR #:WHOLE708))))
; (BLOCK NET.HTML.PARSER::NEXT-CHAR
; '(LET ((NET.HTML.PARSER::CUR #) (NET.HTML.PARSER::TB #))
; (ACL-COMPAT.EXCL:IF* (>= NET.HTML.PARSER::CUR #)
; NET.HTML.PARSER::THEN
; (ACL-COMPAT.EXCL:IF* #
; NET.HTML.PARSER::THEN
; #
; NET.HTML.PARSER::ELSE
; #))
; (ACL-COMPAT.EXCL:IF* NET.HTML.PARSER::CUR
; NET.HTML.PARSER::THEN
; (PROG1 # #)))))
;
; caught STYLE-WARNING:
; The variable STREAM is defined but never used.
; in: LAMBDA (#:WHOLE710 #:ENVIRONMENT711)
; (LET* ((STREAM (CAR (CDR #:WHOLE710))) (NET.HTML.PARSER::CH (CAR (CDR #))))
; (BLOCK NET.HTML.PARSER::UN-NEXT-CHAR
; '(DECF (NET.HTML.PARSER::TOKENBUF-CUR NET.HTML.PARSER::TOKENBUF))))
;
; caught STYLE-WARNING:
; The variable STREAM is defined but never used.
;
; caught STYLE-WARNING:
; The variable CH is defined but never used.
; in: LAMBDA (#:WHOLE712 #:ENVIRONMENT713)
; (LET* ((NET.HTML.PARSER::COLL (CAR (CDR #:WHOLE712))))
; (BLOCK NET.HTML.PARSER::CLEAR-COLL
; '(SETF (NET.HTML.PARSER::COLLECTOR-NEXT NET.HTML.PARSER::COLL) 0)))
;
; caught STYLE-WARNING:
; The variable COLL is defined but never used.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-html-parse/dev/cl-html-parse.lisp
; in: DEFUN NEXT-TOKEN
; (>= NET.HTML.PARSER::CUR
; (NET.HTML.PARSER::TOKENBUF-MAX NET.HTML.PARSER::TOKENBUF))
; --> IF
; ==>
; (< NET.HTML.PARSER::CUR
; (NET.HTML.PARSER::TOKENBUF-MAX NET.HTML.PARSER::TOKENBUF))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (FUNCALL NET.HTML.PARSER::READ-SEQUENCE-FUNC NET.HTML.PARSER::TB STREAM)
; --> 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.
; (ZEROP
; (SETF (NET.HTML.PARSER::TOKENBUF-MAX NET.HTML.PARSER::TOKENBUF)
; (ACL-COMPAT.EXCL:IF* NET.HTML.PARSER::READ-SEQUENCE-FUNC
; NET.HTML.PARSER::THEN
; (FUNCALL NET.HTML.PARSER::READ-SEQUENCE-FUNC
; NET.HTML.PARSER::TB
; STREAM)
; NET.HTML.PARSER::ELSE
; (READ-SEQUENCE NET.HTML.PARSER::TB STREAM))))
; ==>
; (=
; (SETF (NET.HTML.PARSER::TOKENBUF-MAX NET.HTML.PARSER::TOKENBUF)
; (ACL-COMPAT.EXCL:IF* NET.HTML.PARSER::READ-SEQUENCE-FUNC
; NET.HTML.PARSER::THEN
; (FUNCALL NET.HTML.PARSER::READ-SEQUENCE-FUNC
; NET.HTML.PARSER::TB
; STREAM)
; NET.HTML.PARSER::ELSE
; (READ-SEQUENCE NET.HTML.PARSER::TB STREAM)))
; 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.
; (> (NET.HTML.PARSER::COLLECTOR-NEXT NET.HTML.PARSER::COLL) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (DECF (NET.HTML.PARSER::TOKENBUF-CUR NET.HTML.PARSER::TOKENBUF))
; --> LET*
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G728) #:G729)
;
; 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).
; (>= NET.HTML.PARSER::CUR
; (NET.HTML.PARSER::TOKENBUF-MAX NET.HTML.PARSER::TOKENBUF))
; --> IF
; ==>
; (< NET.HTML.PARSER::CUR
; (NET.HTML.PARSER::TOKENBUF-MAX NET.HTML.PARSER::TOKENBUF))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (FUNCALL NET.HTML.PARSER::READ-SEQUENCE-FUNC NET.HTML.PARSER::TB STREAM)
; --> 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.
; (ZEROP
; (SETF (NET.HTML.PARSER::TOKENBUF-MAX NET.HTML.PARSER::TOKENBUF)
; (ACL-COMPAT.EXCL:IF* NET.HTML.PARSER::READ-SEQUENCE-FUNC
; NET.HTML.PARSER::THEN
; (FUNCALL NET.HTML.PARSER::READ-SEQUENCE-FUNC
; NET.HTML.PARSER::TB
; STREAM)
; NET.HTML.PARSER::ELSE
; (READ-SEQUENCE NET.HTML.PARSER::TB STREAM))))
; ==>
; (=
; (SETF (NET.HTML.PARSER::TOKENBUF-MAX NET.HTML.PARSER::TOKENBUF)
; (ACL-COMPAT.EXCL:IF* NET.HTML.PARSER::READ-SEQUENCE-FUNC
; NET.HTML.PARSER::THEN
; (FUNCALL NET.HTML.PARSER::READ-SEQUENCE-FUNC
; NET.HTML.PARSER::TB
; STREAM)
; NET.HTML.PARSER::ELSE
; (READ-SEQUENCE NET.HTML.PARSER::TB STREAM)))
; 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.
; (* 10 COUNT)
; ==>
; (* SB-C::Y 10)
;
; 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: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
;
; note: unable to
; recode as shifts and adds
; due to type uncertainty:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; (+ (* 10 COUNT) (- NET.HTML.PARSER::CODE 48))
;
; 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).
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL (CODE-CHAR COUNT))
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL
; (CODE-CHAR NET.HTML.PARSER::CH))
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL NET.HTML.PARSER::CH)
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (DECF (NET.HTML.PARSER::TOKENBUF-CUR NET.HTML.PARSER::TOKENBUF))
; --> LET*
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G773) #:G774)
;
; 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).
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL
; (NET.HTML.PARSER::TO-PREFERRED-CASE
; NET.HTML.PARSER::CH))
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (INCF NET.HTML.PARSER::NAME-LENGTH)
; --> LET*
; ==>
; (+ NET.HTML.PARSER::NAME-LENGTH #:G785)
;
; 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).
; (DECF (NET.HTML.PARSER::TOKENBUF-CUR NET.HTML.PARSER::TOKENBUF))
; --> LET*
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G795) #:G796)
;
; 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).
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G800) #:G801)
;
; 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).
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G809) #:G810)
;
; 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).
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G819) #:G820)
;
; 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).
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G824) #:G825)
;
; 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).
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL
; (NET.HTML.PARSER::TO-PREFERRED-CASE
; NET.HTML.PARSER::CH))
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (DECF (NET.HTML.PARSER::TOKENBUF-CUR NET.HTML.PARSER::TOKENBUF))
; --> LET*
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G848) #:G849)
;
; 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).
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G854) #:G855)
;
; 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).
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL NET.HTML.PARSER::CH)
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (DECF (NET.HTML.PARSER::TOKENBUF-CUR NET.HTML.PARSER::TOKENBUF))
; --> LET*
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G881) #:G882)
;
; 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).
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL NET.HTML.PARSER::CH)
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL #\-)
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL NET.HTML.PARSER::CH)
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL #\-)
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (ELT NET.HTML.PARSER::RAW-MODE-DELIMITER NET.HTML.PARSER::RAW-LENGTH)
;
; 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 LIST.
; (LENGTH NET.HTML.PARSER::RAW-MODE-DELIMITER)
;
; 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.
; (ZEROP (NET.HTML.PARSER::COLLECTOR-NEXT NET.HTML.PARSER::COLL))
; ==>
; (= (NET.HTML.PARSER::COLLECTOR-NEXT NET.HTML.PARSER::COLL) 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.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL
; (ELT NET.HTML.PARSER::RAW-MODE-DELIMITER
; NET.HTML.PARSER::I))
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (ELT NET.HTML.PARSER::RAW-MODE-DELIMITER NET.HTML.PARSER::I)
;
; 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 LIST.
;
; 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 LIST.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL NET.HTML.PARSER::CH)
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (>= NET.HTML.PARSER::CUR
; (NET.HTML.PARSER::TOKENBUF-MAX NET.HTML.PARSER::TOKENBUF))
; --> IF
; ==>
; (< NET.HTML.PARSER::CUR
; (NET.HTML.PARSER::TOKENBUF-MAX NET.HTML.PARSER::TOKENBUF))
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (> (NET.HTML.PARSER::COLLECTOR-NEXT NET.HTML.PARSER::COLL) 0)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (DECF (NET.HTML.PARSER::TOKENBUF-CUR NET.HTML.PARSER::TOKENBUF))
; --> LET*
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G728) #:G729)
;
; 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.
; (>= NET.HTML.PARSER::CUR
; (NET.HTML.PARSER::TOKENBUF-MAX NET.HTML.PARSER::TOKENBUF))
; --> IF
; ==>
; (< NET.HTML.PARSER::CUR
; (NET.HTML.PARSER::TOKENBUF-MAX NET.HTML.PARSER::TOKENBUF))
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (* 10 COUNT)
; ==>
; (* SB-C::Y 10)
;
; note: forced to do GENERIC-* (cost 50)
; 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.
; (+ (* 10 COUNT) (- NET.HTML.PARSER::CODE 48))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL (CODE-CHAR COUNT))
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL
; (CODE-CHAR NET.HTML.PARSER::CH))
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (DECF MAX)
; --> LET*
; ==>
; (- MAX #:G734)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER * 10), not a FIXNUM.
; The result is a (VALUES (INTEGER * 9)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER * 10), not a FIXNUM.
; The result is a (VALUES (INTEGER * 9)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL NET.HTML.PARSER::CH)
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (DECF (NET.HTML.PARSER::TOKENBUF-CUR NET.HTML.PARSER::TOKENBUF))
; --> LET*
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G773) #:G774)
;
; 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.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL
; (NET.HTML.PARSER::TO-PREFERRED-CASE
; NET.HTML.PARSER::CH))
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (INCF NET.HTML.PARSER::NAME-LENGTH)
; --> LET*
; ==>
; (+ NET.HTML.PARSER::NAME-LENGTH #:G785)
;
; 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.
; (DECF (NET.HTML.PARSER::TOKENBUF-CUR NET.HTML.PARSER::TOKENBUF))
; --> LET*
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G795) #:G796)
;
; 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.
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G800) #:G801)
;
; 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.
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G809) #:G810)
;
; 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.
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G819) #:G820)
;
; 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.
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G824) #:G825)
;
; 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.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL
; (NET.HTML.PARSER::TO-PREFERRED-CASE
; NET.HTML.PARSER::CH))
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (DECF (NET.HTML.PARSER::TOKENBUF-CUR NET.HTML.PARSER::TOKENBUF))
; --> LET*
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G848) #:G849)
;
; 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.
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G854) #:G855)
;
; 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.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL NET.HTML.PARSER::CH)
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (DECF (NET.HTML.PARSER::TOKENBUF-CUR NET.HTML.PARSER::TOKENBUF))
; --> LET*
; ==>
; (- (NET.HTML.PARSER::TOKENBUF-CUR #:G881) #:G882)
;
; 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.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL NET.HTML.PARSER::CH)
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL #\-)
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL NET.HTML.PARSER::CH)
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL #\-)
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL
; (ELT NET.HTML.PARSER::RAW-MODE-DELIMITER
; NET.HTML.PARSER::I))
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL NET.HTML.PARSER::CH)
; --> LET ACL-COMPAT.EXCL:IF* COND IF >= IF
; ==>
; (< NET.HTML.PARSER::.NEXT.
; (NET.HTML.PARSER::COLLECTOR-MAX NET.HTML.PARSER::COLL))
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL
; (ELT NET.HTML.PARSER::RAW-MODE-DELIMITER
; NET.HTML.PARSER::I))
; --> LET ACL-COMPAT.EXCL:IF* COND IF COND IF PROGN SETF LET*
; --> MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME (SETF NET.HTML.PARSER::COLLECTOR-NEXT) :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION (T NET.HTML.PARSER::COLLECTOR) (VALUES T &OPTIONAL))> :WHERE-FROM :DECLARED :KIND :GLOBAL-FUNCTION {100FD949}>
; --> LET LET
; ==>
; (SB-KERNEL:%INSTANCE-SET (THE NET.HTML.PARSER::COLLECTOR #:ONCE-ONLY-971)
; 1
; (THE T #:ONCE-ONLY-970))
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of INSTANCE-INDEX-SET
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL NET.HTML.PARSER::CH)
; --> LET ACL-COMPAT.EXCL:IF* COND IF COND IF PROGN SETF LET*
; --> MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME (SETF NET.HTML.PARSER::COLLECTOR-NEXT) :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION (T NET.HTML.PARSER::COLLECTOR) (VALUES T &OPTIONAL))> :WHERE-FROM :DECLARED :KIND :GLOBAL-FUNCTION {100FD949}>
; --> LET LET
; ==>
; (SB-KERNEL:%INSTANCE-SET (THE NET.HTML.PARSER::COLLECTOR #:ONCE-ONLY-979)
; 1
; (THE T #:ONCE-ONLY-978))
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of INSTANCE-INDEX-SET
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL #\-)
; --> LET ACL-COMPAT.EXCL:IF* COND IF COND IF PROGN SETF LET*
; --> MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME (SETF NET.HTML.PARSER::COLLECTOR-NEXT) :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION (T NET.HTML.PARSER::COLLECTOR) (VALUES T &OPTIONAL))> :WHERE-FROM :DECLARED :KIND :GLOBAL-FUNCTION {100FD949}>
; --> LET LET
; ==>
; (SB-KERNEL:%INSTANCE-SET (THE NET.HTML.PARSER::COLLECTOR #:ONCE-ONLY-927)
; 1
; (THE T #:ONCE-ONLY-926))
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of INSTANCE-INDEX-SET
; ==>
; (SB-KERNEL:%INSTANCE-SET (THE NET.HTML.PARSER::COLLECTOR #:ONCE-ONLY-934)
; 1
; (THE T #:ONCE-ONLY-933))
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of INSTANCE-INDEX-SET
; ==>
; (SB-KERNEL:%INSTANCE-SET (THE NET.HTML.PARSER::COLLECTOR #:ONCE-ONLY-920)
; 1
; (THE T #:ONCE-ONLY-919))
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of INSTANCE-INDEX-SET
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL NET.HTML.PARSER::CH)
; --> LET ACL-COMPAT.EXCL:IF* COND IF COND IF PROGN SETF LET*
; --> MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME (SETF NET.HTML.PARSER::COLLECTOR-NEXT) :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION (T NET.HTML.PARSER::COLLECTOR) (VALUES T &OPTIONAL))> :WHERE-FROM :DECLARED :KIND :GLOBAL-FUNCTION {100FD949}>
; --> LET LET
; ==>
; (SB-KERNEL:%INSTANCE-SET (THE NET.HTML.PARSER::COLLECTOR #:ONCE-ONLY-899)
; 1
; (THE T #:ONCE-ONLY-898))
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of INSTANCE-INDEX-SET
; ==>
; (SB-KERNEL:%INSTANCE-SET (THE NET.HTML.PARSER::COLLECTOR #:ONCE-ONLY-879)
; 1
; (THE T #:ONCE-ONLY-878))
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of INSTANCE-INDEX-SET
; ==>
; (SB-KERNEL:%INSTANCE-SET (THE NET.HTML.PARSER::COLLECTOR #:ONCE-ONLY-872)
; 1
; (THE T #:ONCE-ONLY-871))
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of INSTANCE-INDEX-SET
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL
; (NET.HTML.PARSER::TO-PREFERRED-CASE
; NET.HTML.PARSER::CH))
; --> LET ACL-COMPAT.EXCL:IF* COND IF COND IF PROGN SETF LET*
; --> MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME (SETF NET.HTML.PARSER::COLLECTOR-NEXT) :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION (T NET.HTML.PARSER::COLLECTOR) (VALUES T &OPTIONAL))> :WHERE-FROM :DECLARED :KIND :GLOBAL-FUNCTION {100FD949}>
; --> LET LET
; ==>
; (SB-KERNEL:%INSTANCE-SET (THE NET.HTML.PARSER::COLLECTOR #:ONCE-ONLY-834)
; 1
; (THE T #:ONCE-ONLY-833))
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of INSTANCE-INDEX-SET
; ==>
; (SB-KERNEL:%INSTANCE-SET (THE NET.HTML.PARSER::COLLECTOR #:ONCE-ONLY-783)
; 1
; (THE T #:ONCE-ONLY-782))
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of INSTANCE-INDEX-SET
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL NET.HTML.PARSER::CH)
; --> LET ACL-COMPAT.EXCL:IF* COND IF COND IF PROGN SETF LET*
; --> MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME (SETF NET.HTML.PARSER::COLLECTOR-NEXT) :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION (T NET.HTML.PARSER::COLLECTOR) (VALUES T &OPTIONAL))> :WHERE-FROM :DECLARED :KIND :GLOBAL-FUNCTION {100FD949}>
; --> LET LET
; ==>
; (SB-KERNEL:%INSTANCE-SET (THE NET.HTML.PARSER::COLLECTOR #:ONCE-ONLY-771)
; 1
; (THE T #:ONCE-ONLY-770))
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of INSTANCE-INDEX-SET
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL
; (CODE-CHAR NET.HTML.PARSER::CH))
; --> LET ACL-COMPAT.EXCL:IF* COND IF COND IF PROGN SETF LET*
; --> MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME (SETF NET.HTML.PARSER::COLLECTOR-NEXT) :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION (T NET.HTML.PARSER::COLLECTOR) (VALUES T &OPTIONAL))> :WHERE-FROM :DECLARED :KIND :GLOBAL-FUNCTION {100FD949}>
; --> LET LET
; ==>
; (SB-KERNEL:%INSTANCE-SET (THE NET.HTML.PARSER::COLLECTOR #:ONCE-ONLY-764)
; 1
; (THE T #:ONCE-ONLY-763))
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of INSTANCE-INDEX-SET
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL (CODE-CHAR COUNT))
; --> LET ACL-COMPAT.EXCL:IF* COND IF COND IF PROGN SETF LET*
; --> MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME (SETF NET.HTML.PARSER::COLLECTOR-NEXT) :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION (T NET.HTML.PARSER::COLLECTOR) (VALUES T &OPTIONAL))> :WHERE-FROM :DECLARED :KIND :GLOBAL-FUNCTION {100FD949}>
; --> LET LET
; ==>
; (SB-KERNEL:%INSTANCE-SET (THE NET.HTML.PARSER::COLLECTOR #:ONCE-ONLY-757)
; 1
; (THE T #:ONCE-ONLY-756))
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of INSTANCE-INDEX-SET
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL #\-)
; --> LET ACL-COMPAT.EXCL:IF* COND IF COND IF PROGN SETF LET*
; --> MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME (SETF NET.HTML.PARSER::COLLECTOR-NEXT) :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION (T NET.HTML.PARSER::COLLECTOR) (VALUES T &OPTIONAL))> :WHERE-FROM :DECLARED :KIND :GLOBAL-FUNCTION {100FD949}>
; --> LET LET
; ==>
; (SB-KERNEL:%INSTANCE-SET (THE NET.HTML.PARSER::COLLECTOR #:ONCE-ONLY-906)
; 1
; (THE T #:ONCE-ONLY-905))
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of INSTANCE-INDEX-SET
; (NET.HTML.PARSER::ADD-TO-COLL NET.HTML.PARSER::COLL NET.HTML.PARSER::CH)
; --> LET ACL-COMPAT.EXCL:IF* COND IF COND IF PROGN SETF LET*
; --> MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME (SETF NET.HTML.PARSER::COLLECTOR-NEXT) :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION (T NET.HTML.PARSER::COLLECTOR) (VALUES T &OPTIONAL))> :WHERE-FROM :DECLARED :KIND :GLOBAL-FUNCTION {100FD949}>
; --> LET LET
; ==>
; (SB-KERNEL:%INSTANCE-SET (THE NET.HTML.PARSER::COLLECTOR #:ONCE-ONLY-913)
; 1
; (THE T #:ONCE-ONLY-912))
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of INSTANCE-INDEX-SET
; compiling (DEFVAR *KWD-PACKAGE* ...)
; compiling (DEFUN COMPUTE-TAG ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-html-parse/dev/cl-html-parse.lisp
; in: DEFUN COMPUTE-TAG
; (SUBSEQ (NET.HTML.PARSER::COLLECTOR-DATA NET.HTML.PARSER::COLL)
; 0
; (NET.HTML.PARSER::COLLECTOR-NEXT NET.HTML.PARSER::COLL))
;
; 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 COMPUTE-COLL-STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-html-parse/dev/cl-html-parse.lisp
; in: DEFUN COMPUTE-COLL-STRING
; (DOTIMES
; (NET.HTML.PARSER::I
; (NET.HTML.PARSER::COLLECTOR-NEXT NET.HTML.PARSER::COLL))
; (SETF (SCHAR NET.HTML.PARSER::STR NET.HTML.PARSER::I)
; (SCHAR NET.HTML.PARSER::FROM NET.HTML.PARSER::I)))
; --> DO BLOCK LET TAGBODY UNLESS COND IF NOT IF >= IF
; ==>
; (< NET.HTML.PARSER::I #:G1014)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; compiling (DEFUN COLL-HAS-COMMENT ...)
; compiling (DOLIST (OPT #) ...)
; compiling (DEFVAR *IN-LINE* ...)
; compiling (DEFVAR *CH-FORMAT* ...)
; compiling (DEFVAR *KNOWN-TAGS* ...)
; compiling (SETF (TAG-AUTO-CLOSE :TR) ...)
; compiling (SETF (TAG-AUTO-CLOSE-STOP :TR) ...)
; compiling (SETF (TAG-AUTO-CLOSE :TD) ...)
; compiling (SETF (TAG-AUTO-CLOSE-STOP :TD) ...)
; compiling (SETF (TAG-AUTO-CLOSE :TH) ...)
; compiling (SETF (TAG-AUTO-CLOSE-STOP :TH) ...)
; compiling (SETF (TAG-AUTO-CLOSE :DT) ...)
; compiling (SETF (TAG-AUTO-CLOSE-STOP :DT) ...)
; compiling (SETF (TAG-AUTO-CLOSE :LI) ...)
; compiling (SETF (TAG-AUTO-CLOSE-STOP :LI) ...)
; compiling (SETF (TAG-AUTO-CLOSE :ADDRESS) ...)
; compiling (SETF (TAG-AUTO-CLOSE :BLOCKQUOTE) ...)
; compiling (SETF (TAG-AUTO-CLOSE :BODY) ...)
; compiling (SETF (TAG-AUTO-CLOSE :DD) ...)
; compiling (SETF (TAG-AUTO-CLOSE-STOP :DD) ...)
; compiling (SETF (TAG-AUTO-CLOSE :DL) ...)
; compiling (SETF (TAG-AUTO-CLOSE :DIV) ...)
; compiling (SETF (TAG-AUTO-CLOSE :FIELDSET) ...)
; compiling (SETF (TAG-AUTO-CLOSE :FORM) ...)
; compiling (SETF (TAG-AUTO-CLOSE :FRAMESET) ...)
; compiling (SETF (TAG-AUTO-CLOSE :HR) ...)
; compiling (SETF (TAG-AUTO-CLOSE :H1) ...)
; compiling (SETF (TAG-AUTO-CLOSE :H2) ...)
; compiling (SETF (TAG-AUTO-CLOSE :H3) ...)
; compiling (SETF (TAG-AUTO-CLOSE :H4) ...)
; compiling (SETF (TAG-AUTO-CLOSE :H5) ...)
; compiling (SETF (TAG-AUTO-CLOSE :H6) ...)
; compiling (SETF (TAG-AUTO-CLOSE :NOSCRIPT) ...)
; compiling (SETF (TAG-AUTO-CLOSE :OL) ...)
; compiling (SETF (TAG-AUTO-CLOSE :OPTION) ...)
; compiling (SETF (TAG-AUTO-CLOSE-STOP :OPTION) ...)
; compiling (SETF (TAG-AUTO-CLOSE :P) ...)
; compiling (SETF (TAG-AUTO-CLOSE :PRE) ...)
; compiling (SETF (TAG-AUTO-CLOSE :TABLE) ...)
; compiling (SETF (TAG-AUTO-CLOSE :TBODY) ...)
; compiling (SETF (TAG-AUTO-CLOSE-STOP :TBODY) ...)
; compiling (SETF (TAG-AUTO-CLOSE :TFOOT) ...)
; compiling (SETF (TAG-AUTO-CLOSE-STOP :TFOOT) ...)
; compiling (SETF (TAG-AUTO-CLOSE :THEAD) ...)
; compiling (SETF (TAG-AUTO-CLOSE-STOP :THEAD) ...)
; compiling (SETF (TAG-AUTO-CLOSE :UL) ...)
; compiling (SETF (TAG-NO-PCDATA :TABLE) ...)
; compiling (SETF (TAG-NO-PCDATA :TR) ...)
; compiling (DEFMETHOD PARSE-HTML ...)
; compiling (DEFMACRO TAG-CALLBACK ...)
; compiling (DEFUN PHTML-INTERNAL ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-html-parse/dev/cl-html-parse.lisp
; in: DEFUN PHTML-INTERNAL
; (ACL-COMPAT.EXCL:IF*
; (EQ (NET.HTML.PARSER::CURRENT-CASE-MODE) :CASE-INSENSITIVE-UPPER)
; NET.HTML.PARSER::THEN
; "</STYLE>"
; NET.HTML.PARSER::ELSE
; "</style>")
; --> COND IF PROGN
; ==>
; "</STYLE>"
;
; note: deleting unreachable code
; (ACL-COMPAT.EXCL:IF*
; (EQ (NET.HTML.PARSER::CURRENT-CASE-MODE) :CASE-INSENSITIVE-UPPER)
; NET.HTML.PARSER::THEN
; "</SCRIPT>"
; NET.HTML.PARSER::ELSE
; "</script>")
; --> COND IF PROGN
; ==>
; "</SCRIPT>"
;
; note: deleting unreachable code
; (NET.HTML.PARSER::TAG-CALLBACK
; (NET.HTML.PARSER::TAG-NAME NET.HTML.PARSER::CURRENT-TAG))
; --> REST CDR
; ==>
; (ASSOC (NET.HTML.PARSER::TAG-NAME NET.HTML.PARSER::CURRENT-TAG)
; NET.HTML.PARSER::CALLBACKS)
;
; note: unable to convert to EQ test because: Item might be a number.
; (FUNCALL NET.HTML.PARSER::CALLBACK NET.HTML.PARSER::ELEMENT)
; --> 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.
; (LENGTH (NET.HTML.PARSER::TOKENBUF-FIRST-PASS NET.HTML.PARSER::TOKENBUF))
;
; 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.
; (MEMBER NET.HTML.PARSER::LAST-TAG NET.HTML.PARSER::*IN-LINE*)
;
; note: unable to convert to EQ test because: Item might be a number.
; (LENGTH NET.HTML.PARSER::VAL)
;
; 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.
; (ELT NET.HTML.PARSER::VAL NET.HTML.PARSER::I)
;
; 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 LIST.
; (LENGTH NET.HTML.PARSER::RAW-MODE-DELIMITER)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SIMPLE-ARRAY CHARACTER (1))
; (SIMPLE-ARRAY CHARACTER (8))
; (SIMPLE-ARRAY CHARACTER (9))
; NULL), not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SIMPLE-ARRAY CHARACTER (1))
; (SIMPLE-ARRAY CHARACTER (8))
; (SIMPLE-ARRAY CHARACTER (9))
; NULL), not a VECTOR.
; (NET.HTML.PARSER::TAG-CALLBACK NET.HTML.PARSER::NAME)
; --> REST CDR
; ==>
; (ASSOC NET.HTML.PARSER::NAME NET.HTML.PARSER::CALLBACKS)
;
; note: unable to convert to EQ test because: Item might be a number.
; (NET.HTML.PARSER::TAG-CALLBACK
; (NET.HTML.PARSER::TAG-NAME
; (ACL-COMPAT.EXCL:IF* (ATOM NET.HTML.PARSER::VAL)
; NET.HTML.PARSER::THEN
; NET.HTML.PARSER::VAL
; NET.HTML.PARSER::ELSE
; (FIRST NET.HTML.PARSER::VAL))))
; --> REST CDR
; ==>
; (ASSOC
; (NET.HTML.PARSER::TAG-NAME
; (ACL-COMPAT.EXCL:IF* (ATOM NET.HTML.PARSER::VAL)
; NET.HTML.PARSER::THEN
; NET.HTML.PARSER::VAL
; NET.HTML.PARSER::ELSE
; (FIRST NET.HTML.PARSER::VAL)))
; NET.HTML.PARSER::CALLBACKS)
;
; note: unable to convert to EQ test because: Item might be a number.
; (FUNCALL NET.HTML.PARSER::CALLBACK
; (ACL-COMPAT.EXCL:IF* (ATOM NET.HTML.PARSER::VAL)
; NET.HTML.PARSER::THEN
; NET.HTML.PARSER::VAL
; NET.HTML.PARSER::ELSE
; (LIST NET.HTML.PARSER::VAL)))
; --> 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.
; (MEMBER (NET.HTML.PARSER::TAG-NAME NET.HTML.PARSER::CURRENT-TAG)
; NET.HTML.PARSER::*KNOWN-TAGS*)
;
; note: unable to convert to EQ test because: Item might be a number.
; (MEMBER (NET.HTML.PARSER::TAG-NAME NET.HTML.PARSER::CURRENT-TAG)
; NET.HTML.PARSER::*CH-FORMAT*)
;
; note: unable to convert to EQ test because: Item might be a number.
; (MEMBER (NET.HTML.PARSER::TAG-NAME NET.HTML.PARSER::CURRENT-TAG)
; NET.HTML.PARSER::*KNOWN-TAGS*)
;
; note: unable to convert to EQ test because: Item might be a number.
; compiling (DEFMETHOD PARSE-HTML ...)
; compiling (DEFMETHOD PARSE-HTML ...)
; compiling (PROVIDE :PHTML)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-html-parse/dev/cl-html-parse.fasl written
; compilation finished in 0:00:03
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40006DF9}> on
#<CL-SOURCE-FILE "cl-html-parse" {40006E09}>.
STYLE-WARNING: implicitly creating new generic function PARSE-HTML
;
; compilation unit finished
; caught 5 STYLE-WARNING conditions
; printed 248 notes