REPL Output
;;; ASDF-INSTALL: Downloading 148774 bytes from http://homepage.mac.com/svc/kpax/kpax.tar.gz to /Users/gwking/temporary/asdf-test/KPAX.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/KPAX.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/
kpax/
kpax/doc/
kpax/doc/API.html
kpax/doc/index.html
kpax/example/
kpax/example/benchmark1.lisp
kpax/example/browser1.lisp
kpax/example/calculator.lisp
kpax/example/chatroom.lisp
kpax/example/demo-rest.lisp
kpax/example/factorial1.lisp
kpax/example/favicon.ico
kpax/example/forms1.lisp
kpax/example/forms2.lisp
kpax/example/helloworld1.lisp
kpax/example/list-web-apps.lisp
kpax/example/lsp/
kpax/example/lsp/add.lsp
kpax/example/lsp/index.lsp
kpax/example/lsp.lisp
kpax/example/menu1.lisp
kpax/example/no-session1.lisp
kpax/example/nx.html
kpax/example/pi.lisp
kpax/example/reddit.lisp
kpax/example/secure-login.lisp
kpax/example/secure1.lisp
kpax/example/session1.lisp
kpax/example/snoop1.lisp
kpax/example/static/
kpax/example/static/calculator/
kpax/example/static/calculator/calculator.css
kpax/example/static/chatroom/
kpax/example/static/chatroom/chatroom.js
kpax/example/static/chatroom/prototype.js
kpax/example/static/helloworld1/
kpax/example/static/helloworld1/kpax-movie-poster.jpg
kpax/example/static/nx.css
kpax/example/static/nx.html
kpax/example/static/reddit/
kpax/example/static/reddit/bg.gif
kpax/example/static/reddit/reddit.css
kpax/example/static/secure-login/
kpax/example/static/secure-login/secure-login.js
kpax/example/static/secure-login/sha1.js
kpax/example/static/subrequest1/
kpax/example/static/subrequest1/subrequest1.js
kpax/example/subrequest1.lisp
kpax/example/sunset.lisp
kpax/example/tabs1.lisp
kpax/example/todo-list.lisp
kpax/example/upload1.lisp
kpax/example/upload2.lisp
kpax/example/upload3.lisp
kpax/example/wiki.lisp
kpax/example/worldclock.lisp
kpax/kpax-core.asd
kpax/kpax-examples.asd
kpax/kpax-mod-lisp.asd
kpax/kpax-paserve.asd
kpax/kpax-s-http-server.asd
kpax/kpax.asd
kpax/Makefile
kpax/README.txt
kpax/src/
kpax/src/attributes-mixin.lisp
kpax/src/constants.lisp
kpax/src/constraints.lisp
kpax/src/crypto.lisp
kpax/src/data-set-view.lisp
kpax/src/debug.lisp
kpax/src/dispatcher.lisp
kpax/src/extensions.lisp
kpax/src/globals.lisp
kpax/src/hmac.lisp
kpax/src/html-macro.lisp
kpax/src/html.lisp
kpax/src/kpax.lisp
kpax/src/localization.lisp
kpax/src/log.lisp
kpax/src/md5.lisp
kpax/src/menubar.lisp
kpax/src/mersenne-twister-random.lisp
kpax/src/mod-lisp.lisp
kpax/src/multipart-form-encoding.lisp
kpax/src/options.lisp
kpax/src/package-kpax-user.lisp
kpax/src/package-kpax.lisp
kpax/src/paserve.lisp
kpax/src/request-response.lisp
kpax/src/run.lisp
kpax/src/s-http-server.lisp
kpax/src/scratch.lisp
kpax/src/server.lisp
kpax/src/session-tracking.lisp
kpax/src/session.lisp
kpax/src/sha1.lisp
kpax/src/strings-en.lisp
kpax/src/strings-fr.lisp
kpax/src/strings-nl.lisp
kpax/src/template.lisp
kpax/src/translator.lisp
kpax/src/util.lisp
kpax/src/web-app-in-server.lisp
kpax/src/web-app.lisp
kpax/src/web-form.lisp
kpax/test/
kpax/test/all-tests.lisp
kpax/test/test-kpax.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/" ;;; ASDF-INSTALL: Downloading package S-HTTP-SERVER, required by kpax-s-http-server
;;; ASDF-INSTALL: Downloading 133173 bytes from http://homepage.mac.com/svc/s-http-server/s-http-server.tar.gz to /Users/gwking/temporary/asdf-test/s-http-server.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/s-http-server.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/
s-http-server/
s-http-server/doc/
s-http-server/doc/API.html
s-http-server/doc/index.html
s-http-server/doc/rfc2616.txt
s-http-server/Makefile
s-http-server/README.txt
s-http-server/rsrc/
s-http-server/rsrc/dhparam.pem
s-http-server/rsrc/test-server.crt
s-http-server/rsrc/test-server.key
s-http-server/s-http-server.asd
s-http-server/src/
s-http-server/src/http-server.lisp
s-http-server/src/https-server.lisp
s-http-server/src/package.lisp
s-http-server/test/
s-http-server/test/all-tests.lisp
s-http-server/test/test-http-server.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-http-server/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-http-server/" ;;; ASDF-INSTALL: Downloading package PURI, required by s-http-server
;;; ASDF-INSTALL: Downloading 31029 bytes from http://files.b9.com/puri/puri-latest.tar.gz to /Users/gwking/temporary/asdf-test/puri.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/puri.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
puri-1.4/
puri-1.4/uri.html
puri-1.4/tests.lisp
puri-1.4/LICENSE
puri-1.4/puri.asd
puri-1.4/README
puri-1.4/src.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp" (written 26 JAN 2006 10:18:48 PM):
; compiling (DEFPACKAGE #:PURI ...)
; compiling (IN-PACKAGE #:PURI)
; compiling (DEFUN PARSE-BODY ...)
; compiling (DEFUN SHRINK-VECTOR ...)
; compiling (DEFINE-CONDITION URI-PARSE-ERROR ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFINE-CONDITION URI-PARSE-ERROR
; (FORMAT STREAM "Parse error:")
; ==>
; (FORMAT SB-C::DEST (FORMATTER "Parse error:"))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a STREAM.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a (MEMBER T).
; compiling (DEFUN .PARSE-ERROR ...)
; compiling (DEFUN INTERNAL-READER-ERROR ...)
; compiling (DEFVAR *CURRENT-CASE-MODE* ...)
; compiling (DEFMETHOD POSITION-CHAR ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFMETHOD POSITION-CHAR (T STRING T T)
; (CHAR STRING PURI::I)
; --> AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling (DEFUN DELIMITED-STRING-TO-LIST ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFUN DELIMITED-STRING-TO-LIST
; (SUBSEQ STRING PURI::POS PURI::END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; (SUBSEQ STRING PURI::POS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
; compiling (DEFVAR IF*-KEYWORD-LIST ...)
; compiling (DEFMACRO IF* ...)
; compiling (DEFCLASS URI ...)
; compiling (DEFCLASS URN ...)
; compiling (CLEAR-CACHING-ON-SLOT-CHANGE URI-SCHEME)
; compiling (CLEAR-CACHING-ON-SLOT-CHANGE URI-HOST)
; compiling (CLEAR-CACHING-ON-SLOT-CHANGE URI-PORT)
; compiling (CLEAR-CACHING-ON-SLOT-CHANGE URI-PATH)
; compiling (CLEAR-CACHING-ON-SLOT-CHANGE URI-QUERY)
; compiling (CLEAR-CACHING-ON-SLOT-CHANGE URI-FRAGMENT)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFMETHOD URI-P ...)
; compiling (DEFMETHOD URI-P ...)
; compiling (DEFUN COPY-URI ...)
; compiling (DEFMETHOD URI-PARSED-PATH ...)
; compiling (DEFMETHOD (SETF URI-PARSED-PATH) ...)
; compiling (DEFUN URI-AUTHORITY ...)
; compiling (DEFUN URI-NID ...)
; compiling (DEFUN URI-NSS ...)
; compiling (DEFPARAMETER *EXCLUDED-CHARACTERS* ...)
; compiling (DEFUN RESERVED-CHAR-VECTOR ...)
; compiling (DEFPARAMETER *RESERVED-CHARACTERS* ...)
; compiling (DEFPARAMETER *RESERVED-AUTHORITY-CHARACTERS* ...)
; compiling (DEFPARAMETER *RESERVED-PATH-CHARACTERS* ...)
; compiling (DEFPARAMETER *RESERVED-PATH-CHARACTERS2* ...)
; compiling (DEFPARAMETER *RESERVED-FRAGMENT-CHARACTERS* ...)
; compiling (DEFPARAMETER *VALID-NID-CHARACTERS* ...)
; compiling (DEFPARAMETER *RESERVED-NSS-CHARACTERS* ...)
; compiling (DEFPARAMETER *ILLEGAL-CHARACTERS* ...)
; compiling (DEFPARAMETER *STRICT-ILLEGAL-QUERY-CHARACTERS* ...)
; compiling (DEFPARAMETER *ILLEGAL-QUERY-CHARACTERS* ...)
; compiling (DEFUN PARSE-URI ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFUN PARSE-URI
; (FUNCALL
; (CASE PURI::*CURRENT-CASE-MODE*
; ((:CASE-INSENSITIVE-UPPER :CASE-SENSITIVE-UPPER) #'STRING-UPCASE)
; ((:CASE-INSENSITIVE-LOWER :CASE-SENSITIVE-LOWER) #'STRING-DOWNCASE))
; (PURI::DECODE-ESCAPED-ENCODING PURI::SCHEME PURI::ESCAPE))
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR
; (FUNCTION
; ((OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER)
; &KEY (:START (MOD 536870911)) (:END (OR NULL #)))
; (VALUES SIMPLE-STRING &OPTIONAL))
; NULL), not a FUNCTION.
; (PLUSP PURI::PORT)
; ==>
; (> PURI::PORT 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; compiling (DEFMETHOD URI ...)
; compiling (DEFMETHOD URI ...)
; compiling (DEFMETHOD URI ...)
; compiling (DEFVAR *STRICT-PARSE* ...)
; compiling (DEFUN PARSE-URI-STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFUN PARSE-URI-STRING
; (LENGTH STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CHAR STRING PURI::START)
; --> AREF LET*
; ==>
; (ARRAY-DIMENSION ARRAY 0)
;
; note: unable to optimize because: can't tell whether array is simple
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (SUBSEQ STRING PURI::SINDEX PURI::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 16)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES (SIMPLE-ARRAY FIXNUM (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 32)
; (*))
; &REST
; T).
; (INCF PURI::START)
; --> LET* SETQ
; ==>
; (THE #<SB-KERNEL:NUMERIC-TYPE FIXNUM> #:G1010)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; ==>
; (THE #<SB-KERNEL:NUMERIC-TYPE FIXNUM> #:G1008)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; compiling (DEFUN ESCAPE-P ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFUN ESCAPE-P
; (LENGTH STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CHAR STRING PURI::I)
; --> AREF LET*
; ==>
; (ARRAY-DIMENSION ARRAY 0)
;
; note: unable to optimize because: can't tell whether array is simple
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling (DEFUN PARSE-PATH ...)
; compiling (DEFUN DECODE-ESCAPED-ENCODING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFUN DECODE-ESCAPED-ENCODING
; (LENGTH STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (COPY-SEQ STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 16)
; (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES (SIMPLE-ARRAY FIXNUM (*))
; &REST
; T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 32)
; (*))
; &REST
; T).
; (= PURI::I MAX)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (CHAR STRING PURI::I)
; --> AREF LET*
; ==>
; (ARRAY-DIMENSION ARRAY 0)
;
; note: unable to optimize because: can't tell whether array is simple
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR STRING (INCF PURI::I))
; --> AREF LET*
; ==>
; (ARRAY-DIMENSION ARRAY 0)
;
; note: unable to optimize because: can't tell whether array is simple
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; ==>
; (ARRAY-DIMENSION ARRAY 0)
;
; note: unable to optimize because: can't tell whether array is simple
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (LENGTH PURI::RESERVED-CHARS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (1+ PURI::I)
; ==>
; (+ PURI::I 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (1+ PURI::NEW-I)
; ==>
; (+ PURI::NEW-I 1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (1+ PURI::I)
; ==>
; (+ PURI::I 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (1+ PURI::NEW-I)
; ==>
; (+ PURI::NEW-I 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (INCF PURI::I)
; --> LET*
; ==>
; (+ PURI::I #:G1149)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; (INCF PURI::NEW-I)
; --> LET*
; ==>
; (+ PURI::NEW-I #:G1161)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; ==>
; (+ PURI::NEW-I #:G1166)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; compiling (DEFUN RENDER-URI ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFUN RENDER-URI
; (FORMAT STREAM "~a" (PURI::URI-STRING PURI:URI))
; ==>
; (FORMAT SB-C::DEST (FORMATTER "~a") #:G1205)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a STREAM.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a (MEMBER T).
; compiling (DEFUN RENDER-PARSED-PATH ...)
; compiling (DEFUN RENDER-URN ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFUN RENDER-URN
; (FORMAT STREAM "~a" (PURI::URI-STRING PURI:URN))
; ==>
; (FORMAT SB-C::DEST (FORMATTER "~a") #:G1243)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a STREAM.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a (MEMBER T).
; compiling (DEFPARAMETER *ESCAPED-ENCODING* ...)
; compiling (DEFUN ENCODE-ESCAPED-ENCODING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFUN ENCODE-ESCAPED-ENCODING
; (LENGTH STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CHAR STRING PURI::I)
; --> AREF LET*
; ==>
; (ARRAY-DIMENSION ARRAY 0)
;
; note: unable to optimize because: can't tell whether array is simple
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (INCF PURI::NEW-I)
; --> LET*
; ==>
; (+ PURI::NEW-I #:G1387)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; ==>
; (+ PURI::NEW-I #:G1396)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; ==>
; (+ PURI::NEW-I #:G1401)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (ELT PURI::*ESCAPED-ENCODING* PURI::Q)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
; (INCF PURI::NEW-I)
; --> LET*
; ==>
; (+ PURI::NEW-I #:G1406)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (ELT PURI::*ESCAPED-ENCODING* PURI::R)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
; (INCF PURI::NEW-I)
; --> LET*
; ==>
; (+ PURI::NEW-I #:G1410)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; ==>
; (+ PURI::NEW-I #:G1396)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; ==>
; (+ PURI::NEW-I #:G1401)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; ==>
; (+ PURI::NEW-I #:G1406)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; ==>
; (+ PURI::NEW-I #:G1387)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (MAKE-STRING PURI::NEW-MAX)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; compiling (DEFMETHOD PRINT-OBJECT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFMETHOD PRINT-OBJECT (URI T)
; (FORMAT STREAM "#<~a ~a>" 'PURI:URI (PURI:RENDER-URI PURI:URI NIL))
; ==>
; (FORMAT SB-C::DEST (FORMATTER "#<~a ~a>") #:G1485 #:G1486)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a STREAM.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a (MEMBER T).
; compiling (DEFMETHOD PRINT-OBJECT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFMETHOD PRINT-OBJECT (URN T)
; (FORMAT STREAM "#<~a ~a>" 'PURI:URI (PURI::RENDER-URN PURI:URN NIL))
; ==>
; (FORMAT SB-C::DEST (FORMATTER "#<~a ~a>") #:G1525 #:G1526)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a STREAM.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MEMBER T NIL)
; STREAM
; (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING), not a (MEMBER T).
; compiling (DEFMETHOD MERGE-URIS ...)
; compiling (DEFMETHOD MERGE-URIS ...)
; compiling (DEFMETHOD MERGE-URIS ...)
; compiling (DEFMETHOD MERGE-URIS ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFMETHOD MERGE-URIS (URI URI)
; (STRING= PURI::A
; (PURI::IF* (ATOM PURI::B)
; PURI::THEN
; PURI::B
; PURI::ELSE
; (CAR PURI::B)))
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1
; SB-C::STRING2
; SB-C::START1
; SB-C::END1
; SB-C::START2
; SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; The second argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; (POSITION ".."
; PURI::NPL
; :TEST
; #'(LAMBDA (PURI::A PURI::B)
; (STRING= PURI::A
; (PURI::IF* (ATOM PURI::B)
; PURI::THEN
; PURI::B
; PURI::ELSE
; (CAR PURI::B)))))
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; (STRING= PURI::A PURI::B)
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1
; SB-C::STRING2
; SB-C::START1
; SB-C::END1
; SB-C::START2
; SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; The second argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; compiling (DEFMETHOD ENOUGH-URI ...)
; compiling (DEFMETHOD ENOUGH-URI ...)
; compiling (DEFMETHOD ENOUGH-URI ...)
; compiling (DEFMETHOD ENOUGH-URI ...)
; compiling (DEFUN MAKE-URI-SPACE ...)
; compiling (DEFUN GETHASH-URI ...)
; compiling (DEFUN PUTHASH-URI ...)
; compiling (DEFUN URI-HASH ...)
; compiling (DEFVAR *URIS* ...)
; compiling (DEFUN URI-SPACE ...)
; compiling (DEFUN (SETF URI-SPACE) ...)
; compiling (WHEN (FBOUNDP #) ...)
; compiling (DEFGENERIC URI= ...)
; compiling (DEFMETHOD URI= ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFMETHOD URI= (URI URI)
; (EQL (OR (PURI:URI-PORT PURI::URI1) PURI::DEFAULT-PORT)
; (OR (PURI:URI-PORT PURI::URI2) PURI::DEFAULT-PORT))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; (STRING= (PURI:URI-PATH PURI::URI1) (PURI:URI-PATH PURI::URI2))
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1
; SB-C::STRING2
; SB-C::START1
; SB-C::END1
; SB-C::START2
; SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; The second argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; (STRING= (PURI:URI-QUERY PURI::URI1) (PURI:URI-QUERY PURI::URI2))
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1
; SB-C::STRING2
; SB-C::START1
; SB-C::END1
; SB-C::START2
; SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; The second argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; (STRING= (PURI:URI-FRAGMENT PURI::URI1) (PURI:URI-FRAGMENT PURI::URI2))
; ==>
; (SB-KERNEL:STRING=* SB-C::STRING1
; SB-C::STRING2
; SB-C::START1
; SB-C::END1
; SB-C::START2
; SB-C::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; The second argument is a (OR (VECTOR CHARACTER)
; (VECTOR NIL)
; BASE-STRING
; SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; (EQL (OR (PURI:URI-PORT PURI::URI1) PURI::DEFAULT-PORT)
; (OR (PURI:URI-PORT PURI::URI2) PURI::DEFAULT-PORT))
;
; note: forced to do GENERIC-EQL (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; compiling (DEFMETHOD URI= ...)
; compiling (DEFUN URN-NSS-EQUAL ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.lisp
; in: DEFUN URN-NSS-EQUAL
; (LENGTH PURI::NSS1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (LENGTH PURI::NSS2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CHAR PURI::NSS1 PURI::I)
; --> AREF LET*
; ==>
; (ARRAY-DIMENSION ARRAY 0)
;
; note: unable to optimize because: can't tell whether array is simple
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR PURI::NSS2 PURI::I)
; --> AREF LET*
; ==>
; (ARRAY-DIMENSION ARRAY 0)
;
; note: unable to optimize because: can't tell whether array is simple
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR-NOT-EQUAL PURI::C1 PURI::C2)
; --> IF
; ==>
; (CHAR-EQUAL PURI::C1 PURI::C2)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
; compiling (DEFMETHOD INTERN-URI ...)
; compiling (DEFMETHOD INTERN-URI ...)
; compiling (DEFUN UNINTERN-URI ...)
; compiling (DEFMACRO DO-ALL-URIS ...)
; compiling (DEFUN SHARP-U ...)
; compiling (SET-DISPATCH-MACRO-CHARACTER #\# ...)
; compiling (PROVIDE :URI)
; compiling (DEFUN GC ...)
; compiling (DEFUN TIME-URI-MODULE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/puri-1.4/src.fasl written
; compilation finished in 0:00:05
STYLE-WARNING: implicitly creating new generic function POSITION-CHAR
STYLE-WARNING: implicitly creating new generic function URI-P
STYLE-WARNING: implicitly creating new generic function URI-PARSED-PATH
STYLE-WARNING: implicitly creating new generic function (SETF URI-PARSED-PATH)
STYLE-WARNING: implicitly creating new generic function URI
STYLE-WARNING: implicitly creating new generic function MERGE-URIS
STYLE-WARNING: implicitly creating new generic function ENOUGH-URI
STYLE-WARNING: implicitly creating new generic function INTERN-URI
;
; compilation unit finished
; printed 145 notes
;;; ASDF-INSTALL: Downloading package S-BASE64, required by s-http-server
;;; ASDF-INSTALL: Downloading 66774 bytes from http://homepage.mac.com/svc/s-base64/s-base64.tar.gz to /Users/gwking/temporary/asdf-test/s-base64.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/s-base64.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/
s-base64/
s-base64/doc/
s-base64/doc/API.html
s-base64/doc/index.html
s-base64/doc/rfc1421.txt
s-base64/doc/rfc2045.txt
s-base64/doc/rfc3548.txt
s-base64/Makefile
s-base64/README.txt
s-base64/s-base64.asd
s-base64/src/
s-base64/src/base64.lisp
s-base64/src/package.lisp
s-base64/test/
s-base64/test/all-tests.lisp
s-base64/test/test-base64.lisp
s-base64/test/test.b64
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-base64/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-base64/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-base64/src/package.lisp" (written 24 OCT 2005 03:48:28 PM):
; compiling (DEFPACKAGE S-BASE64 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-base64/src/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-base64/src/base64.lisp" (written 26 OCT 2005 06:24:47 AM):
; compiling (IN-PACKAGE :S-BASE64)
; compiling (DEFPARAMETER +BASE64-ALPHABET+ ...)
; compiling (DEFPARAMETER +INVERSE-BASE64-ALPHABET+ ...)
; compiling (DEFUN CORE-ENCODE-BASE64 ...)
; compiling (DEFUN CORE-DECODE-BASE64 ...)
; compiling (DEFUN SKIP-BASE64-WHITESPACE ...)
; compiling (DEFUN DECODE-BASE64-BYTES ...)
; compiling (DEFUN ENCODE-BASE64-BYTES ...)
; compiling (DEFUN DECODE-BASE64 ...)
; compiling (DEFUN ENCODE-BASE64 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-base64/src/base64.fasl written
; compilation finished in 0:00:01
;;; ASDF-INSTALL: Downloading package S-SYSDEPS, required by s-http-server
;;; ASDF-INSTALL: Downloading 7000 bytes from http://homepage.mac.com/svc/s-sysdeps/s-sysdeps.tar.gz to /Users/gwking/temporary/asdf-test/s-sysdeps.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/s-sysdeps.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/
s-sysdeps/
s-sysdeps/doc/
s-sysdeps/doc/API.html
s-sysdeps/doc/index.html
s-sysdeps/Makefile
s-sysdeps/README.txt
s-sysdeps/s-sysdeps.asd
s-sysdeps/src/
s-sysdeps/src/package.lisp
s-sysdeps/src/sysdeps.lisp
s-sysdeps/test/
s-sysdeps/test/all-tests.lisp
s-sysdeps/test/test-sysdeps.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-sysdeps/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-sysdeps/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-sysdeps/src/package.lisp" (written 12 APR 2006 09:27:08 AM):
; compiling (DEFPACKAGE :S-SYSDEPS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-sysdeps/src/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-sysdeps/src/sysdeps.lisp" (written 12 APR 2006 09:27:08 AM):
; compiling (IN-PACKAGE :S-SYSDEPS)
; compiling (REQUIRE :SB-BSD-SOCKETS)
; compiling (DEFUN CURRENT-PROCESS ...)
; compiling (DEFUN KILL-PROCESS ...)
; compiling (DEFUN RUN-PROCESS ...)
; compiling (DEFUN ALL-PROCESSES ...)
; compiling (DEFUN OPEN-SOCKET-STREAM ...)
; compiling (DEFUN GET-SOCKET-STREAM-PROPERTY ...)
; compiling (DEFUN START-STANDARD-SERVER ...)
; compiling (DEFUN MAKE-PROCESS-LOCK ...)
; compiling (DEFMACRO WITH-PROCESS-LOCK ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-sysdeps/src/sysdeps.fasl written
; compilation finished in 0:00:00
;;; ASDF-INSTALL: Downloading package S-UTILS, required by s-http-server
;;; ASDF-INSTALL: Downloading 7277 bytes from http://homepage.mac.com/svc/s-utils/s-utils.tar.gz to /Users/gwking/temporary/asdf-test/s-utils.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/s-utils.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/
s-utils/
s-utils/doc/
s-utils/doc/API.html
s-utils/doc/index.html
s-utils/Makefile
s-utils/README.txt
s-utils/s-utils.asd
s-utils/src/
s-utils/src/package.lisp
s-utils/src/utils.lisp
s-utils/test/
s-utils/test/all-tests.lisp
s-utils/test/test-utils.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-utils/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-utils/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-utils/src/package.lisp" (written 13 MAR 2006 05:18:32 AM):
; compiling (DEFPACKAGE :S-UTILS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-utils/src/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-utils/src/utils.lisp" (written 13 MAR 2006 05:18:32 AM):
; compiling (IN-PACKAGE :S-UTILS)
; compiling (EXPORT (QUOTE #))
; compiling (DEFUN MAKE-SUBDIRECTORY ...)
; compiling (DEFUN PATHNAME-PARENT ...)
; compiling (DEFUN COPY-STREAM ...)
; compiling (DEFUN TOKENS ...)
; compiling (DEFPARAMETER +US-DAY-NAMES+ ...)
; compiling (DEFPARAMETER +US-MONTH-NAMES+ ...)
; compiling (DEFPARAMETER +US-TIME-FORMAT+ ...)
; compiling (DEFPARAMETER +US-DATE-FORMAT+ ...)
; compiling (DEFUN FORMAT-UNIVERSAL-TIME ...)
; compiling (DEFPARAMETER +EN-DURATION-UNIT-NAMES+ ...)
; compiling (DEFUN FORMAT-DURATION ...)
; compiling (DEFUN FORMAT-ISO-GMT-TIME ...)
; compiling (DEFUN PARSE-INTEGER-SAFELY ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-utils/src/utils.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-http-server/src/package.lisp" (written 12 APR 2006 10:43:13 AM):
; compiling (DEFPACKAGE :S-HTTP-SERVER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-http-server/src/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-http-server/src/http-server.lisp" (written 12 APR 2006 10:43:13 AM):
; compiling (IN-PACKAGE :S-HTTP-SERVER)
; compiling (DEFVAR *HTTP-SERVER-IDENTIFICATION* ...)
; compiling (DEFVAR *HTTP-SERVER-PORT* ...)
; compiling (DEFCLASS S-HTTP-SERVER ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFUN MAKE-S-HTTP-SERVER ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCLASS HTTP-REQUEST ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFGENERIC GET-PATH ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFGENERIC START-SERVER ...)
; compiling (DEFGENERIC STOP-SERVER ...)
; compiling (DEFGENERIC LOGM ...)
; compiling (DEFGENERIC HANDLE-HTTP-SERVER-CONNECTION ...)
; compiling (DEFGENERIC FIND-HANDLER ...)
; compiling (DEFGENERIC REGISTER-CONTEXT-HANDLER ...)
; compiling (DEFGENERIC UNREGISTER-CONTEXT-HANDLER ...)
; compiling (DEFMETHOD START-SERVER ...)
; compiling (DEFMETHOD STOP-SERVER ...)
; compiling (DEFMETHOD REGISTER-CONTEXT-HANDLER ...)
; compiling (DEFMETHOD UNREGISTER-CONTEXT-HANDLER ...)
; compiling (DEFMETHOD LOGM ...)
; compiling (DEFUN READ-HTTP-REQUEST-LINE ...)
; compiling (DEFUN WRITE-HTTP-RESPONSE-LINE ...)
; compiling (DEFUN FORMAT-HTTP-RESPONSE-LINE ...)
; compiling (DEFINE-CONDITION MISSING-HTTP-REQUEST-LINE ...)
; compiling (DEFUN PARSE-HTTP-REQUEST-LINE ...)
; compiling (DEFUN PARSE-HTTP-REQUEST-HEADERS ...)
; compiling (DEFUN PARSE-HTTP-REQUEST ...)
; compiling (DEFUN WRITE-HTTP-RESPONSE-STATUS-LINE ...)
; compiling (DEFUN WRITE-HTTP-RESPONSE-HEADERS ...)
; compiling (DEFUN RESPONSE-DATE ...)
; compiling (DEFUN STANDARD-HTTP-RESPONSE-HEADERS ...)
; compiling (DEFUN ESCAPE ...)
; compiling (DEFVAR *DOCTYPE-HTML-401-TRANSITIONAL* ...)
; compiling (DEFVAR *DOCTYPE-HTML-401-STRICT* ...)
; compiling (DEFUN STANDARD-HTTP-HTML-MESSAGE-RESPONSE ...)
; compiling (DEFUN STANDARD-HTTP-HTML-ERROR-RESPONSE ...)
; compiling (DEFMETHOD FIND-HANDLER ...)
; compiling (DEFMETHOD HANDLE-ONE-HTTP-REQUEST-RESPONSE ...)
; compiling (DEFMETHOD HANDLE-HTTP-SERVER-CONNECTION ...)
; compiling (DEFUN S-HTTP-SERVER-HANDLER ...)
; compiling (DEFPARAMETER +BASIC-MIME-TYPE-SUFFIX-MAP+ ...)
; compiling (DEFPARAMETER +KNOWN-MIME.TYPE-LOCATIONS+ ...)
; compiling (DEFPARAMETER *MIME-TYPE-SUFFIX-MAP* ...)
; compiling (DEFUN MIME-TYPE-FOR-PATHNAME ...)
; compiling (DEFUN COMPUTE-REAL-RESOURCE-PATHNAME ...)
; compiling (DEFUN HOST-STATIC-RESOURCE ...)
; compiling (DEFUN STATIC-RESOURCE-HANDLER ...)
; compiling (DEFUN SINGLE-STATIC-RESOURCE-HANDLER ...)
; compiling (DEFVAR *FAVICON* ...)
; compiling (DEFUN FAVICON-HANDLER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/s-http-server/src/http-server.fasl written
; compilation finished in 0:00:02
STYLE-WARNING:
implicitly creating new generic function HANDLE-ONE-HTTP-REQUEST-RESPONSE
;;; ASDF-INSTALL: Downloading package CL-WHO, required by kpax-core
;;; ASDF-INSTALL: Downloading 18024 bytes from http://weitz.de/files/cl-who.tar.gz to /Users/gwking/temporary/asdf-test/cl-who.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/cl-who.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
cl-who-0.6.0/
cl-who-0.6.0/doc/
cl-who-0.6.0/doc/index.html
cl-who-0.6.0/CHANGELOG
cl-who-0.6.0/INSTALLATION
cl-who-0.6.0/cl-who.asd
cl-who-0.6.0/cl-who.system
cl-who-0.6.0/load.lisp
cl-who-0.6.0/packages.lisp
cl-who-0.6.0/who.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/packages.lisp" (written 02 AUG 2005 02:17:41 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (DEFPACKAGE #:CL-WHO ...)
; compiling (PUSHNEW :CL-WHO ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/who.lisp" (written 02 AUG 2005 02:17:41 PM):
; compiling (IN-PACKAGE #:CL-WHO)
; compiling (DEFVAR *PROLOGUE* ...)
; compiling (DEFPARAMETER *ESCAPE-CHAR-P* ...)
; compiling (DEFPARAMETER *INDENT* ...)
; compiling (DEFVAR *HTML-MODE* ...)
; compiling (DEFPARAMETER *ATTRIBUTE-QUOTE-CHAR* ...)
; compiling (DEFPARAMETER *EMPTY-TAG-END* ...)
; compiling (UNLESS (BOUNDP #) ...)
; compiling (UNLESS (BOUNDP #) ...)
; compiling (DEFMACRO N-SPACES ...)
; compiling (DEFUN HTML-MODE ...)
; compiling (DEFUN (SETF HTML-MODE) ...)
; compiling (DEFUN ESCAPE-STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/who.lisp
; in: DEFUN ESCAPE-STRING
; (POSITION-IF CL-WHO::TEST STRING)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> SB-KERNEL:%FIND-POSITION-IF
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION-IF
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; (LENGTH STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CHAR STRING CL-WHO::POS)
; --> AREF LET*
; ==>
; (ARRAY-DIMENSION ARRAY 0)
;
; note: unable to optimize because: can't tell whether array is simple
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-STRING.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (FORMAT CL-WHO::S CL-WHO::FORMAT-STRING (CHAR-CODE CHAR))
;
; note: unable to optimize because: The control string is not a constant.
; (POSITION-IF CL-WHO::TEST STRING :START CL-WHO::OLD-POS)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> SB-KERNEL:%FIND-POSITION-IF
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION-IF
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling (DEFUN ESCAPE-STRING-MINIMAL ...)
; compiling (DEFUN ESCAPE-STRING-MINIMAL-PLUS-QUOTES ...)
; compiling (DEFUN ESCAPE-STRING-ISO-8859 ...)
; compiling (DEFUN ESCAPE-STRING-ALL ...)
; compiling (DEFUN PROCESS-TAG ...)
; compiling (DEFUN CONVERT-ATTRIBUTES ...)
; compiling (DEFGENERIC CONVERT-TAG-TO-STRING-LIST ...)
; compiling (DEFMETHOD CONVERT-TAG-TO-STRING-LIST ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/who.lisp
; in: DEFMETHOD CONVERT-TAG-TO-STRING-LIST (T T T T)
; (CL-WHO::N-SPACES CL-WHO::*INDENT*)
; ==>
; (MAKE-ARRAY CL-WHO::*INDENT*
; :ELEMENT-TYPE
; 'BASE-CHAR
; :DISPLACED-TO
; CL-WHO::+SPACES+
; :DISPLACED-INDEX-OFFSET
; 0)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MOD 536870911) CONS NULL), not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MOD 536870911) CONS NULL), not a LIST.
; (+ 2 CL-WHO::*INDENT*)
; ==>
; (+ 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).
; (FUNCALL CL-WHO::BODY-FN CL-WHO::BODY)
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
; (CL-WHO::N-SPACES CL-WHO::*INDENT*)
; ==>
; (MAKE-ARRAY CL-WHO::*INDENT*
; :ELEMENT-TYPE
; 'BASE-CHAR
; :DISPLACED-TO
; CL-WHO::+SPACES+
; :DISPLACED-INDEX-OFFSET
; 0)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MOD 536870911) CONS NULL), not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (MOD 536870911) CONS NULL), not a LIST.
; (+ 2 CL-WHO::*INDENT*)
; ==>
; (+ 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.
; compiling (DEFUN APPLY-TO-TREE ...)
; compiling (DEFUN REPLACE-HTM ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/who.lisp
; in: DEFUN REPLACE-HTM
; (FUNCALL CL-WHO::TRANSFORMATION (CDR CL-WHO::ELEMENT))
; --> SB-C::%FUNCALL THE
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
; compiling (DEFUN TREE-TO-TEMPLATE ...)
; compiling (DEFUN STRING-LIST-TO-STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/who.lisp
; in: DEFUN STRING-LIST-TO-STRING
; (LENGTH STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (REPLACE CL-WHO::RESULT-STRING STRING :START1 CL-WHO::CURR-POS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; (LENGTH STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (INCF CL-WHO::TOTAL-SIZE (LENGTH STRING))
; --> LET*
; ==>
; (+ CL-WHO::TOTAL-SIZE #:G429)
;
; 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 UNSIGNED-BYTE
; &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 UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (INCF CL-WHO::CURR-POS (LENGTH STRING))
; --> LET*
; ==>
; (SETQ CL-WHO::CURR-POS #:G432)
;
; note: doing signed word to integer coercion (cost 20) to CURR-POS
; compiling (DEFUN CONC ...)
; compiling (DEFUN TREE-TO-COMMANDS-AUX ...)
; compiling (DEFUN TREE-TO-COMMANDS ...)
; compiling (DEFMACRO WITH-HTML-OUTPUT ...)
; compiling (DEFMACRO WITH-HTML-OUTPUT-TO-STRING ...); in: LAMBDA NIL
; (LET* ((CL-WHO::VAR (CAR #:SUBLIST-534))
; (CL-WHO::STRING-FORM (IF (NOT #) (CAR #) NIL))
; (CL-WHO::ELEMENT-TYPE
; (IF #:SUPPLIEDP-537
; (SB-KERNEL::LOOKUP-KEYWORD ':ELEMENT-TYPE #:KEYWORDS-536)
; ''CHARACTER))
; (CL-WHO::PROLOGUE
; (IF (SB-KERNEL::KEYWORD-SUPPLIED-P :PROLOGUE #:KEYWORDS-536)
; (SB-KERNEL::LOOKUP-KEYWORD :PROLOGUE #:KEYWORDS-536)
; NIL))
; (CL-WHO::INDENT
; (IF (SB-KERNEL::KEYWORD-SUPPLIED-P :INDENT #:KEYWORDS-536)
; (SB-KERNEL::LOOKUP-KEYWORD :INDENT #:KEYWORDS-536)
; NIL))
; (CL-WHO::BODY (CDR (CDR #:WHOLE532))))
; (BLOCK CL-WHO:WITH-HTML-OUTPUT-TO-STRING
; `(WITH-OUTPUT-TO-STRING (,CL-WHO::VAR ,CL-WHO::STRING-FORM)
; (CL-WHO:WITH-HTML-OUTPUT
; (,CL-WHO::VAR ,NIL :PROLOGUE ,CL-WHO::PROLOGUE :INDENT
; ,CL-WHO::INDENT)
; ,@CL-WHO::BODY))))
;
; caught STYLE-WARNING:
; The variable ELEMENT-TYPE is defined but never used.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/who.lisp
; in: DEFMACRO WITH-HTML-OUTPUT-TO-STRING
; (DEFMACRO CL-WHO:WITH-HTML-OUTPUT-TO-STRING
; ((CL-WHO::VAR
; &OPTIONAL CL-WHO::STRING-FORM
; &KEY (CL-WHO::ELEMENT-TYPE ''CHARACTER) CL-WHO::PROLOGUE
; CL-WHO::INDENT)
; &BODY CL-WHO::BODY)
; "Transform the enclosed BODY consisting of HTML as s-expressions
; into Lisp code which creates the corresponding HTML as a string."
; `(WITH-OUTPUT-TO-STRING (,CL-WHO::VAR ,CL-WHO::STRING-FORM)
; (CL-WHO:WITH-HTML-OUTPUT
; (,CL-WHO::VAR ,NIL :PROLOGUE ,CL-WHO::PROLOGUE :INDENT ,CL-WHO::INDENT)
; ,@CL-WHO::BODY)))
; --> EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO FUNCTION LET*
; ==>
; (LET* ((CL-WHO::VAR (CAR #:SUBLIST-534))
; (CL-WHO::STRING-FORM (IF (NOT #) (CAR #) NIL))
; (CL-WHO::ELEMENT-TYPE
; (IF #:SUPPLIEDP-537
; (SB-KERNEL::LOOKUP-KEYWORD ':ELEMENT-TYPE #:KEYWORDS-536)
; ''CHARACTER))
; (CL-WHO::PROLOGUE
; (IF (SB-KERNEL::KEYWORD-SUPPLIED-P :PROLOGUE #:KEYWORDS-536)
; (SB-KERNEL::LOOKUP-KEYWORD :PROLOGUE #:KEYWORDS-536)
; NIL))
; (CL-WHO::INDENT
; (IF (SB-KERNEL::KEYWORD-SUPPLIED-P :INDENT #:KEYWORDS-536)
; (SB-KERNEL::LOOKUP-KEYWORD :INDENT #:KEYWORDS-536)
; NIL))
; (CL-WHO::BODY (CDR (CDR #:WHOLE532))))
; (BLOCK CL-WHO:WITH-HTML-OUTPUT-TO-STRING
; `(WITH-OUTPUT-TO-STRING (,CL-WHO::VAR ,CL-WHO::STRING-FORM)
; (CL-WHO:WITH-HTML-OUTPUT
; (,CL-WHO::VAR ,NIL :PROLOGUE ,CL-WHO::PROLOGUE :INDENT
; ,CL-WHO::INDENT)
; ,@CL-WHO::BODY))))
;
; caught STYLE-WARNING:
; The variable ELEMENT-TYPE is defined but never used.
; compiling (DEFMACRO SHOW-HTML-EXPANSION ...)
; compiling (DEFVAR *HYPERDOC-BASE-URI* ...)
; compiling (LET (#) ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/who.fasl written
; compilation finished in 0:00:01
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40007FA9}> on
#<CL-SOURCE-FILE "who" {40007FB9}>.
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; printed 30 notes
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/package-kpax.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPACKAGE :KPAX ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/package-kpax.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/log.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFCONSTANT +LOG-LEVEL-OFF+ ...)
; compiling (DEFCONSTANT +LOG-LEVEL-DEBUG+ ...)
; compiling (DEFCONSTANT +LOG-LEVEL-INFO+ ...)
; compiling (DEFCONSTANT +LOG-LEVEL-WARN+ ...)
; compiling (DEFCONSTANT +LOG-LEVEL-ERROR+ ...)
; compiling (DEFCONSTANT +LOG-LEVEL-FATAL+ ...)
; compiling (DEFCONSTANT +LOG-LEVEL-ALL+ ...)
; compiling (DEFUN LOG-LEVEL-TO-NAME ...)
; compiling (DEFUN NAME-TO-LOG-LEVEL ...)
; compiling (DEFGENERIC LOGM ...)
; compiling (DEFMACRO LOG-DEBUG ...)
; compiling (DEFMACRO LOG-INFO ...)
; compiling (DEFMACRO LOG-WARN ...)
; compiling (DEFMACRO LOG-ERROR ...)
; compiling (DEFMACRO LOG-FATAL ...)
; compiling (DEFCLASS LOGGER ...)
; compiling (DEFCLASS APPENDER ...)
; compiling (DEFGENERIC ADD-APPENDER ...)
; compiling (DEFCLASS STREAM-APPENDER ...)
; compiling (DEFCLASS DEBUG-STREAM-APPENDER ...)
; compiling (DEFMETHOD APPENDM ...)
; compiling (DEFMETHOD APPENDM ...)
; compiling (DEFMETHOD FLUSH-LOG ...)
; compiling (DEFMETHOD FLUSH-LOG ...)
; compiling (DEFCONSTANT +LOG-FLUSH-INTERVAL+ ...)
; compiling (DEFMETHOD LOGM ...)
; compiling (DEFMETHOD LOGM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/log.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/util.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFUN MAPTREE ...)
; compiling (DEFPARAMETER +URI-ENCODE-CHAR-MAP+ ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/util.lisp
; in: DEFPARAMETER +URI-ENCODE-CHAR-MAP+
; (MAKE-ARRAY '(127) :ELEMENT-TYPE 'BOOLEAN)
; ==>
; (MAKE-ARRAY '127 :ELEMENT-TYPE SB-C::ELEMENT-TYPE)
;
; caught STYLE-WARNING:
; The default initial element 0 is not a BOOLEAN.
; compiling (DEFUN URI-ENCODE-FOR-QUERY ...)
; compiling (DEFUN URI-DECODE-FOR-QUERY ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/util.fasl written
; compilation finished in 0:00:00
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40005991}> on
#<CL-SOURCE-FILE "util" {40101281}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/localization.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFVAR *LOCALE* ...)
; compiling (DEFVAR *LOCALIZATION-SOURCE* ...)
; compiling (DEFUN LOCALIZED-STRING ...)
; compiling (DEFUN LOCALIZED-FORMAT ...)
; compiling (DEFGENERIC GET-LOCALIZED-STRING ...)
; compiling (EXPORT (QUOTE #))
; compiling (DEFCLASS SIMPLE-LOCALIZATION-SOURCE ...)
; compiling (DEFMETHOD GET-LOCALIZED-STRING ...)
; compiling (DEFMETHOD (SETF GET-LOCALIZED-STRING) ...)
; compiling (DEFMETHOD RESET ...)
; compiling (DEFMETHOD LOAD-LOCALIZED-STRINGS ...)
; compiling (DEFPARAMETER *DEFAULT-STRINGS-LOCATION* ...)
; compiling (DEFUN LOAD-LOCALIZED-STRINGS-FILE ...)
; compiling (DEFVAR *SIMPLE-LOCALIZATION-SOURCE* ...)
; compiling (DEFUN INIT-LOCALIZED-STRINGS ...)
; compiling (DEFMETHOD DUMP-ALIST ...)
; compiling (DEFMETHOD DUMP-MULTI-ALIST ...)
; compiling (DEFMETHOD LOAD-MULTI-LOCALIZED-STRINGS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/localization.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/sha1.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (DEFPACKAGE :SHA ...)
; compiling (IN-PACKAGE :SHA)
; compiling (DECLAIM (INLINE F1 ...) ...)
; compiling (DEFUN F1 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/sha1.lisp
; in: DEFUN F1
; (DEFUN SHA::F1 (SHA::X SHA::Y SHA::Z)
; (DECLARE (TYPE SHA::UB32 SHA::X SHA::Y SHA::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGIOR (LOGAND SHA::X SHA::Y) (LOGANDC1 SHA::X SHA::Z)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SHA::F1
; (SHA::X SHA::Y SHA::Z)
; (DECLARE (TYPE SHA::UB32 SHA::X SHA::Y SHA::Z)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK SHA::F1
; (LOGIOR (LOGAND SHA::X SHA::Y)
; (LOGANDC1 SHA::X SHA::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/kpax/src/sha1.lisp
; in: DEFUN F2
; (DEFUN SHA::F2 (SHA::X SHA::Y SHA::Z)
; (DECLARE (TYPE SHA::UB32 SHA::X SHA::Y SHA::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGXOR SHA::X SHA::Y SHA::Z))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SHA::F2
; (SHA::X SHA::Y SHA::Z)
; (DECLARE (TYPE SHA::UB32 SHA::X SHA::Y SHA::Z)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK SHA::F2 (LOGXOR SHA::X SHA::Y SHA::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/kpax/src/sha1.lisp
; in: DEFUN F3
; (DEFUN SHA::F3 (SHA::X SHA::Y SHA::Z)
; (DECLARE (TYPE SHA::UB32 SHA::X SHA::Y SHA::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGIOR (LOGIOR (LOGAND SHA::X SHA::Y) (LOGAND SHA::X SHA::Z))
; (LOGAND SHA::Y SHA::Z)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SHA::F3
; (SHA::X SHA::Y SHA::Z)
; (DECLARE (TYPE SHA::UB32 SHA::X SHA::Y SHA::Z)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK SHA::F3
; (LOGIOR
; (LOGIOR (LOGAND SHA::X SHA::Y)
; (LOGAND SHA::X SHA::Z))
; (LOGAND SHA::Y SHA::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/kpax/src/sha1.lisp
; in: DEFUN MOD32+
; (DEFUN SHA::MOD32+ (SHA::A SHA::B)
; (DECLARE (TYPE SHA::UB32 SHA::A SHA::B)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LDB (BYTE 32 0) (+ SHA::A SHA::B)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SHA::MOD32+
; (SHA::A SHA::B)
; (DECLARE (TYPE SHA::UB32 SHA::A SHA::B)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK SHA::MOD32+
; (LDB (BYTE 32 0) (+ SHA::A SHA::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/kpax/src/sha1.lisp
; in: DEFUN ROL32
; (DEFUN SHA::ROL32 (SHA::A SHA::S)
; (DECLARE (TYPE SHA::UB32 SHA::A)
; (TYPE (UNSIGNED-BYTE 5) SHA::S)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGIOR (LDB (BYTE 32 0) (ASH SHA::A SHA::S)) (ASH SHA::A (- SHA::S 32))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SHA::ROL32
; (SHA::A SHA::S)
; (DECLARE (TYPE SHA::UB32 SHA::A)
; (TYPE (UNSIGNED-BYTE 5) SHA::S)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK SHA::ROL32
; (LOGIOR (LDB (BYTE 32 0) (ASH SHA::A SHA::S))
; (ASH SHA::A (- SHA::S 32)))))
;
; 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/kpax/src/sha1.lisp
; in: DEFUN UPDATE-SHA1-BLOCK
; (SHA::WITH-SHA1-ROUND (BLOCK SHA::F3 SHA::+K3+)
; (SHA::A SHA::B SHA::C SHA::D SHA::E 40)
; (SHA::A SHA::B SHA::C SHA::D SHA::E 41)
; (SHA::A SHA::B SHA::C SHA::D SHA::E 42)
; (SHA::A SHA::B SHA::C SHA::D SHA::E 43)
; (SHA::A SHA::B SHA::C SHA::D SHA::E 44)
; (SHA::A SHA::B SHA::C SHA::D SHA::E 45)
; (SHA::A SHA::B SHA::C SHA::D SHA::E 46)
; (SHA::A SHA::B SHA::C SHA::D SHA::E 47)
; (SHA::A SHA::B SHA::C SHA::D SHA::E 48)
; (SHA::A SHA::B SHA::C SHA::D SHA::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
; ==>
; (SHA::MOD32+ (SHA::ROL32 SHA::A 5)
; (SHA::MOD32+ (SHA::MOD32+ (SHA::F3 SHA::B SHA::C SHA::D) SHA::E)
; (SHA::MOD32+ (AREF BLOCK 47) SHA::+K3+)))
;
; note: *INLINE-EXPANSION-LIMIT* (200) was exceeded, probably trying to
; inline a recursive function.
; (SHA::WITH-SHA1-ROUND (BLOCK SHA::F1 SHA::+K1+)
; (SHA::A SHA::B SHA::C SHA::D SHA::E 0)
; (SHA::A SHA::B SHA::C SHA::D SHA::E 1)
; (SHA::A SHA::B SHA::C SHA::D SHA::E 2)
; (SHA::A SHA::B SHA::C SHA::D SHA::E 3)
; (SHA::A SHA::B SHA::C SHA::D SHA::E 4)
; (SHA::A SHA::B SHA::C SHA::D SHA::E 5)
; (SHA::A SHA::B SHA::C SHA::D SHA::E 6)
; (SHA::A SHA::B SHA::C SHA::D SHA::E 7)
; (SHA::A SHA::B SHA::C SHA::D SHA::E 8)
; (SHA::A SHA::B SHA::C SHA::D SHA::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
; ==>
; (SHA::MOD32+ (SHA::ROL32 SHA::A 5)
; (SHA::MOD32+ (SHA::MOD32+ (SHA::F1 SHA::B SHA::C SHA::D) SHA::E)
; (SHA::MOD32+ (AREF BLOCK 0) SHA::+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 SHA::MOD32+ SHA::MOD32+
; ==>
; (SHA::MOD32+ (SHA::F1 SHA::B SHA::C SHA::D) SHA::E)
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DECLAIM (INLINE EXPAND-BLOCK ...))
; compiling (DEFUN EXPAND-BLOCK ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/sha1.lisp
; in: DEFUN ROL32
; (LDB (BYTE 32 0) (ASH SHA::A SHA::S))
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 8589934591)
; &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 8589934591)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 8589934591), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: doing unsigned word to integer coercion (cost 20)
; compiling (DEFUN FILL-BLOCK-UB8 ...)
; compiling (DEFUN FILL-BLOCK-CHAR ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/sha1.lisp
; in: DEFUN FILL-BLOCK-CHAR
; (SHA::ASSEMBLE-UB32 (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 3)))
; (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 2)))
; (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 1)))
; (CHAR-CODE (SCHAR SHA::BUFFER SHA::J)))
; --> THE LOGIOR LOGIOR LOGIOR LOGIOR
; ==>
; (ASH (CHAR-CODE (SCHAR SHA::BUFFER SHA::J)) 24)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The result is a (VALUES (MOD 18691680894977)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The result is a (VALUES (MOD 18691680894977)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; ==>
; (ASH (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 1))) 16)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The result is a (VALUES (MOD 73014378497)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The result is a (VALUES (MOD 73014378497)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR LOGIOR LOGIOR
; ==>
; (LOGIOR (ASH (CHAR-CODE (SCHAR SHA::BUFFER SHA::J)) 24)
; (ASH (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 1))) 16))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691680894977), not a FIXNUM.
; The second argument is a (MOD 73014378497), not a FIXNUM.
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691680894977), not a (SIGNED-BYTE 32).
; The second argument is a (MOD 73014378497), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR LOGIOR
; ==>
; (LOGIOR
; (LOGIOR (ASH (CHAR-CODE (SCHAR SHA::BUFFER SHA::J)) 24)
; (ASH (CHAR-CODE (SCHAR SHA::BUFFER #)) 16))
; (ASH (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 2))) 8))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691697672192), not a FIXNUM.
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691697672192), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR
; ==>
; (LOGIOR
; (LOGIOR (LOGIOR (ASH (CHAR-CODE #) 24) (ASH (CHAR-CODE #) 16))
; (ASH (CHAR-CODE (SCHAR SHA::BUFFER #)) 8))
; (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 3))))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691697672192), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691697672192), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; compiling (DEFUN FILL-BLOCK ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/sha1.lisp
; in: DEFUN FILL-BLOCK-CHAR
; (SHA::ASSEMBLE-UB32 (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 3)))
; (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 2)))
; (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 1)))
; (CHAR-CODE (SCHAR SHA::BUFFER SHA::J)))
; --> THE LOGIOR LOGIOR LOGIOR LOGIOR
; ==>
; (ASH (CHAR-CODE (SCHAR SHA::BUFFER SHA::J)) 24)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The result is a (VALUES (MOD 18691680894977)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The result is a (VALUES (MOD 18691680894977)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; ==>
; (ASH (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 1))) 16)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The result is a (VALUES (MOD 73014378497)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The result is a (VALUES (MOD 73014378497)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR LOGIOR LOGIOR
; ==>
; (LOGIOR (ASH (CHAR-CODE (SCHAR SHA::BUFFER SHA::J)) 24)
; (ASH (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 1))) 16))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691680894977), not a FIXNUM.
; The second argument is a (MOD 73014378497), not a FIXNUM.
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691680894977), not a (SIGNED-BYTE 32).
; The second argument is a (MOD 73014378497), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR LOGIOR
; ==>
; (LOGIOR
; (LOGIOR (ASH (CHAR-CODE (SCHAR SHA::BUFFER SHA::J)) 24)
; (ASH (CHAR-CODE (SCHAR SHA::BUFFER #)) 16))
; (ASH (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 2))) 8))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691697672192), not a FIXNUM.
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691697672192), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR
; ==>
; (LOGIOR
; (LOGIOR (LOGIOR (ASH (CHAR-CODE #) 24) (ASH (CHAR-CODE #) 16))
; (ASH (CHAR-CODE (SCHAR SHA::BUFFER #)) 8))
; (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 3))))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691697672192), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691697672192), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; in: DEFUN ROL32
; (LDB (BYTE 32 0) (ASH SHA::A SHA::S))
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 8589934591)
; &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 8589934591)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 8589934591), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: doing unsigned word to integer coercion (cost 20)
; compiling (DECLAIM (INLINE SHA1REGS-DIGEST))
; compiling (DEFUN SHA1REGS-DIGEST ...); in: LAMBDA (#:WHOLE1074 #:ENVIRONMENT1075)
; (+ SHA::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).
; (+ SHA::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).
; (+ SHA::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).
; (+ SHA::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.
; (+ SHA::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.
; (+ SHA::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 (SHA1-STATE # ...) ...)
; compiling (DECLAIM (INLINE COPY-TO-BUFFER))
; compiling (DEFUN COPY-TO-BUFFER ...)
; compiling (DEFUN UPDATE-SHA1-STATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/sha1.lisp
; in: DEFUN COPY-TO-BUFFER
; (LOOP SHA::FOR
; SHA::BUFFER-INDEX
; SHA::OF-TYPE
; (INTEGER 0 64)
; SHA::FROM
; SHA::BUFFER-OFFSET
; SHA::FOR
; SHA::FROM-INDEX
; SHA::OF-TYPE
; FIXNUM
; SHA::FROM
; ...)
; --> BLOCK LET
; ==>
; SHA::BUFFER-OFFSET
;
; note: deleting unreachable code
; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN COND IF >= IF <
; ==>
; SHA::FROM-INDEX
;
; note: deleting unreachable code
; (SETF (AREF SHA::BUFFER SHA::BUFFER-INDEX)
; (CHAR-CODE (SCHAR (THE SIMPLE-STRING SHA::FROM) SHA::FROM-INDEX)))
; --> SB-KERNEL:%ASET
; ==>
; SHA::BUFFER
;
; note: deleting unreachable code
; (LOOP SHA::FOR
; SHA::BUFFER-INDEX
; SHA::OF-TYPE
; (INTEGER 0 64)
; SHA::FROM
; SHA::BUFFER-OFFSET
; SHA::FOR
; SHA::FROM-INDEX
; SHA::OF-TYPE
; FIXNUM
; SHA::FROM
; ...)
; --> BLOCK LET LET
; ==>
; SHA::FROM-OFFSET
;
; note: deleting unreachable code
; --> BLOCK LET
; ==>
; SHA::BUFFER-OFFSET
;
; note: deleting unreachable code
; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN COND IF >= IF <
; ==>
; SHA::FROM-INDEX
;
; note: deleting unreachable code
; (SETF (AREF SHA::BUFFER SHA::BUFFER-INDEX)
; (AREF (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) SHA::FROM)
; SHA::FROM-INDEX))
; --> SB-KERNEL:%ASET
; ==>
; SHA::BUFFER
;
; note: deleting unreachable code
; (LOOP SHA::FOR
; SHA::BUFFER-INDEX
; SHA::OF-TYPE
; (INTEGER 0 64)
; SHA::FROM
; SHA::BUFFER-OFFSET
; SHA::FOR
; SHA::FROM-INDEX
; SHA::OF-TYPE
; FIXNUM
; SHA::FROM
; ...)
; --> BLOCK LET LET
; ==>
; SHA::FROM-OFFSET
;
; note: deleting unreachable code
; in: DEFUN ROL32
; (LDB (BYTE 32 0) (ASH SHA::A SHA::S))
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 8589934591)
; &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 8589934591)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 8589934591), not a (UNSIGNED-BYTE 32).
; in: DEFUN FILL-BLOCK-CHAR
; (SHA::ASSEMBLE-UB32 (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 3)))
; (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 2)))
; (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 1)))
; (CHAR-CODE (SCHAR SHA::BUFFER SHA::J)))
; --> THE LOGIOR LOGIOR LOGIOR LOGIOR
; ==>
; (ASH (CHAR-CODE (SCHAR SHA::BUFFER SHA::J)) 24)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The result is a (VALUES (MOD 18691680894977)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The result is a (VALUES (MOD 18691680894977)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; ==>
; (ASH (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 1))) 16)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The result is a (VALUES (MOD 73014378497)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The result is a (VALUES (MOD 73014378497)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR LOGIOR LOGIOR
; ==>
; (LOGIOR (ASH (CHAR-CODE (SCHAR SHA::BUFFER SHA::J)) 24)
; (ASH (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 1))) 16))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691680894977), not a FIXNUM.
; The second argument is a (MOD 73014378497), not a FIXNUM.
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691680894977), not a (SIGNED-BYTE 32).
; The second argument is a (MOD 73014378497), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR LOGIOR
; ==>
; (LOGIOR
; (LOGIOR (ASH (CHAR-CODE (SCHAR SHA::BUFFER SHA::J)) 24)
; (ASH (CHAR-CODE (SCHAR SHA::BUFFER #)) 16))
; (ASH (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 2))) 8))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691697672192), not a FIXNUM.
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691697672192), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR
; ==>
; (LOGIOR
; (LOGIOR (LOGIOR (ASH (CHAR-CODE #) 24) (ASH (CHAR-CODE #) 16))
; (ASH (CHAR-CODE (SCHAR SHA::BUFFER #)) 8))
; (CHAR-CODE (SCHAR SHA::BUFFER (+ SHA::J 3))))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691697672192), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691697672192), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; in: DEFUN ROL32
; (LDB (BYTE 32 0) (ASH SHA::A SHA::S))
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 8589934591)
; &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 8589934591)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 8589934591), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 8589934591)
; &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 8589934591)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 8589934591), not a (UNSIGNED-BYTE 32).
; in: DEFUN UPDATE-SHA1-STATE
; (+ (SHA::SHA1-STATE-AMOUNT SHA::STATE) LENGTH)
;
; 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 ((SHA::REGS (SHA::SHA1-STATE-REGS SHA::STATE))
; (BLOCK (SHA::SHA1-STATE-BLOCK SHA::STATE))
; (SHA::BUFFER (SHA::SHA1-STATE-BUFFER SHA::STATE))
; (SHA::BUFFER-INDEX (SHA::SHA1-STATE-BUFFER-INDEX SHA::STATE))
; (LENGTH (- SHA::END SHA::START)))
; (DECLARE (TYPE SHA:SHA1-REGS SHA::REGS)
; (TYPE FIXNUM LENGTH)
; (TYPE (INTEGER 0 63) SHA::BUFFER-INDEX)
; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (80)) BLOCK)
; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (64)) SHA::BUFFER))
; (UNLESS (ZEROP SHA::BUFFER-INDEX)
; (LET ((SHA::AMOUNT #))
; (DECLARE (TYPE # SHA::AMOUNT))
; (SHA::COPY-TO-BUFFER SEQUENCE
; SHA::START
; SHA::AMOUNT
; SHA::BUFFER
; SHA::BUFFER-INDEX)
; (SETQ SHA::START (THE FIXNUM #))
; (WHEN (>= SHA::START SHA::END)
; (SETF # #)
; (RETURN-FROM SHA:UPDATE-SHA1-STATE SHA::STATE)))
; (SHA:FILL-BLOCK-UB8 BLOCK SHA::BUFFER 0)
; (SHA:EXPAND-BLOCK BLOCK)
; (SHA:UPDATE-SHA1-BLOCK SHA::REGS BLOCK))
; (ETYPECASE SEQUENCE
; ((SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (LOCALLY
; (DECLARE #)
; (LOOP SHA::FOR
; SHA::OFFSET
; SHA::OF-TYPE
; #
; SHA::FROM
; SHA::START
; SHA::BELOW
; SHA::END
; SHA::BY
; 64
; SHA::UNTIL
; ...)))
; (SIMPLE-STRING
; (LOCALLY
; (DECLARE #)
; (LOOP SHA::FOR
; SHA::OFFSET
; SHA::OF-TYPE
; #
; SHA::FROM
; SHA::START
; SHA::BELOW
; SHA::END
; SHA::BY
; 64
; SHA::UNTIL
; ...))))
; (SETF (SHA::SHA1-STATE-AMOUNT SHA::STATE)
; (+ (SHA::SHA1-STATE-AMOUNT SHA::STATE) LENGTH))
; SHA::STATE)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; in: DEFUN ROL32
; (LDB (BYTE 32 0) (ASH SHA::A SHA::S))
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; in: DEFUN UPDATE-SHA1-STATE
; (THE FIXNUM (+ SHA::START SHA::AMOUNT))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; in: DEFUN ROL32
; (LDB (BYTE 32 0) (ASH SHA::A SHA::S))
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: doing unsigned word to integer coercion (cost 20)
; compiling (DEFUN FINALIZE-SHA1-STATE ...); in: LAMBDA (#:WHOLE1621 #:ENVIRONMENT1622)
; (+ SHA::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).
; (+ SHA::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).
; (+ SHA::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).
; (+ SHA::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.
; (+ SHA::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.
; (+ SHA::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/kpax/src/sha1.lisp
; in: DEFUN FINALIZE-SHA1-STATE
; (* 8 (SHA::SHA1-STATE-AMOUNT SHA::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.
; in: DEFUN ROL32
; (LDB (BYTE 32 0) (ASH SHA::A SHA::S))
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 8589934591)
; &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 8589934591)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 8589934591), not a (UNSIGNED-BYTE 32).
; in: DEFUN FINALIZE-SHA1-STATE
; (LDB (BYTE 32 32) SHA::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) SHA::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).
; in: DEFUN ROL32
; (LDB (BYTE 32 0) (ASH SHA::A SHA::S))
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 8589934591)
; &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 8589934591)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 8589934591), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; compiling (DEFUN SHA1SUM-SEQUENCE ...)
; compiling (DEFTYPE BUFFER-INDEX ...)
; compiling (DEFUN SHA1SUM-STREAM ...)
; compiling (DEFUN SHA1SUM-FILE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/sha1.fasl written
; compilation finished in 0:00:06
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/md5.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (DEFPACKAGE :MD5 ...)
; compiling (IN-PACKAGE :MD5)
; compiling (DEFTYPE UB32 ...)
; compiling (DEFMACRO ASSEMBLE-UB32 ...)
; compiling (DEFCONSTANT +BUFFER-SIZE+ ...)
; compiling (DECLAIM (INLINE F ...) ...)
; compiling (DEFUN F ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/md5.lisp
; in: DEFUN F
; (DEFUN MD5::F (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGIOR (LOGAND MD5::X MD5::Y) (LOGANDC1 MD5::X MD5::Z)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::F
; (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK MD5::F
; (LOGIOR (LOGAND MD5::X MD5::Y)
; (LOGANDC1 MD5::X MD5::Z))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFUN G ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/md5.lisp
; in: DEFUN G
; (DEFUN MD5::G (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGIOR (LOGAND MD5::X MD5::Z) (LOGANDC2 MD5::Y MD5::Z)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::G
; (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK MD5::G
; (LOGIOR (LOGAND MD5::X MD5::Z)
; (LOGANDC2 MD5::Y MD5::Z))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFUN H ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/md5.lisp
; in: DEFUN H
; (DEFUN MD5::H (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGXOR MD5::X MD5::Y MD5::Z))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::H
; (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK MD5::H (LOGXOR MD5::X MD5::Y MD5::Z)))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFUN I ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/md5.lisp
; in: DEFUN I
; (DEFUN MD5::I (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::I
; (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK MD5::I (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))))
;
; caught STYLE-WARNING:
; The previously declared FTYPE
; (FUNCTION ((UNSIGNED-BYTE 32) (UNSIGNED-BYTE 32) (UNSIGNED-BYTE 32))
; (VALUES (UNSIGNED-BYTE 32) &REST T))
; conflicts with the definition type
; (FUNCTION ((UNSIGNED-BYTE 32) (UNSIGNED-BYTE 32) (UNSIGNED-BYTE 32))
; (VALUES (INTEGER -4294967296 -1) &OPTIONAL))
; (LOGORC2 MD5::X MD5::Z)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER -4294967296 -1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -4294967296 -1)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))
;
; note: forced to do static-fun Two-arg-xor (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The second argument is a (INTEGER -4294967296 -1), not a FIXNUM.
; The result is a (VALUES (INTEGER -4294967296 -1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; The second argument is a (INTEGER -4294967296 -1), not a (SIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -4294967296 -1)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; compiling (DECLAIM (INLINE MOD32+) ...)
; compiling (DEFUN MOD32+ ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/md5.lisp
; in: DEFUN MOD32+
; (DEFUN MD5::MOD32+ (MD5::A MD5::B)
; (DECLARE (TYPE MD5::UB32 MD5::A MD5::B)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LDB (BYTE 32 0) (+ MD5::A MD5::B)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::MOD32+
; (MD5::A MD5::B)
; (DECLARE (TYPE MD5::UB32 MD5::A MD5::B)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK MD5::MOD32+
; (LDB (BYTE 32 0) (+ MD5::A MD5::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/kpax/src/md5.lisp
; in: DEFUN ROL32
; (DEFUN MD5::ROL32 (MD5::A MD5::S)
; (DECLARE (TYPE MD5::UB32 MD5::A)
; (TYPE (UNSIGNED-BYTE 5) MD5::S)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGIOR (LDB (BYTE 32 0) (ASH MD5::A MD5::S)) (ASH MD5::A (- MD5::S 32))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::ROL32
; (MD5::A MD5::S)
; (DECLARE (TYPE MD5::UB32 MD5::A)
; (TYPE (UNSIGNED-BYTE 5) MD5::S)
; (OPTIMIZE (SPEED 3)
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 0)))
; (BLOCK MD5::ROL32
; (LOGIOR (LDB (BYTE 32 0) (ASH MD5::A MD5::S))
; (ASH MD5::A (- MD5::S 32)))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFPARAMETER *T* ...)
; compiling (DEFMACRO WITH-MD5-ROUND ...)
; compiling (DEFTYPE MD5-REGS ...)
; compiling (DEFMACRO MD5-REGS-A ...)
; compiling (DEFMACRO MD5-REGS-B ...)
; compiling (DEFMACRO MD5-REGS-C ...)
; compiling (DEFMACRO MD5-REGS-D ...)
; compiling (DEFCONSTANT +MD5-MAGIC-A+ ...)
; compiling (DEFCONSTANT +MD5-MAGIC-B+ ...)
; compiling (DEFCONSTANT +MD5-MAGIC-C+ ...)
; compiling (DEFCONSTANT +MD5-MAGIC-D+ ...)
; compiling (DECLAIM (INLINE INITIAL-MD5-REGS))
; compiling (DEFUN INITIAL-MD5-REGS ...)
; compiling (DEFUN UPDATE-MD5-BLOCK ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/md5.lisp
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::H BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 5 4 33)
; (MD5::D MD5::A MD5::B MD5::C 8 11 34)
; (MD5::C MD5::D MD5::A MD5::B 11 16 35)
; (MD5::B MD5::C MD5::D MD5::A 14 23 36)
; (MD5::A MD5::B MD5::C MD5::D 1 4 37)
; (MD5::D MD5::A MD5::B MD5::C 4 11 38)
; (MD5::C MD5::D MD5::A MD5::B 7 16 39)
; (MD5::B MD5::C MD5::D MD5::A 10 23 40)
; (MD5::A MD5::B MD5::C MD5::D 13 4 41)
; (MD5::D MD5::A MD5::B MD5::C 0 11 42)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+
; ==>
; (MD5::MOD32+ MD5::B (MD5::H MD5::C MD5::D MD5::A))
;
; note: *INLINE-EXPANSION-LIMIT* (200) was exceeded, probably trying to
; inline a recursive function.
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+ MD5::MOD32+ AREF
; ==>
; BLOCK
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN ROL32
; (ASH MD5::A MD5::S)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+
; ==>
; MD5::D
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+
; ==>
; MD5::C
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+
; ==>
; MD5::B
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+
; ==>
; MD5::D
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+
; ==>
; MD5::C
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+
; ==>
; MD5::B
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+
; ==>
; MD5::D
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+
; ==>
; MD5::C
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+
; ==>
; MD5::B
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+
; ==>
; MD5::D
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+
; ==>
; MD5::C
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (SETF (MD5::MD5-REGS-A MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-A MD5::REGS) MD5::A)
; (MD5::MD5-REGS-B MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-B MD5::REGS) MD5::B)
; (MD5::MD5-REGS-C MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-C MD5::REGS) MD5::C)
; (MD5::MD5-REGS-D MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-D MD5::REGS) MD5::D))
; --> PROGN SETF LET*
; ==>
; MD5::REGS
;
; note: deleting unreachable code
; (MD5::MD5-REGS-A MD5::REGS)
; --> AREF
; ==>
; MD5::REGS
;
; note: deleting unreachable code
; (MD5::MOD32+ (MD5::MD5-REGS-A MD5::REGS) MD5::A)
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN I
; (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))
; ==>
; MD5::Y
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+ MD5::MOD32+ AREF
; ==>
; BLOCK
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN ROL32
; (ASH MD5::A MD5::S)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN I
; (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))
; ==>
; MD5::Y
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+ MD5::MOD32+ AREF
; ==>
; BLOCK
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN ROL32
; (ASH MD5::A MD5::S)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN I
; (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))
; ==>
; MD5::Y
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+ MD5::MOD32+ AREF
; ==>
; BLOCK
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN ROL32
; (ASH MD5::A MD5::S)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN I
; (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))
; ==>
; MD5::Y
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+ MD5::MOD32+ AREF
; ==>
; BLOCK
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN ROL32
; (ASH MD5::A MD5::S)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN I
; (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))
; ==>
; MD5::Y
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+ MD5::MOD32+ AREF
; ==>
; BLOCK
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN ROL32
; (ASH MD5::A MD5::S)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN I
; (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))
; ==>
; MD5::Y
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+ MD5::MOD32+ AREF
; ==>
; BLOCK
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN ROL32
; (ASH MD5::A MD5::S)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN I
; (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))
; ==>
; MD5::Y
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+ MD5::MOD32+ AREF
; ==>
; BLOCK
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN ROL32
; (ASH MD5::A MD5::S)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN I
; (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))
; ==>
; MD5::Y
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+ MD5::MOD32+ AREF
; ==>
; BLOCK
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN ROL32
; (ASH MD5::A MD5::S)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN I
; (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))
; ==>
; MD5::Y
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+ MD5::MOD32+ AREF
; ==>
; BLOCK
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN ROL32
; (ASH MD5::A MD5::S)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN I
; (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))
; ==>
; MD5::Y
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+ MD5::MOD32+ AREF
; ==>
; BLOCK
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN ROL32
; (ASH MD5::A MD5::S)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN I
; (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))
; ==>
; MD5::Y
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+ MD5::MOD32+ AREF
; ==>
; BLOCK
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN ROL32
; (ASH MD5::A MD5::S)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN I
; (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))
; ==>
; MD5::Y
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+ MD5::MOD32+ AREF
; ==>
; BLOCK
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN ROL32
; (ASH MD5::A MD5::S)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN I
; (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))
; ==>
; MD5::Y
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+ MD5::MOD32+ AREF
; ==>
; BLOCK
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN ROL32
; (ASH MD5::A MD5::S)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN I
; (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))
; ==>
; MD5::Y
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+ MD5::MOD32+ AREF
; ==>
; BLOCK
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN ROL32
; (ASH MD5::A MD5::S)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (SETF (MD5::MD5-REGS-A MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-A MD5::REGS) MD5::A)
; (MD5::MD5-REGS-B MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-B MD5::REGS) MD5::B)
; (MD5::MD5-REGS-C MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-C MD5::REGS) MD5::C)
; (MD5::MD5-REGS-D MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-D MD5::REGS) MD5::D))
; --> PROGN SETF LET*
; ==>
; MD5::REGS
;
; note: deleting unreachable code
; (MD5::MD5-REGS-B MD5::REGS)
; --> AREF
; ==>
; MD5::REGS
;
; note: deleting unreachable code
; (MD5::MOD32+ (MD5::MD5-REGS-B MD5::REGS) MD5::B)
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (SETF (MD5::MD5-REGS-A MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-A MD5::REGS) MD5::A)
; (MD5::MD5-REGS-B MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-B MD5::REGS) MD5::B)
; (MD5::MD5-REGS-C MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-C MD5::REGS) MD5::C)
; (MD5::MD5-REGS-D MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-D MD5::REGS) MD5::D))
; --> PROGN SETF LET*
; ==>
; MD5::REGS
;
; note: deleting unreachable code
; (MD5::MD5-REGS-C MD5::REGS)
; --> AREF
; ==>
; MD5::REGS
;
; note: deleting unreachable code
; (MD5::MOD32+ (MD5::MD5-REGS-C MD5::REGS) MD5::C)
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (SETF (MD5::MD5-REGS-A MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-A MD5::REGS) MD5::A)
; (MD5::MD5-REGS-B MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-B MD5::REGS) MD5::B)
; (MD5::MD5-REGS-C MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-C MD5::REGS) MD5::C)
; (MD5::MD5-REGS-D MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-D MD5::REGS) MD5::D))
; --> PROGN SETF LET*
; ==>
; MD5::REGS
;
; note: deleting unreachable code
; (MD5::MD5-REGS-D MD5::REGS)
; --> AREF
; ==>
; MD5::REGS
;
; note: deleting unreachable code
; (MD5::MOD32+ (MD5::MD5-REGS-D MD5::REGS) MD5::D)
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (LET ((MD5::A (MD5::MD5-REGS-A MD5::REGS))
; (MD5::B (MD5::MD5-REGS-B MD5::REGS))
; (MD5::C (MD5::MD5-REGS-C MD5::REGS))
; (MD5::D (MD5::MD5-REGS-D MD5::REGS)))
; (DECLARE (TYPE MD5::UB32 MD5::A MD5::B MD5::C MD5::D))
; (MD5::WITH-MD5-ROUND (MD5::F BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 7 1)
; (MD5::D MD5::A MD5::B MD5::C 1 12 2)
; (MD5::C MD5::D MD5::A MD5::B 2 17 3)
; (MD5::B MD5::C MD5::D MD5::A 3 22 4)
; (MD5::A MD5::B MD5::C MD5::D 4 7 5)
; (MD5::D MD5::A MD5::B MD5::C 5 12 6)
; (MD5::C MD5::D MD5::A MD5::B 6 17 7)
; (MD5::B MD5::C MD5::D MD5::A 7 22 8)
; (MD5::A MD5::B MD5::C MD5::D 8 7 9)
; (MD5::D MD5::A MD5::B MD5::C 9 12 10)
; ...)
; (MD5::WITH-MD5-ROUND (MD5::G BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 1 5 17)
; (MD5::D MD5::A MD5::B MD5::C 6 9 18)
; (MD5::C MD5::D MD5::A MD5::B 11 14 19)
; (MD5::B MD5::C MD5::D MD5::A 0 20 20)
; (MD5::A MD5::B MD5::C MD5::D 5 5 21)
; (MD5::D MD5::A MD5::B MD5::C 10 9 22)
; (MD5::C MD5::D MD5::A MD5::B 15 14 23)
; (MD5::B MD5::C MD5::D MD5::A 4 20 24)
; (MD5::A MD5::B MD5::C MD5::D 9 5 25)
; (MD5::D MD5::A MD5::B MD5::C 14 9 26)
; ...)
; (MD5::WITH-MD5-ROUND (MD5::H BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 5 4 33)
; (MD5::D MD5::A MD5::B MD5::C 8 11 34)
; (MD5::C MD5::D MD5::A MD5::B 11 16 35)
; (MD5::B MD5::C MD5::D MD5::A 14 23 36)
; (MD5::A MD5::B MD5::C MD5::D 1 4 37)
; (MD5::D MD5::A MD5::B MD5::C 4 11 38)
; (MD5::C MD5::D MD5::A MD5::B 7 16 39)
; (MD5::B MD5::C MD5::D MD5::A 10 23 40)
; (MD5::A MD5::B MD5::C MD5::D 13 4 41)
; (MD5::D MD5::A MD5::B MD5::C 0 11 42)
; ...)
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; (SETF (MD5::MD5-REGS-A MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-A MD5::REGS) MD5::A)
; (MD5::MD5-REGS-B MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-B MD5::REGS) MD5::B)
; (MD5::MD5-REGS-C MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-C MD5::REGS) MD5::C)
; (MD5::MD5-REGS-D MD5::REGS)
; (MD5::MOD32+ (MD5::MD5-REGS-D MD5::REGS) MD5::D))
; MD5::REGS)
; ==>
; MD5::REGS
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+ MD5::MOD32+ AREF
; ==>
; BLOCK
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
; ==>
; MD5::B
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN ROL32
; (ASH MD5::A MD5::S)
; ==>
; MD5::A
;
; note: deleting unreachable code
; (ASH MD5::A (- MD5::S 32))
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN MOD32+
; (+ MD5::A MD5::B)
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::I BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 6 49)
; (MD5::D MD5::A MD5::B MD5::C 7 10 50)
; (MD5::C MD5::D MD5::A MD5::B 14 15 51)
; (MD5::B MD5::C MD5::D MD5::A 5 21 52)
; (MD5::A MD5::B MD5::C MD5::D 12 6 53)
; (MD5::D MD5::A MD5::B MD5::C 3 10 54)
; (MD5::C MD5::D MD5::A MD5::B 10 15 55)
; (MD5::B MD5::C MD5::D MD5::A 1 21 56)
; (MD5::A MD5::B MD5::C MD5::D 8 6 57)
; (MD5::D MD5::A MD5::B MD5::C 15 10 58)
; ...)
; --> PROGN SETQ THE MD5::MOD32+
; ==>
; MD5::A
;
; note: deleting unreachable code
; in: DEFUN ROL32
; (LDB (BYTE 32 0) (ASH MD5::A MD5::S))
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 549755813761)
; &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 549755813761)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 549755813761), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 17592186040321)
; &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 17592186040321)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 17592186040321), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 562949953290241)
; &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 562949953290241)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 562949953290241), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 18014398505287681)
; &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 18014398505287681)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 18014398505287681), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 549755813761)
; &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 549755813761)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 549755813761), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 17592186040321)
; &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 17592186040321)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 17592186040321), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 562949953290241)
; &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 562949953290241)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 562949953290241), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 18014398505287681)
; &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 18014398505287681)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 18014398505287681), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 549755813761)
; &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 549755813761)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 549755813761), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 17592186040321)
; &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 17592186040321)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 17592186040321), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 562949953290241)
; &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 562949953290241)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 562949953290241), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 18014398505287681)
; &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 18014398505287681)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 18014398505287681), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 549755813761)
; &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 549755813761)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 549755813761), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 17592186040321)
; &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 17592186040321)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 17592186040321), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 562949953290241)
; &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 562949953290241)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 562949953290241), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 18014398505287681)
; &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 18014398505287681)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 18014398505287681), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 137438953441)
; &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 137438953441)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 137438953441), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 2199023255041)
; &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 2199023255041)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 2199023255041), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 70368744161281)
; &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 70368744161281)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 70368744161281), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 4503599626321921)
; &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 4503599626321921)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 4503599626321921), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 137438953441)
; &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 137438953441)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 137438953441), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 2199023255041)
; &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 2199023255041)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 2199023255041), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 70368744161281)
; &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 70368744161281)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 70368744161281), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 4503599626321921)
; &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 4503599626321921)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 4503599626321921), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 137438953441)
; &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 137438953441)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 137438953441), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 2199023255041)
; &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 2199023255041)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 2199023255041), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 70368744161281)
; &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 70368744161281)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 70368744161281), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 4503599626321921)
; &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 4503599626321921)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 4503599626321921), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 137438953441)
; &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 137438953441)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 137438953441), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 2199023255041)
; &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 2199023255041)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 2199023255041), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 70368744161281)
; &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 70368744161281)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 70368744161281), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 4503599626321921)
; &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 4503599626321921)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 4503599626321921), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 68719476721)
; &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 68719476721)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 68719476721), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 8796093020161)
; &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 8796093020161)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 8796093020161), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 281474976645121)
; &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 281474976645121)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 281474976645121), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 36028797010575361)
; &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 36028797010575361)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 36028797010575361), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 68719476721)
; &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 68719476721)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 68719476721), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 8796093020161)
; &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 8796093020161)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 8796093020161), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 281474976645121)
; &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 281474976645121)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 281474976645121), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 36028797010575361)
; &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 36028797010575361)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 36028797010575361), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 68719476721)
; &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 68719476721)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 68719476721), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 8796093020161)
; &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 8796093020161)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 8796093020161), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 281474976645121)
; &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 281474976645121)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 281474976645121), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 36028797010575361)
; &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 36028797010575361)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 36028797010575361), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 68719476721)
; &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 68719476721)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 68719476721), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 8796093020161)
; &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 8796093020161)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 8796093020161), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 281474976645121)
; &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 281474976645121)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 281474976645121), not a (UNSIGNED-BYTE 32).
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; 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 result is a (VALUES (MOD 36028797010575361)
; &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 36028797010575361)
; &OPTIONAL), not a (VALUES (SIGNED-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 (MOD 36028797010575361), not a (UNSIGNED-BYTE 32).
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::F BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 7 1)
; (MD5::D MD5::A MD5::B MD5::C 1 12 2)
; (MD5::C MD5::D MD5::A MD5::B 2 17 3)
; (MD5::B MD5::C MD5::D MD5::A 3 22 4)
; (MD5::A MD5::B MD5::C MD5::D 4 7 5)
; (MD5::D MD5::A MD5::B MD5::C 5 12 6)
; (MD5::C MD5::D MD5::A MD5::B 6 17 7)
; (MD5::B MD5::C MD5::D MD5::A 7 22 8)
; (MD5::A MD5::B MD5::C MD5::D 8 7 9)
; (MD5::D MD5::A MD5::B MD5::C 9 12 10)
; ...)
; --> PROGN SETQ THE
; ==>
; (MD5::MOD32+ MD5::B
; (MD5::ROL32
; (MD5::MOD32+ (MD5::MOD32+ MD5::A (MD5::F MD5::B MD5::C MD5::D))
; (MD5::MOD32+ (AREF BLOCK 0) 3614090360))
; 7))
;
; note: doing unsigned word to integer coercion (cost 20) from B
;
; note: doing unsigned word to integer coercion (cost 20)
; in: DEFUN ROL32
; (LDB (BYTE 32 0) (ASH MD5::A MD5::S))
; --> SB-KERNEL:%LDB LOGAND ASH
; ==>
; (ASH SB-C::VALUE (+ SB-C::AMOUNT1 SB-C::AMOUNT2))
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; in: DEFUN UPDATE-MD5-BLOCK
; (MD5::WITH-MD5-ROUND (MD5::F BLOCK)
; (MD5::A MD5::B MD5::C MD5::D 0 7 1)
; (MD5::D MD5::A MD5::B MD5::C 1 12 2)
; (MD5::C MD5::D MD5::A MD5::B 2 17 3)
; (MD5::B MD5::C MD5::D MD5::A 3 22 4)
; (MD5::A MD5::B MD5::C MD5::D 4 7 5)
; (MD5::D MD5::A MD5::B MD5::C 5 12 6)
; (MD5::C MD5::D MD5::A MD5::B 6 17 7)
; (MD5::B MD5::C MD5::D MD5::A 7 22 8)
; (MD5::A MD5::B MD5::C MD5::D 8 7 9)
; (MD5::D MD5::A MD5::B MD5::C 9 12 10)
; ...)
; --> PROGN SETQ THE MD5::MOD32+ MD5::ROL32 MD5::MOD32+
; ==>
; (MD5::MOD32+ MD5::A (MD5::F MD5::B MD5::C MD5::D))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFUN FILL-BLOCK-UB8 ...)
; compiling (DEFUN FILL-BLOCK-CHAR ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/md5.lisp
; in: DEFUN FILL-BLOCK-CHAR
; (MD5::ASSEMBLE-UB32 (CHAR-CODE (SCHAR MD5::BUFFER MD5::J))
; (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 1)))
; (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 2)))
; (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 3))))
; --> THE LOGIOR LOGIOR LOGIOR LOGIOR
; ==>
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 3))) 24)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The result is a (VALUES (MOD 18691680894977)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The result is a (VALUES (MOD 18691680894977)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; ==>
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 2))) 16)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The result is a (VALUES (MOD 73014378497)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 3) because:
; The result is a (VALUES (MOD 73014378497)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR LOGIOR LOGIOR
; ==>
; (LOGIOR (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 3))) 24)
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 2))) 16))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691680894977), not a FIXNUM.
; The second argument is a (MOD 73014378497), not a FIXNUM.
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691680894977), not a (SIGNED-BYTE 32).
; The second argument is a (MOD 73014378497), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR LOGIOR
; ==>
; (LOGIOR
; (LOGIOR (ASH (CHAR-CODE (SCHAR MD5::BUFFER #)) 24)
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER #)) 16))
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER (+ MD5::J 1))) 8))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691697672192), not a FIXNUM.
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691697672192), not a (SIGNED-BYTE 32).
; The result is a (VALUES (MOD 18691697672192)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; --> THE LOGIOR
; ==>
; (LOGIOR
; (LOGIOR (LOGIOR (ASH (CHAR-CODE #) 24) (ASH (CHAR-CODE #) 16))
; (ASH (CHAR-CODE (SCHAR MD5::BUFFER #)) 8))
; (CHAR-CODE (SCHAR MD5::BUFFER MD5::J)))
;
; note: forced to do static-fun Two-arg-ior (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (MOD 18691697672192), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (MOD 18691697672192), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; compiling (DECLAIM (INLINE FILL-BLOCK ...))
; compiling (DEFUN FILL-BLOCK ...)
; compiling (DECLAIM (INLINE MD5REGS-DIGEST))
; compiling (DEFUN MD5REGS-DIGEST ...); in: LAMBDA (#:WHOLE501 #:ENVIRONMENT502)
; (+ MD5::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).
; (+ MD5::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).
; (+ MD5::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).
; (+ MD5::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.
; (+ MD5::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.
; (+ MD5::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 (MD5-STATE # ...) ...)
; compiling (DECLAIM (INLINE COPY-TO-BUFFER))
; compiling (DEFUN COPY-TO-BUFFER ...)
; compiling (DEFUN UPDATE-MD5-STATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/md5.lisp
; in: DEFUN UPDATE-MD5-STATE
; (LOOP MD5::FOR
; MD5::OFFSET
; MD5::OF-TYPE
; (UNSIGNED-BYTE 29)
; MD5::FROM
; MD5::START
; MD5::BELOW
; MD5::END
; MD5::BY
; 64
; MD5::UNTIL
; ...)
; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE
; --> +
; ==>
; MD5::OFFSET
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN COPY-TO-BUFFER
; (LOOP MD5::FOR
; MD5::BUFFER-INDEX
; MD5::OF-TYPE
; (INTEGER 0 64)
; MD5::FROM
; MD5::BUFFER-OFFSET
; MD5::FOR
; MD5::FROM-INDEX
; MD5::OF-TYPE
; FIXNUM
; MD5::FROM
; ...)
; --> BLOCK LET
; ==>
; MD5::BUFFER-OFFSET
;
; note: deleting unreachable code
; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN COND IF >= IF <
; ==>
; MD5::FROM-INDEX
;
; note: deleting unreachable code
; (SETF (AREF MD5::BUFFER MD5::BUFFER-INDEX)
; (CHAR-CODE (SCHAR (THE SIMPLE-STRING MD5::FROM) MD5::FROM-INDEX)))
; --> SB-KERNEL:%ASET
; ==>
; MD5::BUFFER
;
; note: deleting unreachable code
; (LOOP MD5::FOR
; MD5::BUFFER-INDEX
; MD5::OF-TYPE
; (INTEGER 0 64)
; MD5::FROM
; MD5::BUFFER-OFFSET
; MD5::FOR
; MD5::FROM-INDEX
; MD5::OF-TYPE
; FIXNUM
; MD5::FROM
; ...)
; --> BLOCK LET LET
; ==>
; MD5::FROM-OFFSET
;
; note: deleting unreachable code
; --> BLOCK LET
; ==>
; MD5::BUFFER-OFFSET
;
; note: deleting unreachable code
; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN COND IF >= IF <
; ==>
; MD5::FROM-INDEX
;
; note: deleting unreachable code
; (SETF (AREF MD5::BUFFER MD5::BUFFER-INDEX)
; (AREF (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) MD5::FROM)
; MD5::FROM-INDEX))
; --> SB-KERNEL:%ASET
; ==>
; MD5::BUFFER
;
; note: deleting unreachable code
; (LOOP MD5::FOR
; MD5::BUFFER-INDEX
; MD5::OF-TYPE
; (INTEGER 0 64)
; MD5::FROM
; MD5::BUFFER-OFFSET
; MD5::FOR
; MD5::FROM-INDEX
; MD5::OF-TYPE
; FIXNUM
; MD5::FROM
; ...)
; --> BLOCK LET LET
; ==>
; MD5::FROM-OFFSET
;
; note: deleting unreachable code
; in: DEFUN UPDATE-MD5-STATE
; (+ (MD5::MD5-STATE-AMOUNT MD5::STATE) LENGTH)
;
; 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 ((MD5::REGS (MD5::MD5-STATE-REGS MD5::STATE))
; (BLOCK (MD5::MD5-STATE-BLOCK MD5::STATE))
; (MD5::BUFFER (MD5::MD5-STATE-BUFFER MD5::STATE))
; (MD5::BUFFER-INDEX (MD5::MD5-STATE-BUFFER-INDEX MD5::STATE))
; (LENGTH (- MD5::END MD5::START)))
; (DECLARE (TYPE MD5:MD5-REGS MD5::REGS)
; (TYPE FIXNUM LENGTH)
; (TYPE (INTEGER 0 63) MD5::BUFFER-INDEX)
; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (16)) BLOCK)
; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (64)) MD5::BUFFER))
; (UNLESS (ZEROP MD5::BUFFER-INDEX)
; (LET ((MD5::AMOUNT #))
; (DECLARE (TYPE # MD5::AMOUNT))
; (MD5::COPY-TO-BUFFER SEQUENCE
; MD5::START
; MD5::AMOUNT
; MD5::BUFFER
; MD5::BUFFER-INDEX)
; (SETQ MD5::START (THE FIXNUM #))
; (WHEN (>= MD5::START MD5::END)
; (SETF # #)
; (RETURN-FROM MD5:UPDATE-MD5-STATE MD5::STATE)))
; (MD5:FILL-BLOCK-UB8 BLOCK MD5::BUFFER 0)
; (MD5:UPDATE-MD5-BLOCK MD5::REGS BLOCK))
; (ETYPECASE SEQUENCE
; ((SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (LOCALLY
; (DECLARE #)
; (LOOP MD5::FOR
; MD5::OFFSET
; MD5::OF-TYPE
; #
; MD5::FROM
; MD5::START
; MD5::BELOW
; MD5::END
; MD5::BY
; 64
; MD5::UNTIL
; ...)))
; (SIMPLE-STRING
; (LOCALLY
; (DECLARE #)
; (LOOP MD5::FOR
; MD5::OFFSET
; MD5::OF-TYPE
; #
; MD5::FROM
; MD5::START
; MD5::BELOW
; MD5::END
; MD5::BY
; 64
; MD5::UNTIL
; ...))))
; (SETF (MD5::MD5-STATE-AMOUNT MD5::STATE)
; (+ (MD5::MD5-STATE-AMOUNT MD5::STATE) LENGTH))
; MD5::STATE)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; (THE FIXNUM (+ MD5::START MD5::AMOUNT))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of CHECK-FIXNUM
; compiling (DEFUN FINALIZE-MD5-STATE ...); in: LAMBDA (#:WHOLE893 #:ENVIRONMENT894)
; (+ MD5::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).
; (+ MD5::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).
; (+ MD5::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).
; (+ MD5::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.
; (+ MD5::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.
; (+ MD5::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/kpax/src/md5.lisp
; in: DEFUN FINALIZE-MD5-STATE
; (MD5:MD5REGS-DIGEST MD5::REGS)
; ==>
; MD5::REGS
;
; note: deleting unreachable code
; (SETF (MD5::MD5-STATE-FINALIZED-P MD5::STATE) (MD5:MD5REGS-DIGEST MD5::REGS))
; --> LET*
; ==>
; MD5::STATE
;
; note: deleting unreachable code
; (SETF (AREF BLOCK MD5::INDEX) 0)
; --> SB-KERNEL:%ASET
; ==>
; BLOCK
;
; note: deleting unreachable code
; (LOOP MD5::FOR
; MD5::INDEX
; MD5::OF-TYPE
; (INTEGER 0 16)
; MD5::FROM
; 0
; MD5::BELOW
; 16
; DO
; (SETF (AREF BLOCK MD5::INDEX) 0))
; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY WHEN COND IF >= IF <
; ==>
; MD5::INDEX
;
; note: deleting unreachable code
; (* 8 (MD5::MD5-STATE-AMOUNT MD5::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) MD5::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) MD5::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 (DEFUN MD5SUM-SEQUENCE ...)
; compiling (DEFTYPE BUFFER-INDEX ...)
; compiling (DEFUN MD5SUM-STREAM ...)
; compiling (DEFUN MD5SUM-FILE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/md5.fasl written
; compilation finished in 0:00:04
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40005991}> on
#<CL-SOURCE-FILE "md5" {400059A1}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/mersenne-twister-random.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (DEFPACKAGE MT ...)
; compiling (IN-PACKAGE :MT)
; compiling (DEFCONSTANT *MT-K2^32* ...)
;
; caught STYLE-WARNING:
; defining *MT-K2^32* as a constant, even though the name follows
; the usual naming convention (names like *FOO*) for special variables
; compiling (DEFCONSTANT *MT-K-INVERSE-2^32F* ...)
;
; caught STYLE-WARNING:
; defining *MT-K-INVERSE-2^32F* as a constant, even though the name follows
; the usual naming convention (names like *FOO*) for special variables
; compiling (DEFCONSTANT *MT-N* ...)
;
; caught STYLE-WARNING:
; defining *MT-N* as a constant, even though the name follows
; the usual naming convention (names like *FOO*) for special variables
; compiling (DEFCONSTANT *MT-M* ...)
;
; caught STYLE-WARNING:
; defining *MT-M* as a constant, even though the name follows
; the usual naming convention (names like *FOO*) for special variables
; compiling (DEFCONSTANT *MT-UPPER-MASK* ...)
;
; caught STYLE-WARNING:
; defining *MT-UPPER-MASK* as a constant, even though the name follows
; the usual naming convention (names like *FOO*) for special variables
; compiling (DEFCONSTANT *MT-LOWER-MASK* ...)
;
; caught STYLE-WARNING:
; defining *MT-LOWER-MASK* as a constant, even though the name follows
; the usual naming convention (names like *FOO*) for special variables
; compiling (DEFSTRUCT (MT-RANDOM-STATE #) ...)
; compiling (LABELS (# # ...) ...)
; compiling (LET (#) ...)
; compiling (DEFUN MAKE-MT-RANDOM-STATE ...)
; compiling (DEFVAR *MT-RANDOM-STATE* ...)
; compiling (LET* (# #) ...)
; compiling (DEFUN MT-TEMPERING-SHIFT-U ...)
; compiling (DEFUN MT-TEMPERING-SHIFT-S ...)
; compiling (DEFUN MT-TEMPERING-SHIFT-T ...)
; compiling (DEFUN MT-TEMPERING-SHIFT-L ...)
; compiling (LET (# #) ...)
; compiling (DEFUN MT-RANDOM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/mersenne-twister-random.fasl written
; compilation finished in 0:00:01
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40005991}> on
#<CL-SOURCE-FILE "mersenne-twister-random" {401134C9}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/hmac.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFUN MAKE-BYTE-VECTOR ...)
; compiling (DEFUN STRING->BYTE-VECTOR ...)
; compiling (DEFUN BYTE-VECTOR->STRING ...)
; compiling (DEFPARAMETER +HEX-DIGITS+ ...)
; compiling (DEFUN BYTE-VECTOR->HEX-STRING ...)
; compiling (DEFUN HEX-STRING->BYTE-VECTOR ...)
; compiling (DEFUN HASH-START-PLACE-HOLDER ...)
; compiling (DEFUN HASH-UPDATE-PLACE-HOLDER ...)
; compiling (DEFUN HASH-FINISH-PLACE-HOLDER ...)
; compiling (DEFUN DO-HASH ...)
; compiling (DEFUN NORMALIZE-HMAC-KEY ...)
; compiling (DEFUN HMAC ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/hmac.fasl written
; compilation finished in 0:00:01
STYLE-WARNING: defining *MT-K2^32* as a constant, even though the name follows
the usual naming convention (names like *FOO*) for special variables
STYLE-WARNING:
defining *MT-K-INVERSE-2^32F* as a constant, even though the name follows
the usual naming convention (names like *FOO*) for special variables
STYLE-WARNING: defining *MT-N* as a constant, even though the name follows
the usual naming convention (names like *FOO*) for special variables
STYLE-WARNING: defining *MT-M* as a constant, even though the name follows
the usual naming convention (names like *FOO*) for special variables
STYLE-WARNING:
defining *MT-UPPER-MASK* as a constant, even though the name follows
the usual naming convention (names like *FOO*) for special variables
STYLE-WARNING:
defining *MT-LOWER-MASK* as a constant, even though the name follows
the usual naming convention (names like *FOO*) for special variables
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/crypto.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFUN ADD-ENTROPY-TO-DEV-RANDOM ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/crypto.lisp
; in: DEFUN ADD-ENTROPY-TO-DEV-RANDOM
; (WITH-OPEN-FILE
; (KPAX::OUT "/dev/random" :DIRECTION :OUTPUT :IF-EXISTS :APPEND)
; (DECLARE (IGNORE KPAX::OUT))
; T)
; --> WITH-OPEN-STREAM LET UNWIND-PROTECT FLET BLOCK WHEN COND IF
; ==>
; KPAX::OUT
;
; caught STYLE-WARNING:
; reading an ignored variable: OUT
; --> WITH-OPEN-STREAM LET UNWIND-PROTECT FLET BLOCK WHEN COND IF PROGN CLOSE
; ==>
; KPAX::OUT
;
; caught STYLE-WARNING:
; reading an ignored variable: OUT
; compiling (DEFUN GET-SECURE-RANDOM-SEED ...)
; compiling (DEFVAR *KPAX-RANDOM-STATE* ...)
; compiling (DEFUN SECURE-RANDOM ...)
; compiling (DEFUN SECURE-RANDOM-BYTES ...)
; compiling (DEFUN HMAC-MD5 ...)
; compiling (DEFUN HMAC-SHA1 ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/crypto.fasl written
; compilation finished in 0:00:00
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {400059A9}> on
#<CL-SOURCE-FILE "crypto" {400059B9}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/html-macro.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFVAR *PPRINT-HTML* ...)
; compiling (DEFVAR *HTML-PROLOGUE* ...)
; compiling (DEFMACRO HTML-PAGE ...)
; compiling (DEFMACRO HTML-PART ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/html-macro.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/html.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFUN GENERATE-LABEL ...)
; compiling (DEFUN GENERATE-TEXT-FIELD ...)
; compiling (DEFUN GENERATE-PASSWORD-FIELD ...)
; compiling (DEFUN GENERATE-HIDDEN-FIELD ...)
; compiling (DEFUN GENERATE-TEXT-AREA ...)
; compiling (DEFUN GENERATE-CHECKBOX ...)
; compiling (DEFUN GENERATE-RADIOBUTTON ...)
; compiling (DEFUN GENERATE-SELECT ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/html.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/globals.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFVAR *WEB-APPS* ...)
; compiling (DEFVAR *WEB-APP-SERVER* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/globals.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/constants.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (DEFPARAMETER *FAR-IN-THE-FUTURE* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/constants.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/attributes-mixin.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFCLASS ATTRIBUTES-MIXIN ...)
; compiling (DEFGENERIC GET-ATTRIBUTE ...)
; compiling (DEFGENERIC (SETF GET-ATTRIBUTE) ...)
; compiling (DEFGENERIC GET-ATTRIBUTES ...)
; compiling (DEFGENERIC CLEAR-ATTRIBUTES ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/attributes-mixin.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/session.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFCLASS SESSION ...)
; compiling (DEFGENERIC GET-SESSION-ID ...)
; compiling (DEFGENERIC GET-CREATED-TIMESTAMP ...)
; compiling (DEFGENERIC GET-LAST-MODIFIED-TIMESTAMP ...)
; compiling (DEFGENERIC TOUCH ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCONSTANT +DEFAULT-SESSION-LIFETIME+ ...)
; compiling (DEFCLASS SESSION-MANAGER ...)
; compiling (DEFGENERIC GET-SESSION-LIFETIME ...)
; compiling (DEFGENERIC GET-ALL-SESSIONS ...)
; compiling (DEFGENERIC GET-SESSION-COUNT ...)
; compiling (DEFGENERIC FIND-SESSION ...)
; compiling (DEFMETHOD GET-NEW-SESSION-ID ...)
; compiling (DEFMETHOD CREATE-NEW-SESSION ...)
; compiling (DEFCONSTANT +SESSION-REAPING-INTERVAL+ ...)
; compiling (DEFGENERIC REAP-OLD-SESSIONS ...)
; compiling (DEFGENERIC INVALIDATE-ALL-SESSIONS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/session.fasl written
; compilation finished in 0:00:02
STYLE-WARNING: redefining GET-SESSION-ID in DEFGENERIC
STYLE-WARNING: redefining GET-CREATED-TIMESTAMP in DEFGENERIC
STYLE-WARNING: redefining GET-LAST-MODIFIED-TIMESTAMP in DEFGENERIC
STYLE-WARNING: redefining GET-SESSION-LIFETIME in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function GET-NEW-SESSION-ID
STYLE-WARNING: implicitly creating new generic function CREATE-NEW-SESSION
STYLE-WARNING: implicitly creating new generic function APPENDM
STYLE-WARNING: implicitly creating new generic function FLUSH-LOG
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/server.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFCLASS WEB-APP-SERVER ...)
; compiling (DEFGENERIC GET-DYNAMIC-PREFIX ...)
; compiling (DEFGENERIC GET-STATIC-PREFIX ...)
; compiling (DEFGENERIC GET-HOSTNAME ...)
; compiling (DEFGENERIC GET-DISPATCHER ...)
; compiling (DEFGENERIC GET-STATE ...)
; compiling (DEFGENERIC GET-DEBUG-MODE ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD (SETF GET-DEBUG-MODE) ...)
; compiling (DEFGENERIC GET-DEBUG-STREAM ...)
; compiling (DEFGENERIC (SETF GET-DEBUG-STREAM) ...)
; compiling (DEFGENERIC GET-LOGSTREAM ...)
; compiling (DEFGENERIC (SETF GET-LOGSTREAM) ...)
; compiling (DEFGENERIC INIT ...)
; compiling (DEFGENERIC STARTUP ...)
; compiling (DEFGENERIC SHUTDOWN ...)
; compiling (DEFGENERIC PAUSE ...)
; compiling (DEFGENERIC START-WEB-APP-INTERNAL ...)
; compiling (DEFGENERIC STOP-WEB-APP-INTERNAL ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/server.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/request-response.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFCLASS REQUEST-RESPONSE ...)
; compiling (DEFGENERIC GET-APPLICATION ...)
; compiling (DEFGENERIC GET-SERVER ...)
; compiling (DEFGENERIC GET-SESSION ...)
; compiling (DEFGENERIC GET-REQUEST-STATE ...)
; compiling (DEFGENERIC GET-RESPONSE-STATE ...)
; compiling (DEFGENERIC GET-RESPONSE-STREAM ...)
; compiling (DEFGENERIC GET-CONTENT-STREAM ...)
; compiling (DEFGENERIC GET-RESPONSE-MIME-TYPE ...)
; compiling (DEFGENERIC GET-RESPONSE-STATUS ...)
; compiling (DEFGENERIC GET-URI-STRING ...)
; compiling (DEFGENERIC GET-URI ...)
; compiling (DEFGENERIC GET-REQUEST-STREAM ...)
; compiling (DEFGENERIC GET-REQUEST-BODY ...)
; compiling (DEFGENERIC GET-REQUEST-METHOD ...)
; compiling (DEFGENERIC GET-REQUEST-HEADER-VALUE ...)
; compiling (DEFGENERIC GET-REQUEST-HEADERS ...)
; compiling (DEFGENERIC GET-REQUEST-PARAMETER-VALUE ...)
; compiling (DEFGENERIC GET-REQUEST-PARAMETER-VALUES ...)
; compiling (DEFGENERIC GET-REQUEST-PARAMETERS ...)
; compiling (DEFGENERIC GET-REQUEST-IP-ADDRESS ...)
; compiling (DEFGENERIC GET-REQUEST-SUB-PATH ...)
; compiling (DEFGENERIC GET-RESPONSE-HEADER-VALUE ...)
; compiling (DEFGENERIC GET-RESPONSE-HEADER-VALUES ...)
; compiling (DEFGENERIC (SETF GET-RESPONSE-HEADER-VALUE) ...)
; compiling (DEFGENERIC ADD-RESPONSE-HEADER-VALUE ...)
; compiling (DEFGENERIC COMMIT-HEADERS ...)
; compiling (DEFGENERIC COMMIT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD RESET-RESPONSE ...)
; compiling (DEFGENERIC STATIC-URL ...)
; compiling (DEFUN WRITE-KEYWORD-VALUE-LIST ...)
; compiling (DEFGENERIC DYNAMIC-URL ...)
; compiling (DEFMETHOD LOGM ...)
; compiling (DEFGENERIC GET-COOKIE ...)
; compiling (DEFGENERIC SET-COOKIE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/request-response.fasl written
; compilation finished in 0:00:03
STYLE-WARNING: redefining GET-APPLICATION in DEFGENERIC
STYLE-WARNING: redefining GET-SERVER in DEFGENERIC
STYLE-WARNING: redefining GET-SESSION in DEFGENERIC
STYLE-WARNING: redefining GET-REQUEST-STATE in DEFGENERIC
STYLE-WARNING: redefining GET-RESPONSE-STATE in DEFGENERIC
STYLE-WARNING: redefining GET-RESPONSE-MIME-TYPE in DEFGENERIC
STYLE-WARNING: redefining GET-RESPONSE-STATUS in DEFGENERIC
STYLE-WARNING: redefining GET-REQUEST-SUB-PATH in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function RESET-RESPONSE
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/translator.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFCLASS TRANSLATOR ...)
; compiling (DEFMETHOD LOAD-TRANSLATIONS ...)
; compiling (DEFUN MAKE-TRANSLATOR ...)
; compiling (DEFUN TRANSLATE-INTEGER ...)
; compiling (DEFUN TRANSLATE-KEYWORD ...)
; compiling (DEFGENERIC TRANSLATE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/translator.fasl written
; compilation finished in 0:00:00
STYLE-WARNING: redefining GET-DYNAMIC-PREFIX in DEFGENERIC
STYLE-WARNING: redefining GET-STATIC-PREFIX in DEFGENERIC
STYLE-WARNING: redefining GET-HOSTNAME in DEFGENERIC
STYLE-WARNING: redefining GET-DISPATCHER in DEFGENERIC
STYLE-WARNING: redefining GET-STATE in DEFGENERIC
STYLE-WARNING: redefining GET-DEBUG-MODE in DEFGENERIC
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/web-app-in-server.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFCLASS WEB-APP-IN-SERVER ...)
; compiling (DEFGENERIC START ...)
; compiling (DEFGENERIC STOP ...)
; compiling (DEFGENERIC GET-COMPLETE-STATIC-PREFIX ...)
; compiling (DEFGENERIC GET-COMPLETE-DYNAMIC-PREFIX ...)
; compiling (DEFGENERIC GET-HOME-URL ...)
; compiling (DEFMETHOD RESET-CACHED-VALUES ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/web-app-in-server.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/session-tracking.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (DEFUN PARSE-SESSION-ID ...)
; compiling (DEFMETHOD PRINT-SESSION-ID ...)
; compiling (DEFMETHOD APPEND-SESSION-ID ...)
; compiling (DEFMETHOD GET-SESSION-ID ...)
; compiling (DEFMETHOD SET-SESSION-ID-PATH ...)
; compiling (DEFMETHOD SAVE-SESSION-ID ...)
; compiling (DEFMETHOD CHECK-AND-UPDATE-REQUEST-ID ...)
; compiling (DEFPARAMETER +REQUEST-SIGNATURE-HEADERS+ ...)
; compiling (DEFMETHOD STORE-REQUEST-SIGNATURE ...)
; compiling (DEFMETHOD VALIDATE-SESSION-SIGNATURE ...)
; compiling (DEFMETHOD BIND-SESSION ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/session-tracking.fasl written
; compilation finished in 0:00:01
STYLE-WARNING: implicitly creating new generic function RESET-CACHED-VALUES
STYLE-WARNING: implicitly creating new generic function PRINT-SESSION-ID
STYLE-WARNING: implicitly creating new generic function APPEND-SESSION-ID
STYLE-WARNING: implicitly creating new generic function SET-SESSION-ID-PATH
STYLE-WARNING: implicitly creating new generic function SAVE-SESSION-ID
STYLE-WARNING:
implicitly creating new generic function CHECK-AND-UPDATE-REQUEST-ID
STYLE-WARNING: implicitly creating new generic function STORE-REQUEST-SIGNATURE
STYLE-WARNING:
implicitly creating new generic function VALIDATE-SESSION-SIGNATURE
STYLE-WARNING: implicitly creating new generic function BIND-SESSION
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/web-app.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFCLASS WEB-APP ...)
; compiling (DEFGENERIC GET-INDEX ...)
; compiling (DEFGENERIC GET-NAME ...)
; compiling (DEFGENERIC GET-STATIC-ROOT ...)
; compiling (DEFMETHOD PROCESS-OPTION-LIST ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFGENERIC GET-OPTION ...)
; compiling (DEFMETHOD FIND-APPLICABLE-WEB-FUNCTION ...)
; compiling (DEFMETHOD AUTHORIZE ...)
; compiling (DEFUN STANDARD-LOGIN-HOOK ...)
; compiling (DEFUN LOGOUT ...)
; compiling (DEFUN NOTE-INCONSISTENT-REQUEST ...)
; compiling (DEFUN REPORT-INCONSISTENT-REQUEST ...)
; compiling (DEFUN HANDLE-INCONSISTENT-REQUEST ...)
; compiling (DEFUN REDIRECT-TO-SELF ...)
; compiling (DEFMETHOD HANDLE-REQUEST-RESPONSE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/web-app.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/dispatcher.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFCLASS DISPATCHER ...)
; compiling (DEFUN PATH-ELEMENTS ...)
; compiling (DEFUN FIND-WEB-APP-MATCHING ...)
; compiling (DEFUN STANDARD-MESSAGE-HOOK ...)
; compiling (DEFUN HTML-MESSAGE ...)
; compiling (DEFUN NOT-YET-IMPLEMENTED ...)
; compiling (DEFUN STANDARD-ERROR-HOOK ...)
; compiling (DEFUN SERVER-ERROR-PAGE ...)
; compiling (DEFGENERIC HANDLE-REQUEST-RESPONSE ...)
; compiling (DEFGENERIC FORWARD-REQUEST-RESPONSE ...)
; compiling (DEFUN FORWARD-TO ...)
; compiling (DEFUN REDIRECT-TO ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/dispatcher.fasl written
; compilation finished in 0:00:00
STYLE-WARNING: redefining GET-INDEX in DEFGENERIC
STYLE-WARNING: redefining GET-NAME in DEFGENERIC
STYLE-WARNING: redefining GET-STATIC-ROOT in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function PROCESS-OPTION-LIST
STYLE-WARNING:
implicitly creating new generic function FIND-APPLICABLE-WEB-FUNCTION
STYLE-WARNING: implicitly creating new generic function AUTHORIZE
STYLE-WARNING: implicitly creating new generic function HANDLE-REQUEST-RESPONSE
STYLE-WARNING: redefining HANDLE-REQUEST-RESPONSE in DEFGENERIC
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/debug.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFCLASS DEBUG-SERVER ...)
; compiling (DEFCLASS DEBUG-REQUEST-RESPONSE ...)
; compiling (DEFVAR *DEBUG-SERVER* ...)
; compiling (DEFMETHOD GET-REQUEST-HEADER-VALUE ...)
; compiling (DEFMETHOD GET-REQUEST-HEADERS ...)
; compiling (DEFMETHOD GET-REQUEST-PARAMETER-VALUE ...)
; compiling (DEFMETHOD GET-REQUEST-PARAMETER-VALUES ...)
; compiling (DEFMETHOD GET-REQUEST-PARAMETERS ...)
; compiling (DEFMETHOD GET-SESSION-ID ...)
; compiling (DEFMETHOD SET-SESSION-ID ...)
; compiling (DEFMETHOD COMMIT ...)
; compiling (DEFMETHOD SET-COOKIE ...)
; compiling (DEFMETHOD GET-COOKIE ...)
; compiling (DEFUN DEBUG-REQUEST ...)
; compiling (DEFUN CREATE-DEBUG-REQUEST-RESPONSE ...)
; compiling (DEFVAR *LAST-REQUEST-RESPONSE* ...)
; compiling (DEFVAR *BEFORE-LAST-REQUEST-RESPONSE* ...)
; compiling (DEFVAR *LAST-DEBUG-REQUEST* ...)
; compiling (DEFVAR *BEFORE-LAST-DEBUG-REQUEST* ...)
; compiling (DEFUN REGISTER-REQUEST-RESPONSE-FOR-DEBUGGING ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/debug.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/kpax.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFUN GET-WEB-APP ...)
; compiling (DEFUN MAP-WEB-APPS ...)
; compiling (DEFUN ENSURE-WEB-APP ...)
; compiling (DEFMACRO DEFWEBAPP ...)
; compiling (DEFUN START-WEB-APP ...)
; compiling (DEFUN STOP-WEB-APP ...)
; compiling (DEFUN RESTART-WEB-APP ...)
; compiling (DEFUN INIT-KPAX ...)
; compiling (DEFUN RUN-KPAX ...)
; compiling (DEFUN STOP-KPAX ...)
; compiling (DEFUN RESTART-KPAX ...)
; compiling (DEFUN DESTROY-KPAX ...)
; compiling (DEFUN PAUSE-KPAX ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/kpax.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/run.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFUN START-KPAX ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/run.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/multipart-form-encoding.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFUN PARSE-MULTIPART-HEADER ...)
; compiling (DEFUN READ-UNTIL-BOUNDARY ...)
; compiling (DEFVAR *TMP-FILES-LOCATION* ...)
; compiling (DEFVAR *TMP-FILES-COUNTER* ...)
; compiling (DEFVAR *TMP-FILE-LOCK* ...)
; compiling (DEFUN MAKE-TMP-FILE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/multipart-form-encoding.lisp
; in: DEFUN MAKE-TMP-FILE
; (WITH-OPEN-FILE
; (KPAX::OUT PATHNAME
; :DIRECTION
; :OUTPUT
; :IF-DOES-NOT-EXIST
; :CREATE
; :IF-EXISTS
; :ERROR)
; (DECLARE (IGNORE KPAX::OUT)))
; --> WITH-OPEN-STREAM LET UNWIND-PROTECT FLET BLOCK WHEN COND IF
; ==>
; KPAX::OUT
;
; caught STYLE-WARNING:
; reading an ignored variable: OUT
; --> WITH-OPEN-STREAM LET UNWIND-PROTECT FLET BLOCK WHEN COND IF PROGN CLOSE
; ==>
; KPAX::OUT
;
; caught STYLE-WARNING:
; reading an ignored variable: OUT
; compiling (DEFUN EXTRACT-MULTIPART-PARTS ...)
; compiling (DEFUN FIND-MULTIPART-HEADER-ATTRIBUTE ...)
; compiling (DEFUN FIND-MULTIPART-HEADER-NAMED ...)
; compiling (DEFUN FIND-MULTIPART-NAMED ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/multipart-form-encoding.fasl written
; compilation finished in 0:00:01
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40005869}> on
#<CL-SOURCE-FILE "multipart-form-encoding" {40005879}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/extensions.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE NIL))
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/extensions.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/options.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFCLASS OPTIONS ...)
; compiling (DEFMETHOD GET-OPTION ...)
; compiling (DEFUN MAKE-OPTIONS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/options.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/constraints.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFUN BUILTIN-VALIDATE-REQUIRED ...)
; compiling (DEFUN BUILTIN-VALIDATE-OPTIONAL ...)
; compiling (DEFUN BUILTIN-VALIDATE-BOOLEAN ...)
; compiling (DEFUN BUILTIN-VALIDATE-INTEGER-RANGE ...)
; compiling (DEFUN BUILTIN-VALIDATE-LIMITED-STRING ...)
; compiling (DEFUN RESOLVE-STATIC-VALUE ...)
; compiling (DEFUN BUILTIN-VALIDATE-LIST-ELEMENT ...)
; compiling (DEFUN BUILTIN-VALIDATE-LIST-ELEMENTS ...)
; compiling (DEFUN CALL-VALIDATOR ...)
; compiling (DEFUN MAKE-VALIDATOR ...)
; compiling (DEFUN MAKE-VALIDATOR-AND ...)
; compiling (DEFUN MAKE-VALIDATOR-OR ...)
; compiling (DEFUN MAKE-VALIDATOR-ALL ...)
; compiling (DEFUN RESOLVE-VALIDATOR-FUNCTION ...)
; compiling (DEFUN COMPILE-VALIDATOR-EXPRESSION ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/constraints.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/menubar.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFCLASS MENU-ITEM ...)
; compiling (DEFGENERIC GET-ID ...)
; compiling (DEFGENERIC GET-ACTION ...)
; compiling (DEFGENERIC GET-ACTUAL-LABEL ...)
; compiling (DEFCLASS MENU ...)
; compiling (DEFGENERIC GET-ITEMS ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN MAKE-MENU ...)
; compiling (DEFUN PRINT-MENU ...)
; compiling (DEFUN FIND-MENU-ITEM ...)
; compiling (DEFUN FIND-TOP-MENU ...)
; compiling (DEFUN GET-MENU-ITEM-PATH ...)
; compiling (DEFPARAMETER *DEFAULT-MENUBAR-RENDER-OPTIONS* ...)
; compiling (DEFUN MAKE-MENUBAR-RENDER-OPTIONS ...)
; compiling (DEFUN STANDARD-MENU-ITEM-RENDERER ...)
; compiling (DEFMETHOD GET-ACTUAL-LABEL ...)
; compiling (DEFMETHOD RENDER-MENU ...)
; compiling (DEFMETHOD RENDER-MENU ...)
; compiling (DEFUN RENDER-MENUBAR ...)
; compiling (DEFUN RENDER-TABS ...)
; compiling (DEFPARAMETER *MENUBAR-IE-JS-CODE* ...)
; compiling (DEFUN RENDER-MENUBAR-IE-JS-CODE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/menubar.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/data-set-view.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFGENERIC DATA-SET-LENGTH ...)
; compiling (DEFGENERIC DATA-SET-ELT ...)
; compiling (DEFCLASS DATA-SET-COLUMN ...)
; compiling (DEFCLASS DATA-SET-VIEW ...)
; compiling (DEFGENERIC GET-DATA-SET ...)
; compiling (DEFUN STANDARD-DATA-RENDERER ...)
; compiling (DEFUN ENSURE-PERMUTATIONS ...)
; compiling (DEFMETHOD (SETF GET-DATA-SET) ...)
; compiling (DEFUN SORT-DATA-SET-VIEW ...)
; compiling (DEFMETHOD GET-ACTUAL-LABEL ...)
; compiling (DEFUN STANDARD-DATA-SET-VIEW-RENDERER ...)
; compiling (DEFPARAMETER *DEFAULT-DATA-SET-RENDER-OPTIONS* ...)
; compiling (DEFMETHOD RENDER ...)
; compiling (DEFUN MAKE-DATA-SET-COLUMN ...)
; compiling (DEFUN MAKE-DATA-SET-VIEW ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/data-set-view.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/web-form.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFCLASS WEB-FORM-DEFINITION ...)
; compiling (DEFCLASS WEB-FORM-FIELD-DEFINITION ...)
; compiling (DEFCLASS WEB-FORM-GROUP-DEFINITION ...)
; compiling (DEFCLASS WEB-FORM ...)
; compiling (DEFCLASS WEB-FORM-FIELD ...)
; compiling (DEFCLASS WEB-FORM-GROUP ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN PROCESS-FIELD-SPECS ...)
; compiling (DEFMETHOD PROCESS-OPTIONS ...)
; compiling (DEFVAR *WEB-FORM-DEFINITIONS* ...)
; compiling (DEFUN GET-WEB-FORM-DEFINITION ...)
; compiling (DEFUN ENSURE-WEB-FORM-DEFINITION ...)
; compiling (DEFMACRO DEFWEBFORM ...)
; compiling (DEFPARAMETER *WEB-FORM-ID* ...)
; compiling (DEFMETHOD INSTANCIATE-WEB-FORM-INTERNAL ...)
; compiling (DEFMETHOD INSTANCIATE-WEB-FORM-INTERNAL ...)
; compiling (DEFMETHOD INSTANCIATE-WEB-FORM-INTERNAL ...)
; compiling (DEFUN INSTANCIATE-WEB-FORM ...)
; compiling (DEFMETHOD GET-VALUE-FIELDS ...)
; compiling (DEFMETHOD GET-VALUE-FIELDS ...)
; compiling (DEFMETHOD GET-VALUE-FIELDS ...)
; compiling (DEFMETHOD GET-FIELD ...)
; compiling (DEFMETHOD GET-VALUE-FIELD ...)
; compiling (DEFGENERIC GET-VALUE-FIELD ...)
; compiling (DEFGENERIC FIELD-VALUE ...)
; compiling (DEFMETHOD FIELD-VALUE ...)
; compiling (DEFMETHOD (SETF FIELD-VALUE) ...)
; compiling (DEFGENERIC GET-TITLE ...)
; compiling (DEFMETHOD GET-TITLE ...)
; compiling (DEFMETHOD (SETF GET-TITLE) ...)
; compiling (DEFMETHOD GET-SUBMIT-FUNCTION ...)
; compiling (DEFGENERIC GET-SUBMIT-TEXT ...)
; compiling (DEFMETHOD GET-SUBMIT-TEXT ...)
; compiling (DEFMETHOD (SETF GET-SUBMIT-TEXT) ...)
; compiling (DEFMETHOD GET-LABEL ...)
; compiling (DEFMETHOD GET-TYPE ...)
; compiling (DEFMETHOD GET-NAME ...)
; compiling (DEFMETHOD GET-COMMENTS ...)
; compiling (DEFMETHOD GET-VALIDATOR ...)
; compiling (DEFMETHOD GET-FORMATTER ...)
; compiling (DEFMETHOD GET-PARSER ...)
; compiling (DEFMETHOD GET-VALIDATOR ...)
; compiling (DEFMETHOD GET-FORMATTED-VALUE ...)
; compiling (DEFMETHOD GET-OPTION ...)
; compiling (DEFMETHOD (SETF GET-OPTION) ...)
; compiling (DEFMETHOD GET-OPTION ...)
; compiling (DEFPARAMETER *DEFAULT-WEB-FORM-RENDER-OPTIONS* ...)
; compiling (DEFUN MAKE-WEB-FORM-RENDER-OPTIONS ...)
; compiling (DEFMETHOD GET-ACTUAL-LABEL ...)
; compiling (DEFUN RENDER-FORM-INTRO ...)
; compiling (DEFUN RENDER-FORM-COMMENTS ...)
; compiling (DEFUN RENDER-FORM-ERROR-MESSAGES ...)
; compiling (DEFUN RENDER-ERROR-MESSAGES ...)
; compiling (DEFUN RENDER-COMMENTS ...)
; compiling (DEFUN STANDARD-WEB-FORM-RENDERER ...)
; compiling (DEFGENERIC STANDARD-WEB-FORM-ELEMENT-RENDERER ...)
; compiling (DEFMETHOD STANDARD-WEB-FORM-ELEMENT-RENDERER ...)
; compiling (DEFMETHOD STANDARD-WEB-FORM-ELEMENT-RENDERER ...)
; compiling (DEFUN RENDER-REQUIRED-INDICATION ...)
; compiling (DEFUN RENDER-TEXT-ELEMENT ...)
; compiling (DEFUN RENDER-CHOICE-ELEMENT ...)
; compiling (DEFGENERIC RENDER ...)
; compiling (DEFMETHOD RENDER ...)
; compiling (DEFGENERIC VALIDATE ...)
; compiling (DEFMETHOD VALIDATE ...)
; compiling (DEFMETHOD VALIDATE ...)
; compiling (DEFMETHOD RESET-VALUES ...)
; compiling (DEFUN RECONSTRUCT-WEB-FORM ...)
; compiling (DEFUN COPY-SLOTS-FORM->OBJECT ...)
; compiling (DEFUN COPY-SLOTS-OBJECT->FORM ...)
; compiling (DEFUN PARSE-BOOLEAN ...)
; compiling (DEFUN PARSE-SYMBOL ...)
; compiling (DEFUN PARSE-KEYWORD ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/web-form.fasl written
; compilation finished in 0:00:06
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/package-kpax-user.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPACKAGE :KPAX-USER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/package-kpax-user.fasl written
; compilation finished in 0:00:00
STYLE-WARNING:
implicitly creating new generic function (SETF GET-LOCALIZED-STRING)
STYLE-WARNING: implicitly creating new generic function RESET
STYLE-WARNING: implicitly creating new generic function LOAD-LOCALIZED-STRINGS
STYLE-WARNING: implicitly creating new generic function DUMP-ALIST
STYLE-WARNING: implicitly creating new generic function DUMP-MULTI-ALIST
STYLE-WARNING:
implicitly creating new generic function LOAD-MULTI-LOCALIZED-STRINGS
STYLE-WARNING: implicitly creating new generic function LOAD-TRANSLATIONS
STYLE-WARNING: implicitly creating new generic function SET-SESSION-ID
STYLE-WARNING: redefining GET-ID in DEFGENERIC
STYLE-WARNING: redefining GET-ACTION in DEFGENERIC
STYLE-WARNING: redefining GET-ITEMS in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function RENDER-MENU
STYLE-WARNING: redefining GET-DATA-SET in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function RENDER
STYLE-WARNING: implicitly creating new generic function PROCESS-OPTIONS
STYLE-WARNING:
implicitly creating new generic function INSTANCIATE-WEB-FORM-INTERNAL
STYLE-WARNING: implicitly creating new generic function GET-VALUE-FIELDS
STYLE-WARNING: implicitly creating new generic function GET-FIELD
STYLE-WARNING: implicitly creating new generic function GET-VALUE-FIELD
STYLE-WARNING: redefining GET-VALUE-FIELD in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function (SETF FIELD-VALUE)
STYLE-WARNING: redefining GET-TITLE in DEFGENERIC
STYLE-WARNING: redefining GET-SUBMIT-TEXT in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function GET-FORMATTED-VALUE
STYLE-WARNING: implicitly creating new generic function (SETF GET-OPTION)
STYLE-WARNING: redefining RENDER in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function RESET-VALUES
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/s-http-server.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFCLASS S-HTTP-SERVER ...)
; compiling (DEFGENERIC GET-S-HTTP-SERVER ...)
; compiling (DEFCLASS S-HTTP-SERVER-REQUEST-RESPONSE ...)
; compiling (DEFMETHOD INIT ...)
; compiling (DEFMETHOD STARTUP ...)
; compiling (DEFMETHOD SHUTDOWN ...)
; compiling (DEFMETHOD GET-URI ...)
; compiling (DEFMETHOD GET-URI-STRING ...)
; compiling (DEFMETHOD GET-REQUEST-METHOD ...)
; compiling (DEFMETHOD GET-REQUEST-IP-ADDRESS ...)
; compiling (DEFMETHOD GET-REQUEST-HEADER-VALUE ...)
; compiling (DEFMETHOD GET-REQUEST-HEADERS ...)
; compiling (DEFMETHOD GET-REQUEST-PARAMETER-VALUE ...)
; compiling (DEFMETHOD GET-REQUEST-PARAMETER-VALUES ...)
; compiling (DEFMETHOD GET-REQUEST-PARAMETERS ...)
; compiling (DEFMETHOD GET-REQUEST-STREAM ...)
; compiling (DEFMETHOD GET-REQUEST-BODY ...)
; compiling (DEFMETHOD GET-RESPONSE-STREAM ...)
; compiling (DEFMETHOD GET-COOKIE ...)
; compiling (DEFMETHOD SET-COOKIE ...)
; compiling (DEFMETHOD START-WEB-APP-INTERNAL ...)
; compiling (DEFMETHOD STOP-WEB-APP-INTERNAL ...)
; compiling (DEFMETHOD COMMIT-HEADERS ...)
; compiling (DEFMETHOD COMMIT ...)
; compiling (DEFUN PARSE-QUERY-STRING ...)
; compiling (DEFMETHOD PARSE-PARAMETERS ...)
; compiling (DEFUN RESPONSE-STATUS-TO-S-HTTP-SERVER-STATUS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/s-http-server.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/mod-lisp.lisp" (written 12 APR 2006 10:43:42 AM):
; compiling (IN-PACKAGE :KPAX)
; compiling (EXPORT (QUOTE #))
; compiling (DEFCLASS MOD-LISP-SERVER ...)
; compiling (DEFCLASS MOD-LISP-REQUEST-RESPONSE ...)
; compiling (DEFMETHOD INIT ...)
; compiling (DEFVAR *RESTRICT-MOD-LISP-CONNECTIONS-TO-LOCALHOST* ...)
; compiling (DEFUN REMOTE-HOST-IS-LOCALHOST-P ...)
; compiling (DEFMETHOD STARTUP ...)
; compiling (DEFUN GET-REQUEST-RESPONSE ...)
; compiling (DEFMETHOD HANDLE-CONNECTION ...)
; compiling (DEFMETHOD SHUTDOWN ...)
; compiling (DEFMETHOD GET-REQUEST-HEADER-VALUE ...)
; compiling (DEFMETHOD GET-REQUEST-HEADERS ...)
; compiling (DEFMETHOD GET-URI-STRING ...)
; compiling (DEFMETHOD GET-URI ...)
; compiling (DEFUN WRITE-HEADER-LINE ...)
; compiling (DEFUN RESPONSE-STATUS-TO-MOD-LISP-STATUS ...)
; compiling (DEFMETHOD COMMIT-HEADERS ...)
; compiling (DEFMETHOD COMMIT ...)
; compiling (DEFUN PARSE-QUERY ...)
; compiling (DEFMETHOD PARSE-PARAMETERS ...)
; compiling (DEFMETHOD GET-REQUEST-PARAMETER-VALUE ...)
; compiling (DEFMETHOD GET-REQUEST-PARAMETER-VALUES ...)
; compiling (DEFMETHOD GET-REQUEST-PARAMETERS ...)
; compiling (DEFMETHOD GET-REQUEST-METHOD ...)
; compiling (DEFMETHOD GET-REQUEST-IP-ADDRESS ...)
; compiling (DEFMETHOD GET-REQUEST-STREAM ...)
; compiling (DEFMETHOD GET-REQUEST-BODY ...)
; compiling (DEFMETHOD GET-RESPONSE-STREAM ...)
; compiling (DEFMETHOD GET-COOKIE ...)
; compiling (DEFMETHOD SET-COOKIE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kpax/src/mod-lisp.fasl written
; compilation finished in 0:00:04
STYLE-WARNING: implicitly creating new generic function HANDLE-CONNECTION
STYLE-WARNING: implicitly creating new generic function PARSE-PARAMETERS
STYLE-WARNING: redefining GET-S-HTTP-SERVER in DEFGENERIC
;
; compilation unit finished
; caught 12 STYLE-WARNING conditions
; printed 387 notes