REPL Output
;;; 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:01
; 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:00
; 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:02
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {10007081}> on
#<IRONCLAD-SOURCE-FILE "cipher" {100E3321}>.
; 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:01
; 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:02
; 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:01
; 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 {40CB1EC9}>
; --> 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:04
; 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:08
; 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:12
; 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:15
; 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:03
; 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:12
; 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
