REPL Output
;;; ASDF-INSTALL: Downloading 8757 bytes from http://www.cs.rice.edu/~froydnj/lisp/sb-sha1.tar.gz to /Users/gwking/temporary/asdf-test/SB-SHA1.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/SB-SHA1.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/
sb-sha1/
sb-sha1/Makefile
sb-sha1/sha1.lisp
sb-sha1/sha1-tests.lisp
sb-sha1/sb-sha1.asd
sb-sha1/test-passed
sb-sha1/README
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/sb-sha1/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/sb-sha1/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/sb-sha1/sha1.lisp" (written 11 SEP 2003 03:40:20 AM):
; compiling (DEFPACKAGE #:SB-SHA1 ...)
; compiling (IN-PACKAGE #:SB-SHA1)
; compiling (DEFTYPE UB32 ...)
; compiling (DEFMACRO ASSEMBLE-UB32 ...)
; compiling (DECLAIM (INLINE F1 ...) ...)
; compiling (DEFUN F1 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/sb-sha1/sha1.lisp
; in: DEFUN F1
; (DEFUN SB-SHA1::F1 (SB-SHA1::X SB-SHA1::Y SB-SHA1::Z)
; (DECLARE (TYPE SB-SHA1::UB32 SB-SHA1::X SB-SHA1::Y SB-SHA1::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LDB (BYTE 32 0)
; (LOGIOR (LOGAND SB-SHA1::X SB-SHA1::Y)
; (LOGANDC1 SB-SHA1::X SB-SHA1::Z))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SB-SHA1::F1
; (SB-SHA1::X SB-SHA1::Y SB-SHA1::Z)
; (DECLARE
; (TYPE SB-SHA1::UB32 SB-SHA1::X SB-SHA1::Y SB-SHA1::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (BLOCK SB-SHA1::F1
; (LDB (BYTE 32 0)
; (LOGIOR (LOGAND SB-SHA1::X SB-SHA1::Y)
; (LOGANDC1 SB-SHA1::X SB-SHA1::Z)))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFCONSTANT +K1+ ...)
; compiling (DEFUN F2 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/sb-sha1/sha1.lisp
; in: DEFUN F2
; (DEFUN SB-SHA1::F2 (SB-SHA1::X SB-SHA1::Y SB-SHA1::Z)
; (DECLARE (TYPE SB-SHA1::UB32 SB-SHA1::X SB-SHA1::Y SB-SHA1::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LDB (BYTE 32 0) (LOGXOR SB-SHA1::X SB-SHA1::Y SB-SHA1::Z)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SB-SHA1::F2
; (SB-SHA1::X SB-SHA1::Y SB-SHA1::Z)
; (DECLARE
; (TYPE SB-SHA1::UB32 SB-SHA1::X SB-SHA1::Y SB-SHA1::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (BLOCK SB-SHA1::F2
; (LDB (BYTE 32 0)
; (LOGXOR SB-SHA1::X SB-SHA1::Y SB-SHA1::Z))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFCONSTANT +K2+ ...)
; compiling (DEFUN F3 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/sb-sha1/sha1.lisp
; in: DEFUN F3
; (DEFUN SB-SHA1::F3 (SB-SHA1::X SB-SHA1::Y SB-SHA1::Z)
; (DECLARE (TYPE SB-SHA1::UB32 SB-SHA1::X SB-SHA1::Y SB-SHA1::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LDB (BYTE 32 0)
; (LOGIOR
; (LOGIOR (LOGAND SB-SHA1::X SB-SHA1::Y)
; (LOGAND SB-SHA1::X SB-SHA1::Z))
; (LOGAND SB-SHA1::Y SB-SHA1::Z))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SB-SHA1::F3
; (SB-SHA1::X SB-SHA1::Y SB-SHA1::Z)
; (DECLARE
; (TYPE SB-SHA1::UB32 SB-SHA1::X SB-SHA1::Y SB-SHA1::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (BLOCK SB-SHA1::F3
; (LDB (BYTE 32 0)
; (LOGIOR (LOGIOR # #)
; (LOGAND SB-SHA1::Y SB-SHA1::Z)))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFCONSTANT +K3+ ...)
; compiling (DEFCONSTANT +K4+ ...)
; compiling (DECLAIM (INLINE MOD32+) ...)
; compiling (DEFUN MOD32+ ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/sb-sha1/sha1.lisp
; in: DEFUN MOD32+
; (DEFUN SB-SHA1::MOD32+ (SB-SHA1::A SB-SHA1::B)
; (DECLARE (TYPE SB-SHA1::UB32 SB-SHA1::A SB-SHA1::B)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LDB (BYTE 32 0) (+ SB-SHA1::A SB-SHA1::B)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SB-SHA1::MOD32+
; (SB-SHA1::A SB-SHA1::B)
; (DECLARE (TYPE SB-SHA1::UB32 SB-SHA1::A SB-SHA1::B)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK SB-SHA1::MOD32+
; (LDB (BYTE 32 0) (+ SB-SHA1::A SB-SHA1::B))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DECLAIM (INLINE ROL32) ...)
; compiling (DEFUN ROL32 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/sb-sha1/sha1.lisp
; in: DEFUN ROL32
; (DEFUN SB-SHA1::ROL32 (SB-SHA1::A SB-SHA1::S)
; (DECLARE (TYPE SB-SHA1::UB32 SB-SHA1::A)
; (TYPE (UNSIGNED-BYTE 5) SB-SHA1::S)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (SB-ROTATE-BYTE:ROTATE-BYTE SB-SHA1::S (BYTE 32 0) SB-SHA1::A))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SB-SHA1::ROL32
; (SB-SHA1::A SB-SHA1::S)
; (DECLARE (TYPE SB-SHA1::UB32 SB-SHA1::A)
; (TYPE (UNSIGNED-BYTE 5) SB-SHA1::S)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK SB-SHA1::ROL32
; (SB-ROTATE-BYTE:ROTATE-BYTE SB-SHA1::S
; (BYTE 32 0)
; SB-SHA1::A)))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFMACRO WITH-SHA1-ROUND ...)
; compiling (DEFTYPE SHA1-REGS ...)
; compiling (DEFMACRO SHA1-REGS-A ...)
; compiling (DEFMACRO SHA1-REGS-B ...)
; compiling (DEFMACRO SHA1-REGS-C ...)
; compiling (DEFMACRO SHA1-REGS-D ...)
; compiling (DEFMACRO SHA1-REGS-E ...)
; compiling (DEFCONSTANT +SHA1-MAGIC-A+ ...)
; compiling (DEFCONSTANT +SHA1-MAGIC-B+ ...)
; compiling (DEFCONSTANT +SHA1-MAGIC-C+ ...)
; compiling (DEFCONSTANT +SHA1-MAGIC-D+ ...)
; compiling (DEFCONSTANT +SHA1-MAGIC-E+ ...)
; compiling (DECLAIM (INLINE INITIAL-SHA1-REGS))
; compiling (DEFUN INITIAL-SHA1-REGS ...)
; compiling (DEFUN UPDATE-SHA1-BLOCK ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/sb-sha1/sha1.lisp
; in: DEFUN UPDATE-SHA1-BLOCK
; (SB-SHA1::WITH-SHA1-ROUND (BLOCK SB-SHA1::F3 SB-SHA1::+K3+)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 40)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 41)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 42)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 43)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 44)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 45)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 46)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 47)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 48)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 49)
; ...)
; --> PROGN PSETQ PSETF LET* MULTIPLE-VALUE-BIND LET LET* MULTIPLE-VALUE-BIND
; --> LET LET* MULTIPLE-VALUE-BIND LET LET* MULTIPLE-VALUE-BIND LET LET*
; --> MULTIPLE-VALUE-BIND LET
; ==>
; (SB-SHA1::MOD32+ (SB-SHA1::ROL32 SB-SHA1::A 5)
; (SB-SHA1::MOD32+
; (SB-SHA1::MOD32+
; (SB-SHA1::F3 SB-SHA1::B SB-SHA1::C SB-SHA1::D)
; SB-SHA1::E)
; (SB-SHA1::MOD32+ (AREF BLOCK 47) SB-SHA1::+K3+)))
;
; note: *INLINE-EXPANSION-LIMIT* (200) was exceeded, probably trying to
; inline a recursive function.
; (SB-SHA1::WITH-SHA1-ROUND (BLOCK SB-SHA1::F1 SB-SHA1::+K1+)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 0)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 1)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 2)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 3)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 4)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 5)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 6)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 7)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 8)
; (SB-SHA1::A SB-SHA1::B
; SB-SHA1::C
; SB-SHA1::D
; SB-SHA1::E
; 9)
; ...)
; --> PROGN PSETQ PSETF LET* MULTIPLE-VALUE-BIND LET LET* MULTIPLE-VALUE-BIND
; --> LET LET* MULTIPLE-VALUE-BIND LET LET* MULTIPLE-VALUE-BIND LET LET*
; --> MULTIPLE-VALUE-BIND LET
; ==>
; (SB-SHA1::MOD32+ (SB-SHA1::ROL32 SB-SHA1::A 5)
; (SB-SHA1::MOD32+
; (SB-SHA1::MOD32+
; (SB-SHA1::F1 SB-SHA1::B SB-SHA1::C SB-SHA1::D)
; SB-SHA1::E)
; (SB-SHA1::MOD32+ (AREF BLOCK 0) SB-SHA1::+K1+)))
;
; note: doing unsigned word to integer coercion (cost 20)
; --> PROGN PSETQ PSETF LET* MULTIPLE-VALUE-BIND LET LET* MULTIPLE-VALUE-BIND
; --> LET LET* MULTIPLE-VALUE-BIND LET LET* MULTIPLE-VALUE-BIND LET LET*
; --> MULTIPLE-VALUE-BIND LET SB-SHA1::MOD32+ SB-SHA1::MOD32+
; ==>
; (SB-SHA1::MOD32+ (SB-SHA1::F1 SB-SHA1::B SB-SHA1::C SB-SHA1::D) SB-SHA1::E)
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DECLAIM (INLINE EXPAND-BLOCK ...))
; compiling (DEFUN EXPAND-BLOCK ...)
; compiling (DEFUN FILL-BLOCK ...)compilation aborted because of fatal error:
READ failure in COMPILE-FILE:
READER-ERROR at 11084 (line 281, column 26) on #<SB-SYS:FD-STREAM for "file /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/sb-sha1/sha1.lisp" {400077A1}>:
Symbol "BIT-BASH-COPY" not found in the SB-KERNEL package.
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/sb-sha1/sha1.fasl written
; compilation finished in 0:00:05
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40006D21}> on
#<CL-SOURCE-FILE "sha1" {40006D31}>.
;
; compilation unit aborted
; caught 2 fatal ERROR conditions
; printed 8 notes
erred while invoking #<COMPILE-OP NIL {40006D21}> on
#<CL-SOURCE-FILE "sha1" {40006D31}>
