REPL Output
;;; ASDF-INSTALL: Downloading 15167 bytes from http://common-lisp.net/project/cl-xmpp/cl-xmpp_latest.tar.gz to /Users/gwking/temporary/asdf-test/CL-XMPP.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/CL-XMPP.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-xmpp/
cl-xmpp/CREDITS
cl-xmpp/LICENSE
cl-xmpp/Makefile
cl-xmpp/README
cl-xmpp/TODO
cl-xmpp/cl-xmpp-sasl.asd
cl-xmpp/cl-xmpp-sasl.lisp
cl-xmpp/cl-xmpp-tls.asd
cl-xmpp/cl-xmpp-tls.lisp
cl-xmpp/cl-xmpp.asd
cl-xmpp/cl-xmpp.lisp
cl-xmpp/cxml.lisp
cl-xmpp/package.lisp
cl-xmpp/result.lisp
cl-xmpp/test/
cl-xmpp/test/cl-xmpp-test.asd
cl-xmpp/test/cl-xmpp-test.lisp
cl-xmpp/test/package.lisp
cl-xmpp/test/result-test.lisp
cl-xmpp/test/utility-test.lisp
cl-xmpp/utility.lisp
cl-xmpp/variable.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-xmpp/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-xmpp/" ;;; ASDF-INSTALL: Downloading package IRONCLAD, required by cl-xmpp
;;; ASDF-INSTALL: Downloading 346169 bytes from http://www.cs.rice.edu/~froydnj/lisp/ironclad.tar.gz to /Users/gwking/temporary/asdf-test/ironclad.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/ironclad.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/
ironclad_0.12/ironclad.asd
ironclad_0.12/README
ironclad_0.12/LICENSE
ironclad_0.12/TODO
ironclad_0.12/NEWS
ironclad_0.12/package.lisp
ironclad_0.12/conditions.lisp
ironclad_0.12/util.lisp
ironclad_0.12/cipher.lisp
ironclad_0.12/digest.lisp
ironclad_0.12/common.lisp
ironclad_0.12/octet-stream.lisp
ironclad_0.12/modes.lisp
ironclad_0.12/public-key.lisp
ironclad_0.12/dsa.lisp
ironclad_0.12/crc24.lisp
ironclad_0.12/crc32.lisp
ironclad_0.12/adler32.lisp
ironclad_0.12/md2.lisp
ironclad_0.12/md4.lisp
ironclad_0.12/md5.lisp
ironclad_0.12/sha1.lisp
ironclad_0.12/sha256.lisp
ironclad_0.12/ripemd-128.lisp
ironclad_0.12/ripemd-160.lisp
ironclad_0.12/tiger.lisp
ironclad_0.12/hmac.lisp
ironclad_0.12/aes.lisp
ironclad_0.12/des.lisp
ironclad_0.12/blowfish.lisp
ironclad_0.12/twofish.lisp
ironclad_0.12/idea.lisp
ironclad_0.12/misty1.lisp
ironclad_0.12/square.lisp
ironclad_0.12/rc2.lisp
ironclad_0.12/rc5.lisp
ironclad_0.12/rc6.lisp
ironclad_0.12/tea.lisp
ironclad_0.12/xtea.lisp
ironclad_0.12/cast5.lisp
ironclad_0.12/rt.lisp
ironclad_0.12/testfuns.lisp
ironclad_0.12/test-vectors/hmac.lisp
ironclad_0.12/test-vectors/modes.lisp
ironclad_0.12/test-vectors/aes-test-vectors.lisp
ironclad_0.12/test-vectors/blowfish-test-vectors.lisp
ironclad_0.12/test-vectors/cast5-test-vectors.lisp
ironclad_0.12/test-vectors/des-test-vectors.lisp
ironclad_0.12/test-vectors/3des-test-vectors.lisp
ironclad_0.12/test-vectors/misty1-test-vectors.lisp
ironclad_0.12/test-vectors/rc2-test-vectors.lisp
ironclad_0.12/test-vectors/rc5-test-vectors.lisp
ironclad_0.12/test-vectors/rc6-test-vectors.lisp
ironclad_0.12/test-vectors/idea-test-vectors.lisp
ironclad_0.12/test-vectors/twofish-test-vectors.lisp
ironclad_0.12/test-vectors/md2-test-vectors.lisp
ironclad_0.12/test-vectors/md4-test-vectors.lisp
ironclad_0.12/test-vectors/md5-test-vectors.lisp
ironclad_0.12/test-vectors/sha1-test-vectors.lisp
ironclad_0.12/test-vectors/sha256-test-vectors.lisp
ironclad_0.12/test-vectors/ripemd-128-test-vectors.lisp
ironclad_0.12/test-vectors/ripemd-160-test-vectors.lisp
ironclad_0.12/test-vectors/tiger-test-vectors.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/package.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (DEFPACKAGE :IRONCLAD ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/conditions.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :IRONCLAD)
; compiling (DEFINE-CONDITION IRONCLAD-ERROR ...)
; compiling (DEFINE-CONDITION INITIALIZATION-VECTOR-NOT-SUPPLIED ...)
; compiling (DEFINE-CONDITION INVALID-INITIALIZATION-VECTOR ...)
; compiling (DEFINE-CONDITION INVALID-KEY-LENGTH ...)
; compiling (DEFINE-CONDITION UNSUPPORTED-CIPHER ...)
; compiling (DEFINE-CONDITION UNSUPPORTED-MODE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/conditions.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/util.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFUN BYTE-ARRAY-TO-HEX-STRING ...)
; compiling (DEFUN ASCII-STRING-TO-BYTE-ARRAY ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/util.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/cipher.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFGENERIC ENCRYPT ...)
; compiling (DEFGENERIC DECRYPT ...)
; compiling (DEFMACRO WITH-WORDS ...)
; compiling (DEFMACRO DEFCIPHER ...)
; compiling (DEFMACRO DEFINE-BLOCK-ENCRYPTOR ...)
; compiling (DEFMACRO DEFINE-BLOCK-DECRYPTOR ...)
; compiling (DEFGENERIC VERIFY-KEY ...)
; compiling (DEFGENERIC BLOCK-LENGTH ...)
; compiling (DEFGENERIC KEY-LENGTHS ...)
; compiling (DEFVAR *SUPPORTED-CIPHERS* ...)
; compiling (DEFUN LIST-ALL-CIPHERS ...)
; compiling (DEFUN CIPHER-SUPPORTED-P ...)
; compiling (DEFGENERIC MAKE-CIPHER ...)
; compiling (DEFMETHOD MAKE-CIPHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/cipher.lisp
; in: DEFMETHOD MAKE-CIPHER (T T T)
; (DEFMETHOD IRONCLAD:MAKE-CIPHER
; (IRONCLAD::NAME IRONCLAD::MODE
; IRONCLAD::KEY
; &OPTIONAL
; IRONCLAD::IV)
; (ERROR 'IRONCLAD:UNSUPPORTED-CIPHER :NAME IRONCLAD::NAME))
; --> PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
; ==>
; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
; (IRONCLAD::IV (WHEN SB-PCL::.ARGS-TAIL. (POP SB-PCL::.ARGS-TAIL.)))
; (SB-PCL::.DUMMY0.
; (UNLESS (NULL SB-PCL::.ARGS-TAIL.)
; (ERROR 'SB-INT:SIMPLE-PROGRAM-ERROR
; :FORMAT-CONTROL
; "surplus arguments: ~S"
; :FORMAT-ARGUMENTS
; #))))
; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
; (BLOCK IRONCLAD:MAKE-CIPHER
; (ERROR 'IRONCLAD:UNSUPPORTED-CIPHER :NAME IRONCLAD::NAME)))
;
; caught STYLE-WARNING:
; The variable IV is defined but never used.
; compiling (DEFUN ACCEPTABLE-KEY-LENGTHS ...)
; compiling (DEFUN GENERATE-KEY-VERIFIER-METHODS ...)
; compiling (DEFUN WRAP-CIPHER-CONTEXT-WITH-MODE ...)
; compiling (DEFUN GENERATE-MAKE-CIPHER-DEFMETHOD ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/cipher.lisp
; in: DEFUN GENERATE-MAKE-CIPHER-DEFMETHOD
; (DEFUN IRONCLAD::GENERATE-MAKE-CIPHER-DEFMETHOD
; (IRONCLAD::CIPHER-NAME IRONCLAD::CONSTRUCTOR IRONCLAD:BLOCK-LENGTH)
; `(DEFMETHOD IRONCLAD:MAKE-CIPHER
; ((IRONCLAD::CIPHER (EQL ,IRONCLAD::CIPHER-NAME)) IRONCLAD::MODE
; IRONCLAD::KEY &OPTIONAL IRONCLAD::INITIALIZATION-VECTOR)
; (DECLARE (IGNORABLE IRONCLAD::INITIALIZATION-VECTOR))
; (LET* ((IRONCLAD::BYTE-KEY #) (IRONCLAD::CIPHER-CONTEXT #))
; (IRONCLAD::WRAP-CIPHER-CONTEXT-WITH-MODE
; IRONCLAD::CIPHER-CONTEXT
; ',IRONCLAD::CIPHER-NAME
; IRONCLAD::MODE
; IRONCLAD::INITIALIZATION-VECTOR))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA IRONCLAD::GENERATE-MAKE-CIPHER-DEFMETHOD
; (IRONCLAD::CIPHER-NAME IRONCLAD::CONSTRUCTOR
; IRONCLAD:BLOCK-LENGTH)
; (BLOCK IRONCLAD::GENERATE-MAKE-CIPHER-DEFMETHOD
; `(DEFMETHOD IRONCLAD:MAKE-CIPHER
; ((IRONCLAD::CIPHER #) IRONCLAD::MODE
; IRONCLAD::KEY &OPTIONAL
; IRONCLAD::INITIALIZATION-VECTOR)
; (DECLARE
; (IGNORABLE
; IRONCLAD::INITIALIZATION-VECTOR))
; (LET* (# #)
; (IRONCLAD::WRAP-CIPHER-CONTEXT-WITH-MODE
; IRONCLAD::CIPHER-CONTEXT
; ',IRONCLAD::CIPHER-NAME
; IRONCLAD::MODE
; IRONCLAD::INITIALIZATION-VECTOR)))))
;
; caught STYLE-WARNING:
; The variable BLOCK-LENGTH is defined but never used.
; compiling (DEFUN GENERATE-CIPHER-FORMS ...)
; compiling (DEFUN %DEFCIPHER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/cipher.fasl written
; compilation finished in 0:00:01
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40008101}> on
#<IRONCLAD-SOURCE-FILE "cipher" {40008111}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/common.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFMACRO DEFCONST ...)
; compiling (DEFTYPE INDEX ...)
; compiling (DEFTYPE INDEX+1 ...)
; compiling (DECLAIM (INLINE FIRST-BYTE))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIRST-BYTE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/common.lisp
; in: DEFUN FIRST-BYTE
; (LDB (BYTE 8 0) IRONCLAD::UB)
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; compiling (DECLAIM (INLINE SECOND-BYTE))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SECOND-BYTE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/common.lisp
; in: DEFUN SECOND-BYTE
; (LDB (BYTE 8 8) IRONCLAD::UB)
; --> SB-KERNEL:%LDB LOGAND
; ==>
; (ASH INT (- SB-C::POSN))
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; compiling (DECLAIM (INLINE THIRD-BYTE))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN THIRD-BYTE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/common.lisp
; in: DEFUN THIRD-BYTE
; (LDB (BYTE 8 16) IRONCLAD::UB)
; --> SB-KERNEL:%LDB LOGAND
; ==>
; (ASH INT (- SB-C::POSN))
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; compiling (DECLAIM (INLINE FOURTH-BYTE))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FOURTH-BYTE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/common.lisp
; in: DEFUN FOURTH-BYTE
; (LDB (BYTE 8 24) IRONCLAD::UB)
; --> SB-KERNEL:%LDB LOGAND
; ==>
; (ASH INT (- SB-C::POSN))
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; compiling (DECLAIM (INLINE FIFTH-BYTE))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIFTH-BYTE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/common.lisp
; in: DEFUN FIFTH-BYTE
; (LDB (BYTE 8 32) IRONCLAD::UB)
; --> SB-KERNEL:%LDB LOGAND
; ==>
; (ASH INT (- SB-C::POSN))
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; compiling (DECLAIM (INLINE SIXTH-BYTE))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SIXTH-BYTE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/common.lisp
; in: DEFUN SIXTH-BYTE
; (LDB (BYTE 8 40) IRONCLAD::UB)
; --> SB-KERNEL:%LDB LOGAND
; ==>
; (ASH INT (- SB-C::POSN))
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; compiling (DECLAIM (INLINE SEVENTH-BYTE))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SEVENTH-BYTE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/common.lisp
; in: DEFUN SEVENTH-BYTE
; (LDB (BYTE 8 48) IRONCLAD::UB)
; --> SB-KERNEL:%LDB LOGAND
; ==>
; (ASH INT (- SB-C::POSN))
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; compiling (DECLAIM (INLINE EIGHTH-BYTE))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EIGHTH-BYTE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/common.lisp
; in: DEFUN EIGHTH-BYTE
; (LDB (BYTE 8 56) IRONCLAD::UB)
; --> SB-KERNEL:%LDB LOGAND
; ==>
; (ASH INT (- SB-C::POSN))
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline fixnum logical op (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) logical op (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; compiling (DEFINE-FETCHERS-AND-STORERS 16)
; compiling (DEFINE-FETCHERS-AND-STORERS 32)
; compiling (DEFINE-FETCHERS-AND-STORERS 64)
; compiling (DECLAIM (INLINE MOD32+) ...)
; compiling (DEFUN MOD32+ ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/common.lisp
; in: DEFUN MOD32+
; (DEFUN IRONCLAD::MOD32+ (IRONCLAD::A IRONCLAD::B)
; (DECLARE (TYPE (UNSIGNED-BYTE 32) IRONCLAD::A IRONCLAD::B))
; (LDB (BYTE 32 0) (+ IRONCLAD::A IRONCLAD::B)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA IRONCLAD::MOD32+
; (IRONCLAD::A IRONCLAD::B)
; (DECLARE
; (TYPE (UNSIGNED-BYTE 32) IRONCLAD::A IRONCLAD::B))
; (BLOCK IRONCLAD::MOD32+
; (LDB (BYTE 32 0) (+ IRONCLAD::A IRONCLAD::B))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFINE-COMPILER-MACRO MOD32+ ...)
; compiling (DECLAIM (INLINE MOD32-) ...)
; compiling (DEFUN MOD32- ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/common.lisp
; in: DEFUN MOD32-
; (DEFUN IRONCLAD::MOD32- (IRONCLAD::A IRONCLAD::B)
; (DECLARE (TYPE (UNSIGNED-BYTE 32) IRONCLAD::A IRONCLAD::B))
; (LDB (BYTE 32 0) (- IRONCLAD::A IRONCLAD::B)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA IRONCLAD::MOD32-
; (IRONCLAD::A IRONCLAD::B)
; (DECLARE
; (TYPE (UNSIGNED-BYTE 32) IRONCLAD::A IRONCLAD::B))
; (BLOCK IRONCLAD::MOD32-
; (LDB (BYTE 32 0) (- IRONCLAD::A IRONCLAD::B))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFINE-COMPILER-MACRO MOD32- ...)
; compiling (DECLAIM (INLINE MOD32*) ...)
; compiling (DEFUN MOD32* ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/common.lisp
; in: DEFUN MOD32*
; (DEFUN IRONCLAD::MOD32* (IRONCLAD::A IRONCLAD::B)
; (DECLARE (TYPE (UNSIGNED-BYTE 16) IRONCLAD::A IRONCLAD::B))
; (LDB (BYTE 32 0) (* IRONCLAD::A IRONCLAD::B)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA IRONCLAD::MOD32*
; (IRONCLAD::A IRONCLAD::B)
; (DECLARE
; (TYPE (UNSIGNED-BYTE 16) IRONCLAD::A IRONCLAD::B))
; (BLOCK IRONCLAD::MOD32*
; (LDB (BYTE 32 0) (* IRONCLAD::A IRONCLAD::B))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFINE-COMPILER-MACRO MOD32* ...)
; compiling (DECLAIM (INLINE MOD32ASH) ...)
; compiling (DEFUN MOD32ASH ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/common.lisp
; in: DEFUN MOD32ASH
; (ASH IRONCLAD::NUM COUNT)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The second argument is a (INTEGER -31 31), not a (UNSIGNED-BYTE 29).
; The result is a (VALUES (MOD 9223372034707292161)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 9223372034707292161)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (LDB (BYTE 32 0) (ASH IRONCLAD::NUM COUNT))
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 9223372034707292161), not a (UNSIGNED-BYTE
; 32).
; compiling (DEFINE-COMPILER-MACRO MOD32ASH ...)
; compiling (DECLAIM (INLINE MOD32LOGNOT) ...)
; compiling (DEFUN MOD32LOGNOT ...)
; compiling (DEFINE-COMPILER-MACRO MOD32LOGNOT ...)
; compiling (DECLAIM (INLINE ROL32 ...) ...)
; compiling (DEFUN ROL32 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/common.lisp
; in: DEFUN ROL32
; (DEFUN IRONCLAD::ROL32 (IRONCLAD::A IRONCLAD::S)
; (DECLARE (TYPE (UNSIGNED-BYTE 32) IRONCLAD::A)
; (TYPE (UNSIGNED-BYTE 5) IRONCLAD::S))
; (SB-ROTATE-BYTE:ROTATE-BYTE IRONCLAD::S (BYTE 32 0) IRONCLAD::A))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA IRONCLAD::ROL32
; (IRONCLAD::A IRONCLAD::S)
; (DECLARE (TYPE (UNSIGNED-BYTE 32) IRONCLAD::A)
; (TYPE (UNSIGNED-BYTE 5) IRONCLAD::S))
; (BLOCK IRONCLAD::ROL32
; (SB-ROTATE-BYTE:ROTATE-BYTE IRONCLAD::S
; (BYTE 32 0)
; IRONCLAD::A)))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFUN ROR32 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/common.lisp
; in: DEFUN ROR32
; (DEFUN IRONCLAD::ROR32 (IRONCLAD::A IRONCLAD::S)
; (DECLARE (TYPE (UNSIGNED-BYTE 32) IRONCLAD::A)
; (TYPE (UNSIGNED-BYTE 5) IRONCLAD::S))
; (SB-ROTATE-BYTE:ROTATE-BYTE (- IRONCLAD::S) (BYTE 32 0) IRONCLAD::A))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA IRONCLAD::ROR32
; (IRONCLAD::A IRONCLAD::S)
; (DECLARE (TYPE (UNSIGNED-BYTE 32) IRONCLAD::A)
; (TYPE (UNSIGNED-BYTE 5) IRONCLAD::S))
; (BLOCK IRONCLAD::ROR32
; (SB-ROTATE-BYTE:ROTATE-BYTE (- IRONCLAD::S)
; (BYTE 32 0)
; IRONCLAD::A)))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DECLAIM (INLINE FILL-BLOCK-LE-UB8 ...))
; compiling (DECLAIM (INLINE COPY-TO-BUFFER))
; compiling (DEFUN COPY-TO-BUFFER ...)
; compiling (DEFUN FILL-BLOCK-UB8-LE ...); in: LAMBDA NIL
; (TRUNCATE IRONCLAD::BITSIZE 8)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (- ARRAY-DIMENSION-LIMIT IRONCLAD::BYTES)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (ASH 1 IRONCLAD::BITSIZE)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The second argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (1- (ASH 1 IRONCLAD::BITSIZE))
; ==>
; (- (ASH 1 IRONCLAD::BITSIZE) 1)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (LOOP IRONCLAD::FOR
; IRONCLAD::I
; IRONCLAD::FROM
; 0
; IRONCLAD::BELOW
; IRONCLAD::BYTES
; IRONCLAD::COLLECT
; (LET* ((IRONCLAD::OFFSET (IF IRONCLAD::BIG-ENDIAN IRONCLAD::I #))
; (IRONCLAD::SHIFT (IF IRONCLAD::BIG-ENDIAN # #)))
; `(ASH (AREF IRONCLAD::BUFFER (+ IRONCLAD::INDEX ,IRONCLAD::OFFSET))
; ,IRONCLAD::SHIFT))
; IRONCLAD::INTO
; IRONCLAD::FORMS
; IRONCLAD::FINALLY
; ...)
; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY
; --> TAGBODY WHEN COND IF >= IF
; ==>
; (< IRONCLAD::I #:LOOP-LIMIT-0)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; (- IRONCLAD::BYTES IRONCLAD::I 1)
; --> -
; ==>
; (- IRONCLAD::BYTES IRONCLAD::I)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; ==>
; (- (- IRONCLAD::BYTES IRONCLAD::I) 1)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (* IRONCLAD::OFFSET 8)
; ==>
; (ASH SB-C::X 3)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (- IRONCLAD::BYTES IRONCLAD::I 1)
; --> -
; ==>
; (- IRONCLAD::BYTES IRONCLAD::I)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; ==>
; (- (- IRONCLAD::BYTES IRONCLAD::I) 1)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (* (- IRONCLAD::BYTES IRONCLAD::I 1) 8)
; ==>
; (ASH SB-C::X 3)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (LOOP IRONCLAD::FOR
; IRONCLAD::I
; IRONCLAD::FROM
; 0
; IRONCLAD::BELOW
; IRONCLAD::BYTES
; IRONCLAD::COLLECT
; (LET* ((IRONCLAD::OFFSET (IF IRONCLAD::BIG-ENDIAN IRONCLAD::I #))
; (IRONCLAD::SHIFT (IF IRONCLAD::BIG-ENDIAN # #)))
; `(ASH (AREF IRONCLAD::BUFFER (+ IRONCLAD::INDEX ,IRONCLAD::OFFSET))
; ,IRONCLAD::SHIFT))
; IRONCLAD::INTO
; IRONCLAD::FORMS
; IRONCLAD::FINALLY
; ...)
; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY
; --> TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 1+
; ==>
; (+ IRONCLAD::I 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; in: LAMBDA NIL
; (TRUNCATE IRONCLAD::BITSIZE 8)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (- ARRAY-DIMENSION-LIMIT IRONCLAD::BYTES)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (LOOP IRONCLAD::FOR
; IRONCLAD::I
; IRONCLAD::FROM
; 1
; IRONCLAD::TO
; IRONCLAD::BYTES
; IRONCLAD::COLLECT
; (LET ((IRONCLAD::OFFSET (IF IRONCLAD::BIG-ENDIAN # #)))
; `(SETF (AREF IRONCLAD::BUFFER (+ IRONCLAD::INDEX ,IRONCLAD::OFFSET))
; (,(INTERN #) IRONCLAD::VALUE))))
; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY
; --> TAGBODY WHEN COND IF
; ==>
; (> IRONCLAD::I #:LOOP-LIMIT-0)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; (1- IRONCLAD::I)
; ==>
; (- IRONCLAD::I 1)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (- IRONCLAD::BYTES IRONCLAD::I)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The second argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The second argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (LOOP IRONCLAD::FOR
; IRONCLAD::I
; IRONCLAD::FROM
; 1
; IRONCLAD::TO
; IRONCLAD::BYTES
; IRONCLAD::COLLECT
; (LET ((IRONCLAD::OFFSET (IF IRONCLAD::BIG-ENDIAN # #)))
; `(SETF (AREF IRONCLAD::BUFFER (+ IRONCLAD::INDEX ,IRONCLAD::OFFSET))
; (,(INTERN #) IRONCLAD::VALUE))))
; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY
; --> TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 1+
; ==>
; (+ IRONCLAD::I 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES (INTEGER 2)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES (INTEGER 2)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFUN FILL-BLOCK-UB8-BE ...)
; compiling (DEFUN MAKE-CIRCULAR-LIST ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/common.lisp
; in: DEFUN MAKE-CIRCULAR-LIST
; (COPY-SEQ IRONCLAD::ELEMENTS)
;
; 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 CIRCULAR-LIST-SUBSEQ ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/common.lisp
; in: DEFUN CIRCULAR-LIST-SUBSEQ
; (- IRONCLAD::END IRONCLAD::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/common.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/digest.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DECLAIM (INLINE DIGEST-SEQUENCE-BODY ...))
; compiling (DEFUN DIGEST-SEQUENCE-BODY ...)
; compiling (DEFCONSTANT +BUFFER-SIZE+ ...)
; compiling (DEFTYPE BUFFER-INDEX ...)
; compiling (DEFUN DIGEST-STREAM-BODY ...)
; compiling (DEFUN DIGEST-FILE-BODY ...)
; compiling (DEFGENERIC DIGEST-FILE ...)
; compiling (DEFGENERIC DIGEST-STREAM ...)
; compiling (DEFGENERIC DIGEST-SEQUENCE ...)
; compiling (DEFGENERIC MAKE-DIGEST ...)
; compiling (DEFGENERIC COPY-DIGEST ...)
; compiling (DEFGENERIC UPDATE-DIGEST ...)
; compiling (DEFGENERIC PRODUCE-DIGEST ...)
; compiling (DEFVAR *SUPPORTED-DIGESTS* ...)
; compiling (DEFUN LIST-ALL-DIGESTS ...)
; compiling (DEFUN DIGEST-SUPPORTED-P ...)
; compiling (DEFGENERIC DIGEST-LENGTH ...)
; compiling (DEFMACRO DEFDIGEST ...)
; compiling (DEFUN %DEFDIGEST ...)
; compiling (DEFUN GENERATE-DIGEST-FORMS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/digest.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/octet-stream.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFVAR *BINARY-INPUT-STREAM-CLASS* ...)
; compiling (DEFVAR *BINARY-OUTPUT-STREAM-CLASS* ...)
; compiling (DEFVAR *STREAM-READ-BYTE-FUNCTION* ...)
; compiling (DEFVAR *STREAM-WRITE-BYTE-FUNCTION* ...)
; compiling (DEFVAR *STREAM-READ-SEQUENCE-FUNCTION* ...)
; compiling (DEFVAR *STREAM-WRITE-SEQUENCE-FUNCTION* ...)
; compiling (DEFCLASS OCTET-STREAM ...)
; compiling (DEFCLASS OCTET-INPUT-STREAM ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-READ-BYTE ...)
; compiling (DEFUN MAKE-OCTET-INPUT-STREAM ...)
; compiling (DEFCLASS OCTET-OUTPUT-STREAM ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-WRITE-BYTE ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-WRITE-SEQUENCE ...)
; compiling (DEFUN GET-OUTPUT-STREAM-OCTETS ...)
; compiling (DEFUN MAKE-OCTET-OUTPUT-STREAM ...)
; compiling (DEFCLASS DIGESTING-STREAM ...)
; compiling (DEFUN MAKE-DIGESTING-STREAM ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-WRITE-BYTE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/octet-stream.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/modes.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFGENERIC ENCRYPT-WITH-MODE ...)
; compiling (DEFGENERIC DECRYPT-WITH-MODE ...)
; compiling (DEFGENERIC ENCRYPTED-MESSAGE-LENGTH ...)
; compiling (DEFCLASS ENCRYPTION-MODE ...)
; compiling (DEFCLASS ECB-MODE ...)
; compiling (DEFCLASS INITITIALIZATION-VECTOR-MIXIN ...)
; compiling (DEFCLASS CBC-MODE ...)
; compiling (DEFCLASS OFB-MODE ...)
; compiling (DEFCLASS CFB-MODE ...)
; compiling (DEFCLASS CTR-MODE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFVAR *SUPPORTED-MODES* ...)
; compiling (DEFUN MODE-SUPPORTED-P ...)
; compiling (DEFUN LIST-ALL-MODES ...)
; compiling (DEFMETHOD ENCRYPT ...)
; compiling (DEFMETHOD DECRYPT ...)
; compiling (DEFGENERIC GENERATE-CIPHER-MODE-FUNCTIONS ...)
; compiling (DEFMETHOD GENERATE-CIPHER-MODE-FUNCTIONS ...)
; compiling (DECLAIM (INLINE XOR-BLOCK))
; compiling (DEFUN XOR-BLOCK ...)
; compiling (DEFUN INCREMENT-COUNTER-BLOCK ...)
; compiling (DEFMETHOD GENERATE-CIPHER-MODE-FUNCTIONS ...)
; compiling (DEFMETHOD GENERATE-CIPHER-MODE-FUNCTIONS ...)
; compiling (DEFMETHOD GENERATE-CIPHER-MODE-FUNCTIONS ...)
; compiling (DEFMETHOD GENERATE-CIPHER-MODE-FUNCTIONS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/modes.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/public-key.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFGENERIC MAKE-PUBLIC-KEY ...)
; compiling (DEFGENERIC MAKE-PRIVATE-KEY ...)
; compiling (DEFGENERIC SIGN-MESSAGE ...)
; compiling (DEFGENERIC VERIFY-SIGNATURE ...)
; compiling (DEFGENERIC ENCRYPT-MESSAGE ...)
; compiling (DEFGENERIC DECRYPT-MESSAGE ...)
; compiling (DEFUN OCTETS-TO-INTEGER ...)
; compiling (DEFUN INTEGER-TO-OCTETS ...)
; compiling (DEFUN SHIFT-OFF-ZEROS ...)
; compiling (DEFUN FROBNICATE ...)
; compiling (DEFUN MODULAR-INVERSE ...)
; compiling (DEFUN EXPT-MOD ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/public-key.lisp
; in: DEFUN EXPT-MOD
; (LOGBITP IRONCLAD::I IRONCLAD::EXPONENT)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a INTEGER, not a (INTEGER -2147483648 4294967295).
; (* IRONCLAD::RESULT IRONCLAD::SQR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a NUMBER, not a INTEGER.
; (* IRONCLAD::SQR IRONCLAD::SQR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; The second argument is a NUMBER, not a INTEGER.
; (MOD (* IRONCLAD::SQR IRONCLAD::SQR) IRONCLAD::MODULUS)
; --> BLOCK LET REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-KERNEL::DIVISOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT DOUBLE-FLOAT INTEGER).
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; --> BLOCK LET IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK LET IF AND IF AND IF MINUSP
; ==>
; (< SB-KERNEL::DIVISOR 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET IF AND IF AND IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET IF AND IF AND IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET IF
; ==>
; (+ REM SB-KERNEL::DIVISOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; (MOD (* IRONCLAD::RESULT IRONCLAD::SQR) IRONCLAD::MODULUS)
; --> BLOCK LET IF AND IF NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK LET IF AND IF AND IF MINUSP
; ==>
; (< SB-KERNEL::DIVISOR 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET IF AND IF AND IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET IF AND IF AND IF MINUSP
; ==>
; (< NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET IF
; ==>
; (+ REM SB-KERNEL::DIVISOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; --> BLOCK LET REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-KERNEL::DIVISOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT DOUBLE-FLOAT INTEGER).
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (INTEGER-LENGTH IRONCLAD::EXPONENT)
;
; note: forced to do full call
; unable to do inline (unsigned-byte 32) integer-length (cost 4) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; unable to do inline (signed-byte 32) integer-length (cost 6) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; (* IRONCLAD::RESULT IRONCLAD::SQR)
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline float arithmetic (cost 4) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (MOD (* IRONCLAD::RESULT IRONCLAD::SQR) IRONCLAD::MODULUS)
; --> BLOCK LET IF AND IF AND IF MINUSP
; ==>
; (< SB-KERNEL::DIVISOR 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.
; ==>
; (< NUMBER 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.
; --> BLOCK LET IF AND IF AND IF PLUSP
; ==>
; (> NUMBER 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.
; --> BLOCK LET IF
; ==>
; (+ REM SB-KERNEL::DIVISOR)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (* IRONCLAD::SQR IRONCLAD::SQR)
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline float arithmetic (cost 4) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (MOD (* IRONCLAD::SQR IRONCLAD::SQR) IRONCLAD::MODULUS)
; --> BLOCK LET IF AND IF AND IF MINUSP
; ==>
; (< SB-KERNEL::DIVISOR 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.
; ==>
; (< NUMBER 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.
; --> BLOCK LET IF AND IF AND IF PLUSP
; ==>
; (> NUMBER 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.
; --> BLOCK LET IF
; ==>
; (+ REM SB-KERNEL::DIVISOR)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/public-key.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/dsa.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFCLASS DISCRETE-LOGARITHM-GROUP ...)
; compiling (DEFCLASS DSA-KEY ...)
; compiling (DEFCLASS DSA-PUBLIC-KEY ...)
; compiling (DEFCLASS DSA-PRIVATE-KEY ...)
; compiling (DEFCLASS DSA-SIGNATURE ...)
; compiling (DEFUN DSA-KEY-P ...)
; compiling (DEFUN DSA-KEY-Q ...)
; compiling (DEFUN DSA-KEY-G ...)
; compiling (DEFUN MAKE-DSA-SIGNATURE ...)
; compiling (DEFMETHOD MAKE-PUBLIC-KEY ...)
; compiling (DEFMETHOD MAKE-PRIVATE-KEY ...)
; compiling (DEFCONSTANT +DSA-MESSAGE-LENGTH+ ...)
; compiling (DEFMETHOD SIGN-MESSAGE ...)
; compiling (DEFUN MAYBE-INTEGERIZE ...)
; compiling (DEFMETHOD VERIFY-SIGNATURE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/dsa.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/crc24.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFCONST +CRC24-TABLE+ ...)
; compiling (DEFSTRUCT (CRC24-STATE # ...) ...)
; compiling (DEFUN UPDATE-CRC24-STATE ...)
; compiling (DEFUN FINALIZE-CRC24-STATE ...)
; compiling (DEFDIGEST CRC24 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/crc24.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/crc32.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFCONST +CRC32-TABLE+ ...)
; compiling (DEFSTRUCT (CRC32-STATE # ...) ...)
; compiling (DEFUN UPDATE-CRC32-STATE ...)
; compiling (DEFUN FINALIZE-CRC32-STATE ...)
; compiling (DEFDIGEST CRC32 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/crc32.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/adler32.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFCONSTANT ADLER32-MODULO ...)
; compiling (DEFSTRUCT (ADLER32-STATE # ...) ...)
; compiling (DEFUN UPDATE-ADLER32-STATE ...)
; compiling (DEFUN FINALIZE-ADLER32-STATE ...)
; compiling (DEFDIGEST ADLER32 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/adler32.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/md2.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFCONST +MD2-PERMUTATION+ ...)
; compiling (DEFUN UPDATE-MD2-REGS ...)
; compiling (DECLAIM (INLINE MD2REGS-DIGEST))
; compiling (DEFUN MD2REGS-DIGEST ...)
; compiling (DEFSTRUCT (MD2-STATE # ...) ...)
; compiling (DEFUN COPY-MD2-STATE ...)
; compiling (DEFUN UPDATE-MD2-STATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/md2.lisp
; in: DEFUN UPDATE-MD2-STATE
; (AREF SEQUENCE (+ IRONCLAD::OFFSET IRONCLAD::I))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; (SETF (IRONCLAD::MD2-STATE-BUFFER-INDEX IRONCLAD::STATE) IRONCLAD::AMOUNT)
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME (SETF IRONCLAD::MD2-STATE-BUFFER-INDEX) :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION ((UNSIGNED-BYTE 4) IRONCLAD::MD2-STATE) (VALUES (UNSIGNED-BYTE 4) &OPTIONAL))> :WHERE-FROM :DECLARED :KIND :GLOBAL-FUNCTION {1042E8F9}>
; --> LET LET SB-KERNEL:%INSTANCE-SET
; ==>
; (THE (MOD 16) #:ONCE-ONLY-399)
;
; note: doing signed word to integer coercion (cost 20) from AMOUNT, for:
; the first argument of CHECK-FIXNUM
; (AREF SEQUENCE (+ IRONCLAD::OFFSET IRONCLAD::I))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; (AREF SEQUENCE (+ IRONCLAD::START IRONCLAD::I))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; (INCF IRONCLAD::START IRONCLAD::AMOUNT)
; --> LET* SETQ
; ==>
; (THE #<SB-KERNEL:NUMERIC-TYPE FIXNUM> #:G371)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; compiling (DEFUN FINALIZE-MD2-STATE ...)
; compiling (DEFDIGEST MD2 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/md2.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/md4.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFSTRUCT (MD4-REGS # ...) ...)
; compiling (DEFTYPE MD4-REGS ...)
; compiling (DEFUN UPDATE-MD4-BLOCK ...)
; compiling (DECLAIM (INLINE MD4REGS-DIGEST))
; compiling (DEFUN MD4REGS-DIGEST ...)
; compiling (DEFSTRUCT (MD4-STATE # ...) ...)
; compiling (DEFUN COPY-MD4-STATE ...)
; compiling (DEFUN UPDATE-MD4-STATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/md4.lisp
; in: DEFUN UPDATE-MD4-STATE
; (INCF (IRONCLAD::MD4-STATE-AMOUNT IRONCLAD::STATE) LENGTH)
; --> LET*
; ==>
; (+ (IRONCLAD::MD4-STATE-AMOUNT #:G883) #:G884)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; ==>
; (+ (IRONCLAD::MD4-STATE-AMOUNT #:G899) #:G900)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (LET ((IRONCLAD::REGS (IRONCLAD::MD4-STATE-REGS IRONCLAD::STATE))
; (BLOCK (IRONCLAD::MD4-STATE-BLOCK IRONCLAD::STATE))
; (IRONCLAD::BUFFER (IRONCLAD::MD4-STATE-BUFFER IRONCLAD::STATE))
; (IRONCLAD::BUFFER-INDEX
; (IRONCLAD::MD4-STATE-BUFFER-INDEX IRONCLAD::STATE))
; (LENGTH (- IRONCLAD::END IRONCLAD::START)))
; (DECLARE (TYPE IRONCLAD::MD4-REGS IRONCLAD::REGS)
; (TYPE FIXNUM LENGTH)
; (TYPE (INTEGER 0 63) IRONCLAD::BUFFER-INDEX)
; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (16)) BLOCK)
; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (64)) IRONCLAD::BUFFER))
; (UNLESS (ZEROP IRONCLAD::BUFFER-INDEX)
; (LET ((IRONCLAD::AMOUNT #))
; (DECLARE (TYPE # IRONCLAD::AMOUNT))
; (IRONCLAD::COPY-TO-BUFFER SEQUENCE
; IRONCLAD::START
; IRONCLAD::AMOUNT
; IRONCLAD::BUFFER
; IRONCLAD::BUFFER-INDEX)
; (SETQ IRONCLAD::START (THE FIXNUM #))
; (LET (#)
; (WHEN # # #)
; (WHEN # # # #))))
; (LOOP IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::OF-TYPE
; (UNSIGNED-BYTE 29)
; IRONCLAD::FROM
; IRONCLAD::START
; IRONCLAD::BELOW
; IRONCLAD::END
; IRONCLAD::BY
; 64
; IRONCLAD::UNTIL
; ...)
; (INCF (IRONCLAD::MD4-STATE-AMOUNT IRONCLAD::STATE) LENGTH)
; IRONCLAD::STATE)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; (LOOP IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::OF-TYPE
; (UNSIGNED-BYTE 29)
; IRONCLAD::FROM
; IRONCLAD::START
; IRONCLAD::BELOW
; IRONCLAD::END
; IRONCLAD::BY
; 64
; IRONCLAD::UNTIL
; ...)
; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ
; ==>
; (THE #<SB-KERNEL:NUMERIC-TYPE (UNSIGNED-BYTE 29)> (+ IRONCLAD::OFFSET 64))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; (THE FIXNUM (+ IRONCLAD::START IRONCLAD::AMOUNT))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; compiling (DEFUN FINALIZE-MD4-STATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/md4.lisp
; in: DEFUN FINALIZE-MD4-STATE
; (* 8 (IRONCLAD::MD4-STATE-AMOUNT IRONCLAD::STATE))
; --> *
; ==>
; (ASH SB-C::X 3)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (LDB (BYTE 32 0) IRONCLAD::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; (LDB (BYTE 32 32) IRONCLAD::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB LOGAND
; ==>
; (ASH INT (- SB-C::POSN))
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; compiling (DEFDIGEST MD4 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/md4.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/md5.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFPARAMETER *T* ...)
; compiling (DEFSTRUCT (MD5-REGS # ...) ...)
; compiling (DEFTYPE MD5-REGS ...)
; compiling (DEFUN UPDATE-MD5-BLOCK ...)
; compiling (DECLAIM (INLINE MD5REGS-DIGEST))
; compiling (DEFUN MD5REGS-DIGEST ...)
; compiling (DEFSTRUCT (MD5-STATE # ...) ...)
; compiling (DEFUN COPY-MD5-STATE ...)
; compiling (DEFUN UPDATE-MD5-STATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/md5.lisp
; in: DEFUN UPDATE-MD5-STATE
; (INCF (IRONCLAD::MD5-STATE-AMOUNT IRONCLAD::STATE) LENGTH)
; --> LET*
; ==>
; (+ (IRONCLAD::MD5-STATE-AMOUNT #:G1054) #:G1055)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; ==>
; (+ (IRONCLAD::MD5-STATE-AMOUNT #:G1070) #:G1071)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (LET* ((IRONCLAD::REGS (IRONCLAD::MD5-STATE-REGS IRONCLAD::STATE))
; (BLOCK (IRONCLAD::MD5-STATE-BLOCK IRONCLAD::STATE))
; (IRONCLAD::BUFFER (IRONCLAD::MD5-STATE-BUFFER IRONCLAD::STATE))
; (IRONCLAD::BUFFER-INDEX
; (IRONCLAD::MD5-STATE-BUFFER-INDEX IRONCLAD::STATE))
; (LENGTH (- IRONCLAD::END IRONCLAD::START)))
; (DECLARE (TYPE IRONCLAD::MD5-REGS IRONCLAD::REGS)
; (TYPE FIXNUM LENGTH)
; (TYPE (INTEGER 0 63) IRONCLAD::BUFFER-INDEX)
; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (16)) BLOCK)
; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (64)) IRONCLAD::BUFFER))
; (UNLESS (ZEROP IRONCLAD::BUFFER-INDEX)
; (LET ((IRONCLAD::AMOUNT #))
; (DECLARE (TYPE # IRONCLAD::AMOUNT))
; (IRONCLAD::COPY-TO-BUFFER SEQUENCE
; IRONCLAD::START
; IRONCLAD::AMOUNT
; IRONCLAD::BUFFER
; IRONCLAD::BUFFER-INDEX)
; (SETQ IRONCLAD::START (THE FIXNUM #))
; (LET (#)
; (WHEN # # #)
; (WHEN # # # #))))
; (LOOP IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::OF-TYPE
; (UNSIGNED-BYTE 29)
; IRONCLAD::FROM
; IRONCLAD::START
; IRONCLAD::BELOW
; IRONCLAD::END
; IRONCLAD::BY
; 64
; IRONCLAD::UNTIL
; ...)
; (INCF (IRONCLAD::MD5-STATE-AMOUNT IRONCLAD::STATE) LENGTH)
; IRONCLAD::STATE)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; (LOOP IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::OF-TYPE
; (UNSIGNED-BYTE 29)
; IRONCLAD::FROM
; IRONCLAD::START
; IRONCLAD::BELOW
; IRONCLAD::END
; IRONCLAD::BY
; 64
; IRONCLAD::UNTIL
; ...)
; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ
; ==>
; (THE #<SB-KERNEL:NUMERIC-TYPE (UNSIGNED-BYTE 29)> (+ IRONCLAD::OFFSET 64))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; (THE FIXNUM (+ IRONCLAD::START IRONCLAD::AMOUNT))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; compiling (DEFUN FINALIZE-MD5-STATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/md5.lisp
; in: DEFUN FINALIZE-MD5-STATE
; (* 8 (IRONCLAD::MD5-STATE-AMOUNT IRONCLAD::STATE))
; --> *
; ==>
; (ASH SB-C::X 3)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (LDB (BYTE 32 0) IRONCLAD::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; (LDB (BYTE 32 32) IRONCLAD::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB LOGAND
; ==>
; (ASH INT (- SB-C::POSN))
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; compiling (DEFDIGEST MD5 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/md5.fasl written
; compilation finished in 0:00:05
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/sha1.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFCONSTANT +K1+ ...)
; compiling (DEFCONSTANT +K2+ ...)
; compiling (DEFCONSTANT +K3+ ...)
; compiling (DEFCONSTANT +K4+ ...)
; compiling (DEFSTRUCT (SHA1-REGS # ...) ...)
; compiling (DEFTYPE SHA1-REGS ...)
; compiling (DEFUN UPDATE-SHA1-BLOCK ...)
; compiling (DECLAIM (INLINE EXPAND-BLOCK ...))
; compiling (DEFUN EXPAND-BLOCK ...)
; compiling (DECLAIM (INLINE SHA1REGS-DIGEST))
; compiling (DEFUN SHA1REGS-DIGEST ...)
; compiling (DEFSTRUCT (SHA1-STATE # ...) ...)
; compiling (DEFUN COPY-SHA1-STATE ...)
; compiling (DEFUN UPDATE-SHA1-STATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/sha1.lisp
; in: DEFUN UPDATE-SHA1-STATE
; (INCF (IRONCLAD::SHA1-STATE-AMOUNT IRONCLAD::STATE) LENGTH)
; --> LET*
; ==>
; (+ (IRONCLAD::SHA1-STATE-AMOUNT #:G1412) #:G1413)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912 18446744074246422526)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912 18446744074246422526)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; ==>
; (+ (IRONCLAD::SHA1-STATE-AMOUNT #:G1428) #:G1429)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912 18446744074246422526)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912 18446744074246422526)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (LET ((IRONCLAD::REGS (IRONCLAD::SHA1-STATE-REGS IRONCLAD::STATE))
; (BLOCK (IRONCLAD::SHA1-STATE-BLOCK IRONCLAD::STATE))
; (IRONCLAD::BUFFER (IRONCLAD::SHA1-STATE-BUFFER IRONCLAD::STATE))
; (IRONCLAD::BUFFER-INDEX
; (IRONCLAD::SHA1-STATE-BUFFER-INDEX IRONCLAD::STATE))
; (LENGTH (- IRONCLAD::END IRONCLAD::START)))
; (DECLARE (TYPE IRONCLAD::SHA1-REGS IRONCLAD::REGS)
; (TYPE FIXNUM LENGTH)
; (TYPE (INTEGER 0 63) IRONCLAD::BUFFER-INDEX)
; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (80)) BLOCK)
; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (64)) IRONCLAD::BUFFER))
; (UNLESS (ZEROP IRONCLAD::BUFFER-INDEX)
; (LET ((IRONCLAD::AMOUNT #))
; (DECLARE (TYPE # IRONCLAD::AMOUNT))
; (IRONCLAD::COPY-TO-BUFFER SEQUENCE
; IRONCLAD::START
; IRONCLAD::AMOUNT
; IRONCLAD::BUFFER
; IRONCLAD::BUFFER-INDEX)
; (SETQ IRONCLAD::START (THE FIXNUM #))
; (LET (#)
; (WHEN # # # #)
; (WHEN # # # #))))
; (LOOP IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::OF-TYPE
; (UNSIGNED-BYTE 29)
; IRONCLAD::FROM
; IRONCLAD::START
; IRONCLAD::BELOW
; IRONCLAD::END
; IRONCLAD::BY
; 64
; IRONCLAD::UNTIL
; ...)
; (INCF (IRONCLAD::SHA1-STATE-AMOUNT IRONCLAD::STATE) LENGTH)
; IRONCLAD::STATE)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; (LOOP IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::OF-TYPE
; (UNSIGNED-BYTE 29)
; IRONCLAD::FROM
; IRONCLAD::START
; IRONCLAD::BELOW
; IRONCLAD::END
; IRONCLAD::BY
; 64
; IRONCLAD::UNTIL
; ...)
; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ
; ==>
; (THE #<SB-KERNEL:NUMERIC-TYPE (UNSIGNED-BYTE 29)> (+ IRONCLAD::OFFSET 64))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; (THE FIXNUM (+ IRONCLAD::START IRONCLAD::AMOUNT))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; compiling (DEFUN FINALIZE-SHA1-STATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/sha1.lisp
; in: DEFUN FINALIZE-SHA1-STATE
; (* 8 (IRONCLAD::SHA1-STATE-AMOUNT IRONCLAD::STATE))
; --> *
; ==>
; (ASH SB-C::X 3)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 147573952589676412921)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 147573952589676412921)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (LDB (BYTE 32 32) IRONCLAD::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB LOGAND
; ==>
; (ASH INT (- SB-C::POSN))
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a (MOD 147573952589676412921), not a (SIGNED-BYTE
; 32).
; The result is a (VALUES (UNSIGNED-BYTE 35)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a (MOD 147573952589676412921), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES (UNSIGNED-BYTE 35)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 35), not a (UNSIGNED-BYTE 32).
; (LDB (BYTE 32 0) IRONCLAD::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 147573952589676412921), not a (UNSIGNED-BYTE
; 32).
; compiling (DEFDIGEST SHA1 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/sha1.fasl written
; compilation finished in 0:00:08
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/sha256.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFSTRUCT (SHA256-REGS # ...) ...)
; compiling (DEFTYPE SHA256-REGS ...)
; compiling (DEFCONST +SHA256-ROUND-CONSTANTS+ ...)
; compiling (DEFUN UPDATE-SHA256-BLOCK ...)
; compiling (DEFUN SHA256-EXPAND-BLOCK ...)
; compiling (DEFUN SHA256-REGS-DIGEST ...)
; compiling (DEFSTRUCT (SHA256-STATE # ...) ...)
; compiling (DEFUN COPY-SHA256-STATE ...)
; compiling (DEFUN UPDATE-SHA256-STATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/sha256.lisp
; in: DEFUN UPDATE-SHA256-STATE
; (INCF (IRONCLAD::SHA256-STATE-AMOUNT IRONCLAD::STATE) LENGTH)
; --> LET*
; ==>
; (+ (IRONCLAD::SHA256-STATE-AMOUNT #:G1997) #:G1998)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912 18446744074246422526)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912 18446744074246422526)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; ==>
; (+ (IRONCLAD::SHA256-STATE-AMOUNT #:G2013) #:G2014)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912 18446744074246422526)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912 18446744074246422526)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (LET ((IRONCLAD::REGS (IRONCLAD::SHA256-STATE-REGS IRONCLAD::STATE))
; (BLOCK (IRONCLAD::SHA256-STATE-BLOCK IRONCLAD::STATE))
; (IRONCLAD::BUFFER (IRONCLAD::SHA256-STATE-BUFFER IRONCLAD::STATE))
; (IRONCLAD::BUFFER-INDEX
; (IRONCLAD::SHA256-STATE-BUFFER-INDEX IRONCLAD::STATE))
; (LENGTH (- IRONCLAD::END IRONCLAD::START)))
; (DECLARE (TYPE IRONCLAD::SHA256-REGS IRONCLAD::REGS)
; (TYPE FIXNUM LENGTH)
; (TYPE (INTEGER 0 63) IRONCLAD::BUFFER-INDEX)
; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (64)) BLOCK)
; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (64)) IRONCLAD::BUFFER))
; (UNLESS (ZEROP IRONCLAD::BUFFER-INDEX)
; (LET ((IRONCLAD::AMOUNT #))
; (DECLARE (TYPE # IRONCLAD::AMOUNT))
; (IRONCLAD::COPY-TO-BUFFER SEQUENCE
; IRONCLAD::START
; IRONCLAD::AMOUNT
; IRONCLAD::BUFFER
; IRONCLAD::BUFFER-INDEX)
; (SETQ IRONCLAD::START (THE FIXNUM #))
; (LET (#)
; (WHEN # # # #)
; (WHEN # # # #))))
; (LOOP IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::OF-TYPE
; (UNSIGNED-BYTE 29)
; IRONCLAD::FROM
; IRONCLAD::START
; IRONCLAD::BELOW
; IRONCLAD::END
; IRONCLAD::BY
; 64
; IRONCLAD::UNTIL
; ...)
; (INCF (IRONCLAD::SHA256-STATE-AMOUNT IRONCLAD::STATE) LENGTH)
; IRONCLAD::STATE)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; (LOOP IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::OF-TYPE
; (UNSIGNED-BYTE 29)
; IRONCLAD::FROM
; IRONCLAD::START
; IRONCLAD::BELOW
; IRONCLAD::END
; IRONCLAD::BY
; 64
; IRONCLAD::UNTIL
; ...)
; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ
; ==>
; (THE #<SB-KERNEL:NUMERIC-TYPE (UNSIGNED-BYTE 29)> (+ IRONCLAD::OFFSET 64))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; (THE FIXNUM (+ IRONCLAD::START IRONCLAD::AMOUNT))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; compiling (DEFUN FINALIZE-SHA256-STATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/sha256.lisp
; in: DEFUN FINALIZE-SHA256-STATE
; (* 8 (IRONCLAD::SHA256-STATE-AMOUNT IRONCLAD::STATE))
; --> *
; ==>
; (ASH SB-C::X 3)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 147573952589676412921)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 147573952589676412921)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (LDB (BYTE 32 32) IRONCLAD::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB LOGAND
; ==>
; (ASH INT (- SB-C::POSN))
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a (MOD 147573952589676412921), not a (SIGNED-BYTE
; 32).
; The result is a (VALUES (UNSIGNED-BYTE 35)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a (MOD 147573952589676412921), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES (UNSIGNED-BYTE 35)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 35), not a (UNSIGNED-BYTE 32).
; (LDB (BYTE 32 0) IRONCLAD::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 147573952589676412921), not a (UNSIGNED-BYTE
; 32).
; compiling (DEFDIGEST SHA256 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/sha256.fasl written
; compilation finished in 0:00:19
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/ripemd-128.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFSTRUCT (RIPEMD-128-REGS # ...) ...)
; compiling (DEFTYPE RIPEMD-128-REGS ...)
; compiling (DEFUN UPDATE-RIPEMD-128-BLOCK ...)
; compiling (DECLAIM (INLINE RIPEMD-128-REGS-DIGEST))
; compiling (DEFUN RIPEMD-128-REGS-DIGEST ...); in: LAMBDA (#:WHOLE1266 #:ENVIRONMENT1267)
; (+ IRONCLAD::OFFSET 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (+ IRONCLAD::OFFSET 2)
;
; 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).
; (+ IRONCLAD::OFFSET 3)
;
; 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).
; (+ IRONCLAD::OFFSET 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (+ IRONCLAD::OFFSET 2)
;
; 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.
; (+ IRONCLAD::OFFSET 3)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFSTRUCT (RIPEMD-128-STATE # ...) ...)
; compiling (DEFUN COPY-RIPEMD-128-STATE ...)
; compiling (DEFUN UPDATE-RIPEMD-128-STATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/ripemd-128.lisp
; in: DEFUN UPDATE-RIPEMD-128-STATE
; (INCF (IRONCLAD::RIPEMD-128-STATE-AMOUNT IRONCLAD::STATE) LENGTH)
; --> LET*
; ==>
; (+ (IRONCLAD::RIPEMD-128-STATE-AMOUNT #:G1563) #:G1564)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; ==>
; (+ (IRONCLAD::RIPEMD-128-STATE-AMOUNT #:G1579) #:G1580)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFUN FINALIZE-RIPEMD-128-STATE ...); in: LAMBDA (#:WHOLE1628 #:ENVIRONMENT1629)
; (+ IRONCLAD::OFFSET 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (+ IRONCLAD::OFFSET 2)
;
; 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).
; (+ IRONCLAD::OFFSET 3)
;
; 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).
; (+ IRONCLAD::OFFSET 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (+ IRONCLAD::OFFSET 2)
;
; 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.
; (+ IRONCLAD::OFFSET 3)
;
; 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.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/ripemd-128.lisp
; in: DEFUN FINALIZE-RIPEMD-128-STATE
; (* 8 (IRONCLAD::RIPEMD-128-STATE-AMOUNT IRONCLAD::STATE))
; --> *
; ==>
; (ASH SB-C::X 3)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (LDB (BYTE 32 0) IRONCLAD::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; (LDB (BYTE 32 32) IRONCLAD::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB LOGAND
; ==>
; (ASH INT (- SB-C::POSN))
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; compiling (DEFDIGEST RIPEMD-128 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/ripemd-128.fasl written
; compilation finished in 0:00:10
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/ripemd-160.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFSTRUCT (RIPEMD-160-REGS # ...) ...)
; compiling (DEFTYPE RIPEMD-160-REGS ...)
; compiling (DEFUN UPDATE-RIPEMD-160-BLOCK ...)
; compiling (DECLAIM (INLINE RIPEMD-160-REGS-DIGEST))
; compiling (DEFUN RIPEMD-160-REGS-DIGEST ...); in: LAMBDA (#:WHOLE1884 #:ENVIRONMENT1885)
; (+ IRONCLAD::OFFSET 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (+ IRONCLAD::OFFSET 2)
;
; 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).
; (+ IRONCLAD::OFFSET 3)
;
; 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).
; (+ IRONCLAD::OFFSET 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (+ IRONCLAD::OFFSET 2)
;
; 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.
; (+ IRONCLAD::OFFSET 3)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFSTRUCT (RIPEMD-160-STATE # ...) ...)
; compiling (DEFUN COPY-RIPEMD-160-STATE ...)
; compiling (DEFUN UPDATE-RIPEMD-160-STATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/ripemd-160.lisp
; in: DEFUN UPDATE-RIPEMD-160-STATE
; (INCF (IRONCLAD::RIPEMD-160-STATE-AMOUNT IRONCLAD::STATE) LENGTH)
; --> LET*
; ==>
; (+ (IRONCLAD::RIPEMD-160-STATE-AMOUNT #:G2213) #:G2214)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; ==>
; (+ (IRONCLAD::RIPEMD-160-STATE-AMOUNT #:G2229) #:G2230)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -536870912)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFUN FINALIZE-RIPEMD-160-STATE ...); in: LAMBDA (#:WHOLE2278 #:ENVIRONMENT2279)
; (+ IRONCLAD::OFFSET 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (+ IRONCLAD::OFFSET 2)
;
; 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).
; (+ IRONCLAD::OFFSET 3)
;
; 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).
; (+ IRONCLAD::OFFSET 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (+ IRONCLAD::OFFSET 2)
;
; 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.
; (+ IRONCLAD::OFFSET 3)
;
; 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.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/ripemd-160.lisp
; in: DEFUN FINALIZE-RIPEMD-160-STATE
; (* 8 (IRONCLAD::RIPEMD-160-STATE-AMOUNT IRONCLAD::STATE))
; --> *
; ==>
; (ASH SB-C::X 3)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (LDB (BYTE 32 0) IRONCLAD::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; (LDB (BYTE 32 32) IRONCLAD::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB LOGAND
; ==>
; (ASH INT (- SB-C::POSN))
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; compiling (DEFDIGEST RIPEMD-160 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/ripemd-160.fasl written
; compilation finished in 0:00:17
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/tiger.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFCONSTANT +TIGER-MAGIC-A0+ ...)
; compiling (DEFCONSTANT +TIGER-MAGIC-A1+ ...)
; compiling (DEFCONSTANT +TIGER-MAGIC-B0+ ...)
; compiling (DEFCONSTANT +TIGER-MAGIC-B1+ ...)
; compiling (DEFCONSTANT +TIGER-MAGIC-C0+ ...)
; compiling (DEFCONSTANT +TIGER-MAGIC-C1+ ...)
; compiling (DEFSTRUCT (TIGER-REGS # ...) ...)
; compiling (DEFTYPE TIGER-REGS ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFPARAMETER TIGER-T1 ...)
; compiling (DEFPARAMETER TIGER-T2 ...)
; compiling (DEFPARAMETER TIGER-T3 ...)
; compiling (DEFPARAMETER TIGER-T4 ...)
; compiling (DEFUN UPDATE-TIGER-BLOCK ...)
; compiling (DEFUN TIGERREGS-DIGEST ...)
; compiling (DEFSTRUCT (TIGER-STATE # ...) ...)
; compiling (DEFUN COPY-TIGER-STATE ...)
; compiling (DEFUN UPDATE-TIGER-STATE ...)
; compiling (DEFUN FINALIZE-TIGER-STATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/tiger.lisp
; in: DEFUN FINALIZE-TIGER-STATE
; (* 8 (IRONCLAD::TIGER-STATE-AMOUNT IRONCLAD::STATE))
; --> *
; ==>
; (ASH SB-C::X 3)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (LDB (BYTE 32 0) IRONCLAD::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; (LDB (BYTE 32 32) IRONCLAD::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB LOGAND
; ==>
; (ASH INT (- SB-C::POSN))
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline constant ASH (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> SB-KERNEL:%LDB
; ==>
; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; compiling (DEFDIGEST TIGER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/tiger.fasl written
; compilation finished in 0:00:09
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/hmac.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFCONSTANT +HMAC-BLOCKSIZE+ ...)
; compiling (DEFCLASS HMAC ...)
; compiling (DEFUN MAKE-HMAC ...)
; compiling (DEFUN UPDATE-HMAC ...)
; compiling (DEFUN HMAC-DIGEST ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/hmac.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/aes.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFCONST TE0 ...)
; compiling (DEFCONST TE1 ...)
; compiling (DEFCONST TE2 ...)
; compiling (DEFCONST TE3 ...)
; compiling (DEFCONST TE4 ...)
; compiling (DEFCONST TD0 ...)
; compiling (DEFCONST TD1 ...)
; compiling (DEFCONST TD2 ...)
; compiling (DEFCONST TD3 ...)
; compiling (DEFCONST TD4 ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFCONST ROUND-CONSTANTS ...)
; compiling (DEFTYPE AES-ROUND-KEYS ...)
; compiling (DEFCLASS AES-CONTEXT ...)
; compiling (DEFUN ALLOCATE-ROUND-KEYS ...)
; compiling (DEFUN GENERATE-128-BIT-ROUND-KEYS ...)
; compiling (DEFUN GENERATE-192-BIT-ROUND-KEYS ...)
; compiling (DEFUN GENERATE-256-BIT-ROUND-KEYS ...)
; compiling (DEFUN GENERATE-ROUND-KEYS-FOR-ENCRYPTION ...)
; compiling (DEFUN GENERATE-ROUND-KEYS-FOR-DECRYPTION ...)
; compiling (DEFINE-BLOCK-ENCRYPTOR AES ...); in: LAMBDA (#:WHOLE742 #:ENVIRONMENT743)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 4
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFINE-BLOCK-DECRYPTOR AES ...); in: LAMBDA (#:WHOLE1177 #:ENVIRONMENT1178)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 4
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFUN CREATE-AES-CONTEXT ...)
; compiling (DEFCIPHER AES ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/aes.fasl written
; compilation finished in 0:00:08
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/des.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFCONST DES-SBOX0 ...)
; compiling (DEFCONST DES-SBOX1 ...)
; compiling (DEFCONST DES-SBOX2 ...)
; compiling (DEFCONST DES-SBOX3 ...)
; compiling (DEFCONST DES-SBOX4 ...)
; compiling (DEFCONST DES-SBOX5 ...)
; compiling (DEFCONST DES-SBOX6 ...)
; compiling (DEFCONST DES-SBOX7 ...)
; compiling (DEFCONST PERMUTATION1 ...)
; compiling (DEFCONST TOTAL-ROTATIONS ...)
; compiling (DEFCONST PERMUTATION2 ...)
; compiling (DEFTYPE DES-ROUND-KEYS ...)
; compiling (DEFMACRO DES-INITIAL-PERMUTATION ...)
; compiling (DEFMACRO DES-FINAL-PERMUTATION ...)
; compiling (DEFMACRO DES-MUNGE-CORE ...)
; compiling (DEFUN DES-MUNGE-BLOCK ...)
; compiling (DEFUN 3DES-MUNGE-BLOCK ...)
; compiling (DEFCLASS DES-CONTEXT ...)
; compiling (DEFINE-BLOCK-ENCRYPTOR DES ...)
; compiling (DEFINE-BLOCK-DECRYPTOR DES ...)
; compiling (DEFCLASS 3DES-CONTEXT ...)
; compiling (DEFINE-BLOCK-ENCRYPTOR 3DES ...)
; compiling (DEFINE-BLOCK-DECRYPTOR 3DES ...)
; compiling (DEFUN DES-COOK-KEY-SCHEDULE ...)
; compiling (DEFUN COMPUTE-DES-ENCRYPTION-KEYS ...)
; compiling (DEFUN COMPUTE-ROUND-KEYS-FOR-DES-KEY ...)
; compiling (DEFUN CREATE-DES-CONTEXT ...)
; compiling (DEFUN CREATE-3DES-CONTEXT ...)
; compiling (DEFCIPHER DES ...)
; compiling (DEFCIPHER 3DES ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/des.fasl written
; compilation finished in 0:00:08
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/blowfish.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFCONST +BLOWFISH-N-ROUNDS+ ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFCONST +P-ARRAY+ ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFCONST +S-BOX-0+ ...)
; compiling (DEFCONST +S-BOX-1+ ...)
; compiling (DEFCONST +S-BOX-2+ ...)
; compiling (DEFCONST +S-BOX-3+ ...)
; compiling (DEFTYPE BLOWFISH-P-ARRAY ...)
; compiling (DEFTYPE BLOWFISH-S-BOXES ...)
; compiling (DEFCLASS BLOWFISH-CONTEXT ...)
; compiling (DECLAIM (INLINE BLOWFISH-F))
; compiling (DEFUN BLOWFISH-F ...)
; compiling (DEFUN INITIALIZE-BLOWFISH-VECTORS ...)
; compiling (DECLAIM (INLINE BLOWFISH-ENCRYPT-BLOCK*))
; compiling (DEFUN BLOWFISH-ENCRYPT-BLOCK* ...)
; compiling (DECLAIM (NOTINLINE BLOWFISH-ENCRYPT-BLOCK*))
; compiling (DEFINE-BLOCK-ENCRYPTOR BLOWFISH ...); in: LAMBDA (#:WHOLE642 #:ENVIRONMENT643)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 4
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DECLAIM (INLINE BLOWFISH-DECRYPT-BLOCK*))
; compiling (DEFUN BLOWFISH-DECRYPT-BLOCK* ...)
; compiling (DECLAIM (NOTINLINE BLOWFISH-DECRYPT-BLOCK*))
; compiling (DEFINE-BLOCK-DECRYPTOR BLOWFISH ...); in: LAMBDA (#:WHOLE1533 #:ENVIRONMENT1534)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 4
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFUN MIX-P-ARRAY ...)
; compiling (DEFUN CREATE-BLOWFISH-CONTEXT ...)
; compiling (DEFCIPHER BLOWFISH ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/blowfish.fasl written
; compilation finished in 0:00:11
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/twofish.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFCONST +TWOFISH-Q0+ ...)
; compiling (DEFCONST +TWOFISH-Q1+ ...)
; compiling (DEFCONST +TWOFISH-RS+ ...)
; compiling (DEFCONST +TWOFISH-EXP-TO-POLY+ ...)
; compiling (DEFCONST +TWOFISH-POLY-TO-EXP+ ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFCONST +TWOFISH-MDS0+ ...)
; compiling (DEFCONST +TWOFISH-MDS1+ ...)
; compiling (DEFCONST +TWOFISH-MDS2+ ...)
; compiling (DEFCONST +TWOFISH-MDS3+ ...)
; compiling (DEFTYPE TWOFISH-S-BOXES ...)
; compiling (DEFTYPE TWOFISH-ROUND-KEYS ...)
; compiling (DEFCLASS TWOFISH-CONTEXT ...)
; compiling (DEFUN REED-SOLOMON-MULTIPLY ...)
; compiling (DEFUN TWOFISH-KEY-SCHEDULE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/twofish.lisp
; in: DEFUN TWOFISH-KEY-SCHEDULE
; (AREF IRONCLAD::+TWOFISH-RS+ (MOD (* 4 IRONCLAD::I) 32))
;
; note: deleting unreachable code
; compiling (DEFUN TWOFISH-SCHEDULE-16-BYTE-KEY ...)
; compiling (DEFUN TWOFISH-SCHEDULE-24-BYTE-KEY ...)
; compiling (DEFUN TWOFISH-SCHEDULE-32-BYTE-KEY ...)
; compiling (DEFINE-BLOCK-ENCRYPTOR TWOFISH ...); in: LAMBDA (#:WHOLE1206 #:ENVIRONMENT1207)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 4
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFINE-BLOCK-DECRYPTOR TWOFISH ...); in: LAMBDA (#:WHOLE2124 #:ENVIRONMENT2125)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 4
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFUN CREATE-TWOFISH-CONTEXT ...)
; compiling (DEFCIPHER TWOFISH ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/twofish.fasl written
; compilation finished in 0:00:16
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/idea.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFUN IDEA-MUL ...)
; compiling (DEFUN IDEA-MUL-INV ...)
; compiling (DEFTYPE IDEA-ROUND-KEYS ...)
; compiling (DEFUN IDEA-MUNGE-BLOCK ...)
; compiling (DEFCLASS IDEA-CONTEXT ...)
; compiling (DEFINE-BLOCK-ENCRYPTOR IDEA ...)
; compiling (DEFINE-BLOCK-DECRYPTOR IDEA ...)
; compiling (DEFUN IDEA-INVERT-KEY ...)
; compiling (DEFUN IDEA-KEY-SCHEDULE ...)
; compiling (DEFUN CREATE-IDEA-CONTEXT ...)
; compiling (DEFCIPHER IDEA ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/idea.fasl written
; compilation finished in 0:00:04
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/misty1.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFCONST +MISTY1-S7TABLE+ ...)
; compiling (DEFCONST +MISTY1-S9TABLE+ ...)
; compiling (DEFTYPE MISTY1-ROUND-KEYS ...)
; compiling (DEFCLASS MISTY1-CONTEXT ...)
; compiling (DECLAIM (INLINE FI ...))
; compiling (DEFUN FI ...)
; compiling (DEFUN FL ...)
; compiling (DEFUN FL-INV ...)
; compiling (DEFUN FO ...)
; compiling (DEFINE-BLOCK-ENCRYPTOR MISTY1 ...); in: LAMBDA (#:WHOLE235 #:ENVIRONMENT236)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 2
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 2)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 2)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 2)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/misty1.lisp
; in: DEFUN FL
; (LET* ((IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #)))
; (IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE ROUND 2) 6) 8)
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE ROUND 2) 6) 8) 8)
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #)))
; (IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE (1- ROUND) 2) 4) 8)
;
; note: deleting unreachable code
; (AREF IRONCLAD::KEYS (MOD (+ (TRUNCATE (1- ROUND) 2) 4) 8))
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #)))
; (IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE (1- ROUND) 2) 2) 8)
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE (1- ROUND) 2) 2) 8) 8)
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #)))
; (IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE ROUND 2) 6) 8)
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE ROUND 2) 6) 8) 8)
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #)))
; (IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE (1- ROUND) 2) 4) 8)
;
; note: deleting unreachable code
; (AREF IRONCLAD::KEYS (MOD (+ (TRUNCATE (1- ROUND) 2) 4) 8))
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #)))
; (IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE (1- ROUND) 2) 2) 8)
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE (1- ROUND) 2) 2) 8) 8)
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #)))
; (IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE ROUND 2) 6) 8)
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE ROUND 2) 6) 8) 8)
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #)))
; (IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE (1- ROUND) 2) 4) 8)
;
; note: deleting unreachable code
; (AREF IRONCLAD::KEYS (MOD (+ (TRUNCATE (1- ROUND) 2) 4) 8))
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #)))
; (IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE (1- ROUND) 2) 2) 8)
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE (1- ROUND) 2) 2) 8) 8)
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #)))
; (IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE ROUND 2) 6) 8)
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE ROUND 2) 6) 8) 8)
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #)))
; (IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE (1- ROUND) 2) 4) 8)
;
; note: deleting unreachable code
; (AREF IRONCLAD::KEYS (MOD (+ (TRUNCATE (1- ROUND) 2) 4) 8))
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #)))
; (IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE (1- ROUND) 2) 2) 8)
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE (1- ROUND) 2) 2) 8) 8)
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #)))
; (IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE ROUND 2) 6) 8)
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE ROUND 2) 6) 8) 8)
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #)))
; (IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (AREF IRONCLAD::KEYS (MOD (+ (TRUNCATE (1- ROUND) 2) 4) 8))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE (1- ROUND) 2) 2) 8) 8)
;
; note: deleting unreachable code
; (AREF IRONCLAD::KEYS (+ (MOD (+ (TRUNCATE # 2) 2) 8) 8))
;
; note: deleting unreachable code
; compiling (DEFINE-BLOCK-DECRYPTOR MISTY1 ...); in: LAMBDA (#:WHOLE1349 #:ENVIRONMENT1350)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 2
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 2)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 2)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 2)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/misty1.lisp
; in: DEFUN FL-INV
; (LET* ((IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #)))
; (IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE ROUND 2) 6) 8)
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE ROUND 2) 6) 8) 8)
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #)))
; (IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE (1- ROUND) 2) 2) 8)
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE (1- ROUND) 2) 2) 8) 8)
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #)))
; (IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE (1- ROUND) 2) 4) 8)
;
; note: deleting unreachable code
; (AREF IRONCLAD::KEYS (MOD (+ (TRUNCATE (1- ROUND) 2) 4) 8))
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #)))
; (IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE ROUND 2) 6) 8)
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE ROUND 2) 6) 8) 8)
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #)))
; (IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE (1- ROUND) 2) 2) 8)
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE (1- ROUND) 2) 2) 8) 8)
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #)))
; (IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE (1- ROUND) 2) 4) 8)
;
; note: deleting unreachable code
; (AREF IRONCLAD::KEYS (MOD (+ (TRUNCATE (1- ROUND) 2) 4) 8))
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #)))
; (IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE ROUND 2) 6) 8)
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE ROUND 2) 6) 8) 8)
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #)))
; (IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE (1- ROUND) 2) 2) 8)
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE (1- ROUND) 2) 2) 8) 8)
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #)))
; (IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE (1- ROUND) 2) 4) 8)
;
; note: deleting unreachable code
; (AREF IRONCLAD::KEYS (MOD (+ (TRUNCATE (1- ROUND) 2) 4) 8))
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #)))
; (IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE ROUND 2) 6) 8)
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE ROUND 2) 6) 8) 8)
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #)))
; (IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE (1- ROUND) 2) 2) 8)
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE (1- ROUND) 2) 2) 8) 8)
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #)))
; (IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE (1- ROUND) 2) 4) 8)
;
; note: deleting unreachable code
; (AREF IRONCLAD::KEYS (MOD (+ (TRUNCATE (1- ROUND) 2) 4) 8))
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #)))
; (IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; (MOD (+ (TRUNCATE ROUND 2) 6) 8)
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE ROUND 2) 6) 8) 8)
;
; note: deleting unreachable code
; (LET* ((IRONCLAD::D0 (LOGXOR IRONCLAD::D0 (LOGIOR IRONCLAD::D1 #)))
; (IRONCLAD::D1 (LOGXOR IRONCLAD::D1 (LOGAND IRONCLAD::D0 #))))
; (VALUES IRONCLAD::D0 IRONCLAD::D1))
;
; note: deleting unreachable code
; (+ (MOD (+ (TRUNCATE (1- ROUND) 2) 2) 8) 8)
;
; note: deleting unreachable code
; (AREF IRONCLAD::KEYS (+ (MOD (+ (TRUNCATE # 2) 2) 8) 8))
;
; note: deleting unreachable code
; (AREF IRONCLAD::KEYS (MOD (+ (TRUNCATE (1- ROUND) 2) 4) 8))
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; compiling (DEFUN MISTY1-EXPAND-KEY ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/misty1.lisp
; in: DEFUN MISTY1-EXPAND-KEY
; (AREF IRONCLAD::KEY-SCHEDULE (MOD (1+ IRONCLAD::I) 8))
;
; note: deleting unreachable code
; compiling (DEFUN CREATE-MISTY1-CONTEXT ...)
; compiling (DEFCIPHER MISTY1 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/misty1.fasl written
; compilation finished in 0:00:11
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/square.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFCONST ALOGTABLE ...)
; compiling (DEFCONST LOGTABLE ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFCONST G-MATRIX ...)
; compiling (DEFCONST INVERSE-G-MATRIX ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFCONST S-ENCRYPTION-TABLE ...)
; compiling (DEFCONST S-DECRYPTION-TABLE ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFCONST T-ENCRYPTION-TABLE ...)
; compiling (DEFCONST T-DECRYPTION-TABLE ...)
; compiling (DECLAIM (INLINE MUL8))
; compiling (DEFUN MUL8 ...)
; compiling (DEFUN TRANSFORM ...)
; compiling (DEFUN GENERATE-ROUND-KEYS ...)
; compiling (DECLAIM (INLINE SQUARE-MUNGE-BLOCK))
; compiling (DEFUN SQUARE-MUNGE-BLOCK ...)
; compiling (DEFCLASS SQUARE-CONTEXT ...)
; compiling (DEFINE-BLOCK-ENCRYPTOR SQUARE ...); in: LAMBDA (#:WHOLE880 #:ENVIRONMENT881)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 4
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/square.lisp
; in: DEFUN SQUARE-MUNGE-BLOCK
; (= IRONCLAD::I IRONCLAD::N-ROUNDS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (* IRONCLAD::N-ROUNDS 4)
;
; 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).
; (IRONCLAD::RKREF 0)
; --> AREF +
; ==>
; (+ SB-C::Y 0)
;
; 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).
; (* IRONCLAD::N-ROUNDS 4)
;
; 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).
; (IRONCLAD::RKREF 1)
; --> AREF +
; ==>
; (+ SB-C::Y 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (* IRONCLAD::N-ROUNDS 4)
;
; 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).
; (IRONCLAD::RKREF 2)
; --> AREF +
; ==>
; (+ SB-C::Y 2)
;
; 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).
; (* IRONCLAD::N-ROUNDS 4)
;
; 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).
; (IRONCLAD::RKREF 3)
; --> AREF +
; ==>
; (+ SB-C::Y 3)
;
; 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).
; (* IRONCLAD::N-ROUNDS 4)
;
; 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.
; (IRONCLAD::RKREF 0)
; --> AREF +
; ==>
; (+ SB-C::Y 0)
;
; 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.
; (* IRONCLAD::N-ROUNDS 4)
;
; 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.
; (IRONCLAD::RKREF 1)
; --> AREF +
; ==>
; (+ SB-C::Y 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (* IRONCLAD::N-ROUNDS 4)
;
; 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.
; (IRONCLAD::RKREF 2)
; --> AREF +
; ==>
; (+ SB-C::Y 2)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a 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.
; (* IRONCLAD::N-ROUNDS 4)
;
; 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.
; (IRONCLAD::RKREF 3)
; --> AREF +
; ==>
; (+ SB-C::Y 3)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (1+ IRONCLAD::I)
; ==>
; (+ IRONCLAD::I 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (AREF IRONCLAD::ROUND-KEYS (+ IRONCLAD::RK-OFFSET 2))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; (AREF IRONCLAD::ROUND-KEYS (+ IRONCLAD::RK-OFFSET 3))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; (DO ((IRONCLAD::I 0 (1+ IRONCLAD::I))
; (IRONCLAD::RK-OFFSET 4 (+ IRONCLAD::RK-OFFSET 4)))
; ((= IRONCLAD::I IRONCLAD::N-ROUNDS))
; (MACROLET ((IRONCLAD::MIX (IRONCLAD::VAR IRONCLAD::BYTEFUN)
; `(SETF ,IRONCLAD::VAR #)))
; (IRONCLAD::MIX IRONCLAD::B0 IRONCLAD::FOURTH-BYTE)
; (IRONCLAD::MIX IRONCLAD::B1 IRONCLAD::THIRD-BYTE)
; (IRONCLAD::MIX IRONCLAD::B2 IRONCLAD::SECOND-BYTE)
; (IRONCLAD::MIX IRONCLAD::B3 IRONCLAD::FIRST-BYTE)
; (SETF IRONCLAD::B0
; (AREF IRONCLAD::ROUND-KEYS (+ IRONCLAD::RK-OFFSET 0))
; IRONCLAD::B1
; (AREF IRONCLAD::ROUND-KEYS (+ IRONCLAD::RK-OFFSET 1))
; IRONCLAD::B2
; (AREF IRONCLAD::ROUND-KEYS (+ IRONCLAD::RK-OFFSET 2))
; IRONCLAD::B3
; (AREF IRONCLAD::ROUND-KEYS (+ IRONCLAD::RK-OFFSET 3)))))
; --> BLOCK LET TAGBODY PSETQ PSETF LET* MULTIPLE-VALUE-BIND LET LET*
; --> MULTIPLE-VALUE-BIND LET PROGN
; ==>
; (SETQ IRONCLAD::RK-OFFSET #:G903)
;
; note: doing signed word to integer coercion (cost 20) to RK-OFFSET
; compiling (DEFINE-BLOCK-DECRYPTOR SQUARE ...); in: LAMBDA (#:WHOLE1312 #:ENVIRONMENT1313)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 4
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/square.lisp
; in: DEFUN SQUARE-MUNGE-BLOCK
; (= IRONCLAD::I IRONCLAD::N-ROUNDS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (* IRONCLAD::N-ROUNDS 4)
;
; 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).
; (IRONCLAD::RKREF 0)
; --> AREF +
; ==>
; (+ SB-C::Y 0)
;
; 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).
; (* IRONCLAD::N-ROUNDS 4)
;
; 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).
; (IRONCLAD::RKREF 1)
; --> AREF +
; ==>
; (+ SB-C::Y 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (* IRONCLAD::N-ROUNDS 4)
;
; 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).
; (IRONCLAD::RKREF 2)
; --> AREF +
; ==>
; (+ SB-C::Y 2)
;
; 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).
; (* IRONCLAD::N-ROUNDS 4)
;
; 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).
; (IRONCLAD::RKREF 3)
; --> AREF +
; ==>
; (+ SB-C::Y 3)
;
; 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).
; (* IRONCLAD::N-ROUNDS 4)
;
; 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.
; (IRONCLAD::RKREF 0)
; --> AREF +
; ==>
; (+ SB-C::Y 0)
;
; 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.
; (* IRONCLAD::N-ROUNDS 4)
;
; 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.
; (IRONCLAD::RKREF 1)
; --> AREF +
; ==>
; (+ SB-C::Y 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (* IRONCLAD::N-ROUNDS 4)
;
; 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.
; (IRONCLAD::RKREF 2)
; --> AREF +
; ==>
; (+ SB-C::Y 2)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a 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.
; (* IRONCLAD::N-ROUNDS 4)
;
; 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.
; (IRONCLAD::RKREF 3)
; --> AREF +
; ==>
; (+ SB-C::Y 3)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (1+ IRONCLAD::I)
; ==>
; (+ IRONCLAD::I 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (AREF IRONCLAD::ROUND-KEYS (+ IRONCLAD::RK-OFFSET 2))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; (AREF IRONCLAD::ROUND-KEYS (+ IRONCLAD::RK-OFFSET 3))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; (DO ((IRONCLAD::I 0 (1+ IRONCLAD::I))
; (IRONCLAD::RK-OFFSET 4 (+ IRONCLAD::RK-OFFSET 4)))
; ((= IRONCLAD::I IRONCLAD::N-ROUNDS))
; (MACROLET ((IRONCLAD::MIX (IRONCLAD::VAR IRONCLAD::BYTEFUN)
; `(SETF ,IRONCLAD::VAR #)))
; (IRONCLAD::MIX IRONCLAD::B0 IRONCLAD::FOURTH-BYTE)
; (IRONCLAD::MIX IRONCLAD::B1 IRONCLAD::THIRD-BYTE)
; (IRONCLAD::MIX IRONCLAD::B2 IRONCLAD::SECOND-BYTE)
; (IRONCLAD::MIX IRONCLAD::B3 IRONCLAD::FIRST-BYTE)
; (SETF IRONCLAD::B0
; (AREF IRONCLAD::ROUND-KEYS (+ IRONCLAD::RK-OFFSET 0))
; IRONCLAD::B1
; (AREF IRONCLAD::ROUND-KEYS (+ IRONCLAD::RK-OFFSET 1))
; IRONCLAD::B2
; (AREF IRONCLAD::ROUND-KEYS (+ IRONCLAD::RK-OFFSET 2))
; IRONCLAD::B3
; (AREF IRONCLAD::ROUND-KEYS (+ IRONCLAD::RK-OFFSET 3)))))
; --> BLOCK LET TAGBODY PSETQ PSETF LET* MULTIPLE-VALUE-BIND LET LET*
; --> MULTIPLE-VALUE-BIND LET PROGN
; ==>
; (SETQ IRONCLAD::RK-OFFSET #:G1335)
;
; note: doing signed word to integer coercion (cost 20) to RK-OFFSET
; compiling (DEFUN CREATE-SQUARE-CONTEXT ...)
; compiling (DEFCIPHER SQUARE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/square.fasl written
; compilation finished in 0:00:09
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/rc2.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFCONST +RC2-PITABLE+ ...)
; compiling (DEFTYPE RC2-ROUND-KEYS ...)
; compiling (DEFCLASS RC2-CONTEXT ...)
; compiling (DECLAIM (INLINE ROL16) ...)
; compiling (DEFUN ROL16 ...)
; compiling (DEFUN RC2-SCHEDULE-KEY ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/rc2.lisp
; in: DEFUN RC2-SCHEDULE-KEY
; (AREF IRONCLAD::+RC2-PITABLE+
; (MOD
; (+ (AREF IRONCLAD::LBUF (1- IRONCLAD::J))
; (AREF IRONCLAD::LBUF (- IRONCLAD::J LENGTH)))
; 256))
;
; note: deleting unreachable code
; compiling (DEFINE-BLOCK-ENCRYPTOR RC2 ...); in: LAMBDA (#:WHOLE234 #:ENVIRONMENT235)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 2
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 2)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 2)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 2)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFINE-BLOCK-DECRYPTOR RC2 ...); in: LAMBDA (#:WHOLE700 #:ENVIRONMENT701)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 2
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 2)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 2)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 2)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFUN CREATE-RC2-CONTEXT ...)
; compiling (DEFCIPHER RC2 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/rc2.fasl written
; compilation finished in 0:00:09
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/rc5.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :IRONCLAD)
; compiling (DEFCONSTANT +RC5/32-P+ ...)
; compiling (DEFCONSTANT +RC5/32-Q+ ...)
; compiling (DEFCONSTANT +RC5-W+ ...)
; compiling (DEFCONSTANT +RC5-WW+ ...)
; compiling (DEFCONSTANT +RC5-B+ ...)
; compiling (DEFCONSTANT +RC5-BB+ ...)
; compiling (DEFTYPE RC5-N-ROUNDS ...)
; compiling (DEFTYPE RC5-ROUND-KEYS ...)
; compiling (DEFCLASS RC5-CONTEXT ...)
; compiling (DEFINE-BLOCK-ENCRYPTOR RC5 ...); in: LAMBDA (#:WHOLE14 #:ENVIRONMENT15)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 4
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/rc5.lisp
; in: DEFINE-BLOCK-ENCRYPTOR RC5
; (IRONCLAD::ROL32 IRONCLAD::B (MOD IRONCLAD::A 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 IRONCLAD::A (MOD IRONCLAD::B 32))
;
; note: deleting unreachable code
; compiling (DEFINE-BLOCK-DECRYPTOR RC5 ...); in: LAMBDA (#:WHOLE137 #:ENVIRONMENT138)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 4
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFUN RC5-EXPAND-KEY ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/rc5.lisp
; in: DEFUN RC5-EXPAND-KEY
; (IRONCLAD::ROL32
; (IRONCLAD::MOD32+ (AREF IRONCLAD::L IRONCLAD::J) IRONCLAD::X)
; (MOD IRONCLAD::X 32))
;
; note: deleting unreachable code
; compiling (DEFUN CREATE-RC5-CONTEXT ...)
; compiling (DEFCIPHER RC5 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/rc5.fasl written
; compilation finished in 0:00:05
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/rc6.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :IRONCLAD)
; compiling (DEFCONSTANT +RC6/32-P+ ...)
; compiling (DEFCONSTANT +RC6/32-Q+ ...)
; compiling (DEFTYPE RC6-N-ROUNDS ...)
; compiling (DEFCLASS RC6-CONTEXT ...)
; compiling (DEFUN GENERATE-UNROLLED-RC6-ENCRYPTION ...)
; compiling (DEFUN GENERATE-UNROLLED-RC6-DECRYPTION ...)
; compiling (DEFINE-BLOCK-ENCRYPTOR RC6 ...); in: LAMBDA (#:WHOLE42 #:ENVIRONMENT43)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 4
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/rc6.lisp
; in: DEFINE-BLOCK-ENCRYPTOR RC6
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::C IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::B IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::D IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::C IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::A IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::D IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::B IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::A IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::C IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::B IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::D IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::C IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::A IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::D IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::B IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::A IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::C IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::B IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::D IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::C IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::A IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::D IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::B IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::A IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::C IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::B IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::D IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::C IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::A IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::D IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::B IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::A IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::C IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::B IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::D IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::C IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::A IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::D IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::B IRONCLAD::U) (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROL32 (LOGXOR IRONCLAD::A IRONCLAD::V) (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; compiling (DEFINE-BLOCK-DECRYPTOR RC6 ...); in: LAMBDA (#:WHOLE684 #:ENVIRONMENT685)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 4
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/rc6.lisp
; in: DEFINE-BLOCK-DECRYPTOR RC6
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::D (AREF IRONCLAD::ROUND-KEYS 40))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::A (AREF IRONCLAD::ROUND-KEYS 39))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::C (AREF IRONCLAD::ROUND-KEYS 38))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::D (AREF IRONCLAD::ROUND-KEYS 37))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::B (AREF IRONCLAD::ROUND-KEYS 36))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::C (AREF IRONCLAD::ROUND-KEYS 35))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::A (AREF IRONCLAD::ROUND-KEYS 34))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::B (AREF IRONCLAD::ROUND-KEYS 33))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::D (AREF IRONCLAD::ROUND-KEYS 32))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::A (AREF IRONCLAD::ROUND-KEYS 31))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::C (AREF IRONCLAD::ROUND-KEYS 30))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::D (AREF IRONCLAD::ROUND-KEYS 29))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::B (AREF IRONCLAD::ROUND-KEYS 28))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::C (AREF IRONCLAD::ROUND-KEYS 27))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::A (AREF IRONCLAD::ROUND-KEYS 26))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::B (AREF IRONCLAD::ROUND-KEYS 25))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::D (AREF IRONCLAD::ROUND-KEYS 24))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::A (AREF IRONCLAD::ROUND-KEYS 23))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::C (AREF IRONCLAD::ROUND-KEYS 22))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::D (AREF IRONCLAD::ROUND-KEYS 21))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::B (AREF IRONCLAD::ROUND-KEYS 20))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::C (AREF IRONCLAD::ROUND-KEYS 19))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::A (AREF IRONCLAD::ROUND-KEYS 18))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::B (AREF IRONCLAD::ROUND-KEYS 17))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::D (AREF IRONCLAD::ROUND-KEYS 16))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::A (AREF IRONCLAD::ROUND-KEYS 15))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::C (AREF IRONCLAD::ROUND-KEYS 14))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::D (AREF IRONCLAD::ROUND-KEYS 13))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::B (AREF IRONCLAD::ROUND-KEYS 12))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::C (AREF IRONCLAD::ROUND-KEYS 11))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::A (AREF IRONCLAD::ROUND-KEYS 10))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32 (IRONCLAD::MOD32- IRONCLAD::B (AREF IRONCLAD::ROUND-KEYS 9))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32 (IRONCLAD::MOD32- IRONCLAD::D (AREF IRONCLAD::ROUND-KEYS 8))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32 (IRONCLAD::MOD32- IRONCLAD::A (AREF IRONCLAD::ROUND-KEYS 7))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32 (IRONCLAD::MOD32- IRONCLAD::C (AREF IRONCLAD::ROUND-KEYS 6))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32 (IRONCLAD::MOD32- IRONCLAD::D (AREF IRONCLAD::ROUND-KEYS 5))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32 (IRONCLAD::MOD32- IRONCLAD::B (AREF IRONCLAD::ROUND-KEYS 4))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32 (IRONCLAD::MOD32- IRONCLAD::C (AREF IRONCLAD::ROUND-KEYS 3))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32 (IRONCLAD::MOD32- IRONCLAD::A (AREF IRONCLAD::ROUND-KEYS 2))
; (MOD IRONCLAD::U 32))
;
; note: deleting unreachable code
; (IRONCLAD::ROR32
; (IRONCLAD::MOD32- IRONCLAD::B (AREF IRONCLAD::ROUND-KEYS 41))
; (MOD IRONCLAD::V 32))
;
; note: deleting unreachable code
; compiling (DEFUN RC6-EXPAND-KEY ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/rc6.lisp
; in: DEFUN RC6-EXPAND-KEY
; (IRONCLAD::ROL32
; (IRONCLAD::MOD32+ (AREF IRONCLAD::L IRONCLAD::J) IRONCLAD::X)
; (MOD IRONCLAD::X 32))
;
; note: deleting unreachable code
; compiling (DEFUN CREATE-RC6-CONTEXT ...)
; compiling (DEFCIPHER RC6 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/rc6.fasl written
; compilation finished in 0:00:10
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/tea.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFCONSTANT +TEA-N-ROUNDS+ ...)
; compiling (DEFCONSTANT +TEA-DELTA+ ...)
; compiling (DEFCLASS TEA-CONTEXT ...)
; compiling (DEFINE-BLOCK-ENCRYPTOR TEA ...); in: LAMBDA (#:WHOLE6 #:ENVIRONMENT7)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 4
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFINE-BLOCK-DECRYPTOR TEA ...); in: LAMBDA (#:WHOLE127 #:ENVIRONMENT128)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 4
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFUN CREATE-TEA-CONTEXT ...)
; compiling (DEFCIPHER TEA ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/tea.fasl written
; compilation finished in 0:00:04
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/xtea.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DEFCONSTANT +XTEA-N-ROUNDS+ ...)
; compiling (DEFCONSTANT +XTEA-DELTA+ ...)
; compiling (DEFCLASS XTEA-CONTEXT ...)
; compiling (DEFINE-BLOCK-ENCRYPTOR XTEA ...); in: LAMBDA (#:WHOLE6 #:ENVIRONMENT7)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 4
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFINE-BLOCK-DECRYPTOR XTEA ...); in: LAMBDA (#:WHOLE119 #:ENVIRONMENT120)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 4
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFUN CREATE-XTEA-CONTEXT ...)
; compiling (DEFCIPHER XTEA ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/xtea.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/cast5.lisp" (written 30 JAN 2006 06:52:22 PM):
; compiling (IN-PACKAGE :CRYPTO)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFCONST +CAST5-SBOX0+ ...)
; compiling (DEFCONST +CAST5-SBOX1+ ...)
; compiling (DEFCONST +CAST5-SBOX2+ ...)
; compiling (DEFCONST +CAST5-SBOX3+ ...)
; compiling (DEFCONST +CAST5-SBOX4+ ...)
; compiling (DEFCONST +CAST5-SBOX5+ ...)
; compiling (DEFCONST +CAST5-SBOX6+ ...)
; compiling (DEFCONST +CAST5-SBOX7+ ...)
; compiling (DEFTYPE CAST5-MASK-VECTOR ...)
; compiling (DEFTYPE CAST5-ROTATE-VECTOR ...)
; compiling (DEFCLASS CAST5-CONTEXT ...)
; compiling (DECLAIM (INLINE CAST5-F1 ...))
; compiling (DEFUN CAST5-F1 ...)
; compiling (DEFUN CAST5-F2 ...)
; compiling (DEFUN CAST5-F3 ...)
; compiling (DEFINE-BLOCK-ENCRYPTOR CAST5 ...); in: LAMBDA (#:WHOLE108 #:ENVIRONMENT109)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 4
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFINE-BLOCK-DECRYPTOR CAST5 ...); in: LAMBDA (#:WHOLE617 #:ENVIRONMENT618)
; (LOOP IRONCLAD::FOR
; IRONCLAD::WORD-VAR
; IRONCLAD::IN
; IRONCLAD::WORD-VARS
; IRONCLAD::FOR
; IRONCLAD::OFFSET
; IRONCLAD::FROM
; 0
; IRONCLAD::BY
; 4
; IRONCLAD::COLLECT
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 4)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFUN GENERATE-CAST5-KEY-SCHEDULE ...)
; compiling (DEFUN CREATE-CAST5-CONTEXT ...)
; compiling (DEFCIPHER CAST5 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/ironclad_0.12/cast5.fasl written
; compilation finished in 0:00:16
STYLE-WARNING: redefining COPY-TIGER-STATE in DEFUN
STYLE-WARNING: redefining GENERATE-UNROLLED-RC6-ENCRYPTION in DEFUN
STYLE-WARNING: redefining GENERATE-UNROLLED-RC6-DECRYPTION in DEFUN
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; printed 548 notes
;;; ASDF-INSTALL: Downloading package CXML, required by cl-xmpp
;;; ASDF-INSTALL: Downloading 150250 bytes from http://common-lisp.net/project/cxml/download/cxml.tgz to /Users/gwking/temporary/asdf-test/cxml.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/cxml.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/
cxml-2006-01-05/
cxml-2006-01-05/GNUmakefile
cxml-2006-01-05/COPYING
cxml-2006-01-05/DOMTEST
cxml-2006-01-05/README.html
cxml-2006-01-05/OLDNEWS
cxml-2006-01-05/catalog.dtd
cxml-2006-01-05/TIMES
cxml-2006-01-05/XMLCONF
cxml-2006-01-05/contrib/
cxml-2006-01-05/contrib/xhtmlgen.lisp
cxml-2006-01-05/XMLS-SYMBOLS.diff
cxml-2006-01-05/cxml.asd
cxml-2006-01-05/documentation.css
cxml-2006-01-05/mlisp-patch.diff
cxml-2006-01-05/doc/
cxml-2006-01-05/doc/cxml.css
cxml-2006-01-05/doc/bg.png
cxml-2006-01-05/doc/dom.html
cxml-2006-01-05/doc/installation.html
cxml-2006-01-05/doc/quickstart.html
cxml-2006-01-05/doc/using.html
cxml-2006-01-05/doc/xmls-compat.html
cxml-2006-01-05/dom/
cxml-2006-01-05/dom/dom-builder.lisp
cxml-2006-01-05/dom/dom-impl.lisp
cxml-2006-01-05/dom/dom-sax.lisp
cxml-2006-01-05/dom/package.lisp
cxml-2006-01-05/runes/
cxml-2006-01-05/runes/characters.lisp
cxml-2006-01-05/runes/definline.lisp
cxml-2006-01-05/runes/encodings-data.lisp
cxml-2006-01-05/runes/encodings.lisp
cxml-2006-01-05/runes/package.lisp
cxml-2006-01-05/runes/runes.lisp
cxml-2006-01-05/runes/syntax.lisp
cxml-2006-01-05/runes/utf8.lisp
cxml-2006-01-05/runes/xstream.lisp
cxml-2006-01-05/runes/ystream.lisp
cxml-2006-01-05/test/
cxml-2006-01-05/test/domtest.lisp
cxml-2006-01-05/test/utf8domtest.diff
cxml-2006-01-05/test/xmlconf-base.diff
cxml-2006-01-05/test/xmlconf.lisp
cxml-2006-01-05/xml/
cxml-2006-01-05/xml/sax-tests/
cxml-2006-01-05/xml/sax-tests/event-collecting-handler.lisp
cxml-2006-01-05/xml/sax-tests/package.lisp
cxml-2006-01-05/xml/sax-tests/tests.lisp
cxml-2006-01-05/xml/catalog.lisp
cxml-2006-01-05/xml/characters.lisp
cxml-2006-01-05/xml/package.lisp
cxml-2006-01-05/xml/recoder.lisp
cxml-2006-01-05/xml/sax-handler.lisp
cxml-2006-01-05/xml/sax-proxy.lisp
cxml-2006-01-05/xml/space-normalizer.lisp
cxml-2006-01-05/xml/split-sequence.lisp
cxml-2006-01-05/xml/unparse.lisp
cxml-2006-01-05/xml/util.lisp
cxml-2006-01-05/xml/xml-name-rune-p.lisp
cxml-2006-01-05/xml/xml-parse.lisp
cxml-2006-01-05/xml/xmlns-normalizer.lisp
cxml-2006-01-05/xml/xmls-compat.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/"
;;; Checking for wide character support...; in: LAMBDA NIL
; (FORMAT T " no, reverting to octet strings.~%")
; ==>
; " no, reverting to octet strings.~%"
;
; note: deleting unreachable code
;
; compilation unit finished
; printed 1 note
ok, characters have at least 16 bits.
;;; Building cxml with CHARACTER RUNES
; in: LAMBDA NIL
; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)
; ==>
; *LOAD-TRUENAME*
;
; note: deleting unreachable code
; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*))
; *DEFAULT-PATHNAME-DEFAULTS*)
; --> LET IF OR
; ==>
; *DEFAULT-PATHNAME-DEFAULTS*
;
; note: deleting unreachable code
;
; compilation unit finished
; printed 2 notes
; in: LAMBDA NIL
; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)
; ==>
; *LOAD-TRUENAME*
;
; note: deleting unreachable code
; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*))
; *DEFAULT-PATHNAME-DEFAULTS*)
; --> LET IF OR
; ==>
; *DEFAULT-PATHNAME-DEFAULTS*
;
; note: deleting unreachable code
;
; compilation unit finished
; printed 2 notes
; in: LAMBDA NIL
; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)
; ==>
; *LOAD-TRUENAME*
;
; note: deleting unreachable code
; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*))
; *DEFAULT-PATHNAME-DEFAULTS*)
; --> LET IF OR
; ==>
; *DEFAULT-PATHNAME-DEFAULTS*
;
; note: deleting unreachable code
;
; compilation unit finished
; printed 2 notes
; in: LAMBDA NIL
; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)
; ==>
; *LOAD-TRUENAME*
;
; note: deleting unreachable code
; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*))
; *DEFAULT-PATHNAME-DEFAULTS*)
; --> LET IF OR
; ==>
; *DEFAULT-PATHNAME-DEFAULTS*
;
; note: deleting unreachable code
;
; compilation unit finished
; printed 2 notes
;;; ASDF-INSTALL: Downloading package TRIVIAL-GRAY-STREAMS, required by cxml-xml
;;; ASDF-INSTALL: Downloading 2633 bytes from http://common-lisp.net/project/cl-plus-ssl/download/trivial-gray-streams.tar.gz to /Users/gwking/temporary/asdf-test/trivial-gray-streams.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/trivial-gray-streams.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/
trivial-gray-streams-2005-12-04/
trivial-gray-streams-2005-12-04/Makefile
trivial-gray-streams-2005-12-04/COPYING
trivial-gray-streams-2005-12-04/mixin.lisp
trivial-gray-streams-2005-12-04/README
trivial-gray-streams-2005-12-04/package.lisp
trivial-gray-streams-2005-12-04/trivial-gray-streams.asd
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/trivial-gray-streams-2005-12-04/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/trivial-gray-streams-2005-12-04/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/trivial-gray-streams-2005-12-04/package.lisp" (written 26 NOV 2005 07:01:03 AM):
; compiling (IN-PACKAGE :TRIVIAL-GRAY-STREAMS-SYSTEM)
; compiling (FROB)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/trivial-gray-streams-2005-12-04/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/trivial-gray-streams-2005-12-04/mixin.lisp" (written 04 DEC 2005 06:40:31 PM):
; compiling (IN-PACKAGE :TRIVIAL-GRAY-STREAMS)
; compiling (DEFCLASS TRIVIAL-GRAY-STREAM-MIXIN ...)
; compiling (DEFGENERIC STREAM-READ-SEQUENCE ...)
; compiling (DEFGENERIC STREAM-WRITE-SEQUENCE ...)
; compiling (DEFMETHOD STREAM-WRITE-STRING ...)
; compiling (DEFMETHOD STREAM-TERPRI ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-READ-SEQUENCE ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-WRITE-SEQUENCE ...)
; compiling (DEFMETHOD SB-GRAY:STREAM-LINE-LENGTH ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/trivial-gray-streams-2005-12-04/mixin.fasl written
; compilation finished in 0:00:01
;;; ASDF-INSTALL: Downloading package PURI, required by cxml-xml
;;; ASDF-INSTALL: Downloading 31029 bytes from http://files.b9.com/puri/puri-latest.tar.gz to /Users/gwking/temporary/asdf-test/puri.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/puri.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/
puri-1.4/
puri-1.4/uri.html
puri-1.4/tests.lisp
puri-1.4/LICENSE
puri-1.4/puri.asd
puri-1.4/README
puri-1.4/src.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp" (written 26 JAN 2006 10:18:48 PM):
; compiling (DEFPACKAGE #:PURI ...)
; compiling (IN-PACKAGE #:PURI)
; compiling (DEFUN PARSE-BODY ...)
; compiling (DEFUN SHRINK-VECTOR ...)
; compiling (DEFINE-CONDITION URI-PARSE-ERROR ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFINE-CONDITION URI-PARSE-ERROR
; (FORMAT STREAM "Parse error:")
; ==>
; (FORMAT SB-C::DEST (FORMATTER "Parse error:"))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a STREAM.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a (MEMBER T).
; compiling (DEFUN .PARSE-ERROR ...)
; compiling (DEFUN INTERNAL-READER-ERROR ...)
; compiling (DEFVAR *CURRENT-CASE-MODE* ...)
; compiling (DEFMETHOD POSITION-CHAR ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFMETHOD POSITION-CHAR (T STRING T T)
; (CHAR STRING PURI::I)
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling (DEFUN DELIMITED-STRING-TO-LIST ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFUN DELIMITED-STRING-TO-LIST
; (SUBSEQ STRING PURI::POS PURI::END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; (SUBSEQ STRING PURI::POS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; compiling (DEFVAR IF*-KEYWORD-LIST ...)
; compiling (DEFMACRO IF* ...)
; compiling (DEFCLASS URI ...)
; compiling (DEFCLASS URN ...)
; compiling (CLEAR-CACHING-ON-SLOT-CHANGE URI-SCHEME)
; compiling (CLEAR-CACHING-ON-SLOT-CHANGE URI-HOST)
; compiling (CLEAR-CACHING-ON-SLOT-CHANGE URI-PORT)
; compiling (CLEAR-CACHING-ON-SLOT-CHANGE URI-PATH)
; compiling (CLEAR-CACHING-ON-SLOT-CHANGE URI-QUERY)
; compiling (CLEAR-CACHING-ON-SLOT-CHANGE URI-FRAGMENT)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFMETHOD URI-P ...)
; compiling (DEFMETHOD URI-P ...)
; compiling (DEFUN COPY-URI ...)
; compiling (DEFMETHOD URI-PARSED-PATH ...)
; compiling (DEFMETHOD (SETF URI-PARSED-PATH) ...)
; compiling (DEFUN URI-AUTHORITY ...)
; compiling (DEFUN URI-NID ...)
; compiling (DEFUN URI-NSS ...)
; compiling (DEFPARAMETER *EXCLUDED-CHARACTERS* ...)
; compiling (DEFUN RESERVED-CHAR-VECTOR ...)
; compiling (DEFPARAMETER *RESERVED-CHARACTERS* ...)
; compiling (DEFPARAMETER *RESERVED-AUTHORITY-CHARACTERS* ...)
; compiling (DEFPARAMETER *RESERVED-PATH-CHARACTERS* ...)
; compiling (DEFPARAMETER *RESERVED-PATH-CHARACTERS2* ...)
; compiling (DEFPARAMETER *RESERVED-FRAGMENT-CHARACTERS* ...)
; compiling (DEFPARAMETER *VALID-NID-CHARACTERS* ...)
; compiling (DEFPARAMETER *RESERVED-NSS-CHARACTERS* ...)
; compiling (DEFPARAMETER *ILLEGAL-CHARACTERS* ...)
; compiling (DEFPARAMETER *STRICT-ILLEGAL-QUERY-CHARACTERS* ...)
; compiling (DEFPARAMETER *ILLEGAL-QUERY-CHARACTERS* ...)
; compiling (DEFUN PARSE-URI ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFUN PARSE-URI
; (FUNCALL
; (CASE PURI::*CURRENT-CASE-MODE*
; ((:CASE-INSENSITIVE-UPPER :CASE-SENSITIVE-UPPER) #'STRING-UPCASE)
; ((:CASE-INSENSITIVE-LOWER :CASE-SENSITIVE-LOWER) #'STRING-DOWNCASE))
; (PURI::DECODE-ESCAPED-ENCODING PURI::SCHEME PURI::ESCAPE))
; --> 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
; ((OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER)
; &KEY (:START (MOD 536870911)) (:END (OR NULL #)))
; (VALUES SIMPLE-STRING &OPTIONAL))
; NULL), not a FUNCTION.
; (PLUSP PURI::PORT)
; ==>
; (> PURI::PORT 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; compiling (DEFMETHOD URI ...)
; compiling (DEFMETHOD URI ...)
; compiling (DEFMETHOD URI ...)
; compiling (DEFVAR *STRICT-PARSE* ...)
; compiling (DEFUN PARSE-URI-STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFUN PARSE-URI-STRING
; (LENGTH STRING)
;
; 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.
; (CHAR STRING PURI::START)
; --> AREF LET*
; ==>
; (ARRAY-DIMENSION ARRAY 0)
;
; note: unable to optimize because: can't tell whether array is simple
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (SUBSEQ STRING PURI::SINDEX PURI::START)
;
; 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).
; (INCF PURI::START)
; --> LET* SETQ
; ==>
; (THE #<SB-KERNEL:NUMERIC-TYPE FIXNUM> #:G1010)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; ==>
; (THE #<SB-KERNEL:NUMERIC-TYPE FIXNUM> #:G1008)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; compiling (DEFUN ESCAPE-P ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFUN ESCAPE-P
; (LENGTH STRING)
;
; 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.
; (CHAR STRING PURI::I)
; --> AREF LET*
; ==>
; (ARRAY-DIMENSION ARRAY 0)
;
; note: unable to optimize because: can't tell whether array is simple
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling (DEFUN PARSE-PATH ...)
; compiling (DEFUN DECODE-ESCAPED-ENCODING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFUN DECODE-ESCAPED-ENCODING
; (LENGTH STRING)
;
; 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.
; (COPY-SEQ STRING)
;
; 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).
; (= PURI::I MAX)
;
; 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.
; (CHAR STRING PURI::I)
; --> AREF LET*
; ==>
; (ARRAY-DIMENSION ARRAY 0)
;
; note: unable to optimize because: can't tell whether array is simple
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR STRING (INCF PURI::I))
; --> AREF LET*
; ==>
; (ARRAY-DIMENSION ARRAY 0)
;
; note: unable to optimize because: can't tell whether array is simple
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; ==>
; (ARRAY-DIMENSION ARRAY 0)
;
; note: unable to optimize because: can't tell whether array is simple
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (LENGTH PURI::RESERVED-CHARS)
;
; 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.
; (1+ PURI::I)
; ==>
; (+ PURI::I 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (1+ PURI::NEW-I)
; ==>
; (+ PURI::NEW-I 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (1+ PURI::I)
; ==>
; (+ PURI::I 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (1+ PURI::NEW-I)
; ==>
; (+ PURI::NEW-I 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (INCF PURI::I)
; --> LET*
; ==>
; (+ PURI::I #:G1149)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; (INCF PURI::NEW-I)
; --> LET*
; ==>
; (+ PURI::NEW-I #:G1161)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; ==>
; (+ PURI::NEW-I #:G1166)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; compiling (DEFUN RENDER-URI ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFUN RENDER-URI
; (FORMAT STREAM "~a" (PURI::URI-STRING PURI:URI))
; ==>
; (FORMAT SB-C::DEST (FORMATTER "~a") #:G1205)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a STREAM.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a (MEMBER T).
; compiling (DEFUN RENDER-PARSED-PATH ...)
; compiling (DEFUN RENDER-URN ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFUN RENDER-URN
; (FORMAT STREAM "~a" (PURI::URI-STRING PURI:URN))
; ==>
; (FORMAT SB-C::DEST (FORMATTER "~a") #:G1243)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a STREAM.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a (MEMBER T).
; compiling (DEFPARAMETER *ESCAPED-ENCODING* ...)
; compiling (DEFUN ENCODE-ESCAPED-ENCODING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFUN ENCODE-ESCAPED-ENCODING
; (LENGTH STRING)
;
; 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.
; (CHAR STRING PURI::I)
; --> AREF LET*
; ==>
; (ARRAY-DIMENSION ARRAY 0)
;
; note: unable to optimize because: can't tell whether array is simple
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (INCF PURI::NEW-I)
; --> LET*
; ==>
; (+ PURI::NEW-I #:G1387)
;
; 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).
; ==>
; (+ PURI::NEW-I #:G1396)
;
; 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).
; ==>
; (+ PURI::NEW-I #:G1401)
;
; 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).
; (ELT PURI::*ESCAPED-ENCODING* PURI::Q)
;
; 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.
; (INCF PURI::NEW-I)
; --> LET*
; ==>
; (+ PURI::NEW-I #:G1406)
;
; 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).
; (ELT PURI::*ESCAPED-ENCODING* PURI::R)
;
; 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.
; (INCF PURI::NEW-I)
; --> LET*
; ==>
; (+ PURI::NEW-I #:G1410)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; ==>
; (+ PURI::NEW-I #:G1396)
;
; 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.
; ==>
; (+ PURI::NEW-I #:G1401)
;
; 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.
; ==>
; (+ PURI::NEW-I #:G1406)
;
; 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.
; ==>
; (+ PURI::NEW-I #:G1387)
;
; 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.
; (MAKE-STRING PURI::NEW-MAX)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; compiling (DEFMETHOD PRINT-OBJECT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFMETHOD PRINT-OBJECT (URI T)
; (FORMAT STREAM "#<~a ~a>" 'PURI:URI (PURI:RENDER-URI PURI:URI NIL))
; ==>
; (FORMAT SB-C::DEST (FORMATTER "#<~a ~a>") #:G1485 #:G1486)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a STREAM.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a (MEMBER T).
; compiling (DEFMETHOD PRINT-OBJECT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFMETHOD PRINT-OBJECT (URN T)
; (FORMAT STREAM "#<~a ~a>" 'PURI:URI (PURI::RENDER-URN PURI:URN NIL))
; ==>
; (FORMAT SB-C::DEST (FORMATTER "#<~a ~a>") #:G1525 #:G1526)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a STREAM.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a (MEMBER T).
; compiling (DEFMETHOD MERGE-URIS ...)
; compiling (DEFMETHOD MERGE-URIS ...)
; compiling (DEFMETHOD MERGE-URIS ...)
; compiling (DEFMETHOD MERGE-URIS ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFMETHOD MERGE-URIS (URI URI)
; (STRING= PURI::A
; (PURI::IF* (ATOM PURI::B)
; PURI::THEN
; PURI::B
; PURI::ELSE
; (CAR PURI::B)))
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1
; SB-C::STRING2
; SB-C::START1
; SB-C::END1
; SB-C::START2
; SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; The second argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; (POSITION ".."
; PURI::NPL
; :TEST
; #'(LAMBDA (PURI::A PURI::B)
; (STRING= PURI::A
; (PURI::IF* (ATOM PURI::B)
; PURI::THEN
; PURI::B
; PURI::ELSE
; (CAR PURI::B)))))
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; (STRING= PURI::A PURI::B)
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1
; SB-C::STRING2
; SB-C::START1
; SB-C::END1
; SB-C::START2
; SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; The second argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; compiling (DEFMETHOD ENOUGH-URI ...)
; compiling (DEFMETHOD ENOUGH-URI ...)
; compiling (DEFMETHOD ENOUGH-URI ...)
; compiling (DEFMETHOD ENOUGH-URI ...)
; compiling (DEFUN MAKE-URI-SPACE ...)
; compiling (DEFUN GETHASH-URI ...)
; compiling (DEFUN PUTHASH-URI ...)
; compiling (DEFUN URI-HASH ...)
; compiling (DEFVAR *URIS* ...)
; compiling (DEFUN URI-SPACE ...)
; compiling (DEFUN (SETF URI-SPACE) ...)
; compiling (WHEN (FBOUNDP #) ...)
; compiling (DEFGENERIC URI= ...)
; compiling (DEFMETHOD URI= ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFMETHOD URI= (URI URI)
; (EQL (OR (PURI:URI-PORT PURI::URI1) PURI::DEFAULT-PORT)
; (OR (PURI:URI-PORT PURI::URI2) PURI::DEFAULT-PORT))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; (STRING= (PURI:URI-PATH PURI::URI1) (PURI:URI-PATH PURI::URI2))
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1
; SB-C::STRING2
; SB-C::START1
; SB-C::END1
; SB-C::START2
; SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; The second argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; (STRING= (PURI:URI-QUERY PURI::URI1) (PURI:URI-QUERY PURI::URI2))
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1
; SB-C::STRING2
; SB-C::START1
; SB-C::END1
; SB-C::START2
; SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; The second argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; (STRING= (PURI:URI-FRAGMENT PURI::URI1) (PURI:URI-FRAGMENT PURI::URI2))
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1
; SB-C::STRING2
; SB-C::START1
; SB-C::END1
; SB-C::START2
; SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; The second argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; (EQL (OR (PURI:URI-PORT PURI::URI1) PURI::DEFAULT-PORT)
; (OR (PURI:URI-PORT PURI::URI2) PURI::DEFAULT-PORT))
;
; note: forced to do GENERIC-EQL (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; compiling (DEFMETHOD URI= ...)
; compiling (DEFUN URN-NSS-EQUAL ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFUN URN-NSS-EQUAL
; (LENGTH PURI::NSS1)
;
; 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.
; (LENGTH PURI::NSS2)
;
; 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.
; (CHAR PURI::NSS1 PURI::I)
; --> AREF LET*
; ==>
; (ARRAY-DIMENSION ARRAY 0)
;
; note: unable to optimize because: can't tell whether array is simple
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR PURI::NSS2 PURI::I)
; --> AREF LET*
; ==>
; (ARRAY-DIMENSION ARRAY 0)
;
; note: unable to optimize because: can't tell whether array is simple
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR-NOT-EQUAL PURI::C1 PURI::C2)
; --> IF
; ==>
; (CHAR-EQUAL PURI::C1 PURI::C2)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; compiling (DEFMETHOD INTERN-URI ...)
; compiling (DEFMETHOD INTERN-URI ...)
; compiling (DEFUN UNINTERN-URI ...)
; compiling (DEFMACRO DO-ALL-URIS ...)
; compiling (DEFUN SHARP-U ...)
; compiling (SET-DISPATCH-MACRO-CHARACTER #\# ...)
; compiling (PROVIDE :URI)
; compiling (DEFUN GC ...)
; compiling (DEFUN TIME-URI-MODULE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.fasl written
; compilation finished in 0:00:05
STYLE-WARNING: implicitly creating new generic function POSITION-CHAR
STYLE-WARNING: implicitly creating new generic function URI-P
STYLE-WARNING: implicitly creating new generic function URI-PARSED-PATH
STYLE-WARNING: implicitly creating new generic function (SETF URI-PARSED-PATH)
STYLE-WARNING: implicitly creating new generic function URI
STYLE-WARNING: implicitly creating new generic function MERGE-URIS
STYLE-WARNING: implicitly creating new generic function ENOUGH-URI
STYLE-WARNING: implicitly creating new generic function INTERN-URI
;
; compilation unit finished
; printed 145 notes
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/runes/package.lisp" (written 30 DEC 2005 09:21:46 AM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/runes/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/runes/definline.lisp" (written 28 NOV 2005 05:33:35 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/runes/definline.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/runes/characters.lisp" (written 27 DEC 2005 03:01:16 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/runes/characters.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/runes/syntax.lisp" (written 28 NOV 2005 05:33:35 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/runes/syntax.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/runes/encodings.lisp" (written 28 NOV 2005 05:22:51 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/runes/encodings.fasl written
; compilation finished in 0:00:02
STYLE-WARNING: implicitly creating new generic function ENCODING-NAMES
STYLE-WARNING: implicitly creating new generic function (SETF ENCODING-NAMES)
STYLE-WARNING: implicitly creating new generic function DECODE-SEQUENCE
STYLE-WARNING: implicitly creating new generic function ENCODING-P
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/runes/encodings-data.lisp" (written 27 NOV 2005 12:19:12 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/runes/encodings-data.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/runes/xstream.lisp" (written 30 DEC 2005 09:21:47 AM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/runes/xstream.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/runes/ystream.lisp" (written 28 DEC 2005 07:37:59 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/runes/ystream.fasl written
; compilation finished in 0:00:04
STYLE-WARNING: implicitly creating new generic function XSTREAM-UNDERFLOW
STYLE-WARNING: implicitly creating new generic function FIGURE-ENCODING
STYLE-WARNING: implicitly creating new generic function READ-OCTETS
STYLE-WARNING: implicitly creating new generic function XSTREAM/CLOSE
STYLE-WARNING: implicitly creating new generic function CLOSE-YSTREAM
STYLE-WARNING: implicitly creating new generic function FLUSH-YSTREAM
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/package.lisp" (written 28 DEC 2005 07:31:36 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/util.lisp" (written 28 NOV 2005 05:33:47 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/util.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/sax-handler.lisp" (written 28 DEC 2005 07:31:36 PM):
;
; caught STYLE-WARNING:
; Character decoding error in a ;-comment at position 459 reading source file #<FD-STREAM for "file /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/sax-handler.lisp" {10E9DC19}>, resyncing.
;
; caught STYLE-WARNING:
; Character decoding error in a ;-comment at position 499 reading source file #<FD-STREAM for "file /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/sax-handler.lisp" {10E9DC19}>, resyncing.
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/sax-handler.fasl written
; compilation finished in 0:00:03
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40007F71}> on
#<CLOSURE-SOURCE-FILE "sax-handler" {40007F81}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/characters.lisp" (written 28 NOV 2005 05:33:47 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/characters.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/xml-name-rune-p.lisp" (written 28 NOV 2005 05:33:47 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/xml-name-rune-p.fasl written
; compilation finished in 0:00:21
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/split-sequence.lisp" (written 13 MAR 2005 01:02:35 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/split-sequence.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/xml-parse.lisp" (written 28 DEC 2005 07:31:36 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/xml-parse.fasl written
; compilation finished in 0:00:16
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/unparse.lisp" (written 28 DEC 2005 07:38:00 PM):
;
; caught STYLE-WARNING:
; Character decoding error in a ;-comment at position 551 reading source file #<FD-STREAM for "file /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/unparse.lisp" {414358B1}>, resyncing.
;
; caught STYLE-WARNING:
; Character decoding error in a ;-comment at position 558 reading source file #<FD-STREAM for "file /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/unparse.lisp" {414358B1}>, resyncing.
;
; caught STYLE-WARNING:
; Character decoding error in a ;-comment at position 595 reading source file #<FD-STREAM for "file /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/unparse.lisp" {414358B1}>, resyncing.
;
; caught STYLE-WARNING:
; Character decoding error in a ;-comment at position 602 reading source file #<FD-STREAM for "file /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/unparse.lisp" {414358B1}>, resyncing.
;
; caught STYLE-WARNING:
; Character decoding error in a ;-comment at position 648 reading source file #<FD-STREAM for "file /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/unparse.lisp" {414358B1}>, resyncing.
;
; caught STYLE-WARNING:
; Character decoding error in a ;-comment at position 655 reading source file #<FD-STREAM for "file /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/unparse.lisp" {414358B1}>, resyncing.
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/unparse.fasl written
; compilation finished in 0:00:03
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {10007F59}> on
#<CLOSURE-SOURCE-FILE "unparse" {10007F69}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/xmls-compat.lisp" (written 28 NOV 2005 05:33:47 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/xmls-compat.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/recoder.lisp" (written 28 DEC 2005 07:31:36 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/recoder.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/xmlns-normalizer.lisp" (written 27 DEC 2005 03:01:32 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/xmlns-normalizer.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/space-normalizer.lisp" (written 28 DEC 2005 07:39:25 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/space-normalizer.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/catalog.lisp" (written 17 DEC 2005 05:30:19 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/catalog.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/sax-proxy.lisp" (written 28 DEC 2005 07:31:36 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/xml/sax-proxy.fasl written
; compilation finished in 0:00:02
STYLE-WARNING: implicitly creating new generic function PREFER
STYLE-WARNING: implicitly creating new generic function BASE
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/dom/package.lisp" (written 30 DEC 2005 09:21:46 AM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/dom/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/dom/dom-impl.lisp" (written 30 DEC 2005 09:21:44 AM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/dom/dom-impl.fasl written
; compilation finished in 0:00:25
STYLE-WARNING: implicitly creating new generic function DOM:PREFIX
STYLE-WARNING: implicitly creating new generic function DOM:LOCAL-NAME
STYLE-WARNING: implicitly creating new generic function DOM:NAMESPACE-URI
STYLE-WARNING: implicitly creating new generic function (SETF DOM:PREFIX)
STYLE-WARNING: implicitly creating new generic function DOM:CODE
STYLE-WARNING: implicitly creating new generic function DOM:HAS-FEATURE
STYLE-WARNING: implicitly creating new generic function DOM:CREATE-DOCUMENT-TYPE
STYLE-WARNING: implicitly creating new generic function DOM:CREATE-DOCUMENT
STYLE-WARNING: implicitly creating new generic function DOM:IMPLEMENTATION
STYLE-WARNING: implicitly creating new generic function DOM:DOCUMENT-ELEMENT
STYLE-WARNING: implicitly creating new generic function DOM:CREATE-ELEMENT
STYLE-WARNING: implicitly creating new generic function DOM:CREATE-ELEMENT-NS
STYLE-WARNING:
implicitly creating new generic function DOM:CREATE-DOCUMENT-FRAGMENT
STYLE-WARNING: implicitly creating new generic function DOM:CREATE-TEXT-NODE
STYLE-WARNING: implicitly creating new generic function DOM:CREATE-COMMENT
STYLE-WARNING: implicitly creating new generic function DOM:CREATE-CDATA-SECTION
STYLE-WARNING:
implicitly creating new generic function DOM:CREATE-PROCESSING-INSTRUCTION
STYLE-WARNING: implicitly creating new generic function DOM:CREATE-ATTRIBUTE
STYLE-WARNING: implicitly creating new generic function DOM:CREATE-ATTRIBUTE-NS
STYLE-WARNING:
implicitly creating new generic function DOM:CREATE-ENTITY-REFERENCE
STYLE-WARNING:
implicitly creating new generic function GET-ELEMENTS-BY-TAG-NAME-INTERNAL
STYLE-WARNING:
implicitly creating new generic function GET-ELEMENTS-BY-TAG-NAME-INTERNAL-NS
STYLE-WARNING:
implicitly creating new generic function DOM:GET-ELEMENTS-BY-TAG-NAME
STYLE-WARNING:
implicitly creating new generic function DOM:GET-ELEMENTS-BY-TAG-NAME-NS
STYLE-WARNING: implicitly creating new generic function DOM:GET-ELEMENT-BY-ID
STYLE-WARNING: implicitly creating new generic function DOM:HAS-ATTRIBUTES
STYLE-WARNING: implicitly creating new generic function DOM:IS-SUPPORTED
STYLE-WARNING: implicitly creating new generic function DOM:PARENT-NODE
STYLE-WARNING: implicitly creating new generic function DOM:CHILD-NODES
STYLE-WARNING: implicitly creating new generic function DOM:FIRST-CHILD
STYLE-WARNING: implicitly creating new generic function DOM:LAST-CHILD
STYLE-WARNING: implicitly creating new generic function DOM:PREVIOUS-SIBLING
STYLE-WARNING: implicitly creating new generic function DOM:NEXT-SIBLING
STYLE-WARNING: implicitly creating new generic function DOM:INSERT-BEFORE
STYLE-WARNING: implicitly creating new generic function DOM:REPLACE-CHILD
STYLE-WARNING: implicitly creating new generic function DOM:REMOVE-CHILD
STYLE-WARNING: implicitly creating new generic function DOM:APPEND-CHILD
STYLE-WARNING: implicitly creating new generic function DOM:HAS-CHILD-NODES
STYLE-WARNING: implicitly creating new generic function DOM:NODE-NAME
STYLE-WARNING: implicitly creating new generic function DOM:NODE-TYPE
STYLE-WARNING: implicitly creating new generic function DOM:NODE-VALUE
STYLE-WARNING: implicitly creating new generic function (SETF DOM:NODE-VALUE)
STYLE-WARNING: implicitly creating new generic function DOM:ITEM
STYLE-WARNING: implicitly creating new generic function DOM:LENGTH
STYLE-WARNING: implicitly creating new generic function DOM:GET-NAMED-ITEM
STYLE-WARNING: implicitly creating new generic function DOM:GET-NAMED-ITEM-NS
STYLE-WARNING: implicitly creating new generic function DOM:SET-NAMED-ITEM
STYLE-WARNING: implicitly creating new generic function DOM:SET-NAMED-ITEM-NS
STYLE-WARNING: implicitly creating new generic function DOM:REMOVE-NAMED-ITEM
STYLE-WARNING: implicitly creating new generic function DOM:REMOVE-NAMED-ITEM-NS
STYLE-WARNING: implicitly creating new generic function (SETF DOM:DATA)
STYLE-WARNING: implicitly creating new generic function DOM:SUBSTRING-DATA
STYLE-WARNING: implicitly creating new generic function DOM:APPEND-DATA
STYLE-WARNING: implicitly creating new generic function DOM:DELETE-DATA
STYLE-WARNING: implicitly creating new generic function DOM:REPLACE-DATA
STYLE-WARNING: implicitly creating new generic function DOM:INSERT-DATA
STYLE-WARNING: implicitly creating new generic function DOM:VALUE
STYLE-WARNING: implicitly creating new generic function (SETF DOM:VALUE)
STYLE-WARNING: implicitly creating new generic function WRITE-ATTRIBUTE-CHILD
STYLE-WARNING: implicitly creating new generic function DOM:HAS-ATTRIBUTE
STYLE-WARNING: implicitly creating new generic function DOM:HAS-ATTRIBUTE-NS
STYLE-WARNING: implicitly creating new generic function DOM:GET-ATTRIBUTE-NODE
STYLE-WARNING: implicitly creating new generic function DOM:SET-ATTRIBUTE-NODE
STYLE-WARNING:
implicitly creating new generic function DOM:GET-ATTRIBUTE-NODE-NS
STYLE-WARNING:
implicitly creating new generic function DOM:SET-ATTRIBUTE-NODE-NS
STYLE-WARNING: implicitly creating new generic function DOM:GET-ATTRIBUTE
STYLE-WARNING: implicitly creating new generic function DOM:GET-ATTRIBUTE-NS
STYLE-WARNING: implicitly creating new generic function DOM:SET-ATTRIBUTE
STYLE-WARNING: implicitly creating new generic function DOM:SET-ATTRIBUTE-NS
STYLE-WARNING: implicitly creating new generic function DOM:REMOVE-ATTRIBUTE
STYLE-WARNING: implicitly creating new generic function DOM:REMOVE-ATTRIBUTE-NS
STYLE-WARNING:
implicitly creating new generic function DOM:REMOVE-ATTRIBUTE-NODE
STYLE-WARNING: implicitly creating new generic function DOM:NORMALIZE
STYLE-WARNING: implicitly creating new generic function DOM:SPLIT-TEXT
STYLE-WARNING: implicitly creating new generic function DOM:INTERNAL-SUBSET
STYLE-WARNING: implicitly creating new generic function DOM:NODE-P
STYLE-WARNING: implicitly creating new generic function DOM:DOCUMENT-P
STYLE-WARNING: implicitly creating new generic function DOM:DOCUMENT-FRAGMENT-P
STYLE-WARNING: implicitly creating new generic function DOM:CHARACTER-DATA-P
STYLE-WARNING: implicitly creating new generic function DOM:ATTRIBUTE-P
STYLE-WARNING: implicitly creating new generic function DOM:ELEMENT-P
STYLE-WARNING: implicitly creating new generic function DOM:TEXT-NODE-P
STYLE-WARNING: implicitly creating new generic function DOM:COMMENT-P
STYLE-WARNING: implicitly creating new generic function DOM:CDATA-SECTION-P
STYLE-WARNING: implicitly creating new generic function DOM:DOCUMENT-TYPE-P
STYLE-WARNING: implicitly creating new generic function DOM:NOTATION-P
STYLE-WARNING: implicitly creating new generic function DOM:ENTITY-P
STYLE-WARNING: implicitly creating new generic function DOM:ENTITY-REFERENCE-P
STYLE-WARNING:
implicitly creating new generic function DOM:PROCESSING-INSTRUCTION-P
STYLE-WARNING: implicitly creating new generic function DOM:NAMED-NODE-MAP-P
STYLE-WARNING: implicitly creating new generic function IMPORT-NODE-INTERNAL
STYLE-WARNING: implicitly creating new generic function DOM:IMPORT-NODE
STYLE-WARNING: implicitly creating new generic function DOM:CLONE-NODE
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/dom/dom-builder.lisp" (written 26 DEC 2005 08:35:14 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/dom/dom-builder.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/dom/dom-sax.lisp" (written 27 DEC 2005 03:01:13 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/dom/dom-sax.fasl written
; compilation finished in 0:00:00
STYLE-WARNING:
redefining SAX:UNPARSED-ENTITY-DECLARATION (DOM-BUILDER T T T T) in DEFMETHOD
STYLE-WARNING:
redefining SAX:EXTERNAL-ENTITY-DECLARATION (DOM-BUILDER T T T T) in DEFMETHOD
STYLE-WARNING:
redefining SAX:INTERNAL-ENTITY-DECLARATION (DOM-BUILDER T T T) in DEFMETHOD
STYLE-WARNING:
redefining SAX:NOTATION-DECLARATION (DOM-BUILDER T T T) in DEFMETHOD
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/test/domtest.lisp" (written 28 DEC 2005 06:11:38 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/test/domtest.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/test/xmlconf.lisp" (written 28 DEC 2005 06:11:38 PM):
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cxml-2006-01-05/test/xmlconf.fasl written
; compilation finished in 0:00:00
STYLE-WARNING: redefining FOR-AUX in DEFUN
STYLE-WARNING: implicitly creating new generic function RUN-TEST
;
; compilation unit finished
; caught 8 STYLE-WARNING conditions
;;; ASDF-INSTALL: Downloading package TRIVIAL-SOCKETS, required by cl-xmpp
;;; ASDF-INSTALL: Downloading 9714 bytes from http://ftp.linux.org.uk/pub/lisp/cclan/trivial-sockets.tar.gz to /Users/gwking/temporary/asdf-test/trivial-sockets.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/trivial-sockets.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/
trivial-sockets_0.3/
trivial-sockets_0.3/README
trivial-sockets_0.3/trivial-sockets.asd
trivial-sockets_0.3/trivial-sockets.texi
trivial-sockets_0.3/sbcl.lisp
trivial-sockets_0.3/cmucl.lisp
trivial-sockets_0.3/defpackage.lisp
trivial-sockets_0.3/clisp.lisp
trivial-sockets_0.3/allegro.lisp
trivial-sockets_0.3/errors.lisp
trivial-sockets_0.3/openmcl.lisp
trivial-sockets_0.3/server.lisp
trivial-sockets_0.3/lispworks.lisp
trivial-sockets_0.3/abcl.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/trivial-sockets_0.3/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/trivial-sockets_0.3/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/trivial-sockets_0.3/defpackage.lisp" (written 20 OCT 2005 05:12:17 PM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPACKAGE TRIVIAL-SOCKETS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/trivial-sockets_0.3/defpackage.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/trivial-sockets_0.3/errors.lisp" (written 20 OCT 2005 05:12:17 PM):
; compiling (IN-PACKAGE :TRIVIAL-SOCKETS)
; compiling (DEFINE-CONDITION UNSUPPORTED ...)
; compiling (DEFINE-CONDITION SOCKET-ERROR ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/trivial-sockets_0.3/errors.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/trivial-sockets_0.3/sbcl.lisp" (written 20 OCT 2005 05:12:17 PM):
; compiling (IN-PACKAGE :TRIVIAL-SOCKETS)
; compiling (DEFUN RESOLVE-HOSTNAME ...)
; compiling (DEFUN OPEN-STREAM ...)
; compiling (DEFUN OPEN-SERVER ...)
; compiling (DEFUN CLOSE-SERVER ...)
; compiling (DEFUN ACCEPT-CONNECTION ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/trivial-sockets_0.3/sbcl.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/trivial-sockets_0.3/server.lisp" (written 20 OCT 2005 05:12:17 PM):
; compiling (IN-PACKAGE :TRIVIAL-SOCKETS)
; compiling (DEFMACRO WITH-SERVER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/trivial-sockets_0.3/server.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-xmpp/package.lisp" (written 18 NOV 2005 04:43:52 PM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPACKAGE :CL-XMPP ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-xmpp/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-xmpp/variable.lisp" (written 18 NOV 2005 04:43:52 PM):
; compiling (IN-PACKAGE :XMPP)
; compiling (DEFVAR *DEBUG-STREAM* ...)
; compiling (DEFVAR *DEFAULT-PORT* ...)
; compiling (DEFVAR *DEFAULT-HOSTNAME* ...)
; compiling (DEFVAR *ERRORS* ...)
; compiling (DEFVAR *AUTH-METHODS* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-xmpp/variable.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-xmpp/utility.lisp" (written 18 NOV 2005 05:29:27 PM):
; compiling (IN-PACKAGE :XMPP)
; compiling (DEFMACRO FMT ...)
; compiling (DEFUN FLATTEN ...)
; compiling (DEFUN DIGESTIFY-STRING ...)
; compiling (DEFUN MAKE-DIGEST-PASSWORD ...)
; compiling (DEFUN DEFAULT-STANZA-CALLBACK ...)
; compiling (DEFUN LIST-AUTH-METHOD-NAMES ...)
; compiling (DEFUN GET-AUTH-METHOD ...)
; compiling (DEFUN ADD-AUTH-METHOD ...)
; compiling (DEFUN ENSURE-KEYWORD ...)
; compiling (DEFUN VECTOR-TO-ARRAY ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-xmpp/utility.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-xmpp/cxml.lisp" (written 31 DEC 2005 03:15:06 PM):
; compiling (IN-PACKAGE :XMPP)
; compiling (DEFCLASS STANZA-HANDLER ...)
; compiling (DEFUN START-SAX-DOCUMENT ...)
; compiling (DEFMETHOD SAX:START-ELEMENT ...)
; compiling (DEFMETHOD SAX:END-ELEMENT ...)
; compiling (DEFSTRUCT (SLOW-STREAM #) ...)
; compiling (DEFMETHOD RUNES::FIGURE-ENCODING ...)
; compiling (DEFMETHOD RUNES::READ-OCTETS ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-xmpp/cxml.lisp
; in: DEFMETHOD RUNES::READ-OCTETS (T SLOW-STREAM T T)
; (READ-BYTE (CL-XMPP::SLOW-STREAM-TARGET STREAM) NIL)
; --> BLOCK IF LET IF SB-IMPL::EOF-OR-LOSE IF ERROR
; ==>
; STREAM
;
; note: deleting unreachable code
; compiling (DEFUN RUNES::WRITE-XSTREAM-BUFFER ...)
; compiling (DEFMETHOD RUNES::XSTREAM-UNDERFLOW ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-xmpp/cxml.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-xmpp/result.lisp" (written 31 DEC 2005 03:15:06 PM):
; compiling (IN-PACKAGE :XMPP)
; compiling (DEFCLASS XML-ELEMENT ...)
; compiling (DEFMETHOD DATA ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD GET-ATTRIBUTE ...)
; compiling (DEFMETHOD GET-ELEMENT ...)
; compiling (DEFCLASS XML-ATTRIBUTE ...)
; compiling (DEFMETHOD VALUE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCLASS EVENT ...)
; compiling (DEFCLASS MESSAGE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCLASS PRESENCE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCLASS CONTACT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCLASS ROSTER ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD MAKE-ROSTER ...)
; compiling (DEFCLASS IDENTITY- ...)
; compiling (DEFMETHOD MAKE-IDENTITY ...)
; compiling (DEFCLASS DISCO ...)
; compiling (DEFCLASS FEATURE ...)
; compiling (DEFMETHOD MAKE-FEATURE ...)
; compiling (DEFCLASS DISCO-INFO ...)
; compiling (DEFMETHOD MAKE-DISCO-INFO ...)
; compiling (DEFCLASS ITEM ...)
; compiling (DEFMETHOD MAKE-ITEM ...)
; compiling (DEFCLASS DISCO-ITEMS ...)
; compiling (DEFMETHOD MAKE-DISCO-ITEMS ...)
; compiling (DEFCLASS XMPP-PROTOCOL-ERROR ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCLASS XMPP-PROTOCOL-ERROR-MODIFY ...)
; compiling (DEFCLASS XMPP-PROTOCOL-ERROR-CANCEL ...)
; compiling (DEFCLASS XMPP-PROTOCOL-ERROR-WAIT ...)
; compiling (DEFCLASS XMPP-PROTOCOL-ERROR-AUTH ...)
; compiling (DEFUN GET-ERROR-DATA-NAME ...)
; compiling (DEFUN GET-ERROR-DATA-CODE ...)
; compiling (DEFUN MAP-ERROR-TYPE-TO-CLASS ...)
; compiling (DEFMETHOD MAKE-ERROR ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-xmpp/result.fasl written
; compilation finished in 0:00:02
STYLE-WARNING: implicitly creating new generic function GET-ATTRIBUTE
STYLE-WARNING: implicitly creating new generic function GET-ELEMENT
STYLE-WARNING: implicitly creating new generic function MAKE-ROSTER
STYLE-WARNING: implicitly creating new generic function MAKE-IDENTITY
STYLE-WARNING: implicitly creating new generic function MAKE-FEATURE
STYLE-WARNING: implicitly creating new generic function MAKE-DISCO-INFO
STYLE-WARNING: implicitly creating new generic function MAKE-ITEM
STYLE-WARNING: implicitly creating new generic function MAKE-DISCO-ITEMS
STYLE-WARNING: implicitly creating new generic function MAKE-ERROR
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-xmpp/cl-xmpp.lisp" (written 23 JAN 2006 11:41:11 AM):
; compiling (IN-PACKAGE :XMPP)
; compiling (DEFCLASS CONNECTION ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN CONNECT ...)
; compiling (DEFMETHOD CONNECTEDP ...)
; compiling (DEFMETHOD DISCONNECT ...)
; compiling (DEFMETHOD FEATURE-P ...)
; compiling (DEFMETHOD FEATURE-REQUIRED-P ...)
; compiling (DEFMETHOD MECHANISM-P ...)
; compiling (DEFMETHOD HANDLE ...)
; compiling (DEFMETHOD HANDLE ...)
; compiling (DEFMETHOD PARSE-RESULT ...)
; compiling (DEFMETHOD PARSE-RESULT ...)
; compiling (DEFMETHOD PARSE-RESULT ...)
; compiling (DEFMETHOD PARSE-RESULT ...)
; compiling (DEFMETHOD PARSE-RESULT ...)
; compiling (DEFMETHOD PARSE-RESULT ...)
; compiling (DEFMETHOD XML-ELEMENT-TO-EVENT ...)
; compiling (DEFMETHOD XML-ELEMENT-TO-EVENT ...)
; compiling (DEFMETHOD XML-ELEMENT-TO-EVENT ...)
; compiling (DEFMETHOD XML-ELEMENT-TO-EVENT ...)
; compiling (DEFMETHOD XML-ELEMENT-TO-EVENT ...)
; compiling (DEFMETHOD XML-ELEMENT-TO-EVENT ...)
; compiling (DEFMETHOD XML-ELEMENT-TO-EVENT ...)
; compiling (DEFMETHOD DOM-TO-EVENT ...)
; compiling (DEFMETHOD DOM-TO-EVENT ...)
; compiling (DEFMETHOD XML-ELEMENT-TO-EVENT ...)
; compiling (DEFMETHOD XML-ELEMENT-TO-EVENT ...)
; compiling (DEFMETHOD RECEIVE-STANZA-LOOP ...)
; compiling (DEFMETHOD RECEIVE-STANZA ...)
; compiling (DEFUN READ-STANZA ...)
; compiling (DEFMACRO WITH-XML-STREAM ...)
; compiling (DEFUN XML-OUTPUT ...)
; compiling (DEFMETHOD BEGIN-XML-STREAM ...)
; compiling (DEFMETHOD END-XML-STREAM ...)
; compiling (DEFMACRO WITH-XML-OUTPUT ...)
; compiling (DEFMACRO WITH-IQ ...)
; compiling (DEFMACRO WITH-IQ-QUERY ...)
; compiling (DEFMETHOD DISCOVER ...)
; compiling (DEFMETHOD REGISTRATION-REQUIREMENTS ...)
; compiling (DEFMETHOD REGISTER ...)
; compiling (DEFMETHOD CANCEL-REGISTRATION ...)
; compiling (DEFMETHOD CHANGE-PASSWORD ...)
; compiling (DEFMETHOD AUTH-REQUIREMENTS ...)
; compiling (DEFMETHOD AUTH ...)
; compiling (DEFMETHOD %PLAIN-AUTH% ...)
; compiling (ADD-AUTH-METHOD :PLAIN ...)
; compiling (DEFMETHOD %DIGEST-MD5-AUTH% ...)
; compiling (ADD-AUTH-METHOD :DIGEST-MD5 ...)
; compiling (DEFMETHOD PRESENCE ...)
; compiling (DEFMETHOD MESSAGE ...)
; compiling (DEFMETHOD BIND ...)
; compiling (DEFMETHOD SESSION ...)
; compiling (DEFMETHOD REQUEST-SUBSCRIPTION ...)
; compiling (DEFMETHOD APPROVE-SUBSCRIPTION ...)
; compiling (DEFMETHOD DENY/CANCEL-SUBSCRIPTION ...)
; compiling (DEFMETHOD UNSUBSCRIBE ...)
; compiling (DEFMETHOD GET-ROSTER ...)
; compiling (DEFMETHOD ROSTER-ADD ...)
; compiling (DEFMETHOD ROSTER-REMOVE ...)
; compiling (DEFMETHOD GET-PRIVACY-LISTS ...)
; compiling (DEFMETHOD GET-PRIVACY-LIST ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-xmpp/cl-xmpp.fasl written
; compilation finished in 0:00:06
STYLE-WARNING: implicitly creating new generic function CONNECTEDP
STYLE-WARNING: implicitly creating new generic function DISCONNECT
STYLE-WARNING: implicitly creating new generic function FEATURE-P
STYLE-WARNING: implicitly creating new generic function FEATURE-REQUIRED-P
STYLE-WARNING: implicitly creating new generic function MECHANISM-P
STYLE-WARNING: implicitly creating new generic function HANDLE
STYLE-WARNING: implicitly creating new generic function PARSE-RESULT
STYLE-WARNING: implicitly creating new generic function XML-ELEMENT-TO-EVENT
STYLE-WARNING: implicitly creating new generic function DOM-TO-EVENT
STYLE-WARNING: implicitly creating new generic function RECEIVE-STANZA-LOOP
STYLE-WARNING: implicitly creating new generic function RECEIVE-STANZA
STYLE-WARNING: implicitly creating new generic function BEGIN-XML-STREAM
STYLE-WARNING: implicitly creating new generic function END-XML-STREAM
STYLE-WARNING: implicitly creating new generic function DISCOVER
STYLE-WARNING:
implicitly creating new generic function REGISTRATION-REQUIREMENTS
STYLE-WARNING: implicitly creating new generic function REGISTER
STYLE-WARNING: implicitly creating new generic function CANCEL-REGISTRATION
STYLE-WARNING: implicitly creating new generic function CHANGE-PASSWORD
STYLE-WARNING: implicitly creating new generic function AUTH-REQUIREMENTS
STYLE-WARNING: implicitly creating new generic function AUTH
STYLE-WARNING: implicitly creating new generic function %PLAIN-AUTH%
STYLE-WARNING: implicitly creating new generic function %DIGEST-MD5-AUTH%
STYLE-WARNING: implicitly creating new generic function PRESENCE
STYLE-WARNING: implicitly creating new generic function MESSAGE
STYLE-WARNING: implicitly creating new generic function BIND
STYLE-WARNING: implicitly creating new generic function SESSION
STYLE-WARNING: implicitly creating new generic function REQUEST-SUBSCRIPTION
STYLE-WARNING: implicitly creating new generic function APPROVE-SUBSCRIPTION
STYLE-WARNING: implicitly creating new generic function DENY/CANCEL-SUBSCRIPTION
STYLE-WARNING: implicitly creating new generic function UNSUBSCRIBE
STYLE-WARNING: implicitly creating new generic function GET-ROSTER
STYLE-WARNING: implicitly creating new generic function ROSTER-ADD
STYLE-WARNING: implicitly creating new generic function ROSTER-REMOVE
STYLE-WARNING: implicitly creating new generic function GET-PRIVACY-LISTS
STYLE-WARNING: implicitly creating new generic function GET-PRIVACY-LIST
;
; compilation unit finished
; printed 1 note