REPL Output
;;; ASDF-INSTALL: Downloading 19027 bytes from http://www.findinglisp.com/packages/resolver/resolver-latest.tar.gz to /Users/gwking/temporary/asdf-test/RESOLVER.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/RESOLVER.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/
resolver-0.7/
resolver-0.7/packages.lisp
resolver-0.7/load-lib.lisp
resolver-0.7/resolver.lisp
resolver-0.7/COPYING
resolver-0.7/README
resolver-0.7/DOCS
resolver-0.7/ChangeLog
resolver-0.7/resolver.asd
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/resolver-0.7/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/resolver-0.7/" ;;; ASDF-INSTALL: Downloading package UFFI, required by resolver
;;; ASDF-INSTALL: Downloading 143829 bytes from http://files.b9.com/uffi/uffi-latest.tar.gz to /Users/gwking/temporary/asdf-test/uffi.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/uffi.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/
uffi-1.5.9/
uffi-1.5.9/LICENSE
uffi-1.5.9/ChangeLog
uffi-1.5.9/AUTHORS
uffi-1.5.9/src/
uffi-1.5.9/src/corman/
uffi-1.5.9/src/corman/corman-notes.txt
uffi-1.5.9/src/corman/getenv-ccl.lisp
uffi-1.5.9/src/readmacros-mcl.lisp
uffi-1.5.9/src/aggregates.lisp
uffi-1.5.9/src/objects.lisp
uffi-1.5.9/src/primitives.lisp
uffi-1.5.9/src/strings.lisp
uffi-1.5.9/src/package.lisp
uffi-1.5.9/src/libraries.lisp
uffi-1.5.9/src/os.lisp
uffi-1.5.9/src/Makefile
uffi-1.5.9/src/functions.lisp
uffi-1.5.9/src/objects.lisp.rej
uffi-1.5.9/tests/
uffi-1.5.9/tests/Makefile.msvc
uffi-1.5.9/tests/casts.lisp
uffi-1.5.9/tests/atoifl.lisp
uffi-1.5.9/tests/uffi-c-test-lib.lisp
uffi-1.5.9/tests/gethostname.lisp
uffi-1.5.9/tests/foreign-var.lisp
uffi-1.5.9/tests/make.sh
uffi-1.5.9/tests/rt.lisp
uffi-1.5.9/tests/strtol.lisp
uffi-1.5.9/tests/getenv.lisp
uffi-1.5.9/tests/union.lisp
uffi-1.5.9/tests/compress.lisp
uffi-1.5.9/tests/package.lisp
uffi-1.5.9/tests/structs.lisp
uffi-1.5.9/tests/foreign-loader.lisp
uffi-1.5.9/tests/time.lisp
uffi-1.5.9/tests/arrays.lisp
uffi-1.5.9/tests/uffi-c-test.c
uffi-1.5.9/tests/Makefile
uffi-1.5.9/tests/objects.lisp
uffi-1.5.9/README
uffi-1.5.9/uffi.asd
uffi-1.5.9/doc/
uffi-1.5.9/doc/catalog-darwin.xml
uffi-1.5.9/doc/ref_aggregate.xml
uffi-1.5.9/doc/schemas.xml
uffi-1.5.9/doc/COPYING.GFDL
uffi-1.5.9/doc/catalog-suse.xml
uffi-1.5.9/doc/notes.xml
uffi-1.5.9/doc/uffi.xml
uffi-1.5.9/doc/catalog-debian.xml
uffi-1.5.9/doc/xinclude.mod
uffi-1.5.9/doc/ref_declare.xml
uffi-1.5.9/doc/intro.xml
uffi-1.5.9/doc/entities.inc
uffi-1.5.9/doc/ref_func_libr.xml
uffi-1.5.9/doc/catalog-suse90.xml
uffi-1.5.9/doc/ref_object.xml
uffi-1.5.9/doc/uffi.pdf
uffi-1.5.9/doc/ref_string.xml
uffi-1.5.9/doc/html_chunk.xsl
uffi-1.5.9/doc/glossary.xml
uffi-1.5.9/doc/ref_primitive.xml
uffi-1.5.9/doc/preface.xml
uffi-1.5.9/doc/bookinfo.xml
uffi-1.5.9/doc/appendix.xml
uffi-1.5.9/doc/html.tar.gz
uffi-1.5.9/doc/fo.xsl
uffi-1.5.9/doc/html.xsl
uffi-1.5.9/doc/Makefile
uffi-1.5.9/doc/catalog-mandrake.xml
uffi-1.5.9/doc/catalog-suse91.xml
uffi-1.5.9/uffi-tests.asd
uffi-1.5.9/INSTALL
uffi-1.5.9/TODO
uffi-1.5.9/Makefile.common
uffi-1.5.9/Makefile
uffi-1.5.9/NEWS
uffi-1.5.9/benchmarks/
uffi-1.5.9/benchmarks/allocation.lisp
uffi-1.5.9/benchmarks/Makefile
uffi-1.5.9/examples/
uffi-1.5.9/examples/run-examples.lisp
uffi-1.5.9/examples/gethostname.lisp
uffi-1.5.9/examples/Makefile.msvc
uffi-1.5.9/examples/atoifl.lisp
uffi-1.5.9/examples/test-examples.lisp
uffi-1.5.9/examples/c-test-fns.lisp
uffi-1.5.9/examples/strtol.lisp
uffi-1.5.9/examples/Makefile
uffi-1.5.9/examples/acl-compat-tester.lisp
uffi-1.5.9/examples/getenv.lisp
uffi-1.5.9/examples/union.lisp
uffi-1.5.9/examples/getshells.lisp
uffi-1.5.9/examples/compress.lisp
uffi-1.5.9/examples/gettime.lisp
uffi-1.5.9/examples/c-test-fns.c
uffi-1.5.9/examples/arrays.lisp
uffi-1.5.9/examples/file-socket.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/package.lisp" (written 14 NOV 2005 09:39:19 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (DEFPACKAGE #:UFFI ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/primitives.lisp" (written 05 JUL 2005 08:35:14 PM):
; compiling (IN-PACKAGE #:UFFI)
; compiling (DEFMACRO DEF-CONSTANT ...)
; compiling (DEFMACRO DEF-TYPE ...)
; compiling (DEFMACRO NULL-CHAR-P ...)
; compiling (DEFMACRO DEF-FOREIGN-TYPE ...)
; compiling (DEFVAR +TYPE-CONVERSION-HASH+ ...)
; compiling (DEFVAR *CMU-DEF-TYPE-HASH* ...)
; compiling (DEFVAR *CMU-SBCL-DEF-TYPE-LIST* ...)
; compiling (DEFVAR *TYPE-CONVERSION-LIST* ...)
; compiling (SETQ *TYPE-CONVERSION-LIST* ...)
; compiling (DOLIST (TYPE *TYPE-CONVERSION-LIST*) ...)
; compiling (DOLIST (TYPE *CMU-SBCL-DEF-TYPE-LIST*) ...)
; compiling (DEFUN BASIC-CONVERT-FROM-UFFI-TYPE ...)
; compiling (DEFUN %CONVERT-FROM-UFFI-TYPE ...)
; compiling (DEFUN CONVERT-FROM-UFFI-TYPE ...)
; compiling (WHEN (CHAR= #\a ...) ...); in: LAMBDA NIL
; (PUSHNEW :UFFI-LOWERCASE-READER *FEATURES*)
; --> LET* ADJOIN
; ==>
; *FEATURES*
;
; note: deleting unreachable code
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/primitives.lisp
; in: EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
; (PUSHNEW :UFFI-LOWERCASE-READER *FEATURES*)
; --> LET* ADJOIN
; ==>
; *FEATURES*
;
; note: deleting unreachable code
; compiling (WHEN (NOT #) ...); in: LAMBDA NIL
; (PUSHNEW :UFFI-CASE-SENSITIVE *FEATURES*)
; --> LET* ADJOIN
; ==>
; *FEATURES*
;
; note: deleting unreachable code
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/primitives.lisp
; in: EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
; (PUSHNEW :UFFI-CASE-SENSITIVE *FEATURES*)
; --> LET* ADJOIN
; ==>
; *FEATURES*
;
; note: deleting unreachable code
; compiling (DEFUN MAKE-LISP-NAME ...)
; compiling (SETQ *FEATURES* ...)
; compiling (SETQ *FEATURES* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/primitives.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/objects.lisp" (written 18 SEP 2005 03:23:45 AM):
; compiling (IN-PACKAGE #:UFFI)
; compiling (DEFUN SIZE-OF-FOREIGN-TYPE ...)
; compiling (DEFMACRO ALLOCATE-FOREIGN-OBJECT ...)
; compiling (DEFMACRO FREE-FOREIGN-OBJECT ...)
; compiling (DEFMACRO NULL-POINTER-P ...)
; compiling (DEFMACRO MAKE-NULL-POINTER ...)
; compiling (DEFMACRO MAKE-POINTER ...)
; compiling (DEFMACRO CHAR-ARRAY-TO-POINTER ...)
; compiling (DEFMACRO DEREF-POINTER ...)
; compiling (DEFMACRO ENSURE-CHAR-CHARACTER ...)
; compiling (DEFMACRO ENSURE-CHAR-INTEGER ...)
; compiling (DEFMACRO ENSURE-CHAR-STORABLE ...)
; compiling (DEFMACRO POINTER-ADDRESS ...)
; compiling (DEFMACRO WITH-FOREIGN-OBJECT ...)
; compiling (DEFMACRO WITH-FOREIGN-OBJECTS ...)
; compiling (DEFMACRO WITH-CAST-POINTER ...)
; compiling (DEFMACRO DEF-FOREIGN-VAR ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/objects.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/aggregates.lisp" (written 05 JUL 2005 08:35:14 PM):
; compiling (IN-PACKAGE #:UFFI)
; compiling (DEFMACRO DEF-ENUM ...)
; compiling (DEFMACRO DEF-ARRAY-POINTER ...)
; compiling (DEFUN PROCESS-STRUCT-FIELDS ...)
; compiling (DEFMACRO DEF-STRUCT ...)
; compiling (DEFMACRO GET-SLOT-VALUE ...)
; compiling (DEFMACRO GET-SLOT-POINTER ...)
; compiling (DEFMACRO DEREF-ARRAY ...)
; compiling (DEFMACRO DEF-UNION ...)
; compiling (SB-EXT:WITHOUT-PACKAGE-LOCKS (DEFVAR *SYSTEM-COPY-FN* ...) ...)
; compiling (DEFUN CONVERT-FROM-FOREIGN-USB8 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/aggregates.lisp
; in: DEFUN CONVERT-FROM-FOREIGN-USB8
; (MAKE-ARRAY UFFI::LEN :ELEMENT-TYPE '(UNSIGNED-BYTE 8))
;
; 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.
; (FUNCALL UFFI::*SYSTEM-COPY-FN*
; UFFI::SAP
; 0
; UFFI::RESULT
; UFFI::+SYSTEM-COPY-OFFSET+
; (* UFFI::LEN UFFI::+SYSTEM-COPY-MULTIPLIER+))
; --> 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.
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/aggregates.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/functions.lisp" (written 05 JUL 2005 08:35:14 PM):
; compiling (IN-PACKAGE #:UFFI)
; compiling (DEFUN PROCESS-FUNCTION-ARGS ...)
; compiling (DEFUN PROCESS-ONE-FUNCTION-ARG ...)
; compiling (DEFUN ALLEGRO-CONVERT-RETURN-TYPE ...)
; compiling (DEFUN FUNCALLABLE-LAMBDA-LIST ...)
; compiling (DEFUN CONVERT-LISPWORKS-ARGS ...)
; compiling (DEFUN PREPROCESS-NAMES ...)
; compiling (DEFUN PREPROCESS-ARGS ...)
; compiling (DEFMACRO DEF-FUNCTION ...); in: LAMBDA NIL
; (MULTIPLE-VALUE-BIND
; (UFFI::LISP-ARGS UFFI::OUT UFFI::PROCESSED)
; (UFFI::PREPROCESS-ARGS UFFI::ARGS)
; (IF (= (LENGTH UFFI::OUT) 0)
; `(UFFI::%DEF-FUNCTION ,UFFI::NAMES
; ,UFFI::ARGS
; ,@(IF UFFI::MODULE
; (LIST :MODULE UFFI::MODULE)
; (VALUES))
; ,@(IF UFFI::RETURNING
; (LIST :RETURNING UFFI::RETURNING)
; (VALUES)))
; `(UFFI::%DEF-FUNCTION ,UFFI::NAMES
; ,UFFI::ARGS
; ,@(IF UFFI::RETURNING
; (LIST :RETURNING UFFI::RETURNING)
; (VALUES)))))
; --> MULTIPLE-VALUE-CALL
; ==>
; #'(LAMBDA
; (&OPTIONAL (UFFI::LISP-ARGS) (UFFI::OUT) (UFFI::PROCESSED) &REST #:G3)
; (DECLARE (IGNORE #:G3))
; (IF (= (LENGTH UFFI::OUT) 0)
; `(UFFI::%DEF-FUNCTION ,UFFI::NAMES
; ,UFFI::ARGS
; ,@(IF UFFI::MODULE
; (LIST :MODULE UFFI::MODULE)
; (VALUES))
; ,@(IF UFFI::RETURNING
; (LIST :RETURNING UFFI::RETURNING)
; (VALUES)))
; `(UFFI::%DEF-FUNCTION ,UFFI::NAMES
; ,UFFI::ARGS
; ,@(IF UFFI::RETURNING
; (LIST :RETURNING UFFI::RETURNING)
; (VALUES)))))
;
; caught STYLE-WARNING:
; The variable LISP-ARGS is defined but never used.
;
; caught STYLE-WARNING:
; The variable PROCESSED is defined but never used.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/functions.lisp
; in: DEFMACRO DEF-FUNCTION
; (MULTIPLE-VALUE-BIND
; (UFFI::LISP-ARGS UFFI::OUT UFFI::PROCESSED)
; (UFFI::PREPROCESS-ARGS UFFI::ARGS)
; (IF (= (LENGTH UFFI::OUT) 0)
; `(UFFI::%DEF-FUNCTION ,UFFI::NAMES
; ,UFFI::ARGS
; ,@(IF UFFI::MODULE
; (LIST :MODULE UFFI::MODULE)
; (VALUES))
; ,@(IF UFFI::RETURNING
; (LIST :RETURNING UFFI::RETURNING)
; (VALUES)))
; `(UFFI::%DEF-FUNCTION ,UFFI::NAMES
; ,UFFI::ARGS
; ,@(IF UFFI::RETURNING
; (LIST :RETURNING UFFI::RETURNING)
; (VALUES)))))
; --> MULTIPLE-VALUE-CALL
; ==>
; #'(LAMBDA
; (&OPTIONAL (UFFI::LISP-ARGS) (UFFI::OUT) (UFFI::PROCESSED) &REST #:G57)
; (DECLARE (IGNORE #:G57))
; (IF (= (LENGTH UFFI::OUT) 0)
; `(UFFI::%DEF-FUNCTION ,UFFI::NAMES
; ,UFFI::ARGS
; ,@(IF UFFI::MODULE
; (LIST :MODULE UFFI::MODULE)
; (VALUES))
; ,@(IF UFFI::RETURNING
; (LIST :RETURNING UFFI::RETURNING)
; (VALUES)))
; `(UFFI::%DEF-FUNCTION ,UFFI::NAMES
; ,UFFI::ARGS
; ,@(IF UFFI::RETURNING
; (LIST :RETURNING UFFI::RETURNING)
; (VALUES)))))
;
; caught STYLE-WARNING:
; The variable LISP-ARGS is defined but never used.
;
; caught STYLE-WARNING:
; The variable PROCESSED is defined but never used.
; compiling (DEFMACRO %DEF-FUNCTION ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/functions.fasl written
; compilation finished in 0:00:01
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {10007F71}> on
#<CL-SOURCE-FILE "functions" {10007F81}>.
STYLE-WARNING: redefining SIZE-OF-FOREIGN-TYPE in DEFUN
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/strings.lisp" (written 14 NOV 2005 09:40:18 PM):
; compiling (IN-PACKAGE #:UFFI)
; compiling (DEFVAR +NULL-CSTRING-POINTER+ ...)
; compiling (DEFMACRO CONVERT-FROM-CSTRING ...)
; compiling (DEFMACRO CONVERT-TO-CSTRING ...)
; compiling (DEFMACRO FREE-CSTRING ...)
; compiling (DEFMACRO WITH-CSTRING ...)
; compiling (DEFMACRO WITH-CSTRINGS ...)
; compiling (DEFMACRO CONVERT-TO-FOREIGN-STRING ...)
; compiling (DEFMACRO CONVERT-FROM-FOREIGN-STRING ...); in: LAMBDA NIL
; (LET* ((UFFI::OBJ (CAR (CDR #:WHOLE40)))
; (LENGTH
; (IF (SB-KERNEL::KEYWORD-SUPPLIED-P :LENGTH #:KEYWORDS-42)
; (SB-KERNEL::LOOKUP-KEYWORD :LENGTH #:KEYWORDS-42)
; NIL))
; (UFFI::LOCALE
; (IF #:SUPPLIEDP-43
; (SB-KERNEL::LOOKUP-KEYWORD ':LOCALE #:KEYWORDS-42)
; :DEFAULT))
; (UFFI::NULL-TERMINATED-P
; (IF #:SUPPLIEDP-44
; (SB-KERNEL::LOOKUP-KEYWORD ':NULL-TERMINATED-P #:KEYWORDS-42)
; T)))
; (BLOCK UFFI:CONVERT-FROM-FOREIGN-STRING
; (LET ((UFFI::STORED-OBJ #))
; `(LET (#)
; (IF # ,NIL #)))))
;
; caught STYLE-WARNING:
; The variable LOCALE is defined but never used.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/strings.lisp
; in: DEFMACRO CONVERT-FROM-FOREIGN-STRING
; (DEFMACRO UFFI:CONVERT-FROM-FOREIGN-STRING
; (UFFI::OBJ
; &KEY LENGTH (UFFI::LOCALE :DEFAULT) (UFFI::NULL-TERMINATED-P T))
; (LET ((UFFI::STORED-OBJ (GENSYM)))
; `(LET ((,UFFI::STORED-OBJ ,UFFI::OBJ))
; (IF (UFFI:NULL-POINTER-P ,UFFI::STORED-OBJ)
; ,NIL
; (UFFI::SBCL-NATURALIZE-CSTRING #
; :LENGTH
; ,LENGTH
; :NULL-TERMINATED-P
; ,UFFI::NULL-TERMINATED-P)))))
; --> EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO FUNCTION LET*
; ==>
; (LET* ((UFFI::OBJ (CAR (CDR #:WHOLE40)))
; (LENGTH
; (IF (SB-KERNEL::KEYWORD-SUPPLIED-P :LENGTH #:KEYWORDS-42)
; (SB-KERNEL::LOOKUP-KEYWORD :LENGTH #:KEYWORDS-42)
; NIL))
; (UFFI::LOCALE
; (IF #:SUPPLIEDP-43
; (SB-KERNEL::LOOKUP-KEYWORD ':LOCALE #:KEYWORDS-42)
; :DEFAULT))
; (UFFI::NULL-TERMINATED-P
; (IF #:SUPPLIEDP-44
; (SB-KERNEL::LOOKUP-KEYWORD ':NULL-TERMINATED-P #:KEYWORDS-42)
; T)))
; (BLOCK UFFI:CONVERT-FROM-FOREIGN-STRING
; (LET ((UFFI::STORED-OBJ #))
; `(LET (#)
; (IF # ,NIL #)))))
;
; caught STYLE-WARNING:
; The variable LOCALE is defined but never used.
; compiling (DEFMACRO ALLOCATE-FOREIGN-STRING ...)
; compiling (DEFUN FOREIGN-STRING-LENGTH ...)
; compiling (DEFMACRO WITH-FOREIGN-STRING ...)
; compiling (DEFMACRO WITH-FOREIGN-STRINGS ...)
; compiling (DEFUN SBCL-NATURALIZE-CSTRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/strings.lisp
; in: DEFUN SBCL-NATURALIZE-CSTRING
; (SUBSEQ UFFI::CASTED 0 LENGTH)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR NULL
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY NIL (*))
; SIMPLE-BASE-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 (OR NULL
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY NIL (*))
; SIMPLE-BASE-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).
; (COPY-SEQ (SUBSEQ UFFI::CASTED 0 LENGTH))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR CONS
; NULL
; (SIMPLE-ARRAY * (*))), 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 (OR CONS
; NULL
; (SIMPLE-ARRAY * (*))), 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 (OR CONS
; NULL
; (SIMPLE-ARRAY * (*))), 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 (OR CONS
; NULL
; (SIMPLE-ARRAY * (*))), 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 (OR CONS
; NULL
; (SIMPLE-ARRAY * (*))), 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 (OR CONS
; NULL
; (SIMPLE-ARRAY * (*))), 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 (OR CONS
; NULL
; (SIMPLE-ARRAY * (*))), 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 (OR CONS
; NULL
; (SIMPLE-ARRAY * (*))), 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 (OR CONS
; NULL
; (SIMPLE-ARRAY * (*))), 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 (OR CONS
; NULL
; (SIMPLE-ARRAY * (*))), 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 (OR CONS
; NULL
; (SIMPLE-ARRAY * (*))), 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 (OR CONS
; NULL
; (SIMPLE-ARRAY * (*))), 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 (OR CONS
; NULL
; (SIMPLE-ARRAY * (*))), 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 (OR CONS
; NULL
; (SIMPLE-ARRAY * (*))), 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 (OR CONS
; NULL
; (SIMPLE-ARRAY * (*))), 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 (OR CONS
; NULL
; (SIMPLE-ARRAY * (*))), 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 (OR CONS
; NULL
; (SIMPLE-ARRAY * (*))), 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).
; (COPY-SEQ UFFI::CASTED)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR NULL
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY NIL (*))
; SIMPLE-BASE-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 (OR NULL
; (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY NIL (*))
; SIMPLE-BASE-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).
; (FUNCALL UFFI::*SYSTEM-COPY-FN*
; UFFI::SAP
; 0
; UFFI::RESULT
; UFFI::+SYSTEM-COPY-OFFSET+
; (* LENGTH UFFI::+SYSTEM-COPY-MULTIPLIER+))
; --> 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 (DEF-FUNCTION "strlen" ...)
; compiling (DEF-TYPE CHAR-PTR-DEF ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/strings.fasl written
; compilation finished in 0:00:01
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {10007F71}> on
#<CL-SOURCE-FILE "strings" {100DD9D9}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/libraries.lisp" (written 09 NOV 2005 12:09:02 AM):
; compiling (IN-PACKAGE #:UFFI)
; compiling (DEFVAR *LOADED-LIBRARIES* ...)
; compiling (DEFUN DEFAULT-FOREIGN-LIBRARY-TYPE ...)
; compiling (DEFUN FOREIGN-LIBRARY-TYPES ...)
; compiling (DEFUN FIND-FOREIGN-LIBRARY ...)
; compiling (DEFUN LOAD-FOREIGN-LIBRARY ...)
; compiling (DEFUN CONVERT-SUPPORTING-LIBRARIES-TO-STRING ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/libraries.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/os.lisp" (written 14 NOV 2005 02:02:47 PM):
; compiling (IN-PACKAGE #:UFFI)
; compiling (DEFUN GETENV ...)
; compiling (DEFUN RUN-SHELL-COMMAND ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/uffi-1.5.9/src/os.fasl written
; compilation finished in 0:00:00
STYLE-WARNING: redefining STRLEN in DEFUN
;
; compilation unit finished
; caught 6 STYLE-WARNING conditions
; printed 29 notes
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/resolver-0.7/packages.lisp" (written 28 NOV 2004 02:30:44 AM):
; compiling (DEFPACKAGE :RESOLVER ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/resolver-0.7/packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/resolver-0.7/load-lib.lisp" (written 28 NOV 2004 02:30:44 AM):
; compiling (UFFI:LOAD-FOREIGN-LIBRARY #P"/usr/lib/libresolv.so" ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/resolver-0.7/load-lib.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/resolver-0.7/resolver.lisp" (written 28 NOV 2004 02:30:44 AM):
; compiling (IN-PACKAGE #:RESOLVER)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (UFFI:DEF-FUNCTION ("res_query" RES-QUERY) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/resolver-0.7/resolver.lisp
; in: UFFI:DEF-FUNCTION ("res_query" RES-QUERY)
; (UFFI:DEF-FUNCTION ("res_query" RESOLVER::RES-QUERY)
; ((RESOLVER::DNAME (:CSTRING)) (CLASS :INT) (TYPE :INT)
; (RESOLVER::ANSWER (* :UNSIGNED-BYTE))
; (RESOLVER::ANSLEN :INT))
; :RETURNING
; :INT)
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA RESOLVER::RES-QUERY
; (RESOLVER::DNAME CLASS
; TYPE
; RESOLVER::ANSWER
; RESOLVER::ANSLEN)
; (BLOCK RESOLVER::RES-QUERY
; (WITH-ALIEN
; ((RESOLVER::RES-QUERY # :EXTERN "res_query"))
; (VALUES
; (ALIEN-FUNCALL RESOLVER::RES-QUERY
; RESOLVER::DNAME
; CLASS
; TYPE
; RESOLVER::ANSWER
; RESOLVER::ANSLEN)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; compiling (UFFI:DEF-ARRAY-POINTER UFFI-UNSIGNED-BYTE-POINTER ...)
; compiling (UFFI:DEF-TYPE UNSIGNED-BYTE-POINTER ...)
; compiling (DEFTYPE BUFFER-INDEX ...)
; compiling (DEFTYPE UINT8 ...)
; compiling (DEFTYPE UINT16 ...)
; compiling (DEFTYPE UINT32 ...)
; compiling (DEFTYPE DNS-POINTER ...)
; compiling (DEFINE-CONDITION DECODING-ERROR ...)
; compiling (DEFINE-CONDITION OUT-OF-BOUNDS-ERROR ...)
; compiling (DECLAIM (INLINE GET-BYTE) ...)
; compiling (DEFUN GET-BYTE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN GET16 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN GET32 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/resolver-0.7/resolver.lisp
; in: DEFUN GET32
; (DEFUN RESOLVER::GET32 (RESOLVER::BUFFER RESOLVER::SIZE RESOLVER::INDEX)
; "Get a 32-bit quantity from the foreign object array, starting at
; the specified index, in big-endian byte order."
; (DECLARE (RESOLVER::UNSIGNED-BYTE-POINTER RESOLVER::BUFFER)
; (RESOLVER::BUFFER-INDEX RESOLVER::SIZE)
; (RESOLVER::BUFFER-INDEX RESOLVER::INDEX))
; (THE RESOLVER::UINT32
; (LOGIOR
; (ASH
; (RESOLVER::GET16 RESOLVER::BUFFER RESOLVER::SIZE RESOLVER::INDEX)
; 16)
; (RESOLVER::GET16 RESOLVER::BUFFER
; RESOLVER::SIZE
; (+ RESOLVER::INDEX 2)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA RESOLVER::GET32
; (RESOLVER::BUFFER RESOLVER::SIZE RESOLVER::INDEX)
; (DECLARE
; (RESOLVER::UNSIGNED-BYTE-POINTER RESOLVER::BUFFER)
; (RESOLVER::BUFFER-INDEX RESOLVER::SIZE)
; (RESOLVER::BUFFER-INDEX RESOLVER::INDEX))
; (BLOCK RESOLVER::GET32
; (THE RESOLVER::UINT32
; (LOGIOR (ASH # 16)
; (RESOLVER::GET16 RESOLVER::BUFFER
; RESOLVER::SIZE
; #)))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; compiling (DEFUN DECODE-POINTER ...)
; compiling (DEFUN DECODE-LABEL ...)
; compiling (DEFUN DECODE-NAME ...)
; compiling (DEFUN DECODE-IPV4-ADDR ...)
; compiling (DEFUN DECODE-HEADER ...)
; compiling (DEFUN DECODE-QUERY-COUNT ...)
; compiling (DEFUN DECODE-ANSWER-COUNT ...)
; compiling (DEFUN DECODE-NAME-SERVER-COUNT ...)
; compiling (DEFUN DECODE-ADDITIONAL-COUNT ...)
; compiling (DEFUN DECODE-QUERY ...)
; compiling (DEFUN DECODE-QUERIES ...)
; compiling (DEFUN DECODE-GENERIC-RDATA ...)
; compiling (DEFUN DECODE-DOMAIN-NAME-RDATA ...)
; compiling (DEFUN DECODE-TEXT-RDATA ...)
; compiling (DEFUN DECODE-A-RDATA ...)
; compiling (DEFUN DECODE-SOA-RDATA ...)
; compiling (DEFUN DECODE-MINFO-RDATA ...)
; compiling (DEFUN DECODE-MX-RDATA ...)
; compiling (DEFMACRO DEFINE-MAPPERS ...)
; compiling (DEFINE-MAPPERS TYPECODE->SYMBOL ...)
; compiling (DEFINE-MAPPERS CLASSCODE->SYMBOL ...)
; compiling (DEFINE-MAPPERS OPCODE->SYMBOL ...)
; compiling (DEFINE-MAPPERS RCODE->SYMBOL ...)
; compiling (DEFUN DECODE-RR ...)
; compiling (DEFUN DECODE-RRS ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/resolver-0.7/resolver.lisp
; in: DEFUN DECODE-RRS
; (DOTIMES
; (RESOLVER::I COUNT (VALUES (NREVERSE RESOLVER::RESULT) RESOLVER::INDEX))
; (MULTIPLE-VALUE-SETQ (RESOLVER::RR RESOLVER::INDEX)
; (RESOLVER::DECODE-RR RESOLVER::BUFFER RESOLVER::SIZE RESOLVER::INDEX))
; (PUSH RESOLVER::RR RESOLVER::RESULT))
; --> DO BLOCK LET TAGBODY UNLESS COND IF NOT IF >= IF
; ==>
; (< RESOLVER::I #:G377)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; --> DO BLOCK LET TAGBODY PSETQ PSETF LET* MULTIPLE-VALUE-BIND LET 1+
; ==>
; (+ RESOLVER::I 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (DEFUN DECODE-REPLY-MESSAGE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/resolver-0.7/resolver.lisp
; in: DEFUN DECODE-REPLY-MESSAGE
; (= RESOLVER::INDEX RESOLVER::SIZE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; compiling (DEFUN DO-QUERY ...)
; compiling (DECLAIM (OPTIMIZE #))
; compiling (DEFUN LOOKUP ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/resolver-0.7/resolver.lisp
; in: DEFUN LOOKUP
; (UFFI:ALLOCATE-FOREIGN-OBJECT :UNSIGNED-BYTE RESOLVER::LEN)
; --> MAKE-ALIEN
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN (SB-ALIEN::%MAKE-ALIEN (* 8 RESOLVER::LEN))
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (UNSIGNED
; 8))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
;
; note: doing SAP to pointer coercion (cost 20)
; compiling (DECLAIM (INLINE GET-ID ...))
; compiling (DEFUN GET-ID ...)
; compiling (DEFUN GET-QR ...)
; compiling (DEFUN GET-OPCODE ...)
; compiling (DEFUN GET-AA ...)
; compiling (DEFUN GET-TC ...)
; compiling (DEFUN GET-RD ...)
; compiling (DEFUN GET-RA ...)
; compiling (DEFUN GET-RCODE ...)
; compiling (DEFUN GET-QDCOUNT ...)
; compiling (DEFUN GET-ANCOUNT ...)
; compiling (DEFUN GET-NSCOUNT ...)
; compiling (DEFUN GET-ARCOUNT ...)
; compiling (DEFUN GET-QUERIES ...)
; compiling (DEFUN GET-ANSWERS ...)
; compiling (DEFUN GET-NAME-SERVERS ...)
; compiling (DEFUN GET-ADDITIONAL ...)
; compiling (DEFUN GET-DOMAIN ...)
; compiling (DEFUN GET-TYPE ...)
; compiling (DEFUN GET-CLASS ...)
; compiling (DEFUN GET-TTL ...)
; compiling (DEFUN GET-RDATA ...)
; compiling (DEFUN DUMP-ARRAY ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/resolver-0.7/resolver.lisp
; in: DEFUN DUMP-ARRAY
; (= RESOLVER::I RESOLVER::END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; compiling (DEFUN CORRUPT-BUFFER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/resolver-0.7/resolver.lisp
; in: DEFUN CORRUPT-BUFFER
; (RANDOM LENGTH)
;
; note: unable to
; Use inline float operations.
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT (0.0))
; (DOUBLE-FLOAT (0.0d0))
; (INTEGER 1)), not a SINGLE-FLOAT.
;
; note: unable to
; Use inline float operations.
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT (0.0))
; (DOUBLE-FLOAT (0.0d0))
; (INTEGER 1)), not a DOUBLE-FLOAT.
;
; note: unable to
; use inline (UNSIGNED-BYTE 32) operations
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT (0.0))
; (DOUBLE-FLOAT (0.0d0))
; (INTEGER 1)), not a (INTEGER 1 4294967296).
; (LOGXOR RESOLVER::PATTERN
; (UFFI:DEREF-ARRAY RESOLVER::BUFFER
; 'RESOLVER::UFFI-UNSIGNED-BYTE-POINTER
; RESOLVER::INDEX))
;
; note: forced to do static-fun Two-arg-xor (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The second argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (RANDOM 256)
; --> REM SB-KERNEL:RANDOM-CHUNK BLOCK LET* MULTIPLE-VALUE-BIND LET UNLESS COND
; --> IF NOT IF TYPEP LET AND IF TYPEP
; ==>
; (SB-INT:FIXNUMP #:ONCE-ONLY-538)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; compiling (DEFUN TEST-CORRUPTION ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/resolver-0.7/resolver.lisp
; in: DEFUN TEST-CORRUPTION
; (UFFI:ALLOCATE-FOREIGN-OBJECT :UNSIGNED-BYTE RESOLVER::LEN)
; --> MAKE-ALIEN
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN (SB-ALIEN::%MAKE-ALIEN (* 8 RESOLVER::LEN))
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (UNSIGNED
; 8))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (DOTIMES (RESOLVER::J (+ 50 (RANDOM 50)))
; (BLOCK NIL
; (FORMAT T "~A," RESOLVER::J)
; (RESOLVER::CORRUPT-BUFFER RESOLVER::BUFFER LENGTH)
; (HANDLER-BIND ((# #'#))
; (RESOLVER::DECODE-REPLY-MESSAGE RESOLVER::BUFFER LENGTH))))
; --> DO BLOCK LET TAGBODY PSETQ PSETF LET* MULTIPLE-VALUE-BIND LET 1+
; ==>
; (+ RESOLVER::J 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> DO BLOCK LET TAGBODY UNLESS COND IF NOT IF >= IF
; ==>
; (< RESOLVER::J #:G555)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; (DOTIMES (RESOLVER::I (+ 10 (RANDOM 10)))
; (UFFI:WITH-CSTRING (RESOLVER::CDOMAIN RESOLVER::DOMAIN)
; (LET ((LENGTH #))
; (IF (< LENGTH 0) (ERROR "DNS error.") (DOTIMES # #))
; (FORMAT T "~%"))))
; --> DO BLOCK LET TAGBODY PSETQ PSETF LET* MULTIPLE-VALUE-BIND LET 1+
; ==>
; (+ RESOLVER::I 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> DO BLOCK LET TAGBODY UNLESS COND IF NOT IF >= IF
; ==>
; (< RESOLVER::I #:G552)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; (UFFI:ALLOCATE-FOREIGN-OBJECT :UNSIGNED-BYTE RESOLVER::LEN)
; --> MAKE-ALIEN
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN (SB-ALIEN::%MAKE-ALIEN (* 8 RESOLVER::LEN))
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (UNSIGNED
; 8))>)
;
; note: doing SAP to pointer coercion (cost 20)
; (RANDOM 10)
; --> REM SB-KERNEL:RANDOM-CHUNK BLOCK LET* MULTIPLE-VALUE-BIND LET UNLESS COND
; --> IF NOT IF TYPEP LET AND IF TYPEP
; ==>
; (SB-INT:FIXNUMP #:ONCE-ONLY-629)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-KERNEL::DIVISOR)
;
; note: doing unsigned word to integer coercion (cost 20) from SB-KERNEL::Y
; (RANDOM 50)
; --> REM SB-KERNEL:RANDOM-CHUNK BLOCK LET* MULTIPLE-VALUE-BIND LET UNLESS COND
; --> IF NOT IF TYPEP LET AND IF TYPEP
; ==>
; (SB-INT:FIXNUMP #:ONCE-ONLY-635)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of FIXNUMP
; --> REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-KERNEL::DIVISOR)
;
; note: doing unsigned word to integer coercion (cost 20) from SB-KERNEL::Y
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/resolver-0.7/resolver.fasl written
; compilation finished in 0:00:02
;
; compilation unit finished
; printed 43 notes
