REPL Output
;;; ASDF-INSTALL: Downloading 622749 bytes from http://ygingras.net/files/poly-pen-0.3.5.tar.gz to /Users/gwking/temporary/asdf-test/POLY-PEN.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/POLY-PEN.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/
poly-pen-0.3.5/
poly-pen-0.3.5/examples.lisp
poly-pen-0.3.5/plot.lisp
poly-pen-0.3.5/skippy-renderer.lisp
poly-pen-0.3.5/skippy.lisp
poly-pen-0.3.5/png-renderer.lisp
poly-pen-0.3.5/png.lisp
poly-pen-0.3.5/gd-renderer.lisp
poly-pen-0.3.5/sdl-renderer.lisp
poly-pen-0.3.5/renderer.lisp
poly-pen-0.3.5/gradient.lisp
poly-pen-0.3.5/color.lisp
poly-pen-0.3.5/color-convert.lisp
poly-pen-0.3.5/utils.lisp
poly-pen-0.3.5/vector-space.lisp
poly-pen-0.3.5/package.lisp
poly-pen-0.3.5/README.txt
poly-pen-0.3.5/ChangeLog
poly-pen-0.3.5/doc.ps
poly-pen-0.3.5/doc.pdf
poly-pen-0.3.5/index.html
poly-pen-0.3.5/home.jpg
poly-pen-0.3.5/home2.jpg
poly-pen-0.3.5/example2.jpg
poly-pen-0.3.5/example3.jpg
poly-pen-0.3.5/example4.jpg
poly-pen-0.3.5/example5.jpg
poly-pen-0.3.5/poly-pen.asd
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/poly-pen-0.3.5/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/poly-pen-0.3.5/" ;;; ASDF-INSTALL: Downloading package CL-PPCRE, required by poly-pen
;;; ASDF-INSTALL: Downloading 166573 bytes from http://weitz.de/files/cl-ppcre.tar.gz to /Users/gwking/temporary/asdf-test/cl-ppcre.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/cl-ppcre.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-ppcre-1.2.13/
cl-ppcre-1.2.13/doc/
cl-ppcre-1.2.13/doc/benchmarks.2002-12-22.txt
cl-ppcre-1.2.13/doc/index.html
cl-ppcre-1.2.13/CHANGELOG
cl-ppcre-1.2.13/README
cl-ppcre-1.2.13/api.lisp
cl-ppcre-1.2.13/cl-ppcre-test.asd
cl-ppcre-1.2.13/cl-ppcre-test.system
cl-ppcre-1.2.13/cl-ppcre.asd
cl-ppcre-1.2.13/cl-ppcre.system
cl-ppcre-1.2.13/closures.lisp
cl-ppcre-1.2.13/convert.lisp
cl-ppcre-1.2.13/errors.lisp
cl-ppcre-1.2.13/lexer.lisp
cl-ppcre-1.2.13/lispworks-defsystem.lisp
cl-ppcre-1.2.13/load.lisp
cl-ppcre-1.2.13/optimize.lisp
cl-ppcre-1.2.13/packages.lisp
cl-ppcre-1.2.13/parser.lisp
cl-ppcre-1.2.13/perltest.pl
cl-ppcre-1.2.13/ppcre-tests.lisp
cl-ppcre-1.2.13/regex-class.lisp
cl-ppcre-1.2.13/repetition-closures.lisp
cl-ppcre-1.2.13/scanner.lisp
cl-ppcre-1.2.13/specials.lisp
cl-ppcre-1.2.13/testdata
cl-ppcre-1.2.13/testinput
cl-ppcre-1.2.13/util.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/packages.lisp" (written 01 APR 2005 04:29:10 PM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPACKAGE #:CL-PPCRE ...)
; compiling (DEFPACKAGE #:CL-PPCRE-TEST ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/specials.lisp" (written 01 APR 2005 04:29:10 PM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFVAR *STANDARD-OPTIMIZE-SETTINGS* ...)
; compiling (DEFVAR *SPECIAL-OPTIMIZE-SETTINGS* ...)
; compiling (DEFVAR *EXTENDED-MODE-P* ...)
; compiling (DECLAIM (TYPE BOOLEAN ...))
; compiling (DEFVAR *STRING* ...)
; compiling (DECLAIM (TYPE SIMPLE-STRING ...))
; compiling (DEFVAR *START-POS* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *REAL-START-POS* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *END-POS* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *REG-STARTS* ...)
; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))
; compiling (DEFVAR *REGS-MAYBE-START* ...)
; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))
; compiling (DEFVAR *REG-ENDS* ...)
; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))
; compiling (DEFVAR *END-STRING-POS* ...)
; compiling (DEFVAR *REP-NUM* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *ZERO-LENGTH-NUM* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *REPEAT-COUNTERS* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *LAST-POS-STORES* ...)
; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))
; compiling (DEFVAR *USE-BMH-MATCHERS* ...)
; compiling (DEFVAR *ALLOW-QUOTING* ...)
; compiling (PUSHNEW :CL-PPCRE ...)
; compiling (DEFVAR *HYPERDOC-BASE-URI* ...)
; compiling (LET (#) ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/specials.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/util.lisp" (written 23 AUG 2005 06:32:30 AM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFMACRO WITH-UNIQUE-NAMES ...)
; compiling (DEFMACRO WITH-REBINDING ...)
; compiling (DEFVAR *REGEX-CHAR-CODE-LIMIT* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFUN MAKE-CHAR-HASH ...); in: LAMBDA NIL
; (FUNCALL CL-PPCRE::TEST CL-PPCRE::CHR)
; --> 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.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/util.lisp
; in: DEFUN MAKE-CHAR-HASH
; (FUNCALL CL-PPCRE::TEST CL-PPCRE::CHR)
; --> 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 (DECLAIM (INLINE WORD-CHAR-P))
; compiling (DEFUN WORD-CHAR-P ...); in: LAMBDA NIL
; (ALPHANUMERICP CL-PPCRE::CHR)
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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.
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/util.lisp
; in: DEFUN WORD-CHAR-P
; (ALPHANUMERICP CL-PPCRE::CHR)
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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 (UNLESS (BOUNDP #) ...)
; compiling (DEFUN WHITESPACEP ...)
; compiling (UNLESS (BOUNDP #) ...)
; compiling (UNLESS (BOUNDP #) ...)
; compiling (UNLESS (BOUNDP #) ...)
; compiling (DEFUN MERGE-HASH ...)
; compiling (DEFUN MERGE-INVERTED-HASH ...)
; compiling (DEFUN CREATE-RANGES-FROM-HASH ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/util.lisp
; in: DEFUN CREATE-RANGES-FROM-HASH
; (CHAR-DOWNCASE CL-PPCRE::CHR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; compiling (DEFMACRO MAYBE-COERCE-TO-SIMPLE-STRING ...)
; compiling (DECLAIM (INLINE NSUBSEQ))
; compiling (DEFUN NSUBSEQ ...)
; compiling (DEFUN NORMALIZE-VAR-LIST ...)
; compiling (DEFUN STRING-LIST-TO-SIMPLE-STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/util.lisp
; in: DEFUN STRING-LIST-TO-SIMPLE-STRING
; (REPLACE CL-PPCRE::RESULT-STRING STRING :START1 CL-PPCRE::CURR-POS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/util.fasl written
; compilation finished in 0:00:02
STYLE-WARNING: redefining MAKE-CHAR-HASH in DEFUN
STYLE-WARNING: redefining WORD-CHAR-P in DEFUN
STYLE-WARNING: redefining WHITESPACEP in DEFUN
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/errors.lisp" (written 01 APR 2005 04:29:09 PM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFVAR *SYNTAX-ERROR-STRING* ...)
; compiling (DEFINE-CONDITION PPCRE-ERROR ...)
; compiling (DEFINE-CONDITION PPCRE-SYNTAX-ERROR ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFINE-CONDITION PPCRE-INVOCATION-ERROR ...)
; compiling (DEFMACRO SIGNAL-PPCRE-SYNTAX-ERROR* ...)
; compiling (DEFMACRO SIGNAL-PPCRE-SYNTAX-ERROR ...)
; compiling (DEFMACRO SIGNAL-PPCRE-INVOCATION-ERROR ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/errors.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/lexer.lisp" (written 01 APR 2005 04:29:09 PM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DECLAIM (INLINE MAP-CHAR-TO-SPECIAL-CLASS))
; compiling (DEFUN MAP-CHAR-TO-SPECIAL-CHAR-CLASS ...)
; compiling (DEFSTRUCT (LEXER #) ...)
; compiling (DEFUN MAKE-LEXER ...)
; compiling (DECLAIM (INLINE END-OF-STRING-P))
; compiling (DEFUN END-OF-STRING-P ...)
; compiling (DECLAIM (INLINE LOOKING-AT-P))
; compiling (DEFUN LOOKING-AT-P ...)
; compiling (DECLAIM (INLINE NEXT-CHAR-NON-EXTENDED))
; compiling (DEFUN NEXT-CHAR-NON-EXTENDED ...)
; compiling (DEFUN NEXT-CHAR ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/lexer.lisp
; in: DEFUN NEXT-CHAR
; (CL-PPCRE::SIGNAL-PPCRE-SYNTAX-ERROR* CL-PPCRE::ERROR-POS
; "Comment group not closed")
; ==>
; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR
; :POS
; CL-PPCRE::ERROR-POS
; :FORMAT-CONTROL
; "Comment group not closed"
; :FORMAT-ARGUMENTS
; (LIST))
;
; note: doing signed word to integer coercion (cost 20)
; compiling (DECLAIM (INLINE FAIL))
; compiling (DEFUN FAIL ...)
; compiling (DEFUN GET-NUMBER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/lexer.lisp
; in: DEFUN GET-NUMBER
; (IF (< CL-PPCRE::END-POS CL-PPCRE::LEXER-LEN)
; CL-PPCRE::END-POS
; CL-PPCRE::LEXER-LEN)
; ==>
; CL-PPCRE::END-POS
;
; note: doing signed word to integer coercion (cost 20)
; compiling (DECLAIM (INLINE TRY-NUMBER))
; compiling (DEFUN TRY-NUMBER ...)
; compiling (DECLAIM (INLINE MAKE-CHAR-FROM-CODE))
; compiling (DEFUN MAKE-CHAR-FROM-CODE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/lexer.lisp
; in: DEFUN MAKE-CHAR-FROM-CODE
; (CL-PPCRE::SIGNAL-PPCRE-SYNTAX-ERROR* CL-PPCRE::ERROR-POS
; "No character for hex-code ~X"
; NUMBER)
; --> ERROR
; ==>
; CL-PPCRE::ERROR-POS
;
; note: deleting unreachable code
; compiling (DEFUN UNESCAPE-CHAR ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/lexer.lisp
; in: DEFUN MAKE-CHAR-FROM-CODE
; (CL-PPCRE::SIGNAL-PPCRE-SYNTAX-ERROR* CL-PPCRE::ERROR-POS
; "No character for hex-code ~X"
; NUMBER)
; --> ERROR
; ==>
; "No character for hex-code ~X"
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; in: DEFUN UNESCAPE-CHAR
; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; compiling (DEFUN COLLECT-CHAR-CLASS ...)
; compiling (DEFUN MAYBE-PARSE-FLAGS ...)
; compiling (DEFUN GET-QUANTIFIER ...)
; compiling (DEFUN GET-TOKEN ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/lexer.lisp
; in: DEFUN MAKE-CHAR-FROM-CODE
; (CL-PPCRE::SIGNAL-PPCRE-SYNTAX-ERROR* CL-PPCRE::ERROR-POS
; "No character for hex-code ~X"
; NUMBER)
; --> ERROR
; ==>
; "No character for hex-code ~X"
;
; note: deleting unreachable code
; ==>
; CL-PPCRE::ERROR-POS
;
; note: deleting unreachable code
; in: DEFUN GET-TOKEN
; (SUBSEQ (CL-PPCRE::LEXER-STR CL-PPCRE::LEXER)
; (CAR CL-PPCRE::THIS-LAST-POS)
; (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
;
; 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 (CL-PPCRE::LEXER-STR CL-PPCRE::LEXER)
; (CAR (CL-PPCRE::LEXER-LAST-POS CL-PPCRE::LEXER))
; (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
;
; 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).
; (CL-PPCRE::SIGNAL-PPCRE-SYNTAX-ERROR*
; (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
; "Character '~A' may not follow '(?<'"
; CL-PPCRE::NEXT-CHAR)
; ==>
; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR
; :POS
; (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
; :FORMAT-CONTROL
; "Character '~A' may not follow '(?<'"
; :FORMAT-ARGUMENTS
; (LIST CL-PPCRE::NEXT-CHAR))
;
; note: doing signed word to integer coercion (cost 20)
; (CL-PPCRE::SIGNAL-PPCRE-SYNTAX-ERROR*
; (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
; "Character '~A' may not follow '(?'"
; CL-PPCRE::NEXT-CHAR)
; ==>
; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR
; :POS
; (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
; :FORMAT-CONTROL
; "Character '~A' may not follow '(?'"
; :FORMAT-ARGUMENTS
; (LIST CL-PPCRE::NEXT-CHAR))
;
; note: doing signed word to integer coercion (cost 20)
; (CL-PPCRE::SIGNAL-PPCRE-SYNTAX-ERROR*
; (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
; "Quantifier '~A' not allowed"
; CL-PPCRE::NEXT-CHAR)
; ==>
; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR
; :POS
; (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
; :FORMAT-CONTROL
; "Quantifier '~A' not allowed"
; :FORMAT-ARGUMENTS
; (LIST CL-PPCRE::NEXT-CHAR))
;
; note: doing signed word to integer coercion (cost 20)
; compiling (DECLAIM (INLINE UNGET-TOKEN))
; compiling (DEFUN UNGET-TOKEN ...)
; compiling (DECLAIM (INLINE START-OF-SUBEXPR-P))
; compiling (DEFUN START-OF-SUBEXPR-P ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/lexer.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/parser.lisp" (written 03 AUG 2005 05:11:27 PM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFUN GROUP ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/parser.lisp
; in: DEFUN GROUP
; (CL-PPCRE::SIGNAL-PPCRE-SYNTAX-ERROR* (+ CL-PPCRE::OPEN-PAREN-POS 2)
; "Opening paren has no matching closing paren")
; ==>
; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR
; :POS
; (+ CL-PPCRE::OPEN-PAREN-POS 2)
; :FORMAT-CONTROL
; "Opening paren has no matching closing paren"
; :FORMAT-ARGUMENTS
; (LIST))
;
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN GREEDY-QUANT ...)
; compiling (DEFUN QUANT ...)
; compiling (DEFUN SEQ ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/parser.lisp
; in: DEFUN SEQ
; (SETF (AREF STRING 0) CL-PPCRE::CHAR1)
; --> SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR CHARACTER), not a SIMPLE-ARRAY.
; (SETF (AREF STRING 1) CL-PPCRE::CHAR2)
; --> SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR CHARACTER), not a SIMPLE-ARRAY.
; (CL-PPCRE::START-OF-SUBEXPR-P CL-PPCRE::LEXER)
; --> BLOCK LET* NOT IF OR LET IF OR PROG1 LET MEMBER BLOCK LET AND IF AND
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-IMPL::KEY)
;
; 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.
; --> BLOCK LET* NOT IF OR LET IF OR PROG1 LET MEMBER BLOCK LET IF
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-IMPL::TEST)
;
; 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.
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-IMPL::TEST-NOT)
;
; 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 REG-EXPR ...)
; compiling (DEFUN REVERSE-STRINGS ...)
; compiling (DEFUN PARSE-STRING ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/parser.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/regex-class.lisp" (written 10 JUN 2005 06:23:42 AM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFCLASS REGEX ...)
; compiling (DEFCLASS SEQ ...)
; compiling (DEFCLASS ALTERNATION ...)
; compiling (DEFCLASS LOOKAHEAD ...)
; compiling (DEFCLASS LOOKBEHIND ...)
; compiling (DEFCLASS REPETITION ...)
; compiling (DEFCLASS REGISTER ...)
; compiling (DEFCLASS STANDALONE ...)
; compiling (DEFCLASS BACK-REFERENCE ...)
; compiling (DEFCLASS CHAR-CLASS ...)
; compiling (DEFCLASS STR ...)
; compiling (DEFCLASS ANCHOR ...)
; compiling (DEFCLASS EVERYTHING ...)
; compiling (DEFCLASS WORD-BOUNDARY ...)
; compiling (DEFCLASS BRANCH ...)
; compiling (DEFCLASS FILTER ...)
; compiling (DEFCLASS VOID ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/regex-class.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (CHAR-CLASS)
; (> (HASH-TABLE-COUNT CL-PPCRE::HASH) (/ CL-PPCRE:*REGEX-CHAR-CODE-LIMIT* 2))
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a (RATIONAL -268435456 536870911/2), not a FIXNUM.
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/regex-class.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (STR)
; (LENGTH (CL-PPCRE::STR CL-PPCRE::STR))
;
; 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.
; compiling (DEFMETHOD LEN ...)
; compiling (DEFMETHOD STR ...)
; compiling (DEFMETHOD SKIP ...)
; compiling (DEFMETHOD START-OF-END-STRING-P ...)
; compiling (DEFGENERIC CASE-MODE ...)
; compiling (DEFMETHOD CASE-MODE ...)
; compiling (DEFMETHOD CASE-MODE ...)
; compiling (DEFGENERIC COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFMETHOD COPY-REGEX ...)
; compiling (DEFGENERIC REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFMETHOD REMOVE-REGISTERS ...)
; compiling (DEFGENERIC EVERYTHINGP ...)
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFMETHOD EVERYTHINGP ...)
; compiling (DEFGENERIC REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFMETHOD REGEX-LENGTH ...)
; compiling (DEFGENERIC REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFMETHOD REGEX-MIN-LENGTH ...)
; compiling (DEFGENERIC COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; compiling (DEFMETHOD COMPUTE-OFFSETS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/regex-class.fasl written
; compilation finished in 0:00:08
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/convert.lisp" (written 01 APR 2005 04:29:09 PM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFMACRO CASE-INSENSITIVE-MODE-P ...)
; compiling (DEFMACRO MULTI-LINE-MODE-P ...)
; compiling (DEFMACRO SINGLE-LINE-MODE-P ...)
; compiling (DEFUN SET-FLAG ...)
; compiling (DEFUN ADD-RANGE-TO-HASH ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/convert.lisp
; in: DEFUN ADD-RANGE-TO-HASH
; (CHAR-UPCASE CL-PPCRE::CHR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-DOWNCASE CL-PPCRE::CHR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; compiling (DEFUN CONVERT-CHAR-CLASS-TO-HASH ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/convert.lisp
; in: DEFUN CONVERT-CHAR-CLASS-TO-HASH
; (CEILING (EXPT CL-PPCRE:*REGEX-CHAR-CODE-LIMIT* (/ 1 4)))
; --> CEILING BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET VALUES
; ==>
; (- SB-C::X SB-C::RES)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a FLOAT.
; --> CEILING BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF
; --> NOT IF ZEROP
; ==>
; (= REM 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR RATIONAL SINGLE-FLOAT), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> CEILING BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF
; --> AND IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a FLOAT.
; --> CEILING BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET
; ==>
; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
;
; note: forced to do full call
; unable to do inline float truncate (cost 5) because:
; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a SINGLE-FLOAT.
; The result is a (VALUES INTEGER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; --> CEILING BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET VALUES
; ==>
; (- SB-C::X SB-C::RES)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (OR RATIONAL SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (OR RATIONAL SINGLE-FLOAT)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; --> CEILING BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF
; --> AND IF PLUSP
; ==>
; (> NUMBER 0)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (OR SINGLE-FLOAT RATIONAL), not a FIXNUM.
; etc.
; --> CEILING BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES
; ==>
; (+ SB-KERNEL::TRU 1)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (FLOAT (EXPT CL-PPCRE:*REGEX-CHAR-CODE-LIMIT* (/ 1 4)))
; --> IF
; ==>
; (SB-KERNEL:%SINGLE-FLOAT SB-C::N)
;
; note: forced to do full call
; unable to do inline float coercion (cost 5) because:
; The first argument is a RATIONAL, not a (UNSIGNED-BYTE 32).
; unable to do inline float coercion (cost 5) because:
; The first argument is a RATIONAL, not a (SIGNED-BYTE 32).
; compiling (DEFUN MAYBE-SPLIT-REPETITION ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/convert.lisp
; in: DEFUN MAYBE-SPLIT-REPETITION
; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM)
;
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN MAYBE-ACCUMULATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/convert.lisp
; in: DEFUN MAYBE-ACCUMULATE
; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR)
; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)
; (CL-PPCRE::LEN CL-PPCRE::STR)))
; (CL-PPCRE::STR CL-PPCRE::STR)
; (CL-PPCRE::SKIP CL-PPCRE::STR)
; T)
; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET PROGN
; ==>
; (REPLACE #:G77 #:G79 :START1 #:G78 :END1 NIL)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; The result is a (VALUES SEQUENCE
; &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 second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES SEQUENCE
; &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 second argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The result is a (VALUES SEQUENCE
; &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 second argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES SEQUENCE
; &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 second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The result is a (VALUES SEQUENCE
; &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 second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The result is a (VALUES SEQUENCE
; &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 second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The result is a (VALUES SEQUENCE
; &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 second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The result is a (VALUES SEQUENCE
; &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 second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; (*)).
; The result is a (VALUES SEQUENCE
; &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 second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; (*)).
; The result is a (VALUES SEQUENCE
; &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 second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
; (*)).
; The result is a (VALUES SEQUENCE
; &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 second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; (*)).
; The result is a (VALUES SEQUENCE
; &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 second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; (*)).
; The result is a (VALUES SEQUENCE
; &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 second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The result is a (VALUES SEQUENCE
; &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 second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The result is a (VALUES SEQUENCE
; &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 second argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The result is a (VALUES SEQUENCE
; &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 second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The result is a (VALUES SEQUENCE
; &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY (SIGNED-BYTE 32)
; (*))
; &REST
; T).
; (SETF (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)
; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)
; (CL-PPCRE::LEN CL-PPCRE::STR)))
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL
; ==>
; (#<SB-C::GLOBAL-VAR
; :%SOURCE-NAME (SETF CL-PPCRE::LEN)
; :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION # *)>
; :WHERE-FROM :DECLARED
; :KIND :GLOBAL-FUNCTION {10105F99}>
; #:G75 #:G76)
;
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN CONVERT-AUX ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/convert.lisp
; in: DEFUN CONVERT-AUX
; (EVERY (LAMBDA (CL-PPCRE::ITEM) (EQ CL-PPCRE::ITEM :NON-WORD-CHAR-CLASS))
; CL-PPCRE::ITEM-LIST)
; --> LET BLOCK MAP TRULY-THE
; ==>
; (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G234)
;
; note: unable to open code because: can't determine sequence argument type
; (CHAR-EQUAL (FIRST CL-PPCRE::HASH-KEYS) (SECOND CL-PPCRE::HASH-KEYS))
;
; 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.
; (MEMBER CL-PPCRE::PARSE-TREE
; '(:NON-DIGIT-CLASS :NON-WORD-CHAR-CLASS :NON-WHITESPACE-CHAR-CLASS)
; :TEST
; #'EQ)
; --> BLOCK LET AND IF AND
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-IMPL::KEY)
;
; 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.
; --> BLOCK LET IF
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-IMPL::TEST)
;
; 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.
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-IMPL::TEST-NOT)
;
; 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.
; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS))
;
; 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.
; (ZEROP LENGTH)
; --> = IF
; ==>
; (= LENGTH 0)
;
; 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.
; (EVERY (LAMBDA (CL-PPCRE::ITEM) (EQ CL-PPCRE::ITEM :WORD-CHAR-CLASS))
; CL-PPCRE::ITEM-LIST)
; --> LET BLOCK MAP TRULY-THE
; ==>
; (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G244)
;
; note: unable to open code because: can't determine sequence argument type
; (1- (THE FIXNUM CL-PPCRE::TEST-CANDIDATE))
; ==>
; (- (THE FIXNUM CL-PPCRE::TEST-CANDIDATE) 1)
;
; note: doing signed word to integer coercion (cost 20)
; (1- CL-PPCRE::MAXIMUM)
; ==>
; (- CL-PPCRE::MAXIMUM 1)
;
; note: doing signed word to integer coercion (cost 20)
; compiling (DEFUN CONVERT ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/convert.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/optimize.lisp" (written 13 APR 2005 11:35:57 AM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFGENERIC FLATTEN ...)
; compiling (DEFMETHOD FLATTEN ...)
; compiling (DEFMETHOD FLATTEN ...)
; compiling (DEFMETHOD FLATTEN ...)
; compiling (DEFMETHOD FLATTEN ...)
; compiling (DEFGENERIC GATHER-STRINGS ...)
; compiling (DEFMETHOD GATHER-STRINGS ...)
; compiling (DEFMETHOD GATHER-STRINGS ...)
; compiling (DEFMETHOD GATHER-STRINGS ...)
; compiling (DEFMETHOD GATHER-STRINGS ...)
; compiling (DEFGENERIC START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFMETHOD START-ANCHORED-P ...)
; compiling (DEFGENERIC END-STRING-AUX ...)
; compiling (DEFMETHOD END-STRING-AUX ...)
; compiling (DEFMETHOD END-STRING-AUX ...)
; compiling (DEFMETHOD END-STRING-AUX ...)
; compiling (DEFMETHOD END-STRING-AUX ...)
; compiling (DEFMETHOD END-STRING-AUX ...)
; compiling (DEFGENERIC END-STRING ...)
; compiling (DEFMETHOD END-STRING ...)
; compiling (DEFGENERIC COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; compiling (DEFMETHOD COMPUTE-MIN-REST ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/optimize.fasl written
; compilation finished in 0:00:04
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/closures.lisp" (written 16 MAY 2005 12:29:23 PM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DECLAIM (INLINE *STRING*= ...))
; compiling (DEFUN *STRING*= ...)
; compiling (DEFUN *STRING*-EQUAL ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/closures.lisp
; in: DEFUN *STRING*-EQUAL
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; 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 (DEFGENERIC CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMACRO INSERT-CHAR-CLASS-TESTER ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/closures.lisp
; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T)
; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS))
; ==>
; CL-PPCRE::NEXT-FN
;
; note: deleting unreachable code
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER
; (CL-PPCRE::CHAR-CLASS (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; (IF (CL-PPCRE::INVERTEDP CL-PPCRE::CHAR-CLASS)
; (LAMBDA (CL-PPCRE::START-POS)
; (DECLARE (TYPE FIXNUM CL-PPCRE::START-POS))
; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*)
; (NOT #)
; (FUNCALL CL-PPCRE::NEXT-FN #)))
; (LAMBDA (CL-PPCRE::START-POS)
; (DECLARE (TYPE FIXNUM CL-PPCRE::START-POS))
; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*)
; (CL-PPCRE::CHAR-CLASS-TEST)
; (FUNCALL CL-PPCRE::NEXT-FN #)))))
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF LAMBDA FUNCTION AND IF AND IF CL-PPCRE::WORD-CHAR-P
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF LAMBDA FUNCTION AND IF AND IF CL-PPCRE::WORD-CHAR-P
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF LAMBDA FUNCTION AND IF AND IF NOT IF
; --> CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF LAMBDA FUNCTION AND IF AND IF NOT IF
; --> CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR =
; --> IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF LAMBDA FUNCTION AND IF AND IF NOT IF
; --> CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF LAMBDA FUNCTION AND IF AND IF CL-PPCRE::WORD-CHAR-P
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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 CREATE-MATCHER-AUX ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/closures.lisp
; in: DEFUN *STRING*-EQUAL
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; 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 (DECLAIM (INLINE WORD-BOUNDARY-P))
; compiling (DEFUN WORD-BOUNDARY-P ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/closures.lisp
; in: DEFUN WORD-BOUNDARY-P
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::1-START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::1-START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::1-START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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.
;
; 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.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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 CREATE-MATCHER-AUX ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/closures.lisp
; in: DEFUN WORD-BOUNDARY-P
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::1-START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::1-START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::1-START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::1-START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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.
;
; 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.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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.
;
; 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.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::1-START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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.
;
; 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.
; (CL-PPCRE::WORD-CHAR-P (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS))
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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 CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/closures.lisp
; in: DEFUN *STRING*-EQUAL
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; 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 CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/closures.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.lisp" (written 13 APR 2005 11:35:58 AM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFMACRO INCF-AFTER ...)
; compiling (DEFMACRO GREEDY-CONSTANT-LENGTH-CLOSURE ...)
; compiling (DEFUN CREATE-GREEDY-EVERYTHING-MATCHER ...)
; compiling (DEFGENERIC CREATE-GREEDY-CONSTANT-LENGTH-MATCHER ...)
; compiling (DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.lisp
; in: DEFMACRO GREEDY-CONSTANT-LENGTH-CLOSURE
; (INCF CL-PPCRE::CURR-POS CL-PPCRE::LEN)
; --> LET*
; ==>
; CL-PPCRE::LEN
;
; note: deleting unreachable code
; --> LET* +
; ==>
; CL-PPCRE::CURR-POS
;
; note: deleting unreachable code
; (GO CL-PPCRE::FORWARD-LOOP)
;
; note: deleting unreachable code
; (INCF CL-PPCRE::CURR-POS CL-PPCRE::LEN)
; --> LET*
; ==>
; CL-PPCRE::LEN
;
; note: deleting unreachable code
; --> LET* +
; ==>
; CL-PPCRE::CURR-POS
;
; note: deleting unreachable code
; (GO CL-PPCRE::FORWARD-LOOP)
;
; note: deleting unreachable code
; in: DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T)
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER
; (CL-PPCRE::REGEX (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (IF (CL-PPCRE::INVERTEDP CL-PPCRE::REGEX)
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (NOT (CL-PPCRE::CHAR-CLASS-TEST)))
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))))
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF CL-PPCRE::WORD-CHAR-P BLOCK OR
; --> LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF CL-PPCRE::WORD-CHAR-P BLOCK OR
; --> LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF CL-PPCRE::WORD-CHAR-P BLOCK OR
; --> LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF CL-PPCRE::WORD-CHAR-P BLOCK OR
; --> LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF NOT IF CL-PPCRE::WORD-CHAR-P
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF NOT IF CL-PPCRE::WORD-CHAR-P
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF NOT IF CL-PPCRE::WORD-CHAR-P
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF NOT IF CL-PPCRE::WORD-CHAR-P
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR
; CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)
; 0
; CL-PPCRE::LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; 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.
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
;
; 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.
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER
; (CL-PPCRE::REGEX (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (IF (CL-PPCRE::INVERTEDP CL-PPCRE::REGEX)
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (NOT (CL-PPCRE::CHAR-CLASS-TEST)))
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))))
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF NOT IF CL-PPCRE::WORD-CHAR-P
; --> BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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.
;
; 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.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET BLOCK TAGBODY WHEN COND IF CL-PPCRE::WORD-CHAR-P BLOCK OR
; --> LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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.
;
; 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 (DEFGENERIC CREATE-GREEDY-NO-ZERO-MATCHER ...)
; compiling (DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.lisp
; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T)
; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0)
; --> SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* + AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* - AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; compiling (DEFGENERIC CREATE-GREEDY-MATCHER ...)
; compiling (DEFMETHOD CREATE-GREEDY-MATCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.lisp
; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T)
; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; 0
; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM)
; NIL)
; --> PROGN SETF SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* + AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* - AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; compiling (DEFMACRO NON-GREEDY-CONSTANT-LENGTH-CLOSURE ...)
; compiling (DEFGENERIC CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER ...)
; compiling (DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.lisp
; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T)
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER
; (CL-PPCRE::REGEX (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (IF (CL-PPCRE::INVERTEDP CL-PPCRE::REGEX)
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (NOT (CL-PPCRE::CHAR-CLASS-TEST)))
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::CHAR-CLASS-TEST))))
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET
; --> < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET
; --> IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET
; --> < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET
; --> IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET
; --> OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET
; --> OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET
; --> OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET
; --> OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR
; CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)
; 0
; CL-PPCRE::LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; 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.
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
;
; 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.
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER
; (CL-PPCRE::REGEX (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (IF (CL-PPCRE::INVERTEDP CL-PPCRE::REGEX)
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (NOT (CL-PPCRE::CHAR-CLASS-TEST)))
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::CHAR-CLASS-TEST))))
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET
; --> OR LET < IF
; ==>
; (< GC 5)
;
; 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.
;
; 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.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA
; --> FUNCTION LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF
; --> NOT IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET ALPHANUMERICP BLOCK LET OR LET
; --> < IF
; ==>
; (< GC 5)
;
; 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.
;
; 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 (DEFGENERIC CREATE-NON-GREEDY-NO-ZERO-MATCHER ...)
; compiling (DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.lisp
; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T)
; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0)
; --> SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* + AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* - AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; compiling (DEFGENERIC CREATE-NON-GREEDY-MATCHER ...)
; compiling (DEFMETHOD CREATE-NON-GREEDY-MATCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.lisp
; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T)
; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; 0
; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM)
; NIL)
; --> PROGN SETF SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* + AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* - AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; compiling (DEFMACRO CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ...)
; compiling (DEFGENERIC CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER ...)
; compiling (DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.lisp
; in:
; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T)
; (1+ CL-PPCRE::CURR-POS)
; --> +
; ==>
; CL-PPCRE::CURR-POS
;
; note: deleting unreachable code
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER
; (CL-PPCRE::REGEX (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (IF (CL-PPCRE::INVERTEDP CL-PPCRE::REGEX)
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (NOT #) (1+ CL-PPCRE::CURR-POS)))
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))))
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; --> LAMBDA FUNCTION LET AND IF AND IF LOOP BLOCK LET SB-LOOP::LOOP-BODY
; --> TAGBODY UNLESS COND IF NOT IF AND IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET
; --> ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; --> LAMBDA FUNCTION LET AND IF AND IF LOOP BLOCK LET SB-LOOP::LOOP-BODY
; --> TAGBODY UNLESS COND IF NOT IF AND IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET
; --> ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; --> LAMBDA FUNCTION LET AND IF AND IF LOOP BLOCK LET SB-LOOP::LOOP-BODY
; --> TAGBODY UNLESS COND IF NOT IF AND IF NOT IF CL-PPCRE::WORD-CHAR-P BLOCK
; --> OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; --> LAMBDA FUNCTION LET AND IF AND IF LOOP BLOCK LET SB-LOOP::LOOP-BODY
; --> TAGBODY UNLESS COND IF NOT IF AND IF NOT IF CL-PPCRE::WORD-CHAR-P BLOCK
; --> OR LET ALPHANUMERICP BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR
; CL-PPCRE::CURR-POS
; CL-PPCRE::NEXT-POS
; 0
; CL-PPCRE::LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; 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.
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
;
; 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.
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER
; (CL-PPCRE::REGEX (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (IF (CL-PPCRE::INVERTEDP CL-PPCRE::REGEX)
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (NOT #) (1+ CL-PPCRE::CURR-POS)))
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))))
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; --> LAMBDA FUNCTION LET AND IF AND IF LOOP BLOCK LET SB-LOOP::LOOP-BODY
; --> TAGBODY UNLESS COND IF NOT IF AND IF NOT IF CL-PPCRE::WORD-CHAR-P BLOCK
; --> OR LET ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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.
; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF
; --> COND IF PROGN IF CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; --> LAMBDA FUNCTION LET AND IF AND IF LOOP BLOCK LET SB-LOOP::LOOP-BODY
; --> TAGBODY UNLESS COND IF NOT IF AND IF CL-PPCRE::WORD-CHAR-P BLOCK OR LET
; --> ALPHANUMERICP BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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 (DEFGENERIC CREATE-CONSTANT-REPETITION-MATCHER ...)
; compiling (DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.lisp
; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T)
; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0)
; --> SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* + AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* - AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; 0
; (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM)
; NIL)
; --> PROGN SETF SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))
; ==>
; (= (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION) 0)
;
; 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.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* + AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> LET* - AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; --> LET* SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
; compiling (DEFMETHOD CREATE-MATCHER-AUX ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/repetition-closures.fasl written
; compilation finished in 0:00:12
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/scanner.lisp" (written 19 JUL 2005 07:18:15 PM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFMACRO BMH-MATCHER-AUX ...)
; compiling (DEFUN CREATE-BMH-MATCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/scanner.lisp
; in: DEFUN CREATE-BMH-MATCHER
; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T)
; --> LAMBDA FUNCTION IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY LOOP BLOCK
; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF AND IF AND
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I)
; (SCHAR CL-PPCRE::PATTERN CL-PPCRE::J))
;
; 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.
; (LENGTH CL-PPCRE::PATTERN)
;
; 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-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; (SEARCH CL-PPCRE::PATTERN
; CL-PPCRE::*STRING*
; :START2
; CL-PPCRE::START-POS
; :END2
; CL-PPCRE::*END-POS*
; :TEST
; CL-PPCRE::TEST)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-STRING.
; compiling (DEFMACRO CHAR-SEARCHER-AUX ...)
; compiling (DEFUN CREATE-CHAR-SEARCHER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/scanner.lisp
; in: DEFUN CREATE-CHAR-SEARCHER
; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T)
; --> LAMBDA FUNCTION AND IF AND LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY
; --> WHEN COND IF SETQ THE AND IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I) CL-PPCRE::CHR)
;
; 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 (DECLAIM (INLINE NEWLINE-SKIPPER))
; compiling (DEFUN NEWLINE-SKIPPER ...)
; compiling (DEFMACRO INSERT-ADVANCE-FN ...)
; compiling (DEFUN CREATE-SCANNER-AUX ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/scanner.lisp
; in: DEFMACRO INSERT-ADVANCE-FN
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR
; CL-PPCRE::*START-POS*
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
; 0
; CL-PPCRE::STARTS-WITH-LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; 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.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G274)
;
; 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).
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR
; CL-PPCRE::*START-POS*
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
; 0
; CL-PPCRE::STARTS-WITH-LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; 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.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G264)
;
; 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).
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR
; CL-PPCRE::*START-POS*
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
; 0
; CL-PPCRE::STARTS-WITH-LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; 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.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G254)
;
; 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).
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR
; CL-PPCRE::*START-POS*
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
; 0
; CL-PPCRE::STARTS-WITH-LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; 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.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G244)
;
; 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).
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR
; CL-PPCRE::*START-POS*
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
; 0
; CL-PPCRE::STARTS-WITH-LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; 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.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G234)
;
; 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).
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR
; CL-PPCRE::*START-POS*
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
; 0
; CL-PPCRE::STARTS-WITH-LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; 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.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G224)
;
; 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).
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR
; CL-PPCRE::*START-POS*
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
; 0
; CL-PPCRE::STARTS-WITH-LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; 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.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G214)
;
; 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).
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR
; CL-PPCRE::*START-POS*
; (+ CL-PPCRE::*START-POS* CL-PPCRE::STARTS-WITH-LEN)
; 0
; CL-PPCRE::STARTS-WITH-LEN)
; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; 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.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G200)
;
; 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).
; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
; --> IF
; ==>
; (> CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G214)
;
; 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.
; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
; --> IF
; ==>
; (> CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G200)
;
; 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.
; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
; --> IF
; ==>
; (> CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G224)
;
; 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.
; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
; --> IF
; ==>
; (> CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G234)
;
; 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.
; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
; --> IF
; ==>
; (> CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G244)
;
; 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.
; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
; --> IF
; ==>
; (> CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G254)
;
; 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.
; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
; --> IF
; ==>
; (> CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G264)
;
; 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.
; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
; --> IF
; ==>
; (> CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; (INCF CL-PPCRE::*END-STRING-POS*)
; --> LET*
; ==>
; (+ CL-PPCRE::*END-STRING-POS* #:G274)
;
; 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.
; in: DEFUN CREATE-SCANNER-AUX
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET*
; ==>
; (SB-C::%SPECIAL-BIND
; '#<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {4016B0D9}>
; #<SB-C::LAMBDA-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :SPECVAR #<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {4016B0D9}> {408EB099}>)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of BIND
; in: DEFMACRO INSERT-ADVANCE-FN
; (FUNCALL CL-PPCRE::END-STRING-TEST (1- CL-PPCRE::END-TEST-POS))
; ==>
; (SB-C::%FUNCALL FUNCTION #:G607)
;
; note: doing signed word to integer coercion (cost 20)
; in: DEFUN CREATE-SCANNER-AUX
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (TYPE FUNCTION CL-PPCRE::END-STRING-TEST))
; (IF
; (<= (THE FIXNUM CL-PPCRE::POS)
; (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS
; (SETQ CL-PPCRE::*END-STRING-POS*
; (FUNCALL CL-PPCRE::END-STRING-TEST
; CL-PPCRE::POS))
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET*
; ==>
; (SB-C::%SPECIAL-BIND
; '#<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {4016B0D9}>
; #<SB-C::LAMBDA-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :SPECVAR #<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {4016B0D9}> {408EB111}>)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of BIND
; in: DEFMACRO INSERT-ADVANCE-FN
; (FUNCALL CL-PPCRE::END-STRING-TEST (1- CL-PPCRE::END-TEST-POS))
; ==>
; (SB-C::%FUNCALL FUNCTION #:G854)
;
; note: doing signed word to integer coercion (cost 20)
; in: DEFUN CREATE-SCANNER-AUX
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (UNLESS
; (SETQ CL-PPCRE::POS
; (CL-PPCRE::NEWLINE-SKIPPER CL-PPCRE::POS))
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET*
; ==>
; (SB-C::%SPECIAL-BIND
; '#<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {4016B0D9}>
; #<SB-C::LAMBDA-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :SPECVAR #<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {4016B0D9}> {408EB189}>)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of BIND
; in: DEFMACRO INSERT-ADVANCE-FN
; (FUNCALL CL-PPCRE::END-STRING-TEST (1- CL-PPCRE::END-TEST-POS))
; ==>
; (SB-C::%FUNCALL FUNCTION #:G1101)
;
; note: doing signed word to integer coercion (cost 20)
; in: DEFUN CREATE-SCANNER-AUX
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (TYPE FUNCTION CL-PPCRE::START-STRING-TEST))
; (UNLESS
; (SETQ CL-PPCRE::POS
; (FUNCALL CL-PPCRE::START-STRING-TEST
; CL-PPCRE::POS))
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET*
; ==>
; (SB-C::%SPECIAL-BIND
; '#<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {4016B0D9}>
; #<SB-C::LAMBDA-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :SPECVAR #<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {4016B0D9}> {408EB201}>)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of BIND
; in: DEFMACRO INSERT-ADVANCE-FN
; (FUNCALL CL-PPCRE::END-STRING-TEST (1- CL-PPCRE::END-TEST-POS))
; ==>
; (SB-C::%FUNCALL FUNCTION #:G1348)
;
; note: doing signed word to integer coercion (cost 20)
; in: DEFUN CREATE-SCANNER-AUX
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (TYPE FUNCTION CL-PPCRE::END-STRING-TEST))
; (UNLESS
; (SETQ CL-PPCRE::POS
; (CL-PPCRE::NEWLINE-SKIPPER CL-PPCRE::POS))
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF
; (<= (THE FIXNUM CL-PPCRE::POS)
; (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS
; (SETQ CL-PPCRE::*END-STRING-POS*
; (FUNCALL CL-PPCRE::END-STRING-TEST
; CL-PPCRE::POS))
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET*
; ==>
; (SB-C::%SPECIAL-BIND
; '#<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {4016B0D9}>
; #<SB-C::LAMBDA-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :SPECVAR #<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {4016B0D9}> {408EB279}>)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of BIND
; in: DEFMACRO INSERT-ADVANCE-FN
; (FUNCALL CL-PPCRE::END-STRING-TEST (1- CL-PPCRE::END-TEST-POS))
; ==>
; (SB-C::%FUNCALL FUNCTION #:G1596)
;
; note: doing signed word to integer coercion (cost 20)
; in: DEFUN CREATE-SCANNER-AUX
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE
; (TYPE FUNCTION
; CL-PPCRE::START-STRING-TEST
; CL-PPCRE::END-STRING-TEST))
; (UNLESS
; (SETQ CL-PPCRE::POS
; (FUNCALL CL-PPCRE::START-STRING-TEST
; CL-PPCRE::POS))
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF
; (<= (THE FIXNUM CL-PPCRE::POS)
; (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS
; (SETQ CL-PPCRE::*END-STRING-POS*
; (FUNCALL CL-PPCRE::END-STRING-TEST
; CL-PPCRE::POS))
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> LAMBDA FUNCTION BLOCK LET*
; ==>
; (SB-C::%SPECIAL-BIND
; '#<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {4016B0D9}>
; #<SB-C::LAMBDA-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :SPECVAR #<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {4016B0D9}> {408EB2F1}>)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of BIND
; in: DEFMACRO INSERT-ADVANCE-FN
; (FUNCALL CL-PPCRE::END-STRING-TEST (1- CL-PPCRE::END-TEST-POS))
; ==>
; (SB-C::%FUNCALL FUNCTION #:G1845)
;
; note: doing signed word to integer coercion (cost 20)
; in: DEFUN CREATE-SCANNER-AUX
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (TYPE FIXNUM CL-PPCRE::END-STRING-OFFSET)
; (TYPE FUNCTION CL-PPCRE::END-STRING-TEST))
; (LOOP
; (UNLESS (SETQ CL-PPCRE::POS #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> LAMBDA FUNCTION BLOCK LET*
; ==>
; (SB-C::%SPECIAL-BIND
; '#<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {4016B0D9}>
; #<SB-C::LAMBDA-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :SPECVAR #<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {4016B0D9}> {408EB369}>)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of BIND
; (SETQ CL-PPCRE::TRY-POS (1+ CL-PPCRE::*END-STRING-POS*))
;
; note: doing signed word to integer coercion (cost 20) to TRY-POS
;
; note: doing signed word to integer coercion (cost 20) to TRY-POS
; in: DEFMACRO INSERT-ADVANCE-FN
; (FUNCALL CL-PPCRE::END-STRING-TEST (1- CL-PPCRE::END-TEST-POS))
; ==>
; (SB-C::%FUNCALL FUNCTION #:G2094)
;
; note: doing signed word to integer coercion (cost 20)
; in: DEFUN CREATE-SCANNER-AUX
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE
; (TYPE FIXNUM
; CL-PPCRE::END-STRING-OFFSET
; CL-PPCRE::STARTS-WITH-LEN)
; (TYPE FUNCTION
; CL-PPCRE::START-STRING-TEST
; CL-PPCRE::END-STRING-TEST))
; (LOOP
; (UNLESS (SETQ CL-PPCRE::POS #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> LAMBDA FUNCTION BLOCK LET*
; ==>
; (SB-C::%SPECIAL-BIND
; '#<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {4016B0D9}>
; #<SB-C::LAMBDA-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :SPECVAR #<SB-C::GLOBAL-VAR
; :%SOURCE-NAME CL-PPCRE::*END-STRING-POS*
; :KIND :SPECIAL {4016B0D9}> {408EB3E1}>)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of BIND
; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS)
; ==>
; (SB-C::%FUNCALL FUNCTION #:G2348)
;
; note: doing signed word to integer coercion (cost 20) from TRY-POS
; ==>
; (SB-C::%FUNCALL FUNCTION #:G2100)
;
; note: doing signed word to integer coercion (cost 20) from TRY-POS
; in: DEFMACRO INSERT-ADVANCE-FN
; (FUNCALL CL-PPCRE::END-STRING-TEST (1- CL-PPCRE::END-TEST-POS))
; ==>
; (SB-C::%FUNCALL FUNCTION #:G2343)
;
; note: doing signed word to integer coercion (cost 20)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/scanner.fasl written
; compilation finished in 0:00:06
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp" (written 06 DEC 2005 11:50:50 AM):
; compiling (IN-PACKAGE #:CL-PPCRE)
; compiling (DEFGENERIC CREATE-SCANNER ...)
; compiling (DEFMETHOD CREATE-SCANNER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFMETHOD CREATE-SCANNER (STRING)
; (COPY-SEQ CL-PPCRE::QUOTED-REGEX-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).
; compiling (DEFMETHOD CREATE-SCANNER ...)
; compiling (DEFMETHOD CREATE-SCANNER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFMETHOD CREATE-SCANNER (T)
; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING))
; ==>
; (> (CL-PPCRE::LEN CL-PPCRE::END-STRING) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING))
; --> = IF
; ==>
; (= SB-C::Y 1)
;
; 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.
; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH))
; ==>
; (> (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH))
; --> = IF
; ==>
; (= SB-C::Y 1)
;
; 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.
; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING))
; ==>
; (> (CL-PPCRE::LEN CL-PPCRE::END-STRING) 0)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH))
; ==>
; (> (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) 0)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
; compiling (DEFGENERIC SCAN ...)
; compiling (DEFMETHOD SCAN ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFMETHOD SCAN (STRING T)
; (LENGTH CL-PPCRE::TARGET-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.
; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING)
; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
; CL-PPCRE::START
; CL-PPCRE::END)
; --> 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 (DEFMETHOD SCAN ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFMETHOD SCAN #'T
; (LENGTH CL-PPCRE::TARGET-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.
; compiling (DEFMETHOD SCAN ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFMETHOD SCAN (T T)
; (LENGTH CL-PPCRE::TARGET-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.
; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE)
; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
; CL-PPCRE::START
; CL-PPCRE::END)
; --> 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 (DEFINE-COMPILER-MACRO SCAN ...)
; compiling (DEFUN SCAN-TO-STRINGS ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN SCAN-TO-STRINGS
; (MAP 'VECTOR
; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END)
; (IF CL-PPCRE::REG-START
; (FUNCALL CL-PPCRE::SUBSTR-FN
; CL-PPCRE::TARGET-STRING
; CL-PPCRE::REG-START
; CL-PPCRE::REG-END)
; NIL))
; CL-PPCRE::REG-STARTS
; CL-PPCRE::REG-ENDS)
; --> TRULY-THE
; ==>
; (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G235 #:G236)
;
; note: unable to open code because: can't determine sequence argument type
; (LENGTH CL-PPCRE::TARGET-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.
; compiling (DEFINE-COMPILER-MACRO SCAN-TO-STRINGS ...)
; compiling (DEFMACRO REGISTER-GROUPS-BIND ...)
; compiling (DEFMACRO DO-SCANS ...)
; compiling (DEFMACRO DO-MATCHES ...)
; compiling (DEFMACRO DO-MATCHES-AS-STRINGS ...)
; compiling (DEFMACRO DO-REGISTER-GROUPS ...)
; compiling (DEFUN ALL-MATCHES ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN ALL-MATCHES
; (CL-PPCRE:DO-MATCHES
; (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; (NREVERSE CL-PPCRE::RESULT-LIST)
; :START
; CL-PPCRE::START
; :END
; CL-PPCRE::END)
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST)
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST))
; --> CL-PPCRE:DO-SCANS LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-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.
; --> CL-PPCRE:DO-SCANS LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+
; ==>
; (+ CL-PPCRE::MATCH-END 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).
; (LENGTH CL-PPCRE::TARGET-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.
; (CL-PPCRE:DO-MATCHES
; (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; (NREVERSE CL-PPCRE::RESULT-LIST)
; :START
; CL-PPCRE::START
; :END
; CL-PPCRE::END)
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST)
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST))
; --> CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF OR
; ==>
; (LENGTH #:TARGET-STRING334)
;
; 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.
; --> CL-PPCRE:DO-SCANS LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; 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.
; --> CL-PPCRE:DO-SCANS LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+
; ==>
; (+ CL-PPCRE::MATCH-END 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.
; compiling (DEFINE-COMPILER-MACRO ALL-MATCHES ...)
; compiling (DEFUN ALL-MATCHES-AS-STRINGS ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN ALL-MATCHES-AS-STRINGS
; (CL-PPCRE:DO-MATCHES-AS-STRINGS
; (CL-PPCRE::MATCH CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; (NREVERSE CL-PPCRE::RESULT-LIST)
; :START
; CL-PPCRE::START
; :END
; CL-PPCRE::END
; :SHAREDP
; CL-PPCRE::SHAREDP)
; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST))
; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* BLOCK
; --> TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF
; ==>
; (= #:MATCH-START382 #:MATCH-END383)
;
; 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.
; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* BLOCK
; --> TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+
; ==>
; (+ #:MATCH-END383 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).
; (LENGTH CL-PPCRE::TARGET-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.
; (CL-PPCRE:DO-MATCHES-AS-STRINGS
; (CL-PPCRE::MATCH CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; (NREVERSE CL-PPCRE::RESULT-LIST)
; :START
; CL-PPCRE::START
; :END
; CL-PPCRE::END
; :SHAREDP
; CL-PPCRE::SHAREDP)
; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST))
; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF OR
; ==>
; (LENGTH #:TARGET-STRING387)
;
; 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.
; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* BLOCK
; --> TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF
; ==>
; (= #:MATCH-START382 #:MATCH-END383)
;
; 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.
; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* BLOCK
; --> TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+
; ==>
; (+ #:MATCH-END383 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.
; compiling (DEFINE-COMPILER-MACRO ALL-MATCHES-AS-STRINGS ...)
; compiling (DEFUN SPLIT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN SPLIT
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-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.
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))
;
; 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.
; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (LOOP CL-PPCRE::FOR
; CL-PPCRE::REG-START
; CL-PPCRE::ACROSS
; CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR
; CL-PPCRE::REG-END
; CL-PPCRE::ACROSS
; CL-PPCRE::REG-ENDS
; IF
; CL-PPCRE::REG-START
; DO
; ...)
; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY SETQ THE
; ==>
; (LENGTH #:LOOP-ACROSS-VECTOR-449)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR NULL VECTOR), not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR NULL VECTOR), not a VECTOR.
; ==>
; (LENGTH #:LOOP-ACROSS-VECTOR-452)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR NULL VECTOR), not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR NULL VECTOR), not a VECTOR.
; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ
; --> THE 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 VECTOR, 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.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, 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.
; (CL-PPCRE:DO-SCANS
; (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS
; CL-PPCRE::REG-ENDS
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; NIL
; :START
; CL-PPCRE::START
; :END
; CL-PPCRE::END)
; (UNLESS
; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)))
; (WHEN (AND CL-PPCRE::LIMIT (>= # CL-PPCRE::LIMIT)) (RETURN))
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (WHEN CL-PPCRE::WITH-REGISTERS-P
; (LOOP CL-PPCRE::FOR
; CL-PPCRE::REG-START
; CL-PPCRE::ACROSS
; CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR
; CL-PPCRE::REG-END
; CL-PPCRE::ACROSS
; CL-PPCRE::REG-ENDS
; IF
; CL-PPCRE::REG-START
; DO
; ...))
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)))
; --> LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION SETQ THE IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-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.
; --> LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION SETQ THE IF 1+
; ==>
; (+ CL-PPCRE::MATCH-END 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).
; (LENGTH CL-PPCRE::TARGET-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.
; (CL-PPCRE:DO-SCANS
; (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS
; CL-PPCRE::REG-ENDS
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; NIL
; :START
; CL-PPCRE::START
; :END
; CL-PPCRE::END)
; (UNLESS
; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)))
; (WHEN (AND CL-PPCRE::LIMIT (>= # CL-PPCRE::LIMIT)) (RETURN))
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (WHEN CL-PPCRE::WITH-REGISTERS-P
; (LOOP CL-PPCRE::FOR
; CL-PPCRE::REG-START
; CL-PPCRE::ACROSS
; CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR
; CL-PPCRE::REG-END
; CL-PPCRE::ACROSS
; CL-PPCRE::REG-ENDS
; IF
; CL-PPCRE::REG-START
; DO
; ...))
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)))
; --> LET BLOCK LET* OR LET IF OR
; ==>
; (LENGTH #:TARGET-STRING436)
;
; 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.
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; 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.
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))
;
; 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.
; (INCF CL-PPCRE::COUNTER)
; --> LET*
; ==>
; (+ CL-PPCRE::COUNTER #:G446)
;
; 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.
; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT)
; --> IF
; ==>
; (< (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; (CL-PPCRE:DO-SCANS
; (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS
; CL-PPCRE::REG-ENDS
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; NIL
; :START
; CL-PPCRE::START
; :END
; CL-PPCRE::END)
; (UNLESS
; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)))
; (WHEN (AND CL-PPCRE::LIMIT (>= # CL-PPCRE::LIMIT)) (RETURN))
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (WHEN CL-PPCRE::WITH-REGISTERS-P
; (LOOP CL-PPCRE::FOR
; CL-PPCRE::REG-START
; CL-PPCRE::ACROSS
; CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR
; CL-PPCRE::REG-END
; CL-PPCRE::ACROSS
; CL-PPCRE::REG-ENDS
; IF
; CL-PPCRE::REG-START
; DO
; ...))
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)))
; --> LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION SETQ THE IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; 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.
; --> LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION SETQ THE IF 1+
; ==>
; (+ CL-PPCRE::MATCH-END 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.
; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; compiling (DEFINE-COMPILER-MACRO SPLIT ...)
; compiling (DEFUN STRING-CASE-MODIFIER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN STRING-CASE-MODIFIER
; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM))
; --> 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.
; (ALPHANUMERICP (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CHAR CL-PPCRE::STR CL-PPCRE::FROM)
; --> 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.
; (ALPHANUMERICP (CHAR CL-PPCRE::STR CL-PPCRE::FROM))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CHAR CL-PPCRE::STR CL-PPCRE::TO)
; --> 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.
; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO))
; --> 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.
; (ALPHANUMERICP (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX)
; --> 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.
; (ALPHANUMERICP (CHAR CL-PPCRE::STR CL-PPCRE::TO))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> BLOCK LET OR LET IF OR = IF
; ==>
; (= GC 12)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (BOTH-CASE-P CL-PPCRE::CHR)
; --> BLOCK < IF
; ==>
; (< (SB-IMPL::UCD-VALUE-0 CHAR) 2)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (UPPER-CASE-P CL-PPCRE::CHR)
; --> BLOCK = IF
; ==>
; (= (SB-IMPL::UCD-VALUE-0 CHAR) 0)
;
; 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.
; (ALPHANUMERICP (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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.
; (ALPHANUMERICP (CHAR CL-PPCRE::STR CL-PPCRE::FROM))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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.
; (ALPHANUMERICP (CHAR CL-PPCRE::STR CL-PPCRE::TO))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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.
; (ALPHANUMERICP (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)))
; --> BLOCK LET OR LET < IF
; ==>
; (< GC 5)
;
; 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.
; (BOTH-CASE-P CL-PPCRE::CHR)
; --> BLOCK < IF
; ==>
; (< (SB-IMPL::UCD-VALUE-0 CHAR) 2)
;
; 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 (DEFGENERIC BUILD-REPLACEMENT-TEMPLATE ...)
; compiling (LET* (# #) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFMETHOD BUILD-REPLACEMENT-TEMPLATE (STRING)
; (SUBSEQ CL-PPCRE::REPLACEMENT-STRING CL-PPCRE::FROM)
;
; 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 CL-PPCRE::REPLACEMENT-STRING CL-PPCRE::FROM CL-PPCRE::MATCH-START)
;
; 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).
; (POSITION-IF #'DIGIT-CHAR-P
; CL-PPCRE::REPLACEMENT-STRING
; :START
; CL-PPCRE::MATCH-START
; :END
; CL-PPCRE::MATCH-END)
; --> 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
; because:
; upgraded array element type not known at compile time
; (CHAR CL-PPCRE::REPLACEMENT-STRING (1+ CL-PPCRE::MATCH-START))
; --> 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.
; (SUBSEQ CL-PPCRE::REPLACEMENT-STRING
; CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-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).
; (< CL-PPCRE::FROM CL-PPCRE::MATCH-START)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (1-
; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING
; :START
; CL-PPCRE::PARSE-START
; :JUNK-ALLOWED
; T))
; ==>
; (-
; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING
; :START
; CL-PPCRE::PARSE-START
; :JUNK-ALLOWED
; T)
; 1)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (< CL-PPCRE::TOKEN 0)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; compiling (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...)
; compiling (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...)
; compiling (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...)
; compiling (DEFUN BUILD-REPLACEMENT ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN BUILD-REPLACEMENT
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING
; CL-PPCRE::REG-START
; CL-PPCRE::REG-END)
; --> BLOCK MAKE-ARRAY
; ==>
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING
; CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
; --> BLOCK MAKE-ARRAY
; ==>
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0)
;
; note: unable to
; optimize
; because:
; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime.
; (MAP 'LIST
; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END)
; (AND CL-PPCRE::REG-START
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING
; CL-PPCRE::REG-START
; CL-PPCRE::REG-END)))
; CL-PPCRE::REG-STARTS
; CL-PPCRE::REG-ENDS)
; --> TRULY-THE
; ==>
; (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G738 #:G739)
;
; note: unable to open code because: can't determine sequence argument type
; ==>
; (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G747 #:G748)
;
; note: unable to open code because: can't determine sequence argument type
; (>= CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND)
; --> IF
; ==>
; (< CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; (1+ CL-PPCRE::TOKEN)
; ==>
; (+ CL-PPCRE::TOKEN 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.
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING
; CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
; --> BLOCK MAKE-ARRAY
; ==>
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING
; CL-PPCRE::REG-START
; CL-PPCRE::REG-END)
; --> BLOCK MAKE-ARRAY
; ==>
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; etc.
; compiling (DEFUN REPLACE-AUX ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN REPLACE-AUX
; (FUNCALL
; (CL-PPCRE::STRING-CASE-MODIFIER CL-PPCRE::TARGET-STRING
; CL-PPCRE::FROM
; CL-PPCRE::TO
; CL-PPCRE::START
; CL-PPCRE::END)
; CL-PPCRE::CURR-REPLACEMENT)
; --> 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 NULL FUNCTION), not a FUNCTION.
; compiling (DEFUN REGEX-REPLACE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN REGEX-REPLACE
; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END)
;
; 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).
; (LENGTH CL-PPCRE::TARGET-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.
; compiling (DEFINE-COMPILER-MACRO REGEX-REPLACE ...)
; compiling (DEFUN REGEX-REPLACE-ALL ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN REGEX-REPLACE-ALL
; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END)
;
; 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).
; (CL-PPCRE:DO-SCANS
; (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS
; CL-PPCRE::REG-ENDS
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; NIL
; :START
; CL-PPCRE::START
; :END
; CL-PPCRE::END)
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)
; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST)
; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST))
; --> LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION SETQ THE IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-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.
; --> LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION SETQ THE IF 1+
; ==>
; (+ CL-PPCRE::MATCH-END 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).
; (LENGTH CL-PPCRE::TARGET-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.
; (CL-PPCRE:DO-SCANS
; (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS
; CL-PPCRE::REG-ENDS
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; NIL
; :START
; CL-PPCRE::START
; :END
; CL-PPCRE::END)
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)
; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST)
; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST))
; --> LET BLOCK LET* OR LET IF OR
; ==>
; (LENGTH #:TARGET-STRING839)
;
; 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.
; --> LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION SETQ THE IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; 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.
; --> LET BLOCK LET* BLOCK TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; --> FUNCTION SETQ THE IF 1+
; ==>
; (+ CL-PPCRE::MATCH-END 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.
; compiling (DEFINE-COMPILER-MACRO REGEX-REPLACE-ALL ...)
; compiling (DEFMACRO REGEX-APROPOS-AUX ...)
; compiling (DEFUN REGEX-APROPOS-LIST ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN REGEX-APROPOS-LIST
; (DEFUN CL-PPCRE:REGEX-APROPOS-LIST
; (CL-PPCRE::REGEX
; &OPTIONAL CL-PPCRE::PACKAGES
; &KEY (CL-PPCRE::CASE-INSENSITIVE T))
; (DECLARE
; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; "Similar to the standard function APROPOS-LIST but returns a list of
; all symbols which match the regular expression REGEX. If
; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a
; case-insensitive scanner is used."
; (LET ((CL-PPCRE::COLLECTOR 'NIL))
; (CL-PPCRE::REGEX-APROPOS-AUX
; (CL-PPCRE::REGEX CL-PPCRE::PACKAGES
; CL-PPCRE::CASE-INSENSITIVE
; CL-PPCRE::COLLECTOR)
; (PUSH SYMBOL CL-PPCRE::COLLECTOR))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS-LIST
; (CL-PPCRE::REGEX &OPTIONAL
; CL-PPCRE::PACKAGES
; &KEY
; (CL-PPCRE::CASE-INSENSITIVE T))
; (DECLARE
; (OPTIMIZE SPEED
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 1)
; (COMPILATION-SPEED 0)))
; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST
; (LET ((CL-PPCRE::COLLECTOR 'NIL))
; (CL-PPCRE::REGEX-APROPOS-AUX
; (CL-PPCRE::REGEX CL-PPCRE::PACKAGES
; CL-PPCRE::CASE-INSENSITIVE
; CL-PPCRE::COLLECTOR)
; (PUSH SYMBOL CL-PPCRE::COLLECTOR)))))
;
; caught STYLE-WARNING:
; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL
; PACKAGES
; &KEY
; (CASE-INSENSITIVE T))
; in: LAMBDA (#:WHOLE919 #:ENVIRONMENT920)
; (MEMBER SB-IMPL::THIS-KIND '(:INTERNAL :EXTERNAL :INHERITED))
; --> BLOCK LET DO BLOCK LET TAGBODY TAGBODY LET IF SB-IMPL::SATISFIES-THE-TEST
; --> LET COND IF COND IF COND IF PROGN FUNCALL
; ==>
; (SB-C::%FUNCALL FUNCTION #:G26 #:G27)
;
; 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.
;
; 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 (DEFUN PRINT-SYMBOL-INFO ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN PRINT-SYMBOL-INFO
; (FORMAT T "~&~S ~<~;~^~A~@{~:@_~A~}~;~:>" SYMBOL CL-PPCRE::OUTPUT-LIST)
; --> FORMAT FORMATTER FUNCTION BLOCK LET PPRINT-LOGICAL-BLOCK
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET BLOCK LET IF
; --> SB-KERNEL:WITH-CIRCULARITY-DETECTION LABELS BLOCK SB-KERNEL:DESCEND-INTO
; --> FLET COND IF AND IF AND IF AND >= IF
; ==>
; (< SB-KERNEL:*CURRENT-LEVEL-IN-PRINT* *PRINT-LEVEL*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FORMAT FORMATTER FUNCTION BLOCK LET PPRINT-LOGICAL-BLOCK
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET BLOCK LET IF
; --> SB-KERNEL:WITH-CIRCULARITY-DETECTION LABELS BLOCK SB-KERNEL:DESCEND-INTO
; --> FLET COND IF COND IF PROGN LET 1+
; ==>
; (+ SB-KERNEL:*CURRENT-LEVEL-IN-PRINT* 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).
; --> FORMAT FORMATTER FUNCTION BLOCK LET PPRINT-LOGICAL-BLOCK
; --> SB-PRETTY::WITH-PRETTY-STREAM
; ==>
; (FLET ((#:WITH-PRETTY-STREAM-1399 (STREAM)
; (LET (#)
; (IF # # #))))
; (LET ((STREAM
; (LET #
; #)))
; (IF (SB-PRETTY:PRETTY-STREAM-P STREAM)
; (#:WITH-PRETTY-STREAM-1399 STREAM)
; (CATCH 'SB-PRETTY::LINE-LIMIT-ABBREVIATION-HAPPENED
; (LET #
; #
; #))))
; NIL)
;
; note: Return type not fixed values, so can't use known return convention:
; *
; --> FORMAT FORMATTER FUNCTION BLOCK LET PPRINT-LOGICAL-BLOCK
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET BLOCK LET IF
; --> SB-KERNEL:WITH-CIRCULARITY-DETECTION LABELS BLOCK SB-KERNEL:DESCEND-INTO
; --> FLET BLOCK LET BLOCK FLET BLOCK WHEN COND IF AND IF AND
; ==>
; (EQL #:PPRINT-LOGICAL-BLOCK-LENGTH-1397 *PRINT-LENGTH*)
;
; note: forced to do GENERIC-EQL (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a (OR UNSIGNED-BYTE NULL), not a FIXNUM.
; --> FORMAT FORMATTER FUNCTION BLOCK LET PPRINT-LOGICAL-BLOCK
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET BLOCK LET IF
; --> SB-KERNEL:WITH-CIRCULARITY-DETECTION LABELS BLOCK SB-KERNEL:DESCEND-INTO
; --> FLET COND IF AND IF AND IF AND >= IF
; ==>
; (< SB-KERNEL:*CURRENT-LEVEL-IN-PRINT* *PRINT-LEVEL*)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; --> FORMAT FORMATTER FUNCTION BLOCK LET PPRINT-LOGICAL-BLOCK
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET BLOCK LET IF
; --> SB-KERNEL:WITH-CIRCULARITY-DETECTION LABELS BLOCK SB-KERNEL:DESCEND-INTO
; --> FLET COND IF COND IF PROGN LET 1+
; ==>
; (+ SB-KERNEL:*CURRENT-LEVEL-IN-PRINT* 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.
; compiling (DEFUN REGEX-APROPOS ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.lisp
; in: DEFUN REGEX-APROPOS
; (DEFUN CL-PPCRE:REGEX-APROPOS
; (CL-PPCRE::REGEX
; &OPTIONAL CL-PPCRE::PACKAGES
; &KEY (CL-PPCRE::CASE-INSENSITIVE T))
; "Similar to the standard function APROPOS but returns a list of all
; symbols which match the regular expression REGEX. If CASE-INSENSITIVE
; is true and REGEX isn't already a scanner, a case-insensitive scanner
; is used."
; (DECLARE
; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (CL-PPCRE::REGEX-APROPOS-AUX
; (CL-PPCRE::REGEX CL-PPCRE::PACKAGES CL-PPCRE::CASE-INSENSITIVE)
; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL))
; (VALUES))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS
; (CL-PPCRE::REGEX &OPTIONAL
; CL-PPCRE::PACKAGES
; &KEY
; (CL-PPCRE::CASE-INSENSITIVE T))
; (DECLARE
; (OPTIMIZE SPEED
; (SAFETY 0)
; (SPACE 0)
; (DEBUG 1)
; (COMPILATION-SPEED 0)))
; (BLOCK CL-PPCRE:REGEX-APROPOS
; (CL-PPCRE::REGEX-APROPOS-AUX
; (CL-PPCRE::REGEX CL-PPCRE::PACKAGES
; CL-PPCRE::CASE-INSENSITIVE)
; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL))
; (VALUES)))
;
; caught STYLE-WARNING:
; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL
; PACKAGES
; &KEY
; (CASE-INSENSITIVE T))
; in: LAMBDA (#:WHOLE1465 #:ENVIRONMENT1466)
; (MEMBER SB-IMPL::THIS-KIND '(:INTERNAL :EXTERNAL :INHERITED))
; --> BLOCK LET DO BLOCK LET TAGBODY TAGBODY LET IF SB-IMPL::SATISFIES-THE-TEST
; --> LET COND IF COND IF COND IF PROGN FUNCALL
; ==>
; (SB-C::%FUNCALL FUNCTION #:G26 #:G27)
;
; 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.
;
; 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 (LET* (# #) ...)
; compiling (LET* (# # ...) ...)
; compiling (LET* (# # ...) ...)
; compiling (DEFUN PARSE-TREE-SYNONYM ...)
; compiling (DEFUN (SETF PARSE-TREE-SYNONYM) ...)
; compiling (DEFMACRO DEFINE-PARSE-TREE-SYNONYM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-ppcre-1.2.13/api.fasl written
; compilation finished in 0:00:04
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {10007DA9}> on
#<CL-SOURCE-FILE "api" {10007DB9}>.
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; printed 713 notes
;;; ASDF-INSTALL: Downloading package SALZA, required by poly-pen
;;; ASDF-INSTALL: Downloading 13934 bytes from http://www.xach.com/lisp/salza/salza-0.7.2.tar.gz to /Users/gwking/temporary/asdf-test/salza.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/salza.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/
salza-0.7.2/
salza-0.7.2/ChangeLog
salza-0.7.2/LICENSE
salza-0.7.2/README
salza-0.7.2/compressor.lisp
salza-0.7.2/deflate-stream-interface.lisp
salza-0.7.2/deflate-stream.lisp
salza-0.7.2/fixhash.lisp
salza-0.7.2/huffman.lisp
salza-0.7.2/octet-replace.lisp
salza-0.7.2/packages.lisp
salza-0.7.2/salza.asd
salza-0.7.2/types.lisp
salza-0.7.2/zlib.lisp
salza-0.7.2/examples/
salza-0.7.2/examples/gzip.lisp
salza-0.7.2/examples/png.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/fixhash.lisp" (written 01 APR 2005 04:55:24 PM):
; compiling (DEFPACKAGE :FIXHASH ...)
; compiling (IN-PACKAGE :FIXHASH)
; compiling (DEFTYPE FIXHASH-INTEGER ...)
; compiling (DEFPARAMETER *SIZES* ...)
; compiling (DEFSTRUCT FIXHASH-TABLE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN REHASH ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/fixhash.lisp
; in: DEFUN REHASH
; (* FIXHASH::NEW-SIZE 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).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
;
; note: unable to
; recode as shifts and adds
; due to type uncertainty:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES FIXNUM
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; etc.
; compiling (DEFUN GETFIXHASH ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/fixhash.lisp
; in: DEFUN GETFIXHASH
; (MOD FIXHASH::K (1- FIXHASH::SIZE))
; --> BLOCK LET REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-KERNEL::DIVISOR)
;
; note: forced to do fixnum truncate (cost 50)
; unable to do unsigned fixnum truncate (cost 45) because:
; The second argument is a (INTEGER -1 131071), not a (UNSIGNED-BYTE 29).
; The result is a (VALUES (INTEGER -16777215 16777215)
; (MOD 131071)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; compiling (DEFUN (SETF GETFIXHASH) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/fixhash.lisp
; in: DEFUN (SETF GETFIXHASH)
; (MOD FIXHASH::K (1- FIXHASH::SIZE))
; --> BLOCK LET REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-KERNEL::DIVISOR)
;
; note: forced to do fixnum truncate (cost 50)
; unable to do unsigned fixnum truncate (cost 45) because:
; The second argument is a (INTEGER -1 131071), not a (UNSIGNED-BYTE 29).
; The result is a (VALUES (INTEGER -16777215 16777215)
; (MOD 131071)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; compiling (DEFUN CLRFIXHASH ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/fixhash.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/packages.lisp" (written 25 MAR 2005 04:09:02 PM):
; compiling (IN-PACKAGE :CL)
; compiling (DEFPACKAGE :SALZA-TYPES ...)
; compiling (DEFPACKAGE :SALZA-DEFLATE ...)
; compiling (DEFPACKAGE :SALZA ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/types.lisp" (written 01 APR 2005 05:09:58 PM):
; compiling (IN-PACKAGE :SALZA-TYPES)
; compiling (DEFTYPE OCTET ...)
; compiling (DEFTYPE BUFFER-OFFSET ...)
; compiling (DEFTYPE OCTET-VECTOR ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/types.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/deflate-stream.lisp" (written 28 APR 2005 02:45:26 PM):
; compiling (IN-PACKAGE :SALZA-DEFLATE)
; compiling (DECLAIM (INLINE DEFLATE-STREAM-BUFFER))
; compiling (DECLAIM (INLINE DEFLATE-STREAM-POS))
; compiling (DECLAIM (INLINE DEFLATE-STREAM-BYTE))
; compiling (DECLAIM (INLINE DEFLATE-STREAM-END))
; compiling (DECLAIM (INLINE DEFLATE-STREAM-BITS-LEFT))
; compiling (DEFINE-CONDITION DEFLATE-STREAM-BUFFER-FULL ...)
; compiling (DEFVAR *COMPRESSOR-BUFFER-SIZE* ...)
; compiling (DEFSTRUCT (DEFLATE-STREAM #) ...)
; compiling (DEFUN DEFAULT-CALLBACK ...)
; compiling (DEFUN MAKE-DEFLATE-STREAM ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN WRITE-BITS ...)
; compiling (DEFCONSTANT +DEFLATE-FIXED-TABLES-CODE+ ...)
; compiling (DEFUN WRITE-BLOCK-HEADER ...)
; compiling (DEFUN FLUSH-DEFLATE-STREAM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/deflate-stream.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/huffman.lisp" (written 20 MAR 2005 04:33:49 PM):
; compiling (IN-PACKAGE :SALZA-DEFLATE)
; compiling (DEFUN REVERSE-BITS ...)
; compiling (DEFUN FIXED-HUFFMAN-TABLE ...)
; compiling (DEFUN SAVE-PAIR ...)
; compiling (DEFUN LENGTH-TABLE ...)
; compiling (DEFUN DISTANCE-TABLE ...)
; compiling (LET (#) ...)
; compiling (LET (#) ...)
; compiling (LET (#) ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/huffman.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/octet-replace.lisp" (written 23 MAR 2005 03:14:19 PM):
; compiling (IN-PACKAGE :SALZA-DEFLATE)
; compiling (DEFUN OCTET-REPLACE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/octet-replace.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/compressor.lisp" (written 01 APR 2005 04:59:25 PM):
; compiling (IN-PACKAGE :SALZA-DEFLATE)
; compiling (DEFUN COMPRESS ...)
; compiling (DEFUN COMPRESS-INPUT ...)
; compiling (DEFUN COMPRESS-SEQUENCE ...)
; compiling (DEFUN FINISH-COMPRESS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/compressor.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/deflate-stream-interface.lisp" (written 23 MAR 2005 02:55:20 PM):
; compiling (IN-PACKAGE :SALZA-DEFLATE)
; compiling (DEFUN START-DEFLATE-STREAM ...)
; compiling (DEFUN FINISH-DEFLATE-STREAM ...)
; compiling (DEFUN DEFLATE-WRITE-SEQUENCE ...)
; compiling (DEFUN DEFLATE-WRITE-BYTE ...)
; compiling (WHEN (<= CHAR-CODE-LIMIT ...) ...); in: LAMBDA NIL
; (PUSHNEW :OCTET-CHARACTERS *FEATURES*)
; --> LET* ADJOIN
; ==>
; *FEATURES*
;
; note: deleting unreachable code
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/deflate-stream-interface.lisp
; in: EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
; (PUSHNEW :OCTET-CHARACTERS *FEATURES*)
; --> LET* ADJOIN
; ==>
; *FEATURES*
;
; note: deleting unreachable code
; compiling (DEFUN STRING-TO-OCTETS ...)
; compiling (DEFUN DEFLATE-WRITE-STRING ...)
; compiling (DEFUN CRC32-TABLE ...)
; compiling (LET (#) ...)
; compiling (DEFUN CRC32-SEQUENCE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/deflate-stream-interface.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/zlib.lisp" (written 05 APR 2005 03:53:27 PM):
; compiling (IN-PACKAGE :SALZA)
; compiling (DEFCONSTANT +ADLER32-BASE+ ...)
; compiling (DEFUN ADLER32 ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/zlib.lisp
; in: DEFUN ADLER32
; (MOD SALZA::S1 SALZA::+ADLER32-BASE+)
; --> BLOCK LET REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-KERNEL::DIVISOR)
;
; note: forced to do fixnum truncate (cost 50)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES (INTEGER -8193 8193)
; (INTEGER -65520 65520)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; (MOD SALZA::S2 SALZA::+ADLER32-BASE+)
; --> BLOCK LET REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (TRUNCATE NUMBER SB-KERNEL::DIVISOR)
;
; note: forced to do fixnum truncate (cost 50)
; unable to do unsigned fixnum truncate (cost 45) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES (INTEGER -8193 8193)
; (INTEGER -65520 65520)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
; (UNSIGNED-BYTE 29)
; &REST
; T).
; compiling (DEFINE-CONDITION ZLIB-BUFFER-FULL ...)
; compiling (DEFSTRUCT (ZLIB-STREAM #) ...)
; compiling (DEFUN ZLIB-STREAM-POSITION ...)
; compiling (DEFUN (SETF ZLIB-STREAM-POSITION) ...)
; compiling (DEFUN ZLIB-STREAM-BUFFER ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCONSTANT +ZLIB-COMPRESSION-METHOD+ ...)
; compiling (DEFCONSTANT +ZLIB-COMPRESSION-INFO+ ...)
; compiling (DEFCONSTANT +ZLIB-COMPRESSION-LEVEL+ ...)
; compiling (DEFCONSTANT +ZLIB-PRESET-DICTIONARY-FLAG+ ...)
; compiling (DEFUN WRITE-ZLIB-STREAM-HEADER ...)
; compiling (DEFUN DEFAULT-CALLBACK ...)
; compiling (DEFUN MAKE-ZLIB-STREAM ...)
; compiling (DEFUN ZLIB-WRITE-SEQUENCE ...)
; compiling (DEFUN ZLIB-WRITE-STRING ...)
; compiling (DEFUN FINISH-ZLIB-STREAM ...)
; compiling (DEFUN COMPRESS-SEQUENCE ...)
; compiling (DEFUN COMPRESS-STRING ...)
; compiling (DEFUN COMPRESS-STREAM ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/salza-0.7.2/zlib.fasl written
; compilation finished in 0:00:01
;
; compilation unit finished
; printed 12 notes
;;; ASDF-INSTALL: Downloading package OSICAT, required by poly-pen
;;; ASDF-INSTALL: Downloading 14558 bytes from http://common-lisp.net/project/osicat/files/osicat_latest.tar.gz to /Users/gwking/temporary/asdf-test/osicat.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/osicat.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/
osicat_0.5.0/
osicat_0.5.0/osicat.asd
osicat_0.5.0/ports.lisp
osicat_0.5.0/ffi.lisp
osicat_0.5.0/early-util.lisp
osicat_0.5.0/grovel-constants.lisp
osicat_0.5.0/packages.lisp
osicat_0.5.0/osicat.lisp
osicat_0.5.0/osicat-glue.c
osicat_0.5.0/version.txt
osicat_0.5.0/test-tools.lisp
osicat_0.5.0/test-osicat.lisp
osicat_0.5.0/LICENSE
osicat_0.5.0/README
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/"
STYLE-WARNING: redefining OUTPUT-FILES (COMPILE-OP C-SOURCE-FILE) in DEFMETHOD
STYLE-WARNING: redefining PERFORM (LOAD-OP C-SOURCE-FILE) in DEFMETHOD
STYLE-WARNING: redefining PERFORM (COMPILE-OP C-SOURCE-FILE) in DEFMETHOD
;;; ASDF-INSTALL: Downloading package UFFI, required by osicat
;;; 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:00
; 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:01
; 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:00
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {10008309}> on
#<CL-SOURCE-FILE "functions" {1013FF39}>.
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 {10008309}> on
#<CL-SOURCE-FILE "strings" {1013F971}>.
; 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/osicat_0.5.0/packages.lisp" (written 06 OCT 2005 06:25:31 PM):
; compiling (DEFPACKAGE :OSICAT ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/grovel.lisp-temp" (written 16 APR 2006 01:38:37 AM):
; compiling (IN-PACKAGE :OSICAT)
; compiling (DEFCONSTANT MODE-MASK ...)
; compiling (DEFCONSTANT DIRECTORY ...)
; compiling (DEFCONSTANT CHARACTER-DEVICE ...)
; compiling (DEFCONSTANT BLOCK-DEVICE ...)
; compiling (DEFCONSTANT REGULAR-FILE ...)
; compiling (DEFCONSTANT SYMBOLIC-LINK ...)
; compiling (DEFCONSTANT SOCKET ...)
; compiling (DEFCONSTANT PIPE ...)
; compiling (DEFCONSTANT USER-READ ...)
; compiling (DEFCONSTANT USER-WRITE ...)
; compiling (DEFCONSTANT USER-EXEC ...)
; compiling (DEFCONSTANT GROUP-READ ...)
; compiling (DEFCONSTANT GROUP-WRITE ...)
; compiling (DEFCONSTANT GROUP-EXEC ...)
; compiling (DEFCONSTANT OTHER-READ ...)
; compiling (DEFCONSTANT OTHER-WRITE ...)
; compiling (DEFCONSTANT OTHER-EXEC ...)
; compiling (DEFCONSTANT SET-USER-ID ...)
; compiling (DEFCONSTANT SET-GROUP-ID ...)
; compiling (DEFCONSTANT STICKY ...)
; compiling (DEFCONSTANT EOF ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/grovel-constants.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/early-util.lisp" (written 06 OCT 2005 06:25:31 PM):
; compiling (IN-PACKAGE :OSICAT)
; compiling (DEFMACRO WITH-UNIQUE-NAMES ...)
; compiling (DEFINE-CONDITION BUG ...)
; compiling (DEFMACRO WITH-C-NAME ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/early-util.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/ffi.lisp" (written 06 OCT 2005 06:25:31 PM):
; compiling (IN-PACKAGE :OSICAT)
; compiling (DEF-FOREIGN-TYPE :SIZE-T ...)
; compiling (DEF-FOREIGN-TYPE :MODE-T ...)
; compiling (DEF-FUNCTION ("osicat_mode" C-FILE-MODE) ...)
; compiling (DEF-FUNCTION ("osicat_getcwd" C-GETCWD) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/ffi.lisp
; in: DEF-FUNCTION ("osicat_getcwd" C-GETCWD)
; (UFFI:DEF-FUNCTION ("osicat_getcwd" OSICAT::C-GETCWD)
; NIL
; :MODULE
; "osicat"
; :RETURNING
; (* :UNSIGNED-CHAR))
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<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
; compiling (DEF-FUNCTION "osicat_dirent_name" ...)
; compiling (DEF-FUNCTION "osicat_pwent_name" ...)
; compiling (DEF-FUNCTION "osicat_pwent_passwd" ...)
; compiling (DEF-FUNCTION "osicat_pwent_uid" ...)
; compiling (DEF-FUNCTION "osicat_pwent_gid" ...)
; compiling (DEF-FUNCTION "osicat_pwent_gecos" ...)
; compiling (DEF-FUNCTION "osicat_pwent_home" ...)
; compiling (DEF-FUNCTION "osicat_pwent_shell" ...)
; compiling (DEF-FUNCTION "osicat_tmpfile" ...)
; compiling (DEF-FUNCTION "opendir" ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/ffi.lisp
; in: DEF-FUNCTION "opendir"
; (UFFI:DEF-FUNCTION "opendir"
; ((OSICAT::NAME :CSTRING))
; :MODULE
; "osicat"
; :RETURNING
; :POINTER-VOID)
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; T)>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION "closedir" ...)
; compiling (DEF-FUNCTION "readdir" ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/ffi.lisp
; in: DEF-FUNCTION "readdir"
; (UFFI:DEF-FUNCTION "readdir"
; ((OSICAT::DIR :POINTER-VOID))
; :MODULE
; "osicat"
; :RETURNING
; :POINTER-VOID)
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; T)>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION "rmdir" ...)
; compiling (DEF-FUNCTION "getenv" ...)
; compiling (DEF-FUNCTION "setenv" ...)
; compiling (DEF-FUNCTION "unsetenv" ...)
; compiling (DEF-FOREIGN-TYPE CSTRING-PTR ...)
; compiling (DEF-FOREIGN-VAR "environ" ...)
; compiling (DEF-FUNCTION "getpwnam" ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/ffi.lisp
; in: DEF-FUNCTION "getpwnam"
; (UFFI:DEF-FUNCTION "getpwnam"
; ((OSICAT::NAME :CSTRING))
; :MODULE
; "osicat"
; :RETURNING
; :POINTER-VOID)
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; T)>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION "getpwuid" ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/ffi.lisp
; in: DEF-FUNCTION "getpwuid"
; (UFFI:DEF-FUNCTION "getpwuid"
; ((OSICAT::ID :INT))
; :MODULE
; "osicat"
; :RETURNING
; :POINTER-VOID)
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; T)>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION "readlink" ...)
; compiling (DEF-FUNCTION "symlink" ...)
; compiling (DEF-FUNCTION "link" ...)
; compiling (DEF-FUNCTION "chmod" ...)
; compiling (DEF-FUNCTION "chdir" ...)
; compiling (DEF-FUNCTION "tmpnam" ...)
; compiling (DEF-FUNCTION "unlink" ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/ffi.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/ports.lisp" (written 06 OCT 2005 06:25:31 PM):
; compiling (IN-PACKAGE :OSICAT)
; compiling (DEFUN MAKE-FD-STREAM ...)
; compiling (PUSHNEW (QUOTE FD-STREAMS) ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/ports.fasl written
; compilation finished in 0:00:00
STYLE-WARNING: redefining GETENV in DEFUN
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/osicat.lisp" (written 06 OCT 2005 06:25:31 PM):
; compiling (IN-PACKAGE :OSICAT)
; compiling (DEFPARAMETER *OSICAT-VERSION* ...)
; compiling (DECLAIM (INLINE C-FILE-KIND))
; compiling (DEF)
; compiling (DEFMACRO WITH-C-FILE ...)
; compiling (DEFUN ABSOLUTE-PATHNAME-P ...)
; compiling (DEFUN RELATIVE-PATHNAME-P ...)
; compiling (DEFUN ABSOLUTE-PATHNAME ...)
; compiling (DEFUN UNMERGE-PATHNAMES ...)
; compiling (DEFUN FILE-KIND ...)
; compiling (DEFUN OPEN-TEMPORARY-FILE ...)
; compiling (DEFMACRO WITH-TEMPORARY-FILE ...)
; compiling (DEFMACRO WITH-DIRECTORY-ITERATOR ...)
; compiling (DEFUN CALL-WITH-DIRECTORY-ITERATOR ...)
; compiling (DEFUN MAPDIR ...)
; compiling (DEFUN DELETE-DIRECTORY ...)
; compiling (DEFUN ENVIRONMENT-VARIABLE ...)
; compiling (DEFUN (SETF ENVIRONMENT-VARIABLE) ...)
; compiling (DEFUN MAKUNBOUND-ENVIRONMENT-VARIABLE ...)
; compiling (DEFUN ENVIRONMENT ...)
; compiling (DEFUN (SETF ENVIRONMENT) ...)
; compiling (DEFUN READ-LINK ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/osicat.lisp
; in: DEFUN READ-LINK
; (UFFI:ALLOCATE-FOREIGN-STRING OSICAT::SIZE)
; --> MAKE-ALIEN
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN (SB-ALIEN::%MAKE-ALIEN (* 8 OSICAT::SIZE))
; '#<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: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEFUN MAKE-LINK ...)
; compiling (DEFCONSTANT +PERMISSIONS+ ...)
; compiling (DEFUN FILE-PERMISSIONS ...)
; compiling (DEFUN (SETF FILE-PERMISSIONS) ...)
; compiling (DEFUN CURRENT-DIRECTORY ...)
; compiling (DEFUN (SETF CURRENT-DIRECTORY) ...)
; compiling (DEFUN USER-INFO ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/osicat.lisp
; in: DEFUN USER-INFO
; (UFFI:MAKE-NULL-POINTER :POINTER-VOID)
; --> SAP-ALIEN
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN (SB-SYS:INT-SAP 0)
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (*
; T))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/osicat_0.5.0/osicat.fasl written
; compilation finished in 0:00:02
;
; compilation unit finished
; printed 8 notes
;;; ASDF-INSTALL: Downloading package CL-GD, required by poly-pen
;;; ASDF-INSTALL: Downloading 197545 bytes from http://weitz.de/files/cl-gd.tar.gz to /Users/gwking/temporary/asdf-test/cl-gd.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/cl-gd.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-gd-0.5.1/
cl-gd-0.5.1/doc/
cl-gd-0.5.1/doc/anti-aliased-lines.png
cl-gd-0.5.1/doc/brushed-arc.png
cl-gd-0.5.1/doc/chart.png
cl-gd-0.5.1/doc/clipped-tangent.png
cl-gd-0.5.1/doc/demooutp.png
cl-gd-0.5.1/doc/gddemo.c
cl-gd-0.5.1/doc/index.html
cl-gd-0.5.1/doc/smallzappa.png
cl-gd-0.5.1/doc/strings.png
cl-gd-0.5.1/doc/triangle.png
cl-gd-0.5.1/doc/zappa-ellipse.png
cl-gd-0.5.1/doc/zappa-green.jpg
cl-gd-0.5.1/doc/zappa.jpg
cl-gd-0.5.1/CHANGELOG
cl-gd-0.5.1/Makefile
cl-gd-0.5.1/README
cl-gd-0.5.1/cl-gd-glue.c
cl-gd-0.5.1/cl-gd-test.asd
cl-gd-0.5.1/cl-gd-test.lisp
cl-gd-0.5.1/cl-gd.asd
cl-gd-0.5.1/colors-aux.lisp
cl-gd-0.5.1/colors.lisp
cl-gd-0.5.1/drawing.lisp
cl-gd-0.5.1/gd-uffi.lisp
cl-gd-0.5.1/images.lisp
cl-gd-0.5.1/init.lisp
cl-gd-0.5.1/misc.lisp
cl-gd-0.5.1/packages.lisp
cl-gd-0.5.1/specials.lisp
cl-gd-0.5.1/strings.lisp
cl-gd-0.5.1/transform.lisp
cl-gd-0.5.1/util.lisp
cl-gd-0.5.1/test/
cl-gd-0.5.1/test/orig/
cl-gd-0.5.1/test/orig/anti-aliased-lines.png
cl-gd-0.5.1/test/orig/brushed-arc.png
cl-gd-0.5.1/test/orig/chart.png
cl-gd-0.5.1/test/orig/circle.png
cl-gd-0.5.1/test/orig/clipped-tangent.png
cl-gd-0.5.1/test/orig/one-line.jpg
cl-gd-0.5.1/test/orig/one-line.png
cl-gd-0.5.1/test/orig/one-pixel.jpg
cl-gd-0.5.1/test/orig/one-pixel.png
cl-gd-0.5.1/test/orig/triangle.png
cl-gd-0.5.1/test/orig/zappa-ellipse.png
cl-gd-0.5.1/test/orig/zappa-green.jpg
cl-gd-0.5.1/test/demoin.png
cl-gd-0.5.1/test/smallzappa.png
cl-gd-0.5.1/test/zappa.jpg
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/packages.lisp" (written 17 MAY 2005 12:59:22 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (DEFPACKAGE #:CL-GD ...)
; compiling (PUSHNEW :CL-GD ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/util.lisp" (written 26 SEP 2005 08:50:11 AM):
; compiling (IN-PACKAGE :CL-GD)
; compiling (DEFMACRO WITH-UNIQUE-NAMES ...)
; compiling (DEFMACRO WITH-REBINDING ...)
; compiling (DEFUN SANS ...)
; compiling (DEFUN CONVERT-TO-CHAR-REFERENCES ...)
; compiling (DEFMACRO WITH-SAFE-ALLOC ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/util.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/specials.lisp" (written 04 OCT 2005 04:45:44 AM):
; compiling (IN-PACKAGE #:CL-GD)
; compiling (DEFVAR *DEFAULT-IMAGE* ...)
; compiling (DEFVAR *DEFAULT-COLOR* ...)
; compiling (DEFVAR *DEFAULT-FONT* ...)
; compiling (DEFSTRUCT (IMAGE # ...) ...)
; compiling (DEFSTRUCT (BRUSH # ...))
; compiling (DEFUN MAKE-BRUSH ...)
; compiling (DEFSTRUCT (TILE # ...))
; compiling (DEFUN MAKE-TILE ...)
; compiling (DEFSTRUCT (ANTI-ALIASED-COLOR # ...) ...)
; compiling (DEFUN MAKE-ANTI-ALIASED ...)
; compiling (DEFVAR *NULL-IMAGE* ...)
; compiling (DEFCONSTANT +MAX-COLORS+ ...)
; compiling (DEFCONSTANT +GD-CHORD+ ...)
; compiling (DEFCONSTANT +GD-NO-FILL+ ...)
; compiling (DEFCONSTANT +GD-EDGED+ ...)
; compiling (DEFCONSTANT +BRUSHED+ ...)
; compiling (DEFCONSTANT +STYLED+ ...)
; compiling (DEFCONSTANT +STYLED-BRUSHED+ ...)
; compiling (DEFCONSTANT +TRANSPARENT+ ...)
; compiling (DEFCONSTANT +TILED+ ...)
; compiling (DEFCONSTANT +ANTI-ALIASED+ ...)
; compiling (DEFCONSTANT +GD-FTEX-LINESPACE+ ...)
; compiling (DEFCONSTANT +GD-CMP-IMAGE+ ...)
; compiling (DEFCONSTANT +GD-CMP-NUM-COLORS+ ...)
; compiling (DEFCONSTANT +GD-CMP-COLOR+ ...)
; compiling (DEFCONSTANT +GD-CMP-SIZE-X+ ...)
; compiling (DEFCONSTANT +GD-CMP-SIZE-Y+ ...)
; compiling (DEFCONSTANT +GD-CMP-TRANSPARENT+ ...)
; compiling (DEFCONSTANT +GD-CMP-BACKGROUND+ ...)
; compiling (DEFCONSTANT +GD-CMP-INTERLACE+ ...)
; compiling (DEFCONSTANT +GD-CMP-TRUE-COLOR+ ...)
; compiling (DEFVAR *SHARED-LIBRARY-DIRECTORIES* ...)
; compiling (DEFVAR *SHARED-LIBRARY-TYPES* ...)
; compiling (DEFVAR *SHARED-LIBRARY-DRIVE-LETTERS* ...)
; compiling (DEFVAR *GD-SUPPORTING-LIBRARIES* ...)
; compiling (DEFCONSTANT +RADIANS-TO-DEGREE-FACTOR+ ...)
; compiling (DEFVAR *TRANSFORMERS* ...)
; compiling (DEFCONSTANT +MOST-POSITIVE-UNSIGNED-BYTE-32+ ...)
; compiling (DEFVAR *HYPERDOC-BASE-URI* ...)
; compiling (LET (#) ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/specials.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/init.lisp" (written 09 MAR 2005 09:17:56 AM):
; compiling (IN-PACKAGE :CL-GD)
; compiling (DEFUN LOAD-GD-GLUE ...)
; compiling (LOAD-GD-GLUE)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/init.fasl written
; compilation finished in 0:00:01
NIL
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp" (written 17 MAY 2005 12:59:22 PM):
; compiling (IN-PACKAGE :CL-GD)
; compiling (DEF-STRUCT GD-IMAGE ...)
; compiling (DEF-TYPE PIXELS-ARRAY ...)
; compiling (DEF-TYPE PIXELS-ROW ...)
; compiling (DEF-TYPE T-PIXELS-ARRAY ...)
; compiling (DEF-TYPE T-PIXELS-ROW ...)
; compiling (DEF-FOREIGN-TYPE GD-IMAGE-PTR ...)
; compiling (SETQ *NULL-IMAGE* ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp
; in: SETQ *NULL-IMAGE*
; (UFFI:MAKE-NULL-POINTER 'CL-GD::GD-IMAGE)
; --> SAP-ALIEN
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN (SB-SYS:INT-SAP 0)
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-IMAGE
; (CL-GD::PIXELS
; #)
; (CL-GD::SX
; #)
; (CL-GD::SY
; #)
; (CL-GD::COLORS-TOTAL
; #)
; (CL-GD::RED
; #)
; (CL-GD::GREEN
; #)
; (CL-GD::BLUE
; #)
; (OPEN
; #)
; (CL-GD::TRANSPARENT
; #)
; (CL-GD::POLY-INTS
; #)
; ...))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-STRUCT GD-POINT ...)
; compiling (DEF-FOREIGN-TYPE GD-POINT-PTR ...)
; compiling (DEF-STRUCT GD-FONT ...)
; compiling (DEF-FOREIGN-TYPE GD-FONT-PTR ...)
; compiling (DEF-STRUCT GD-FT-STRING-EXTRA ...)
; compiling (DEF-FOREIGN-TYPE GD-FT-STRING-EXTRA-PTR ...)
; compiling (DEF-FOREIGN-VAR ("gdFontTiny" +GD-FONT-TINY+) ...)
; compiling (DEF-FOREIGN-VAR ("gdFontSmall" +GD-FONT-SMALL+) ...)
; compiling (DEF-FOREIGN-VAR ("gdFontMediumBold" +GD-FONT-MEDIUM-BOLD+) ...)
; compiling (DEF-FOREIGN-VAR ("gdFontLarge" +GD-FONT-LARGE+) ...)
; compiling (DEF-FOREIGN-VAR ("gdFontGiant" +GD-FONT-GIANT+) ...)
; compiling (DEF-FUNCTION ("gdImageCreate" GD-IMAGE-CREATE) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp
; in: DEF-FUNCTION ("gdImageCreate" GD-IMAGE-CREATE)
; (UFFI:DEF-FUNCTION ("gdImageCreate" CL-GD::GD-IMAGE-CREATE)
; ((CL-GD::SX :INT) (CL-GD::SY :INT))
; :RETURNING
; CL-GD::GD-IMAGE-PTR
; :MODULE
; "gd")
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-IMAGE
; (CL-GD::PIXELS
; #)
; (CL-GD::SX
; #)
; (CL-GD::SY
; #)
; (CL-GD::COLORS-TOTAL
; #)
; (CL-GD::RED
; #)
; (CL-GD::GREEN
; #)
; (CL-GD::BLUE
; #)
; (OPEN
; #)
; (CL-GD::TRANSPARENT
; #)
; (CL-GD::POLY-INTS
; #)
; ...))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION ("gdImageCreateTrueColor" GD-IMAGE-CREATE-TRUE-COLOR) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp
; in: DEF-FUNCTION ("gdImageCreateTrueColor" GD-IMAGE-CREATE-TRUE-COLOR)
; (UFFI:DEF-FUNCTION
; ("gdImageCreateTrueColor" CL-GD::GD-IMAGE-CREATE-TRUE-COLOR)
; ((CL-GD::SX :INT) (CL-GD::SY :INT))
; :RETURNING
; CL-GD::GD-IMAGE-PTR
; :MODULE
; "gd")
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-IMAGE
; (CL-GD::PIXELS
; #)
; (CL-GD::SX
; #)
; (CL-GD::SY
; #)
; (CL-GD::COLORS-TOTAL
; #)
; (CL-GD::RED
; #)
; (CL-GD::GREEN
; #)
; (CL-GD::BLUE
; #)
; (OPEN
; #)
; (CL-GD::TRANSPARENT
; #)
; (CL-GD::POLY-INTS
; #)
; ...))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION ("gdImageCreateFromJpegFile" GD-IMAGE-CREATE-FROM-JPEG-FILE) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp
; in:
; DEF-FUNCTION ("gdImageCreateFromJpegFile" GD-IMAGE-CREATE-FROM-JPEG-FILE)
; (UFFI:DEF-FUNCTION
; ("gdImageCreateFromJpegFile" CL-GD::GD-IMAGE-CREATE-FROM-JPEG-FILE)
; ((CL-GD::FILENAME :CSTRING) (CL-GD::ERR (* :INT)))
; :RETURNING
; CL-GD::GD-IMAGE-PTR
; :MODULE
; "gd")
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-IMAGE
; (CL-GD::PIXELS
; #)
; (CL-GD::SX
; #)
; (CL-GD::SY
; #)
; (CL-GD::COLORS-TOTAL
; #)
; (CL-GD::RED
; #)
; (CL-GD::GREEN
; #)
; (CL-GD::BLUE
; #)
; (OPEN
; #)
; (CL-GD::TRANSPARENT
; #)
; (CL-GD::POLY-INTS
; #)
; ...))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION ("gdImageCreateFromPngFile" GD-IMAGE-CREATE-FROM-PNG-FILE) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp
; in:
; DEF-FUNCTION ("gdImageCreateFromPngFile" GD-IMAGE-CREATE-FROM-PNG-FILE)
; (UFFI:DEF-FUNCTION
; ("gdImageCreateFromPngFile" CL-GD::GD-IMAGE-CREATE-FROM-PNG-FILE)
; ((CL-GD::FILENAME :CSTRING) (CL-GD::ERR (* :INT)))
; :RETURNING
; CL-GD::GD-IMAGE-PTR
; :MODULE
; "gd")
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-IMAGE
; (CL-GD::PIXELS
; #)
; (CL-GD::SX
; #)
; (CL-GD::SY
; #)
; (CL-GD::COLORS-TOTAL
; #)
; (CL-GD::RED
; #)
; (CL-GD::GREEN
; #)
; (CL-GD::BLUE
; #)
; (OPEN
; #)
; (CL-GD::TRANSPARENT
; #)
; (CL-GD::POLY-INTS
; #)
; ...))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION ("gdImageCreateFromGdFile" GD-IMAGE-CREATE-FROM-GD-FILE) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp
; in:
; DEF-FUNCTION ("gdImageCreateFromGdFile" GD-IMAGE-CREATE-FROM-GD-FILE)
; (UFFI:DEF-FUNCTION
; ("gdImageCreateFromGdFile" CL-GD::GD-IMAGE-CREATE-FROM-GD-FILE)
; ((CL-GD::FILENAME :CSTRING) (CL-GD::ERR (* :INT)))
; :RETURNING
; CL-GD::GD-IMAGE-PTR
; :MODULE
; "gd")
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-IMAGE
; (CL-GD::PIXELS
; #)
; (CL-GD::SX
; #)
; (CL-GD::SY
; #)
; (CL-GD::COLORS-TOTAL
; #)
; (CL-GD::RED
; #)
; (CL-GD::GREEN
; #)
; (CL-GD::BLUE
; #)
; (OPEN
; #)
; (CL-GD::TRANSPARENT
; #)
; (CL-GD::POLY-INTS
; #)
; ...))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION ("gdImageCreateFromGd2File" GD-IMAGE-CREATE-FROM-GD2-FILE) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp
; in:
; DEF-FUNCTION ("gdImageCreateFromGd2File" GD-IMAGE-CREATE-FROM-GD2-FILE)
; (UFFI:DEF-FUNCTION
; ("gdImageCreateFromGd2File" CL-GD::GD-IMAGE-CREATE-FROM-GD2-FILE)
; ((CL-GD::FILENAME :CSTRING) (CL-GD::ERR (* :INT)))
; :RETURNING
; CL-GD::GD-IMAGE-PTR
; :MODULE
; "gd")
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-IMAGE
; (CL-GD::PIXELS
; #)
; (CL-GD::SX
; #)
; (CL-GD::SY
; #)
; (CL-GD::COLORS-TOTAL
; #)
; (CL-GD::RED
; #)
; (CL-GD::GREEN
; #)
; (CL-GD::BLUE
; #)
; (OPEN
; #)
; (CL-GD::TRANSPARENT
; #)
; (CL-GD::POLY-INTS
; #)
; ...))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION ("gdImageCreateFromGd2PartFile" GD-IMAGE-CREATE-FROM-GD2-PART-FILE) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp
; in:
; DEF-FUNCTION ("gdImageCreateFromGd2PartFile"
; GD-IMAGE-CREATE-FROM-GD2-PART-FILE)
; (UFFI:DEF-FUNCTION
; ("gdImageCreateFromGd2PartFile" CL-GD::GD-IMAGE-CREATE-FROM-GD2-PART-FILE)
; ((CL-GD::FILENAME :CSTRING) (CL-GD::ERR (* :INT)) (CL-GD::SRC-X :INT)
; (CL-GD::SRC-Y :INT) (CL-GD::W :INT) (CL-GD::H :INT))
; :RETURNING
; CL-GD::GD-IMAGE-PTR
; :MODULE
; "gd")
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-IMAGE
; (CL-GD::PIXELS
; #)
; (CL-GD::SX
; #)
; (CL-GD::SY
; #)
; (CL-GD::COLORS-TOTAL
; #)
; (CL-GD::RED
; #)
; (CL-GD::GREEN
; #)
; (CL-GD::BLUE
; #)
; (OPEN
; #)
; (CL-GD::TRANSPARENT
; #)
; (CL-GD::POLY-INTS
; #)
; ...))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION ("gdImageCreateFromXbmFile" GD-IMAGE-CREATE-FROM-XBM-FILE) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp
; in:
; DEF-FUNCTION ("gdImageCreateFromXbmFile" GD-IMAGE-CREATE-FROM-XBM-FILE)
; (UFFI:DEF-FUNCTION
; ("gdImageCreateFromXbmFile" CL-GD::GD-IMAGE-CREATE-FROM-XBM-FILE)
; ((CL-GD::FILENAME :CSTRING) (CL-GD::ERR (* :INT)))
; :RETURNING
; CL-GD::GD-IMAGE-PTR
; :MODULE
; "gd")
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-IMAGE
; (CL-GD::PIXELS
; #)
; (CL-GD::SX
; #)
; (CL-GD::SY
; #)
; (CL-GD::COLORS-TOTAL
; #)
; (CL-GD::RED
; #)
; (CL-GD::GREEN
; #)
; (CL-GD::BLUE
; #)
; (OPEN
; #)
; (CL-GD::TRANSPARENT
; #)
; (CL-GD::POLY-INTS
; #)
; ...))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION ("gdImageCreateFromXpm" GD-IMAGE-CREATE-FROM-XPM) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp
; in: DEF-FUNCTION ("gdImageCreateFromXpm" GD-IMAGE-CREATE-FROM-XPM)
; (UFFI:DEF-FUNCTION ("gdImageCreateFromXpm" CL-GD::GD-IMAGE-CREATE-FROM-XPM)
; ((CL-GD::FILENAME :CSTRING))
; :RETURNING
; CL-GD::GD-IMAGE-PTR
; :MODULE
; "gd")
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-IMAGE
; (CL-GD::PIXELS
; #)
; (CL-GD::SX
; #)
; (CL-GD::SY
; #)
; (CL-GD::COLORS-TOTAL
; #)
; (CL-GD::RED
; #)
; (CL-GD::GREEN
; #)
; (CL-GD::BLUE
; #)
; (OPEN
; #)
; (CL-GD::TRANSPARENT
; #)
; (CL-GD::POLY-INTS
; #)
; ...))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION ("gdImageCreateFromGifFile" GD-IMAGE-CREATE-FROM-GIF-FILE) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp
; in:
; DEF-FUNCTION ("gdImageCreateFromGifFile" GD-IMAGE-CREATE-FROM-GIF-FILE)
; (UFFI:DEF-FUNCTION
; ("gdImageCreateFromGifFile" CL-GD::GD-IMAGE-CREATE-FROM-GIF-FILE)
; ((CL-GD::FILENAME :CSTRING) (CL-GD::ERR (* :INT)))
; :RETURNING
; CL-GD::GD-IMAGE-PTR
; :MODULE
; "gd")
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-IMAGE
; (CL-GD::PIXELS
; #)
; (CL-GD::SX
; #)
; (CL-GD::SY
; #)
; (CL-GD::COLORS-TOTAL
; #)
; (CL-GD::RED
; #)
; (CL-GD::GREEN
; #)
; (CL-GD::BLUE
; #)
; (OPEN
; #)
; (CL-GD::TRANSPARENT
; #)
; (CL-GD::POLY-INTS
; #)
; ...))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION ("gdImageJpegPtr" GD-IMAGE-JPEG-PTR) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp
; in: DEF-FUNCTION ("gdImageJpegPtr" GD-IMAGE-JPEG-PTR)
; (UFFI:DEF-FUNCTION ("gdImageJpegPtr" CL-GD::GD-IMAGE-JPEG-PTR)
; ((CL-GD::IM CL-GD::GD-IMAGE-PTR) (CL-GD::SIZE (* :INT))
; (CL-GD::QUALITY :INT))
; :RETURNING
; :POINTER-VOID
; :MODULE
; "gd")
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; T)>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION ("gdImageGdPtr" GD-IMAGE-GD-PTR) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp
; in: DEF-FUNCTION ("gdImageGdPtr" GD-IMAGE-GD-PTR)
; (UFFI:DEF-FUNCTION ("gdImageGdPtr" CL-GD::GD-IMAGE-GD-PTR)
; ((CL-GD::IM CL-GD::GD-IMAGE-PTR) (CL-GD::SIZE (* :INT)))
; :RETURNING
; :POINTER-VOID
; :MODULE
; "gd")
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; T)>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION ("gdImageGd2Ptr" GD-IMAGE-GD2-PTR) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp
; in: DEF-FUNCTION ("gdImageGd2Ptr" GD-IMAGE-GD2-PTR)
; (UFFI:DEF-FUNCTION ("gdImageGd2Ptr" CL-GD::GD-IMAGE-GD2-PTR)
; ((CL-GD::IM CL-GD::GD-IMAGE-PTR) (CL-GD::SIZE (* :INT)))
; :RETURNING
; :POINTER-VOID
; :MODULE
; "gd")
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; T)>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION ("gdImageWBMPPtr" GD-IMAGE-WBMP-PTR) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp
; in: DEF-FUNCTION ("gdImageWBMPPtr" GD-IMAGE-WBMP-PTR)
; (UFFI:DEF-FUNCTION ("gdImageWBMPPtr" CL-GD::GD-IMAGE-WBMP-PTR)
; ((CL-GD::IM CL-GD::GD-IMAGE-PTR) (CL-GD::SIZE (* :INT))
; (CL-GD::FG :INT))
; :RETURNING
; :POINTER-VOID
; :MODULE
; "gd")
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; T)>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION ("gdImagePngPtr" GD-IMAGE-PNG-PTR) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp
; in: DEF-FUNCTION ("gdImagePngPtr" GD-IMAGE-PNG-PTR)
; (UFFI:DEF-FUNCTION ("gdImagePngPtr" CL-GD::GD-IMAGE-PNG-PTR)
; ((CL-GD::IM CL-GD::GD-IMAGE-PTR) (CL-GD::SIZE (* :INT)))
; :RETURNING
; :POINTER-VOID
; :MODULE
; "gd")
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; T)>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION ("gdImagePngPtrEx" GD-IMAGE-PNG-PTR-EX) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp
; in: DEF-FUNCTION ("gdImagePngPtrEx" GD-IMAGE-PNG-PTR-EX)
; (UFFI:DEF-FUNCTION ("gdImagePngPtrEx" CL-GD::GD-IMAGE-PNG-PTR-EX)
; ((CL-GD::IM CL-GD::GD-IMAGE-PTR) (CL-GD::SIZE (* :INT))
; (CL-GD::LEVEL :INT))
; :RETURNING
; :POINTER-VOID
; :MODULE
; "gd")
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; T)>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION ("gdImageGifPtr" GD-IMAGE-GIF-PTR) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.lisp
; in: DEF-FUNCTION ("gdImageGifPtr" GD-IMAGE-GIF-PTR)
; (UFFI:DEF-FUNCTION ("gdImageGifPtr" CL-GD::GD-IMAGE-GIF-PTR)
; ((CL-GD::IM CL-GD::GD-IMAGE-PTR) (CL-GD::SIZE (* :INT)))
; :RETURNING
; :POINTER-VOID
; :MODULE
; "gd")
; --> UFFI::%DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; T)>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEF-FUNCTION ("gdImageDestroy" GD-IMAGE-DESTROY) ...)
; compiling (DEF-FUNCTION ("gdImageColorAllocate" GD-IMAGE-COLOR-ALLOCATE) ...)
; compiling (DEF-FUNCTION ("gdImageColorAllocateAlpha" GD-IMAGE-COLOR-ALLOCATE-ALPHA) ...)
; compiling (DEF-FUNCTION ("gdImageColorDeallocate" GD-IMAGE-COLOR-DEALLOCATE) ...)
; compiling (DEF-FUNCTION ("gdImageColorExact" GD-IMAGE-COLOR-EXACT) ...)
; compiling (DEF-FUNCTION ("gdImageColorClosest" GD-IMAGE-COLOR-CLOSEST) ...)
; compiling (DEF-FUNCTION ("gdImageColorClosestHWB" GD-IMAGE-COLOR-CLOSEST-HWB) ...)
; compiling (DEF-FUNCTION ("gdImageColorClosestAlpha" GD-IMAGE-COLOR-CLOSEST-ALPHA) ...)
; compiling (DEF-FUNCTION ("gdImageColorResolve" GD-IMAGE-COLOR-RESOLVE) ...)
; compiling (DEF-FUNCTION ("gdImageColorResolveAlpha" GD-IMAGE-COLOR-RESOLVE-ALPHA) ...)
; compiling (DEF-FUNCTION ("gdImageColorTransparent" GD-IMAGE-COLOR-TRANSPARENT) ...)
; compiling (DEF-FUNCTION ("gdImageGetGetTransparent" GD-IMAGE-GET-TRANSPARENT) ...)
; compiling (DEF-FUNCTION ("gdImageSetAntiAliased" GD-IMAGE-SET-ANTI-ALIASED) ...)
; compiling (DEF-FUNCTION ("gdImageSetAntiAliasedDontBlend" GD-IMAGE-SET-ANTI-ALIASED-DO-NOT-BLEND) ...)
; compiling (DEF-FUNCTION ("gdImageSetBrush" GD-IMAGE-SET-BRUSH) ...)
; compiling (DEF-FUNCTION ("gdImageSetTile" GD-IMAGE-SET-TILE) ...)
; compiling (DEF-FUNCTION ("gdImageSetStyle" GD-IMAGE-SET-STYLE) ...)
; compiling (DEF-FUNCTION ("gdImageSetThickness" GD-IMAGE-SET-THICKNESS) ...)
; compiling (DEF-FUNCTION ("gdImageAlphaBlending" GD-IMAGE-ALPHA-BLENDING) ...)
; compiling (DEF-FUNCTION ("gdImageSaveAlpha" GD-IMAGE-SAVE-ALPHA) ...)
; compiling (DEF-FUNCTION ("gdImageGetRed" GD-IMAGE-GET-RED) ...)
; compiling (DEF-FUNCTION ("gdImageGetGreen" GD-IMAGE-GET-GREEN) ...)
; compiling (DEF-FUNCTION ("gdImageGetBlue" GD-IMAGE-GET-BLUE) ...)
; compiling (DEF-FUNCTION ("gdImageGetAlpha" GD-IMAGE-GET-ALPHA) ...)
; compiling (DEF-FUNCTION ("gdImageGetColorsTotal" GD-IMAGE-GET-COLORS-TOTAL) ...)
; compiling (DEF-FUNCTION ("gdImageSetClip" GD-IMAGE-SET-CLIP) ...)
; compiling (DEF-FUNCTION ("gdImageGetClip" GD-IMAGE-GET-CLIP) ...)
; compiling (DEF-FUNCTION ("gdImageSetPixel" GD-IMAGE-SET-PIXEL) ...)
; compiling (DEF-FUNCTION ("gdImageLine" GD-IMAGE-LINE) ...)
; compiling (DEF-FUNCTION ("gdImagePolygon" GD-IMAGE-POLYGON) ...)
; compiling (DEF-FUNCTION ("gdImageFilledPolygon" GD-IMAGE-FILLED-POLYGON) ...)
; compiling (DEF-FUNCTION ("gdImageRectangle" GD-IMAGE-RECTANGLE) ...)
; compiling (DEF-FUNCTION ("gdImageFilledRectangle" GD-IMAGE-FILLED-RECTANGLE) ...)
; compiling (DEF-FUNCTION ("gdImageFilledEllipse" GD-IMAGE-FILLED-ELLIPSE) ...)
; compiling (DEF-FUNCTION ("gdImageArc" GD-IMAGE-ARC) ...)
; compiling (DEF-FUNCTION ("gdImageFilledArc" GD-IMAGE-FILLED-ARC) ...)
; compiling (DEF-FUNCTION ("gdImageFill" GD-IMAGE-FILL) ...)
; compiling (DEF-FUNCTION ("gdImageFillToBorder" GD-IMAGE-FILL-TO-BORDER) ...)
; compiling (DEF-FUNCTION ("gdImageChar" GD-IMAGE-CHAR) ...)
; compiling (DEF-FUNCTION ("gdImageCharUp" GD-IMAGE-CHAR-UP) ...)
; compiling (DEF-FUNCTION ("gdImageString" GD-IMAGE-STRING) ...)
; compiling (DEF-FUNCTION ("gdImageStringUp" GD-IMAGE-STRING-UP) ...)
; compiling (DEF-FUNCTION ("gdImageStringFT" GD-IMAGE-STRING-FT) ...)
; compiling (DEF-FUNCTION ("gdImageStringFTEx" GD-IMAGE-STRING-FT-EX) ...)
; compiling (DEF-FUNCTION ("gdImageGetPixel" GD-IMAGE-GET-PIXEL) ...)
; compiling (DEF-FUNCTION ("gdImageBoundsSafe" GD-IMAGE-BOUNDS-SAFE) ...)
; compiling (DEF-FUNCTION ("gdImageGetSX" GD-IMAGE-GET-SX) ...)
; compiling (DEF-FUNCTION ("gdImageGetSY" GD-IMAGE-GET-SY) ...)
; compiling (DEF-FUNCTION ("gdImageInterlace" GD-IMAGE-INTERLACE) ...)
; compiling (DEF-FUNCTION ("gdImageGetGetInterlaced" GD-IMAGE-GET-INTERLACED) ...)
; compiling (DEF-FUNCTION ("gdImageCopy" GD-IMAGE-COPY) ...)
; compiling (DEF-FUNCTION ("gdImageCopyMerge" GD-IMAGE-COPY-MERGE) ...)
; compiling (DEF-FUNCTION ("gdImageCopyMergeGray" GD-IMAGE-COPY-MERGE-GRAY) ...)
; compiling (DEF-FUNCTION ("gdImageCopyResized" GD-IMAGE-COPY-RESIZED) ...)
; compiling (DEF-FUNCTION ("gdImageCopyResampled" GD-IMAGE-COPY-RESAMPLED) ...)
; compiling (DEF-FUNCTION ("gdImageCopyRotated" GD-IMAGE-COPY-ROTATED) ...)
; compiling (DEF-FUNCTION ("gdImagePaletteCopy" GD-IMAGE-PALETTE-COPY) ...)
; compiling (DEF-FUNCTION ("gdImageCompare" GD-IMAGE-COMPARE) ...)
; compiling (DEF-FUNCTION ("gdImageTrueColorToPalette" GD-IMAGE-TRUE-COLOR-TO-PALETTE) ...)
; compiling (DEF-FUNCTION ("gdFree" GD-FREE) ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/gd-uffi.fasl written
; compilation finished in 0:00:04
STYLE-WARNING: Undefined alien: "gdImageCreate"
STYLE-WARNING: Undefined alien: "gdImageCreateTrueColor"
STYLE-WARNING: Undefined alien: "gdImageCreateFromJpegFile"
STYLE-WARNING: Undefined alien: "gdImageCreateFromPngFile"
STYLE-WARNING: Undefined alien: "gdImageCreateFromGdFile"
STYLE-WARNING: Undefined alien: "gdImageCreateFromGd2File"
STYLE-WARNING: Undefined alien: "gdImageCreateFromGd2PartFile"
STYLE-WARNING: Undefined alien: "gdImageCreateFromXbmFile"
STYLE-WARNING: Undefined alien: "gdImageCreateFromXpm"
STYLE-WARNING: Undefined alien: "gdImageCreateFromGifFile"
STYLE-WARNING: Undefined alien: "gdImageJpegPtr"
STYLE-WARNING: Undefined alien: "gdImageGdPtr"
STYLE-WARNING: Undefined alien: "gdImageGd2Ptr"
STYLE-WARNING: Undefined alien: "gdImageWBMPPtr"
STYLE-WARNING: Undefined alien: "gdImagePngPtr"
STYLE-WARNING: Undefined alien: "gdImagePngPtrEx"
STYLE-WARNING: Undefined alien: "gdImageGifPtr"
STYLE-WARNING: Undefined alien: "gdImageDestroy"
STYLE-WARNING: Undefined alien: "gdImageColorAllocate"
STYLE-WARNING: Undefined alien: "gdImageColorAllocateAlpha"
STYLE-WARNING: Undefined alien: "gdImageColorDeallocate"
STYLE-WARNING: Undefined alien: "gdImageColorExact"
STYLE-WARNING: Undefined alien: "gdImageColorClosest"
STYLE-WARNING: Undefined alien: "gdImageColorClosestHWB"
STYLE-WARNING: Undefined alien: "gdImageColorClosestAlpha"
STYLE-WARNING: Undefined alien: "gdImageColorResolve"
STYLE-WARNING: Undefined alien: "gdImageColorResolveAlpha"
STYLE-WARNING: Undefined alien: "gdImageColorTransparent"
STYLE-WARNING: Undefined alien: "gdImageGetGetTransparent"
STYLE-WARNING: Undefined alien: "gdImageSetAntiAliased"
STYLE-WARNING: Undefined alien: "gdImageSetAntiAliasedDontBlend"
STYLE-WARNING: Undefined alien: "gdImageSetBrush"
STYLE-WARNING: Undefined alien: "gdImageSetTile"
STYLE-WARNING: Undefined alien: "gdImageSetStyle"
STYLE-WARNING: Undefined alien: "gdImageSetThickness"
STYLE-WARNING: Undefined alien: "gdImageAlphaBlending"
STYLE-WARNING: Undefined alien: "gdImageSaveAlpha"
STYLE-WARNING: Undefined alien: "gdImageGetRed"
STYLE-WARNING: Undefined alien: "gdImageGetGreen"
STYLE-WARNING: Undefined alien: "gdImageGetBlue"
STYLE-WARNING: Undefined alien: "gdImageGetAlpha"
STYLE-WARNING: Undefined alien: "gdImageGetColorsTotal"
STYLE-WARNING: Undefined alien: "gdImageSetClip"
STYLE-WARNING: Undefined alien: "gdImageGetClip"
STYLE-WARNING: Undefined alien: "gdImageSetPixel"
STYLE-WARNING: Undefined alien: "gdImageLine"
STYLE-WARNING: Undefined alien: "gdImagePolygon"
STYLE-WARNING: Undefined alien: "gdImageFilledPolygon"
STYLE-WARNING: Undefined alien: "gdImageRectangle"
STYLE-WARNING: Undefined alien: "gdImageFilledRectangle"
STYLE-WARNING: Undefined alien: "gdImageFilledEllipse"
STYLE-WARNING: Undefined alien: "gdImageArc"
STYLE-WARNING: Undefined alien: "gdImageFilledArc"
STYLE-WARNING: Undefined alien: "gdImageFill"
STYLE-WARNING: Undefined alien: "gdImageFillToBorder"
STYLE-WARNING: Undefined alien: "gdImageChar"
STYLE-WARNING: Undefined alien: "gdImageCharUp"
STYLE-WARNING: Undefined alien: "gdImageString"
STYLE-WARNING: Undefined alien: "gdImageStringUp"
STYLE-WARNING: Undefined alien: "gdImageStringFT"
STYLE-WARNING: Undefined alien: "gdImageStringFTEx"
STYLE-WARNING: Undefined alien: "gdImageGetPixel"
STYLE-WARNING: Undefined alien: "gdImageBoundsSafe"
STYLE-WARNING: Undefined alien: "gdImageGetSX"
STYLE-WARNING: Undefined alien: "gdImageGetSY"
STYLE-WARNING: Undefined alien: "gdImageInterlace"
STYLE-WARNING: Undefined alien: "gdImageGetGetInterlaced"
STYLE-WARNING: Undefined alien: "gdImageCopy"
STYLE-WARNING: Undefined alien: "gdImageCopyMerge"
STYLE-WARNING: Undefined alien: "gdImageCopyMergeGray"
STYLE-WARNING: Undefined alien: "gdImageCopyResized"
STYLE-WARNING: Undefined alien: "gdImageCopyResampled"
STYLE-WARNING: Undefined alien: "gdImageCopyRotated"
STYLE-WARNING: Undefined alien: "gdImagePaletteCopy"
STYLE-WARNING: Undefined alien: "gdImageCompare"
STYLE-WARNING: Undefined alien: "gdImageTrueColorToPalette"
STYLE-WARNING: Undefined alien: "gdFree"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/transform.lisp" (written 26 SEP 2005 08:50:11 AM):
; compiling (IN-PACKAGE :CL-GD)
; compiling (DEFCLASS TRANSFORMER ...)
; compiling (DEFMACRO WITHOUT-TRANSFORMATIONS ...)
; compiling (DECLAIM (INLINE ROUND-TO-C-INT))
; compiling (DEFUN ROUND-TO-SIGNED-BYTE-32 ...)
; compiling (DEFMACRO WITH-TRANSFORMATION ...)
; compiling (DEFMACRO WITH-TRANSFORMED-ALTERNATIVE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/transform.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/images.lisp" (written 26 SEP 2005 08:50:11 AM):
; compiling (IN-PACKAGE :CL-GD)
; compiling (DEFUN CREATE-IMAGE ...)
; compiling (DEFUN DESTROY-IMAGE ...)
; compiling (DEFMACRO WITH-DEFAULT-IMAGE ...)
; compiling (DEFMACRO WITH-IMAGE ...)
; compiling (DEFMACRO WITH-IMAGE* ...)
; compiling (DEFUN CREATE-IMAGE-FROM-FILE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/images.lisp
; in: DEFUN CREATE-IMAGE-FROM-FILE
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::ERR :INT)
; (UFFI:WITH-CSTRING
; (CL-GD::C-FILE-NAME CL-GD::FILE-NAME)
; (LET ((CL-GD::IMAGE #))
; (COND (# #) (T #)))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEFMACRO WITH-IMAGE-FROM-FILE ...)
; compiling (DEFMACRO WITH-IMAGE-FROM-FILE* ...)
; compiling (DEFUN CREATE-IMAGE-FROM-GD2-PART ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/images.lisp
; in: DEFUN CREATE-IMAGE-FROM-GD2-PART
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::ERR :INT)
; (UFFI:WITH-CSTRING
; (CL-GD::C-FILE-NAME CL-GD::FILE-NAME)
; (LET ((CL-GD::IMAGE #))
; (COND (# #) (T CL-GD::IMAGE)))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEFMACRO WITH-IMAGE-FROM-GD2-PART ...)
; compiling (DEFMACRO WITH-IMAGE-FROM-GD2-PART* ...)
; compiling (DEFMACRO MAKE-STREAM-FN ...)
; compiling (MAKE-STREAM-FN WRITE-JPEG-TO-STREAM ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/images.lisp
; in: MAKE-STREAM-FN WRITE-JPEG-TO-STREAM
; (CL-GD::MAKE-STREAM-FN CL-GD:WRITE-JPEG-TO-STREAM
; (STREAM &KEY
; (CL-GD::QUALITY -1)
; (CL-GD::IMAGE CL-GD:*DEFAULT-IMAGE*))
; (CL-GD::GD-IMAGE-JPEG-PTR (CL-GD::IMG CL-GD::IMAGE)
; CL-GD::SIZE
; CL-GD::QUALITY)
; ((CHECK-TYPE STREAM STREAM)
; (CHECK-TYPE CL-GD::QUALITY (INTEGER -1 100))
; (CHECK-TYPE CL-GD::IMAGE CL-GD::IMAGE))
; "Writes image IMAGE to stream STREAM as JPEG. If
; QUALITY is not specified, the default IJG JPEG quality value is
; used. Otherwise, for practical purposes, quality should be a value in
; the range 0-95. STREAM must be a character stream or a binary stream
; of element type (UNSIGNED-BYTE 8). If STREAM is a character stream,
; the user of this function has to make sure the external format is
; yields faithful output of all 8-bit characters.")
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK COND IF PROGN UFFI:WITH-FOREIGN-OBJECT WITH-ALIEN
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET
; --> LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK COND IF COND IF PROGN UFFI:WITH-FOREIGN-OBJECT WITH-ALIEN
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET
; --> LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (MAKE-STREAM-FN WRITE-PNG-TO-STREAM ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/images.lisp
; in: MAKE-STREAM-FN WRITE-PNG-TO-STREAM
; (CL-GD::MAKE-STREAM-FN CL-GD:WRITE-PNG-TO-STREAM
; (STREAM &KEY
; CL-GD::COMPRESSION-LEVEL
; (CL-GD::IMAGE CL-GD:*DEFAULT-IMAGE*))
; (COND
; (CL-GD::COMPRESSION-LEVEL
; (CL-GD::GD-IMAGE-PNG-PTR-EX
; (CL-GD::IMG CL-GD::IMAGE)
; CL-GD::SIZE
; CL-GD::COMPRESSION-LEVEL))
; (T
; (CL-GD::GD-IMAGE-PNG-PTR (CL-GD::IMG CL-GD::IMAGE)
; CL-GD::SIZE)))
; ((CHECK-TYPE STREAM STREAM)
; (CHECK-TYPE CL-GD::COMPRESSION-LEVEL
; (OR NULL (INTEGER -1 9)))
; (CHECK-TYPE CL-GD::IMAGE CL-GD::IMAGE))
; "Writes image IMAGE to stream STREAM as PNG. If
; COMPRESSION-LEVEL is not specified, the default compression level at
; the time zlib was compiled on your system will be used. Otherwise, a
; compression level of 0 means 'no compression', a compression level of
; 1 means 'compressed, but as quickly as possible', a compression level
; of 9 means 'compressed as much as possible to produce the smallest
; possible file.' STREAM must be a character stream or a binary stream
; of element type (UNSIGNED-BYTE 8). If STREAM is a character stream,
; the user of this function has to make sure the external format yields
; faithful output of all 8-bit characters.")
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK COND IF PROGN UFFI:WITH-FOREIGN-OBJECT WITH-ALIEN
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET
; --> LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK COND IF COND IF PROGN UFFI:WITH-FOREIGN-OBJECT WITH-ALIEN
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET
; --> LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (MAKE-STREAM-FN WRITE-GIF-TO-STREAM ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/images.lisp
; in: MAKE-STREAM-FN WRITE-GIF-TO-STREAM
; (CL-GD::MAKE-STREAM-FN CL-GD:WRITE-GIF-TO-STREAM
; (STREAM &KEY (CL-GD::IMAGE CL-GD:*DEFAULT-IMAGE*))
; (CL-GD::GD-IMAGE-GIF-PTR (CL-GD::IMG CL-GD::IMAGE)
; CL-GD::SIZE)
; ((CHECK-TYPE STREAM STREAM)
; (CHECK-TYPE CL-GD::IMAGE CL-GD::IMAGE))
; "Writes image IMAGE to stream STREAM as GIF. STREAM
; must be a character stream or a binary stream of element type
; (UNSIGNED-BYTE 8). If STREAM is a character stream, the user of this
; function has to make sure the external format yields faithful output
; of all 8-bit characters.")
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK COND IF PROGN UFFI:WITH-FOREIGN-OBJECT WITH-ALIEN
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET
; --> LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK COND IF COND IF PROGN UFFI:WITH-FOREIGN-OBJECT WITH-ALIEN
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET
; --> LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (MAKE-STREAM-FN WRITE-WBMP-TO-STREAM ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/images.lisp
; in: MAKE-STREAM-FN WRITE-WBMP-TO-STREAM
; (CL-GD::MAKE-STREAM-FN CL-GD:WRITE-WBMP-TO-STREAM
; (STREAM &KEY
; CL-GD::FOREGROUND
; (CL-GD::IMAGE CL-GD:*DEFAULT-IMAGE*))
; (CL-GD::GD-IMAGE-WBMP-PTR (CL-GD::IMG CL-GD::IMAGE)
; CL-GD::SIZE
; CL-GD::FOREGROUND)
; ((CHECK-TYPE STREAM STREAM)
; (CHECK-TYPE CL-GD::FOREGROUND INTEGER)
; (CHECK-TYPE CL-GD::IMAGE CL-GD::IMAGE))
; "Writes image IMAGE to stream STREAM as WBMP. STREAM
; must be a character stream or a binary stream of element type
; (UNSIGNED-BYTE 8). If STREAM is a character stream, the user of this
; function has to make sure the external format yields faithful output
; of all 8-bit characters. WBMP file support is black and white
; only. The color index specified by the FOREGOUND argument is the
; \"foreground,\" and only pixels of this color will be set in the WBMP
; file")
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK COND IF PROGN UFFI:WITH-FOREIGN-OBJECT WITH-ALIEN
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET
; --> LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK COND IF COND IF PROGN UFFI:WITH-FOREIGN-OBJECT WITH-ALIEN
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET
; --> LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (MAKE-STREAM-FN WRITE-GD-TO-STREAM ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/images.lisp
; in: MAKE-STREAM-FN WRITE-GD-TO-STREAM
; (CL-GD::MAKE-STREAM-FN CL-GD:WRITE-GD-TO-STREAM
; (STREAM &KEY (CL-GD::IMAGE CL-GD:*DEFAULT-IMAGE*))
; (CL-GD::GD-IMAGE-GD-PTR (CL-GD::IMG CL-GD::IMAGE)
; CL-GD::SIZE)
; ((CHECK-TYPE STREAM STREAM)
; (CHECK-TYPE CL-GD::IMAGE CL-GD::IMAGE))
; "Writes image IMAGE to stream STREAM as GD. STREAM
; must be a character stream or a binary stream of element type
; (UNSIGNED-BYTE 8). If STREAM is a character stream, the user of this
; function has to make sure the external format yields faithful output
; of all 8-bit characters.")
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK COND IF PROGN UFFI:WITH-FOREIGN-OBJECT WITH-ALIEN
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET
; --> LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK COND IF COND IF PROGN UFFI:WITH-FOREIGN-OBJECT WITH-ALIEN
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET
; --> LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (MAKE-STREAM-FN WRITE-GD2-TO-STREAM ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/images.lisp
; in: MAKE-STREAM-FN WRITE-GD2-TO-STREAM
; (CL-GD::MAKE-STREAM-FN CL-GD:WRITE-GD2-TO-STREAM
; (STREAM &KEY (CL-GD::IMAGE CL-GD:*DEFAULT-IMAGE*))
; (CL-GD::GD-IMAGE-GD2-PTR (CL-GD::IMG CL-GD::IMAGE)
; CL-GD::SIZE)
; ((CHECK-TYPE STREAM STREAM)
; (CHECK-TYPE CL-GD::IMAGE CL-GD::IMAGE))
; "Writes image IMAGE to stream STREAM as GD2. STREAM
; must be a character stream or a binary stream of element type
; (UNSIGNED-BYTE 8). If STREAM is a character stream, the user of this
; function has to make sure the external format yields faithful output
; of all 8-bit characters.")
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK COND IF PROGN UFFI:WITH-FOREIGN-OBJECT WITH-ALIEN
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET
; --> LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK COND IF COND IF PROGN UFFI:WITH-FOREIGN-OBJECT WITH-ALIEN
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET
; --> LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEFUN WRITE-IMAGE-TO-STREAM ...)
; compiling (DEFUN WRITE-IMAGE-TO-FILE ...)
; compiling (DEFUN IMAGE-WIDTH ...)
; compiling (DEFUN IMAGE-HEIGHT ...)
; compiling (DEFUN IMAGE-SIZE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/images.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/colors-aux.lisp" (written 09 MAR 2005 09:17:56 AM):
; compiling (IN-PACKAGE :CL-GD)
; compiling (DEFUN CURRENT-BRUSH ...)
; compiling (DEFUN (SETF CURRENT-BRUSH) ...)
; compiling (DEFUN CURRENT-TILE ...)
; compiling (DEFUN (SETF CURRENT-TILE) ...)
; compiling (DEFUN CURRENT-STYLE ...)
; compiling (DEFUN CURRENT-STYLE* ...)
; compiling (DEFGENERIC (SETF CURRENT-STYLE) ...)
; compiling (DEFMETHOD (SETF CURRENT-STYLE) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/colors-aux.lisp
; in: DEFMETHOD (SETF CURRENT-STYLE) (LIST)
; (UFFI:ALLOCATE-FOREIGN-OBJECT :INT LENGTH)
; --> MAKE-ALIEN
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN (SB-ALIEN::%MAKE-ALIEN (* 32 LENGTH))
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEFMETHOD (SETF CURRENT-STYLE) ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/colors-aux.lisp
; in: DEFMETHOD (SETF CURRENT-STYLE) (VECTOR)
; (UFFI:ALLOCATE-FOREIGN-OBJECT :INT LENGTH)
; --> MAKE-ALIEN
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN (SB-ALIEN::%MAKE-ALIEN (* 32 LENGTH))
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEFUN SET-ANTI-ALIASED ...)
; compiling (DEFUN RESOLVE-C-COLOR ...)
; compiling (DEFMACRO WITH-COLOR-ARGUMENT ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/colors-aux.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/colors.lisp" (written 26 SEP 2005 08:50:11 AM):
; compiling (IN-PACKAGE :CL-GD)
; compiling (DEFMACRO WITH-DEFAULT-COLOR ...)
; compiling (DEFUN ALLOCATE-COLOR ...)
; compiling (DEFUN DEALLOCATE-COLOR ...)
; compiling (DEFUN TRANSPARENT-COLOR ...)
; compiling (DEFUN (SETF TRANSPARENT-COLOR) ...)
; compiling (DEFUN TRUE-COLOR-P ...)
; compiling (DEFUN NUMBER-OF-COLORS ...)
; compiling (DEFUN FIND-COLOR ...)
; compiling (DEFUN THICKNESS ...)
; compiling (DEFUN (SETF THICKNESS) ...)
; compiling (DEFMACRO WITH-THICKNESS ...)
; compiling (DEFUN ALPHA-BLENDING-P ...)
; compiling (DEFUN (SETF ALPHA-BLENDING-P) ...)
; compiling (DEFUN SAVE-ALPHA-P ...)
; compiling (DEFUN (SETF SAVE-ALPHA-P) ...)
; compiling (DEFUN COLOR-COMPONENT ...)
; compiling (DEFUN COLOR-COMPONENTS ...)
; compiling (DEFUN FIND-COLOR-FROM-IMAGE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/colors.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/drawing.lisp" (written 26 SEP 2005 08:50:11 AM):
; compiling (IN-PACKAGE :CL-GD)
; compiling (DEFUN GET-PIXEL ...)
; compiling (DEFUN SET-PIXEL ...)
; compiling (DEFGENERIC SET-PIXELS ...)
; compiling (DEFMETHOD SET-PIXELS ...)
; compiling (DEFMETHOD SET-PIXELS ...)
; compiling (DEFUN DRAW-LINE ...)
; compiling (DEFUN DRAW-RECTANGLE* ...)
; compiling (DEFUN DRAW-RECTANGLE ...)
; compiling (DEFGENERIC DRAW-POLYGON ...)
; compiling (DEFMETHOD DRAW-POLYGON ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/drawing.lisp
; in: DEFMETHOD DRAW-POLYGON (VECTOR)
; (UFFI:ALLOCATE-FOREIGN-OBJECT 'CL-GD::GD-POINT (/ CL-GD::EFFECTIVE-LENGTH 2))
; --> MAKE-ALIEN
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN
; (SB-ALIEN::%MAKE-ALIEN (* 64 (/ CL-GD::EFFECTIVE-LENGTH 2)))
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT CL-GD::GD-POINT
; (CL-GD::X #)
; (CL-GD::Y #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (UFFI:DEREF-ARRAY CL-GD::ARR
; '(:ARRAY CL-GD::GD-POINT)
; (/ (- CL-GD::I CL-GD::START) 2))
; --> DEREF SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-RECORD-TYPE (STRUCT
; CL-GD::GD-POINT
; (CL-GD::X
; (SIGNED
; 32))
; (CL-GD::Y
; (SIGNED
; 32)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEFMETHOD DRAW-POLYGON ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/drawing.lisp
; in: DEFMETHOD DRAW-POLYGON (LIST)
; (UFFI:ALLOCATE-FOREIGN-OBJECT 'CL-GD::GD-POINT (/ CL-GD::EFFECTIVE-LENGTH 2))
; --> MAKE-ALIEN
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN
; (SB-ALIEN::%MAKE-ALIEN (* 64 (/ CL-GD::EFFECTIVE-LENGTH 2)))
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT CL-GD::GD-POINT
; (CL-GD::X #)
; (CL-GD::Y #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (UFFI:DEREF-ARRAY CL-GD::ARR '(:ARRAY CL-GD::GD-POINT) (/ CL-GD::I 2))
; --> DEREF SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-RECORD-TYPE (STRUCT
; CL-GD::GD-POINT
; (CL-GD::X
; (SIGNED
; 32))
; (CL-GD::Y
; (SIGNED
; 32)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEFUN DRAW-FILLED-ELLIPSE ...)
; compiling (DEFUN DRAW-FILLED-CIRCLE ...)
; compiling (DEFUN DRAW-ARC ...)
; compiling (DEFUN FILL-IMAGE ...)
; compiling (DEFUN CLIPPING-RECTANGLE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/drawing.lisp
; in: DEFUN CLIPPING-RECTANGLE
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::X1P :INT)
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::Y1P :INT)
; (UFFI:WITH-FOREIGN-OBJECT
; (CL-GD::X2P :INT)
; (UFFI:WITH-FOREIGN-OBJECT
; (CL-GD::Y2P :INT)
; (CL-GD::GD-IMAGE-GET-CLIP
; #
; CL-GD::X1P
; CL-GD::Y1P
; CL-GD::X2P
; CL-GD::Y2P)
; (LIST # # # #)))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::Y1P :INT)
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::X2P :INT)
; (UFFI:WITH-FOREIGN-OBJECT
; (CL-GD::Y2P :INT)
; (CL-GD::GD-IMAGE-GET-CLIP
; (CL-GD::IMG
; CL-GD::IMAGE)
; CL-GD::X1P
; CL-GD::Y1P
; CL-GD::X2P
; CL-GD::Y2P)
; (LIST
; (UFFI:DEREF-POINTER
; CL-GD::X1P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::Y1P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::X2P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::Y2P
; :INT)))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::X2P :INT)
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::Y2P :INT)
; (CL-GD::GD-IMAGE-GET-CLIP
; (CL-GD::IMG
; CL-GD::IMAGE)
; CL-GD::X1P
; CL-GD::Y1P
; CL-GD::X2P
; CL-GD::Y2P)
; (LIST
; (UFFI:DEREF-POINTER
; CL-GD::X1P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::Y1P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::X2P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::Y2P
; :INT))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::Y2P :INT)
; (CL-GD::GD-IMAGE-GET-CLIP (CL-GD::IMG CL-GD::IMAGE)
; CL-GD::X1P
; CL-GD::Y1P
; CL-GD::X2P
; CL-GD::Y2P)
; (LIST (UFFI:DEREF-POINTER CL-GD::X1P :INT)
; (UFFI:DEREF-POINTER CL-GD::Y1P :INT)
; (UFFI:DEREF-POINTER CL-GD::X2P :INT)
; (UFFI:DEREF-POINTER CL-GD::Y2P :INT)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::X1P :INT)
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::Y1P :INT)
; (UFFI:WITH-FOREIGN-OBJECT
; (CL-GD::X2P :INT)
; (UFFI:WITH-FOREIGN-OBJECT
; (CL-GD::Y2P :INT)
; (CL-GD::GD-IMAGE-GET-CLIP
; #
; CL-GD::X1P
; CL-GD::Y1P
; CL-GD::X2P
; CL-GD::Y2P)
; (LIST # # # #)))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::Y1P :INT)
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::X2P :INT)
; (UFFI:WITH-FOREIGN-OBJECT
; (CL-GD::Y2P :INT)
; (CL-GD::GD-IMAGE-GET-CLIP
; (CL-GD::IMG
; CL-GD::IMAGE)
; CL-GD::X1P
; CL-GD::Y1P
; CL-GD::X2P
; CL-GD::Y2P)
; (LIST
; (UFFI:DEREF-POINTER
; CL-GD::X1P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::Y1P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::X2P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::Y2P
; :INT)))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::X2P :INT)
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::Y2P :INT)
; (CL-GD::GD-IMAGE-GET-CLIP
; (CL-GD::IMG
; CL-GD::IMAGE)
; CL-GD::X1P
; CL-GD::Y1P
; CL-GD::X2P
; CL-GD::Y2P)
; (LIST
; (UFFI:DEREF-POINTER
; CL-GD::X1P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::Y1P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::X2P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::Y2P
; :INT))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::Y2P :INT)
; (CL-GD::GD-IMAGE-GET-CLIP (CL-GD::IMG CL-GD::IMAGE)
; CL-GD::X1P
; CL-GD::Y1P
; CL-GD::X2P
; CL-GD::Y2P)
; (LIST (UFFI:DEREF-POINTER CL-GD::X1P :INT)
; (UFFI:DEREF-POINTER CL-GD::Y1P :INT)
; (UFFI:DEREF-POINTER CL-GD::X2P :INT)
; (UFFI:DEREF-POINTER CL-GD::Y2P :INT)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEFUN (SETF CLIPPING-RECTANGLE) ...)
; compiling (DEFUN CLIPPING-RECTANGLE* ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/drawing.lisp
; in: DEFUN CLIPPING-RECTANGLE*
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::X1P :INT)
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::Y1P :INT)
; (UFFI:WITH-FOREIGN-OBJECT
; (CL-GD::X2P :INT)
; (UFFI:WITH-FOREIGN-OBJECT
; (CL-GD::Y2P :INT)
; (CL-GD::GD-IMAGE-GET-CLIP
; #
; CL-GD::X1P
; CL-GD::Y1P
; CL-GD::X2P
; CL-GD::Y2P)
; (VALUES # # # #)))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::Y1P :INT)
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::X2P :INT)
; (UFFI:WITH-FOREIGN-OBJECT
; (CL-GD::Y2P :INT)
; (CL-GD::GD-IMAGE-GET-CLIP
; (CL-GD::IMG
; CL-GD::IMAGE)
; CL-GD::X1P
; CL-GD::Y1P
; CL-GD::X2P
; CL-GD::Y2P)
; (VALUES
; (UFFI:DEREF-POINTER
; CL-GD::X1P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::Y1P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::X2P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::Y2P
; :INT)))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::X2P :INT)
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::Y2P :INT)
; (CL-GD::GD-IMAGE-GET-CLIP
; (CL-GD::IMG
; CL-GD::IMAGE)
; CL-GD::X1P
; CL-GD::Y1P
; CL-GD::X2P
; CL-GD::Y2P)
; (VALUES
; (UFFI:DEREF-POINTER
; CL-GD::X1P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::Y1P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::X2P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::Y2P
; :INT))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::Y2P :INT)
; (CL-GD::GD-IMAGE-GET-CLIP (CL-GD::IMG CL-GD::IMAGE)
; CL-GD::X1P
; CL-GD::Y1P
; CL-GD::X2P
; CL-GD::Y2P)
; (VALUES (UFFI:DEREF-POINTER CL-GD::X1P :INT)
; (UFFI:DEREF-POINTER CL-GD::Y1P :INT)
; (UFFI:DEREF-POINTER CL-GD::X2P :INT)
; (UFFI:DEREF-POINTER CL-GD::Y2P :INT)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::X1P :INT)
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::Y1P :INT)
; (UFFI:WITH-FOREIGN-OBJECT
; (CL-GD::X2P :INT)
; (UFFI:WITH-FOREIGN-OBJECT
; (CL-GD::Y2P :INT)
; (CL-GD::GD-IMAGE-GET-CLIP
; #
; CL-GD::X1P
; CL-GD::Y1P
; CL-GD::X2P
; CL-GD::Y2P)
; (VALUES # # # #)))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::Y1P :INT)
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::X2P :INT)
; (UFFI:WITH-FOREIGN-OBJECT
; (CL-GD::Y2P :INT)
; (CL-GD::GD-IMAGE-GET-CLIP
; (CL-GD::IMG
; CL-GD::IMAGE)
; CL-GD::X1P
; CL-GD::Y1P
; CL-GD::X2P
; CL-GD::Y2P)
; (VALUES
; (UFFI:DEREF-POINTER
; CL-GD::X1P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::Y1P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::X2P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::Y2P
; :INT)))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::X2P :INT)
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::Y2P :INT)
; (CL-GD::GD-IMAGE-GET-CLIP
; (CL-GD::IMG
; CL-GD::IMAGE)
; CL-GD::X1P
; CL-GD::Y1P
; CL-GD::X2P
; CL-GD::Y2P)
; (VALUES
; (UFFI:DEREF-POINTER
; CL-GD::X1P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::Y1P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::X2P
; :INT)
; (UFFI:DEREF-POINTER
; CL-GD::Y2P
; :INT))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::Y2P :INT)
; (CL-GD::GD-IMAGE-GET-CLIP (CL-GD::IMG CL-GD::IMAGE)
; CL-GD::X1P
; CL-GD::Y1P
; CL-GD::X2P
; CL-GD::Y2P)
; (VALUES (UFFI:DEREF-POINTER CL-GD::X1P :INT)
; (UFFI:DEREF-POINTER CL-GD::Y1P :INT)
; (UFFI:DEREF-POINTER CL-GD::X2P :INT)
; (UFFI:DEREF-POINTER CL-GD::Y2P :INT)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEFUN SET-CLIPPING-RECTANGLE* ...)
; compiling (DEFMACRO WITH-CLIPPING-RECTANGLE ...)
; compiling (DEFMACRO WITH-CLIPPING-RECTANGLE* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/drawing.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/strings.lisp" (written 09 MAR 2005 09:17:56 AM):
; compiling (IN-PACKAGE :CL-GD)
; compiling (DEFMACRO WITH-DEFAULT-FONT ...)
; compiling (DEFUN DRAW-CHARACTER ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/strings.lisp
; in: DEFUN DRAW-CHARACTER
; (ECASE CL-GD::FONT
; ((:TINY) CL-GD::+GD-FONT-TINY+)
; ((:SMALL) CL-GD::+GD-FONT-SMALL+)
; ((:MEDIUM :MEDIUM-BOLD) CL-GD::+GD-FONT-MEDIUM-BOLD+)
; ((:LARGE) CL-GD::+GD-FONT-LARGE+)
; ((:GIANT) CL-GD::+GD-FONT-GIANT+))
; --> LET COND IF PROGN CL-GD::+GD-FONT-TINY+ SB-ALIEN-INTERNALS:%HEAP-ALIEN
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF PROGN CL-GD::+GD-FONT-SMALL+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-MEDIUM-BOLD+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-LARGE+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-GIANT+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF PROGN CL-GD::+GD-FONT-TINY+ SB-ALIEN-INTERNALS:%HEAP-ALIEN
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF PROGN CL-GD::+GD-FONT-SMALL+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-MEDIUM-BOLD+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-LARGE+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-GIANT+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF PROGN CL-GD::+GD-FONT-TINY+ SB-ALIEN-INTERNALS:%HEAP-ALIEN
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF PROGN CL-GD::+GD-FONT-SMALL+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-MEDIUM-BOLD+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-LARGE+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-GIANT+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF PROGN CL-GD::+GD-FONT-TINY+ SB-ALIEN-INTERNALS:%HEAP-ALIEN
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF PROGN CL-GD::+GD-FONT-SMALL+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-MEDIUM-BOLD+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-LARGE+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-GIANT+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEFUN DRAW-STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/strings.lisp
; in: DEFUN DRAW-STRING
; (ECASE CL-GD::FONT
; ((:TINY) CL-GD::+GD-FONT-TINY+)
; ((:SMALL) CL-GD::+GD-FONT-SMALL+)
; ((:MEDIUM :MEDIUM-BOLD) CL-GD::+GD-FONT-MEDIUM-BOLD+)
; ((:LARGE) CL-GD::+GD-FONT-LARGE+)
; ((:GIANT) CL-GD::+GD-FONT-GIANT+))
; --> LET COND IF PROGN CL-GD::+GD-FONT-TINY+ SB-ALIEN-INTERNALS:%HEAP-ALIEN
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF PROGN CL-GD::+GD-FONT-SMALL+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-MEDIUM-BOLD+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-LARGE+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-GIANT+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF PROGN CL-GD::+GD-FONT-TINY+ SB-ALIEN-INTERNALS:%HEAP-ALIEN
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF PROGN CL-GD::+GD-FONT-SMALL+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-MEDIUM-BOLD+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-LARGE+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-GIANT+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF PROGN CL-GD::+GD-FONT-TINY+ SB-ALIEN-INTERNALS:%HEAP-ALIEN
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF PROGN CL-GD::+GD-FONT-SMALL+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-MEDIUM-BOLD+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-LARGE+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-GIANT+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF PROGN CL-GD::+GD-FONT-TINY+ SB-ALIEN-INTERNALS:%HEAP-ALIEN
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF PROGN CL-GD::+GD-FONT-SMALL+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-MEDIUM-BOLD+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-LARGE+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; --> LET COND IF COND IF COND IF COND IF COND IF PROGN CL-GD::+GD-FONT-GIANT+
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE
; --> SB-ALIEN-INTERNALS:NATURALIZE
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FONT
; (CL-GD::NCHARS
; #)
; (CL-GD::OFFSET
; #)
; (CL-GD::W
; #)
; (CL-GD::H
; #)
; (CL-GD::DATA
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; compiling (DEFUN DRAW-FREETYPE-STRING ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/strings.lisp
; in: DEFUN DRAW-FREETYPE-STRING
; (UFFI:ALLOCATE-FOREIGN-OBJECT :INT 8)
; --> MAKE-ALIEN
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN (SB-ALIEN::%MAKE-ALIEN (* 32 8))
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (CL-GD::WITH-TRANSFORMED-ALTERNATIVE
; ((CL-GD::X CL-GD::X-TRANSFORMER) (CL-GD::Y CL-GD::Y-TRANSFORMER)
; ((UFFI:DEREF-ARRAY CL-GD::C-BOUNDING-RECTANGLE '(:ARRAY :INT) CL-GD::I)
; CL-GD::X-INV-TRANSFORMER)
; ((UFFI:DEREF-ARRAY CL-GD::C-BOUNDING-RECTANGLE
; '(:ARRAY :INT)
; (1+ CL-GD::I))
; CL-GD::Y-INV-TRANSFORMER))
; (WHEN (PATHNAMEP CL-GD::FONT-NAME)
; (SETQ CL-GD::FONT-NAME (NAMESTRING CL-GD::FONT-NAME)))
; (WHEN CL-GD::CONVERT-CHARS
; (SETQ STRING (CL-GD::CONVERT-TO-CHAR-REFERENCES STRING)))
; (UFFI:WITH-CSTRING (CL-GD::C-FONT-NAME CL-GD::FONT-NAME)
; (UFFI:WITH-CSTRING (CL-GD::C-STRING STRING)
; (CL-GD::WITH-SAFE-ALLOC
; (CL-GD::C-BOUNDING-RECTANGLE # #)
; (LET #
; #
; #)))))
; --> LET COND IF PROGN PROGN UFFI:WITH-CSTRING LET UFFI:WITH-CSTRING LET
; --> CL-GD::WITH-SAFE-ALLOC LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET
; --> UFFI:CONVERT-FROM-CSTRING COND IF PROGN UFFI:WITH-FOREIGN-OBJECT
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FT-STRING-EXTRA
; (CL-GD::FLAGS
; #)
; (CL-GD::LINE-SPACING
; DOUBLE-FLOAT)
; (CL-GD::CHARMAP
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (UFFI:ALLOCATE-FOREIGN-OBJECT :INT 8)
; --> MAKE-ALIEN
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN (SB-ALIEN::%MAKE-ALIEN (* 32 8))
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (SIGNED
; 32))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; (UFFI:WITH-FOREIGN-OBJECT (CL-GD::STREX 'CL-GD::GD-FT-STRING-EXTRA)
; (SETF (UFFI:GET-SLOT-VALUE CL-GD::STREX
; 'CL-GD::GD-FT-STRING-EXTRA
; 'CL-GD::FLAGS)
; CL-GD::+GD-FTEX-LINESPACE+
; (UFFI:GET-SLOT-VALUE CL-GD::STREX
; 'CL-GD::GD-FT-STRING-EXTRA
; 'CL-GD::LINE-SPACING)
; (COERCE CL-GD::LINE-SPACING 'DOUBLE-FLOAT))
; (CL-GD::GD-IMAGE-STRING-FT-EX
; (IF CL-GD::DO-NOT-DRAW
; CL-GD::*NULL-IMAGE*
; (CL-GD::IMG CL-GD::IMAGE))
; CL-GD::C-BOUNDING-RECTANGLE
; (IF CL-GD::ANTI-ALIASED
; CL-GD::COLOR
; (- CL-GD::COLOR))
; CL-GD::C-FONT-NAME
; (COERCE CL-GD::POINT-SIZE 'DOUBLE-FLOAT)
; (COERCE CL-GD::ANGLE 'DOUBLE-FLOAT)
; CL-GD::X
; CL-GD::Y
; CL-GD::C-STRING
; CL-GD::STREX))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1
; --> SYMBOL-MACROLET LET* ADDR SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR
; ==>
; (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
; '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
; (STRUCT
; CL-GD::GD-FT-STRING-EXTRA
; (CL-GD::FLAGS
; #)
; (CL-GD::LINE-SPACING
; DOUBLE-FLOAT)
; (CL-GD::CHARMAP
; #)))>)
;
; note: unable to
; optimize
; because:
; could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/strings.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/misc.lisp" (written 26 SEP 2005 08:50:11 AM):
; compiling (IN-PACKAGE :CL-GD)
; compiling (DEFUN INTERLACEDP ...)
; compiling (DEFUN (SETF INTERLACEDP) ...)
; compiling (DEFUN DIFFERENTP ...)
; compiling (DEFUN COPY-IMAGE ...)
; compiling (DEFUN COPY-PALETTE ...)
; compiling (DEFUN TRUE-COLOR-TO-PALETTE ...)
; compiling (DEFMACRO DO-ROWS ...)
; compiling (DEFMACRO DO-PIXELS ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-gd-0.5.1/misc.fasl written
; compilation finished in 0:00:00
STYLE-WARNING: Undefined alien: "gdFontGiant"
STYLE-WARNING: Undefined alien: "gdFontLarge"
STYLE-WARNING: Undefined alien: "gdFontMediumBold"
STYLE-WARNING: Undefined alien: "gdFontSmall"
STYLE-WARNING: Undefined alien: "gdFontTiny"
;
; compilation unit finished
; printed 100 notes
;;; ASDF-INSTALL: Downloading package SDL-TTF, required by poly-pen
Server responded 404 for GET http://www.cliki.net/sdl-ttf?download