REPL Output

;;; ASDF-INSTALL: Downloading 5545 bytes from http://common-lisp.net/project/asdf-packaging/mt19937-latest.tar.gz to /Users/gwking/temporary/asdf-test/MT19937.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/MT19937.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/
mt19937-1.1/
mt19937-1.1/benchmark.lisp
mt19937-1.1/example.lisp
mt19937-1.1/mt19937.asd
mt19937-1.1/mt19937.lisp
mt19937-1.1/README

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mt19937-1.1/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mt19937-1.1/" 
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mt19937-1.1/mt19937.lisp" (written 14 JAN 2005 03:24:22 PM):
; compiling (DEFPACKAGE "MT19937" ...)
; compiling (IN-PACKAGE "MT19937")
; compiling (DEFCONSTANT MT19937-N ...)
; compiling (DEFCONSTANT MT19937-M ...)
; compiling (DEFCONSTANT MT19937-UPPER-MASK ...)
; compiling (DEFCONSTANT MT19937-LOWER-MASK ...)
; compiling (DEFCONSTANT MT19937-B ...)
; compiling (DEFCONSTANT MT19937-C ...)
; compiling (DEFUN GENERATE-SEED ...)
; compiling (DEFUN INT-INIT-RANDOM-STATE ...)
; compiling (DEFUN VEC-INIT-RANDOM-STATE ...)
; compiling (DEFUN INIT-RANDOM-STATE ...)
; compiling (DEFSTRUCT (RANDOM-STATE #) ...)
; compiling (DEFVAR *RANDOM-STATE* ...)
; compiling (DEFUN MAKE-RANDOM-STATE ...)
; compiling (DEFCONSTANT RANDOM-CHUNK-LENGTH ...)
; compiling (DECLAIM (INLINE RANDOM-CHUNK))
; compiling (DEFUN RANDOM-MT19937-UPDATE ...)
; compiling (DEFUN RANDOM-CHUNK ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mt19937-1.1/mt19937.lisp
; in: DEFUN RANDOM-CHUNK
;     (DEFUN MT19937:RANDOM-CHUNK (MT19937::STATE)
;     (DECLARE (TYPE MT19937:RANDOM-STATE MT19937::STATE)
;              (OPTIMIZE (SPEED 3) (SAFETY 0)))
;     (LET* ((MT19937::STATE (MT19937::RANDOM-STATE-STATE MT19937::STATE))
;            (MT19937::K (AREF MT19937::STATE 2)))
;       (DECLARE (TYPE (MOD 628) MT19937::K))
;       (WHEN (= MT19937::K MT19937::MT19937-N)
;         (MT19937::RANDOM-MT19937-UPDATE MT19937::STATE)
;         (SETF MT19937::K 0))
;       (SETF (AREF MT19937::STATE 2) (1+ MT19937::K))
;       (LET ((MT19937::Y #))
;         (DECLARE (TYPE # MT19937::Y))
;         (SETF MT19937::Y (LOGXOR MT19937::Y #))
;         (SETF MT19937::Y (LOGXOR MT19937::Y #))
;         (SETF MT19937::Y (LOGXOR MT19937::Y #))
;         (SETF MT19937::Y (LOGXOR MT19937::Y #))
;         MT19937::Y)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MT19937:RANDOM-CHUNK
;                          (MT19937::STATE)
;                          (DECLARE (TYPE MT19937:RANDOM-STATE MT19937::STATE)
;                                   (OPTIMIZE (SPEED 3) (SAFETY 0)))
;                          (BLOCK MT19937:RANDOM-CHUNK
;                            (LET* ((MT19937::STATE #) (MT19937::K #))
;                              (DECLARE (TYPE # MT19937::K))
;                              (WHEN (= MT19937::K MT19937::MT19937-N)
;                                (MT19937::RANDOM-MT19937-UPDATE MT19937::STATE)
;                                (SETF MT19937::K 0))
;                              (SETF (AREF MT19937::STATE 2) (1+ MT19937::K))
;                              (LET (#)
;                                (DECLARE #)
;                                (SETF MT19937::Y #)
;                                (SETF MT19937::Y #)
;                                (SETF MT19937::Y #)
;                                (SETF MT19937::Y #)
;                                MT19937::Y))))
; 
; note: doing unsigned word to integer coercion (cost 20) from Y to "<return value>"

; compiling (DECLAIM (INLINE %RANDOM-SINGLE-FLOAT ...))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %RANDOM-SINGLE-FLOAT ...)
; compiling (DEFUN %RANDOM-DOUBLE-FLOAT ...)
; compiling (DEFUN %RANDOM-INTEGER ...)
; compiling (DEFUN RANDOM ...)
; compiling (DEFINE-COMPILER-MACRO RANDOM ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/mt19937-1.1/mt19937.fasl written
; compilation finished in 0:00:01
; 
; compilation unit finished
;   printed 1 note