[14:49:26][ckeen@ikarus:~/lisp/sbcl-0.8.18]$ sbcl --version
SBCL 0.8.10
[14:49:30][ckeen@ikarus:~/lisp/sbcl-0.8.18]$ sh make.sh
//starting build: Mon Jan 3 14:49:34 CET 2005
//SBCL_XC_HOST="sbcl --noprogrammer"
//entering make-config.sh
//ensuring the existence of output/ directory
//initializing /home/ckeen/lisp/sbcl-0.8.18/local-target-features.lisp-expr
//guessing default target CPU architecture from host architecture
//setting up CPU-architecture-dependent information
sbcl_arch="x86"
//setting up symlink src/compiler/target
//setting up symlink src/assembly/target
//setting up symlink src/compiler/assembly
//setting up OS-dependent information
//finishing /home/ckeen/lisp/sbcl-0.8.18/local-target-features.lisp-expr
//entering make-host-1.sh
//building cross-compiler, and doing first genesis
This is SBCL 0.8.10, an implementation of ANSI Common Lisp.
More information about SBCL is available at .
SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses. See the CREDITS and COPYING files in the
distribution for more information.
WARNING: treating deprecated --noprogrammer as --disable-debugger
*
5
* ; in: LAMBDA NIL
; (FIND SB-COLD::UNUSED-NAME SB-COLD::NEW-NICKNAMES :TEST #'STRING=)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; (FIND SB-COLD::NEW-NAME SB-COLD::NEW-NICKNAMES :TEST #'STRING=)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compilation unit finished
; printed 4 notes
; in: LAMBDA NIL
; (FUNCALL SB-COLD::STANDARD-QUOTE-READER STREAM CHAR)
; --> 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.
; compilation unit finished
; printed 1 note
target features *SHEBANG-FEATURES*=(:ANSI-CL :COMMON-LISP
:SBCL
:UNIX
:SB-DOC
:SB-TEST
:SB-PACKAGE-LOCKS
:SB-UNICODE
:IEEE-FLOATING-POINT
:X86
:BSD
:OPENBSD
:GENCGC
:STACK-GROWS-DOWNWARD-NOT-UPWARD
:C-STACK-IS-CONTROL-STACK)
target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL
T
* WARNING: Found non-STANDARD-CHAR in "
.globl ldso_stub__~A ; \\
FUNCDEF(ldso_stub__~A) ; \\
ldso_stub__~A: ; \\
sethi %hi(~A),%g1 ; \\
jmpl %g1+%lo(~A),%g0 ; \\
nop /* delay slot*/ ; \\
.L~Ae1: ; \\
.size ldso_stub__~A,.L~Ae1-ldso_stub__~A ;~%"
WARNING: Found non-STANDARD-CHAR in "
#define LDSO_STUBIFY(fct) \\
.align 16 ; \\
.globl ldso_stub__ ## fct ; \\
.type ldso_stub__ ## fct,@function ; \\
ldso_stub__ ## fct: ; \\
jmp fct ; \\
.L ## fct ## e1: ; \\
.size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"
WARNING: Found non-STANDARD-CHAR in "
#define LDSO_STUBIFY(fct) \\
.globl ldso_stub__/**/fct ; \\
ldso_stub__/**/fct: ; \\
jmp fct ; \\
.L/**/fct/**/e1: ;"
WARNING: Found non-STANDARD-CHAR in "
#define LDSO_STUBIFY(fct) \\
.globl ldso_stub__ ## fct ; \\
.type ldso_stub__ ## fct,@function ; \\
ldso_stub__ ## fct: ; \\
jmp fct ; \\
.L ## fct ## e1: ; \\
.size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"
WARNING: Found non-STANDARD-CHAR in "
#define LDSO_STUBIFY(fct) \\
.globl ldso_stub__ ## fct ; \\
.type ldso_stub__ ## fct,@function ; \\
ldso_stub__ ## fct: ; \\
b fct ; \\
.L ## fct ## e1: ; \\
.size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"
WARNING: Found non-STANDARD-CHAR in "
#define LDSO_STUBIFY(fct) @\\
.text @\\
.globl ldso_stub___ ## fct @\\
ldso_stub___ ## fct: @\\
b ldso_stub__ ## fct ## stub @\\
.symbol_stub ldso_stub__ ## fct ## stub: @\\
.indirect_symbol _ ## fct @\\
lis r11,ha16(ldso_stub__ ## fct ## $lazy_ptr) @\\
lwz r12,lo16(ldso_stub__ ## fct ## $lazy_ptr)(r11) @\\
mtctr r12 @\\
addi r11,r11,lo16(ldso_stub__ ## fct ## $lazy_ptr) @\\
bctr @\\
.lazy_symbol_pointer @\\
ldso_stub__ ## fct ## $lazy_ptr: @\\
.indirect_symbol _ ## fct @\\
.long dyld_stub_binding_helper"
WARNING: Found non-STANDARD-CHAR in "
#define LDSO_STUBIFY(fct) \\
.globl ldso_stub__ ## fct ; \\
.type ldso_stub__ ## fct,@function ; \\
ldso_stub__ ## fct: ; \\
addiu $29,-48 ; \\
sw $28,40($29) ; \\
sw $31,44($29) ; \\
lw $25,64($29) ; \\
sw $25,16($29) ; \\
la $25, fct ; \\
jalr $25 ; \\
lw $31,44($29) ; \\
lw $28,40($29) ; \\
addiu $29,48 ; \\
jr $31 ; \\
.L ## fct ## e1: ; \\
.size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"
T
*
#
*
"obj/from-host/"
*
T
* ; in: LAMBDA NIL
; (FIND :NOT-HOST SB-COLD::FLAGS)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; (FIND :IGNORE-FAILURE-P SB-COLD::FLAGS)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compilation unit finished
; printed 4 notes
T
*
creating directory: obj/from-host/
creating directory: obj/from-host/src/
creating directory: obj/from-host/src/code/
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/show.lisp" (written 02 OCT 2002 02:09:17 PM):
; compiling top level form:
; recognizing DEFUN CANNOT-/SHOW
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/show.lisp
; in: DEFUN CANNOT-/SHOW
; (VALUES)
;
; note: deleting unreachable code
; compiling DEFUN CANNOT-/SHOW:
; compiling top level form:
; compiling DEFMACRO /SHOW:
; compiling top level form:
; compiling DEFMACRO /NOSHOW:
; compiling top level form:
; compiling DEFMACRO /XHOW:
; compiling top level form:
; compiling DEFMACRO /NOXHOW:
; compiling top level form:
; compiling DEFMACRO /SHOW0:
; compiling top level form:
; compiling DEFMACRO /NOSHOW0:
; compiling top level form:
; compiling DEFMACRO /PRIMITIVE-PRINT:
; compiling top level form:
; compiling DEFMACRO /HEXSTR:
; compiling top level form:
; compiling DEFMACRO /NOHEXSTR:
; compiling top level form:
; compiling top level form:
; compilation unit finished
; printed 1 note
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/show.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/backq.lisp" (written 10 JUN 2004 05:47:53 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BACKQUOTE-MACRO
; compiling top level form:
; compiling DEFUN BACKQUOTE-MACRO:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COMMA-MACRO
; compiling top level form:
; compiling DEFUN COMMA-MACRO:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EXPANDABLE-BACKQ-EXPRESSION-P
; compiling top level form:
; compiling DEFUN EXPANDABLE-BACKQ-EXPRESSION-P:
; compiling top level form:
; recognizing DEFUN BACKQUOTIFY
; compiling top level form:
; compiling DEFUN BACKQUOTIFY:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COMMA
; compiling top level form:
; compiling DEFUN COMMA:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BACKQUOTIFY-1
; compiling top level form:
; compiling DEFUN BACKQUOTIFY-1:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BACKQ-LIST
; compiling top level form:
; compiling DEF BACKQ-LIST:
; compiling top level form:
; recognizing DEFUN BACKQ-LIST*
; compiling top level form:
; compiling DEF BACKQ-LIST*:
; compiling top level form:
; recognizing DEFUN BACKQ-APPEND
; compiling top level form:
; compiling DEF BACKQ-APPEND:
; compiling top level form:
; recognizing DEFUN BACKQ-NCONC
; compiling top level form:
; compiling DEF BACKQ-NCONC:
; compiling top level form:
; recognizing DEFUN BACKQ-CONS
; compiling top level form:
; compiling DEF BACKQ-CONS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BACKQ-VECTOR
; compiling top level form:
; compiling DEFUN BACKQ-VECTOR:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN !BACKQ-COLD-INIT
; compiling top level form:
; compiling DEFUN !BACKQ-COLD-INIT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %READER-ERROR
; compiling top level form:
; compiling DEFUN %READER-ERROR:
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/backq.lisp
; in: DEFUN %READER-ERROR
; (SB!INT:BUG "READER-ERROR on stream ~S: ~?"
; STREAM
; SB!IMPL::FORMAT-STRING
; SB!IMPL::FORMAT-ARGS)
;
; caught STYLE-WARNING:
; undefined function: BUG
;
; caught STYLE-WARNING:
; This function is undefined:
; BUG
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/backq.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/defsetfs.lisp" (written 25 OCT 2003 11:34:36 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFSETF DEREF:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/defsetfs.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/cold-init-helper-macros.lisp" (written 04 JUL 2003 07:18:25 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO !BEGIN-COLLECTING-COLD-INIT-FORMS:
; compiling top level form:
; compiling DEFMACRO !COLD-INIT-FORMS:
; compiling top level form:
; compiling DEFMACRO !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/cold-init-helper-macros.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/cross-misc.lisp" (written 04 JUL 2004 03:03:27 PM):
; compiling top level form:
; compiling DEFMACRO TRULY-THE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO WITHOUT-INTERRUPTS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTYPE ANSI-STREAM:
; compiling top level form:
; compiling DEFTYPE INSTANCE:
; compiling top level form:
; recognizing DEFUN FUNCALLABLE-INSTANCE-P
; compiling top level form:
; compiling DEFUN FUNCALLABLE-INSTANCE-P:
; compiling top level form (SB-KERNEL:FIND-CLASSOID-CELL (QUOTE GENERIC-FUNCTION)):
; compiling top level form:
; recognizing DEFUN ARRAY-HEADER-P
; compiling top level form:
; compiling DEFUN ARRAY-HEADER-P:
; compiling top level form:
; recognizing DEFUN PACKAGE-INTERNAL-SYMBOL-COUNT
; compiling top level form:
; compiling DEFUN PACKAGE-INTERNAL-SYMBOL-COUNT:
; compiling top level form:
; recognizing DEFUN PACKAGE-EXTERNAL-SYMBOL-COUNT
; compiling top level form:
; compiling DEFUN PACKAGE-EXTERNAL-SYMBOL-COUNT:
; compiling top level form:
; recognizing DEFUN INTERN*
; compiling top level form:
; compiling DEFUN INTERN*:
; compiling top level form:
; recognizing DEFUN SYMBOL-HASH
; compiling top level form:
; compiling DEFUN SYMBOL-HASH:
; compiling top level form:
; recognizing DEFUN SIMPLE-ARRAY-NIL-P
; compiling top level form:
; compiling DEFUN SIMPLE-ARRAY-NIL-P:
; compiling top level form:
; recognizing DEFUN %NEGATE
; compiling top level form:
; compiling DEFUN %NEGATE:
; compiling top level form:
; recognizing DEFUN %SINGLE-FLOAT
; compiling top level form:
; compiling DEFUN %SINGLE-FLOAT:
; compiling top level form:
; recognizing DEFUN %DOUBLE-FLOAT
; compiling top level form:
; compiling DEFUN %DOUBLE-FLOAT:
; compiling top level form:
; recognizing DEFUN %LDB
; compiling top level form:
; compiling DEFUN %LDB:
; compiling top level form:
; recognizing DEFUN %DPB
; compiling top level form:
; compiling DEFUN %DPB:
; compiling top level form:
; recognizing DEFUN %WITH-ARRAY-DATA
; compiling top level form:
; compiling DEFUN %WITH-ARRAY-DATA:
; compiling top level form:
; recognizing DEFUN SB!VM::ASH-LEFT-MOD32
; compiling top level form:
; compiling DEFUN SB!VM::ASH-LEFT-MOD32:
; compiling top level form:
; compiling DEFMACRO WITHOUT-PACKAGE-LOCKS:
; compiling top level form:
; compiling DEFMACRO WITH-SINGLE-PACKAGE-LOCKED-ERROR:
; compiling top level form:
; recognizing DEFUN COMPILER-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; compiling top level form:
; compiling DEFUN COMPILER-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED:
; compiling top level form:
; recognizing DEFUN ASSERT-PACKAGE-UNLOCKED
; compiling top level form:
; compiling DEFUN ASSERT-PACKAGE-UNLOCKED:
; compiling top level form:
; recognizing DEFUN ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; compiling top level form:
; compiling DEFUN ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED:
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/cross-misc.lisp
; in: DEFUN SB!VM::ASH-LEFT-MOD32
; (SB-XC:BYTE 32 0)
;
; caught STYLE-WARNING:
; undefined function: BYTE
; in: DEFUN %DPB
; (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN)
;
; caught STYLE-WARNING:
; undefined function: BYTE
; in: DEFUN %LDB
; (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN)
;
; caught STYLE-WARNING:
; undefined function: BYTE
; in: DEFUN %DPB
; (SB-XC:DPB SB!IMPL::NEWBYTE (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN) INTEGER)
;
; caught STYLE-WARNING:
; undefined function: DPB
; in: DEFUN SB!VM::ASH-LEFT-MOD32
; (SB-XC:LDB (SB-XC:BYTE 32 0) (ASH INTEGER SB!IMPL::AMOUNT))
;
; caught STYLE-WARNING:
; undefined function: LDB
; in: DEFUN %LDB
; (SB-XC:LDB (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN) INTEGER)
;
; caught STYLE-WARNING:
; undefined function: LDB
;
; caught STYLE-WARNING:
; These functions are undefined:
; BYTE DPB LDB
;
; compilation unit finished
; caught 7 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/cross-misc.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/cross-char.lisp" (written 29 OCT 2004 01:30:43 PM):
; compiling top level form:
; compiling DEFUN SB-XC:CHAR-CODE:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/cross-char.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/cross-byte.lisp" (written 21 DEC 2004 04:52:04 AM):
; compiling top level form:
; recognizing DEFUN BYTE
; compiling top level form:
; compiling DEFUN BYTE:
; compiling top level form:
; recognizing DEFUN BYTE-SIZE
; compiling top level form:
; compiling DEFUN BYTE-SIZE:
; compiling top level form:
; recognizing DEFUN BYTE-POSITION
; compiling top level form:
; compiling DEFUN BYTE-POSITION:
; compiling top level form:
; recognizing DEFUN UNCROSS-BYTE
; compiling top level form:
; compiling DEFUN UNCROSS-BYTE:
; compiling top level form:
; recognizing DEFUN LDB
; compiling top level form:
; compiling DEFUN LDB:
; compiling top level form:
; recognizing DEFUN LDB-TEST
; compiling top level form:
; compiling DEFUN LDB-TEST:
; compiling top level form:
; recognizing DEFUN DPB
; compiling top level form:
; compiling DEFUN DPB:
; compiling top level form:
; recognizing DEFUN MASK-FIELD
; compiling top level form:
; compiling DEFUN MASK-FIELD:
; compiling top level form:
; recognizing DEFUN DEPOSIT-FIELD
; compiling top level form:
; compiling DEFUN DEPOSIT-FIELD:
; compiling top level form:
; recognizing DEFUN SB!C::MASK-SIGNED-FIELD
; compiling top level form:
; compiling DEFUN SB!C::MASK-SIGNED-FIELD:
; compiling top level form:
; compiling DEFINE-SETF-EXPANDER LDB:
; compiling top level form:
; compiling DEFINE-SETF-EXPANDER MASK-FIELD:
; compiling top level form:
; in: LAMBDA NIL
; (SB!INT:BUG "SETF SB!XC:MASK-FIELD too hairy!")
;
; caught STYLE-WARNING:
; undefined function: BUG
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/cross-byte.lisp
; in: DEFINE-SETF-EXPANDER LDB
; (SB!INT:BUG "SETF SB!XC:LDB too hairy!")
;
; caught STYLE-WARNING:
; undefined function: BUG
; in: LAMBDA NIL
; (SB!INT:BUG "SETF SB!XC:LDB too hairy!")
;
; caught STYLE-WARNING:
; undefined function: BUG
;
; caught STYLE-WARNING:
; 1 more use of undefined function BUG
;
; caught STYLE-WARNING:
; This function is undefined:
; BUG
;
; compilation unit finished
; caught 5 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/cross-byte.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/cross-boole.lisp" (written 25 OCT 2003 11:40:48 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BOOLE
; compiling top level form:
; compiling DEFUN BOOLE:
; compiling top level form:
; recognizing DEFUN UNCROSS-BOOLE
; compiling top level form:
; compiling DEFUN UNCROSS-BOOLE:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/cross-boole.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/cross-float.lisp" (written 03 AUG 2003 01:32:29 PM):
; compiling top level form:
; compiling DEFMACRO WITH-FLOAT-TRAPS-MASKED:
; compiling top level form:
; recognizing DEFUN MASK-AND-SIGN-EXTEND
; compiling top level form:
; compiling DEFUN MASK-AND-SIGN-EXTEND:
; compiling top level form:
; recognizing DEFUN SINGLE-FLOAT-BITS
; compiling top level form:
; compiling DEFUN SINGLE-FLOAT-BITS:
; compiling top level form:
; recognizing DEFUN DOUBLE-FLOAT-BITS
; compiling top level form:
; compiling DEFUN DOUBLE-FLOAT-BITS:
; compiling top level form:
; recognizing DEFUN DOUBLE-FLOAT-LOW-BITS
; compiling top level form:
; compiling DEFUN DOUBLE-FLOAT-LOW-BITS:
; compiling top level form:
; recognizing DEFUN DOUBLE-FLOAT-HIGH-BITS
; compiling top level form:
; compiling DEFUN DOUBLE-FLOAT-HIGH-BITS:
; compiling top level form:
; recognizing DEFUN KLUDGE-OPAQUE-EXPT
; compiling top level form:
; compiling DEFUN KLUDGE-OPAQUE-EXPT:
; compiling top level form:
; recognizing DEFUN MAKE-SINGLE-FLOAT
; compiling top level form:
; compiling DEFUN MAKE-SINGLE-FLOAT:
; compiling top level form:
; recognizing DEFUN MAKE-DOUBLE-FLOAT
; compiling top level form:
; compiling DEFUN MAKE-DOUBLE-FLOAT:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/cross-float.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/cross-io.lisp" (written 06 JUN 2001 11:43:50 PM):
; compiling top level form:
; compiling DEFMACRO PREPARE-FOR-FAST-READ-BYTE:
; compiling top level form:
; compiling DEFMACRO FAST-READ-BYTE:
; compiling top level form:
; compiling DEFMACRO DONE-WITH-FAST-READ-BYTE:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/cross-io.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/cross-sap.lisp" (written 03 MAY 2003 08:22:56 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-SAP
; compiling top level form:
; compiling DEFSTRUCT SYSTEM-AREA-POINTER:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INT-SAP
; compiling top level form:
; compiling DEFUN INT-SAP:
; compiling top level form:
; recognizing DEFUN SAP+
; compiling top level form:
; compiling DEFUN SAP+:
; compiling top level form:
; recognizing DEFUN SAP<
; compiling top level form:
; compiling DEFUN SAP<:
; compiling top level form:
; recognizing DEFUN SAP<=
; compiling top level form:
; compiling DEFUN SAP<=:
; compiling top level form:
; recognizing DEFUN SAP=
; compiling top level form:
; compiling DEFUN SAP=:
; compiling top level form:
; recognizing DEFUN SAP>=
; compiling top level form:
; compiling DEFUN SAP>=:
; compiling top level form:
; recognizing DEFUN SAP>
; compiling top level form:
; compiling DEFUN SAP>:
; compiling top level form:
; recognizing DEFUN SAP-
; compiling top level form:
; compiling DEFUN SAP-:
; compiling top level form:
; recognizing DEFUN SAP-REF-STUB
; compiling top level form:
; compiling DEFUN SAP-REF-STUB:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SAP-REF-8
; compiling top level form:
; compiling DEFUN SAP-REF-8:
; compiling top level form:
; recognizing DEFUN #:SETTER-STUB-154
; compiling top level form:
; compiling DEFUN #:SETTER-STUB-154:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SAP-REF-16
; compiling top level form:
; compiling DEFUN SAP-REF-16:
; compiling top level form:
; recognizing DEFUN #:SETTER-STUB-155
; compiling top level form:
; compiling DEFUN #:SETTER-STUB-155:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SAP-REF-32
; compiling top level form:
; compiling DEFUN SAP-REF-32:
; compiling top level form:
; recognizing DEFUN #:SETTER-STUB-156
; compiling top level form:
; compiling DEFUN #:SETTER-STUB-156:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SAP-REF-SAP
; compiling top level form:
; compiling DEFUN SAP-REF-SAP:
; compiling top level form:
; recognizing DEFUN #:SETTER-STUB-157
; compiling top level form:
; compiling DEFUN #:SETTER-STUB-157:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SAP-REF-SINGLE
; compiling top level form:
; compiling DEFUN SAP-REF-SINGLE:
; compiling top level form:
; recognizing DEFUN #:SETTER-STUB-158
; compiling top level form:
; compiling DEFUN #:SETTER-STUB-158:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SAP-REF-DOUBLE
; compiling top level form:
; compiling DEFUN SAP-REF-DOUBLE:
; compiling top level form:
; recognizing DEFUN #:SETTER-STUB-159
; compiling top level form:
; compiling DEFUN #:SETTER-STUB-159:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SIGNED-SAP-REF-8
; compiling top level form:
; compiling DEFUN SIGNED-SAP-REF-8:
; compiling top level form:
; recognizing DEFUN #:SETTER-STUB-160
; compiling top level form:
; compiling DEFUN #:SETTER-STUB-160:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SIGNED-SAP-REF-16
; compiling top level form:
; compiling DEFUN SIGNED-SAP-REF-16:
; compiling top level form:
; recognizing DEFUN #:SETTER-STUB-161
; compiling top level form:
; compiling DEFUN #:SETTER-STUB-161:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SIGNED-SAP-REF-32
; compiling top level form:
; compiling DEFUN SIGNED-SAP-REF-32:
; compiling top level form:
; recognizing DEFUN #:SETTER-STUB-162
; compiling top level form:
; compiling DEFUN #:SETTER-STUB-162:
; compiling top level form:
; compiling top level form:
;
; caught STYLE-WARNING:
; undefined type: SAP-INT
;
; caught STYLE-WARNING:
; undefined type: SAP-INT
;
; caught STYLE-WARNING:
; undefined type: SAP-INT
;
; caught STYLE-WARNING:
; 30 more uses of undefined type SAP-INT
;
; caught STYLE-WARNING:
; This type is undefined:
; SAP-INT
;
; compilation unit finished
; caught 5 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/cross-sap.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/cross-thread.lisp" (written 15 APR 2004 03:17:18 PM):
; compiling top level form:
; recognizing DEFUN MAKE-MUTEX
; compiling top level form:
; compiling DEFUN MAKE-MUTEX:
; compiling top level form:
; compiling DEFMACRO WITH-MUTEX:
; compiling top level form:
; compiling DEFMACRO WITH-RECURSIVE-LOCK:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/cross-thread.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/cross-make-load-form.lisp" (written 13 JUN 2002 10:54:37 AM):
; compiling top level form:
; recognizing DEFUN SB-XC:MAKE-LOAD-FORM-SAVING-SLOTS
; compiling top level form:
; compiling DEFUN SB-XC:MAKE-LOAD-FORM-SAVING-SLOTS:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/cross-make-load-form.lisp
; in: DEFUN SB-XC:MAKE-LOAD-FORM-SAVING-SLOTS
; (SB!INT:BUG "MAKE-LOAD-FORM-SAVING-SLOTS ~
; called with :SLOT-NAMES argument during cross-compilation")
;
; caught STYLE-WARNING:
; undefined function: BUG
;
; caught STYLE-WARNING:
; This function is undefined:
; BUG
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/cross-make-load-form.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/cross-condition.lisp" (written 15 SEP 2004 09:48:33 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-CONDITION BUG:
; compiling top level form:
; compiling DEFTYPE PACKAGE-LOCK-VIOLATION:
; compiling top level form:
; compiling DEFTYPE PACKAGE-LOCKED-ERROR:
; compiling top level form:
; compiling DEFTYPE SYMBOL-PACKAGE-LOCKED-ERROR:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/cross-condition.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/uncross.lisp" (written 09 OCT 2002 12:07:42 PM):
; compiling top level form:
; compiling DEFUN UNCROSS:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/uncross.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/primordial-type.lisp" (written 09 MAR 2004 01:08:40 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/primordial-type.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/early-defbangmethod.lisp" (written 21 OCT 2000 01:30:33 AM):
; compiling top level form:
; compiling DEFMACRO DEF!METHOD:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/early-defbangmethod.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/defbangtype.lisp" (written 16 JUL 2003 01:51:27 PM):
; compiling top level form:
; compiling DEFMACRO DEF!TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FORCE-DELAYED-DEF!TYPES
; compiling top level form:
; compiling DEFUN FORCE-DELAYED-DEF!TYPES:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/defbangtype.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/defbangmacro.lisp" (written 31 OCT 2001 06:51:05 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-DELAYED-DEF!MACRO
; compiling top level form:
; compiling DEFSTRUCT DELAYED-DEF!MACRO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO DEF!MACRO:
; compiling top level form:
; recognizing DEFUN FORCE-DELAYED-DEF!MACROS
; compiling top level form:
; compiling DEFUN FORCE-DELAYED-DEF!MACROS:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/defbangmacro.lisp
; in: DEFSTRUCT DELAYED-DEF!MACRO
; (SB!INT:MISSING-ARG)
;
; caught STYLE-WARNING:
; undefined function: MISSING-ARG
; (SB!INT:SANE-PACKAGE)
;
; caught STYLE-WARNING:
; undefined function: SANE-PACKAGE
;
; caught STYLE-WARNING:
; These functions are undefined:
; MISSING-ARG SANE-PACKAGE
;
; compilation unit finished
; caught 3 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/defbangmacro.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/defbangconstant.lisp" (written 07 JUN 2002 02:14:55 PM):
; compiling top level form:
; compiling DEFMACRO DEF!CONSTANT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FORCE-DELAYED-DEF!CONSTANTS
; compiling top level form:
; compiling DEFUN FORCE-DELAYED-DEF!CONSTANTS:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/defbangconstant.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/primordial-extensions.lisp" (written 31 OCT 2004 06:46:48 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FROB-DO-BODY
; compiling top level form:
; compiling DEFUN FROB-DO-BODY:
; compiling top level form:
; compiling DEFMACRO DO-ANONYMOUS:
; compiling top level form:
; compiling DEFMACRO WITH-UNIQUE-NAMES:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-GENSYM-LIST
; compiling top level form:
; compiling DEFUN MAKE-GENSYM-LIST:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SYMBOLICATE
; compiling top level form:
; compiling DEFUN SYMBOLICATE:
; compiling top level form:
; recognizing DEFUN KEYWORDICATE
; compiling top level form:
; compiling DEFUN KEYWORDICATE:
; compiling top level form:
; recognizing DEFUN SANE-PACKAGE
; compiling top level form:
; compiling DEFUN SANE-PACKAGE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/primordial-extensions.lisp
; in: DEFUN SANE-PACKAGE
; (TYPE-OF SB!IMPL::MAYBE-PACKAGE)
; ==>
; SB!IMPL::MAYBE-PACKAGE
;
; note: deleting unreachable code
; compiling top level form:
; recognizing DEFUN SANE-DEFAULT-PATHNAME-DEFAULTS
; compiling top level form:
; compiling DEFUN SANE-DEFAULT-PATHNAME-DEFAULTS:
; compiling top level form:
; compiling DEFMACRO DEFENUM:
; compiling top level form:
; compiling DEFMACRO DEFCONSTANT-EQX:
; compiling top level form:
; recognizing DEFUN %DEFCONSTANT-EQX-VALUE
; compiling top level form:
; compiling DEFUN %DEFCONSTANT-EQX-VALUE:
; compiling top level form:
; recognizing DEFUN PROPER-LIST-OF-LENGTH-P
; compiling top level form:
; compiling DEFUN PROPER-LIST-OF-LENGTH-P:
; compiling top level form:
; compiling DEFMACRO DEFINE-UNSUPPORTED-FUN:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/primordial-extensions.lisp
; in: DEFUN MAKE-GENSYM-LIST
; (DEFUN SB!INT:MAKE-GENSYM-LIST (SB!IMPL::N)
; (LOOP SB!IMPL::REPEAT SB!IMPL::N SB!INT:COLLECT (GENSYM)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> LOCALLY SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF
; --> TYPEP
; ==>
; (SB-KERNEL:%TYPEP #:G137 'SB!INT:INDEX)
;
; caught STYLE-WARNING:
; undefined type: INDEX
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> LOCALLY SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF
; ==>
; (TYPEP #:G137 'SB!INT:INDEX)
;
; caught STYLE-WARNING:
; undefined type: INDEX
;
; caught STYLE-WARNING:
; undefined type: INDEX
;
; caught STYLE-WARNING:
; 1 more use of undefined type INDEX
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/primordial-extensions.lisp
; in: DEFUN FROB-DO-BODY
; (SB!INT:PARSE-BODY SB!IMPL::DECLS-AND-CODE :DOC-STRING-ALLOWED NIL)
;
; caught STYLE-WARNING:
; undefined function: PARSE-BODY
; in: LAMBDA NIL
; (SB!INT:PARSE-BODY SB!IMPL::DECLS-AND-CODE :DOC-STRING-ALLOWED NIL)
;
; caught STYLE-WARNING:
; undefined function: PARSE-BODY
;
; caught STYLE-WARNING:
; This function is undefined:
; PARSE-BODY
;
; caught STYLE-WARNING:
; This type is undefined:
; INDEX
;
; compilation unit finished
; caught 8 STYLE-WARNING conditions
; printed 1 note
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/primordial-extensions.lisp-obj-tmp written
; compilation finished in 0:00:01
STYLE-WARNING: redefining FROB-DO-BODY in DEFUN
STYLE-WARNING: redefining SYMBOLICATE in DEFUN
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/function-names.lisp" (written 26 MAY 2003 12:34:23 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %DEFINE-FUN-NAME-SYNTAX
; compiling top level form:
; compiling DEFUN %DEFINE-FUN-NAME-SYNTAX:
; compiling top level form:
; compiling DEFMACRO DEFINE-FUNCTION-NAME-SYNTAX:
; compiling top level form:
; recognizing DEFUN VALID-FUNCTION-NAME-P
; compiling top level form:
; compiling DEFUN VALID-FUNCTION-NAME-P:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/function-names.lisp
; in: DEFUN VALID-FUNCTION-NAME-P
; (FUNCALL SB!IMPL::SYNTAX-CHECKER SB!IMPL::NAME)
; --> 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 top level form:
; recognizing DEFUN %CHECK-SETF-FUN-NAME
; compiling top level form:
; compiling DEFINE-FUNCTION-NAME-SYNTAX SETF:
; compiling top level form:
; compiling top level form:
; compilation unit finished
; printed 1 note
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/function-names.lisp-obj-tmp written
; compilation finished in 0:00:00
creating directory: obj/from-host/src/compiler/
creating directory: obj/from-host/src/compiler/target/
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/parms.lisp" (written 21 DEC 2004 04:52:14 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/parms.lisp-obj-tmp written
; compilation finished in 0:00:01
creating directory: obj/from-host/src/compiler/generic/
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/early-vm.lisp" (written 07 AUG 2004 12:55:17 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/early-vm.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/early-objdef.lisp" (written 02 NOV 2004 08:22:09 AM):
; compiling top level form:
; in: COMMON-LISP:LAMBDA COMMON-LISP:NIL
; '(:AND)
;
; note: deleting unreachable code
; '(:OR)
;
; note: deleting unreachable code
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; in: COMMON-LISP:LAMBDA COMMON-LISP:NIL
; '(:OR)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; '(:AND)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; '(:OR)
;
; note: deleting unreachable code
; '(:AND)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; '(:OR)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compilation unit finished
; printed 14 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/early-objdef.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/early-array.lisp" (written 19 MAY 2002 03:55:31 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/early-array.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/early-extensions.lisp" (written 29 OCT 2004 01:30:43 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!TYPE INDEX:
; compiling top level form:
; compiling top level form:
; compiling DEF!TYPE INDEX-OR-MINUS-1:
; compiling top level form:
; compiling top level form:
; compiling DEF!TYPE UNSIGNED-BYTE-WITH-A-BITE-OUT:
; compiling top level form:
; compiling top level form:
; compiling DEF!TYPE SIGNED-BYTE-WITH-A-BITE-OUT:
; compiling top level form:
; compiling top level form:
; compiling DEF!TYPE LOAD/STORE-INDEX:
; compiling top level form:
; compiling top level form:
; compiling DEF!TYPE SFUNCTION:
; compiling top level form:
; compiling top level form:
; compiling DEF!TYPE TYPE-SPECIFIER:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CYCLIC-LIST-P
; compiling top level form:
; compiling DEFUN CYCLIC-LIST-P:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LIST-OF-LENGTH-AT-LEAST-P
; compiling top level form:
; compiling DEFUN LIST-OF-LENGTH-AT-LEAST-P:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SINGLETON-P
; compiling top level form:
; compiling DEFUN SINGLETON-P:
; compiling top level form:
; recognizing DEFUN POSITIVE-PRIMEP
; compiling top level form:
; compiling DEFUN POSITIVE-PRIMEP:
; compiling top level form:
; recognizing DEFUN COMPOUND-OBJECT-P
; compiling top level form:
; compiling DEFUN COMPOUND-OBJECT-P:
; compiling top level form (SB-KERNEL:FIND-CLASSOID-CELL (QUOTE STANDARD-OBJECT)):
; compiling top level form:
; recognizing DEFUN COLLECT-NORMAL-EXPANDER
; compiling top level form:
; compiling DEFUN COLLECT-NORMAL-EXPANDER:
; compiling top level form:
; recognizing DEFUN COLLECT-LIST-EXPANDER
; compiling top level form:
; compiling DEFUN COLLECT-LIST-EXPANDER:
; compiling top level form:
; compiling DEFMACRO COLLECT:
; compiling top level form:
; recognizing DEFUN MEMQ
; compiling top level form:
; compiling DEFUN MEMQ:
; compiling top level form:
; recognizing DEFUN ASSQ
; compiling top level form:
; compiling DEFUN ASSQ:
; compiling top level form:
; recognizing DEFUN DELQ
; compiling top level form:
; compiling DEFUN DELQ:
; compiling top level form:
; recognizing DEFUN POSQ
; compiling top level form:
; compiling DEFUN POSQ:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NEQ
; compiling top level form:
; compiling DEFUN NEQ:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NTH-BUT-WITH-SANE-ARG-ORDER
; compiling top level form:
; compiling DEFUN NTH-BUT-WITH-SANE-ARG-ORDER:
; compiling top level form:
; recognizing DEFUN ADJUST-LIST
; compiling top level form:
; compiling DEFUN ADJUST-LIST:
; compiling top level form:
; compiling DEFMACRO NAMED-LET:
; compiling top level form:
; compiling DEFMACRO DOVECTOR:
; compiling top level form:
; compiling DEFMACRO DOHASH:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO DEFINE-HASH-CACHE:
; compiling top level form:
; compiling DEFMACRO DEFUN-CACHED:
; compiling top level form:
; compiling DEFMACRO DEFINE-CACHED-SYNONYM:
; compiling top level form:
; recognizing DEFUN EQUAL-BUT-NO-CAR-RECURSION
; compiling top level form:
; compiling DEFUN EQUAL-BUT-NO-CAR-RECURSION:
; compiling top level form:
; recognizing DEFUN %FIND-PACKAGE-OR-LOSE
; compiling top level form:
; compiling DEFUN %FIND-PACKAGE-OR-LOSE:
; compiling top level form:
; recognizing DEFUN FIND-UNDELETED-PACKAGE-OR-LOSE
; compiling top level form:
; compiling DEFUN FIND-UNDELETED-PACKAGE-OR-LOSE:
; compiling top level form:
; recognizing DEFUN LEGAL-FUN-NAME-P
; compiling top level form:
; compiling DEFUN LEGAL-FUN-NAME-P:
; compiling top level form:
; recognizing DEFUN LEGAL-FUN-NAME-OR-TYPE-ERROR
; compiling top level form:
; compiling DEFUN LEGAL-FUN-NAME-OR-TYPE-ERROR:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FUN-NAME-BLOCK-NAME
; compiling top level form:
; compiling DEFUN FUN-NAME-BLOCK-NAME:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/early-extensions.lisp
; in: DEFUN FUN-NAME-BLOCK-NAME
; (ERROR "not legal as a function name: ~S" SB!IMPL::FUN-NAME)
; ==>
; "not legal as a function name: ~S"
;
; note: deleting unreachable code
; compiling top level form:
; recognizing DEFUN LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P
; compiling top level form:
; compiling DEFUN LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P:
; compiling top level form:
; recognizing DEFUN SYMBOL-SELF-EVALUATING-P
; compiling top level form:
; compiling DEFUN SYMBOL-SELF-EVALUATING-P:
; compiling top level form:
; recognizing DEFUN ABOUT-TO-MODIFY-SYMBOL-VALUE
; compiling top level form:
; compiling DEFUN ABOUT-TO-MODIFY-SYMBOL-VALUE:
; compiling top level form:
; compiling DEFMACRO COLD-FSET:
; compiling top level form:
; compiling DEFMACRO ONCE-ONLY:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MISSING-ARG
; compiling top level form:
; compiling DEFUN MISSING-ARG:
; compiling top level form:
; compiling DEFMACRO AVER:
; compiling top level form:
; recognizing DEFUN %FAILED-AVER
; compiling top level form:
; compiling DEFUN %FAILED-AVER:
; compiling top level form:
; recognizing DEFUN BUG
; compiling top level form:
; compiling DEFUN BUG:
; compiling top level form:
; compiling DEFMACRO ENFORCE-TYPE:
; compiling top level form:
; recognizing DEFUN %FAILED-ENFORCE-TYPE
; compiling top level form:
; compiling DEFUN %FAILED-ENFORCE-TYPE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SWAPPED-ARGS-FUN
; compiling top level form:
; compiling DEFUN SWAPPED-ARGS-FUN:
; compiling top level form:
; recognizing DEFUN TYPE-BOUND-NUMBER
; compiling top level form:
; compiling DEFUN TYPE-BOUND-NUMBER:
; compiling top level form:
; compiling DEF-CONSTANTLY-FUN CONSTANTLY-T:
; compiling DEF-CONSTANTLY-FUN CONSTANTLY-NIL:
; compiling DEF-CONSTANTLY-FUN CONSTANTLY-0:
; recognizing DEFUN FEATUREP
; compiling top level form:
; compiling DEFUN FEATUREP:
; compiling top level form:
; recognizing DEFUN RENAME-KEY-ARGS
; compiling top level form:
; compiling DEFUN RENAME-KEY-ARGS:
; compiling top level form:
; recognizing DEFUN READ-SEQUENCE-OR-DIE
; compiling top level form:
; compiling DEFUN READ-SEQUENCE-OR-DIE:
; compiling top level form:
; compiling DEFMACRO NOT/TYPE:
; compiling top level form:
; compiling DEFMACRO AND/TYPE:
; compiling top level form:
; recognizing DEFUN ANY/TYPE
; compiling top level form:
; compiling DEFUN ANY/TYPE:
; compiling top level form:
; recognizing DEFUN EVERY/TYPE
; compiling top level form:
; compiling DEFUN EVERY/TYPE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DEFPRINTER-PRIN1
; compiling top level form:
; compiling DEFUN DEFPRINTER-PRIN1:
; compiling top level form:
; recognizing DEFUN DEFPRINTER-PRINC
; compiling top level form:
; compiling DEFUN DEFPRINTER-PRINC:
; compiling top level form:
; recognizing DEFUN DEFPRINTER-PRINX
; compiling top level form:
; compiling DEFUN DEFPRINTER-PRINX:
; compiling top level form:
; recognizing DEFUN DEFPRINTER-PRINT-SPACE
; compiling top level form:
; compiling DEFUN DEFPRINTER-PRINT-SPACE:
; compiling top level form:
; compiling DEFMACRO DEFPRINTER:
; compiling top level form:
; recognizing DEFUN PHYSICALIZE-PATHNAME
; compiling top level form:
; compiling DEFUN PHYSICALIZE-PATHNAME:
; compiling top level form:
; recognizing DEFUN DEPRECATION-WARNING
; compiling top level form:
; compiling DEFUN DEPRECATION-WARNING:
; compiling top level form:
; compiling DEFMACRO AWHEN:
; compiling top level form:
; compiling DEFMACRO ACOND:
; compiling top level form:
; compiling DEFMACRO BINDING*:
; compiling top level form:
; compiling DEFMACRO DELAY:
; compiling top level form:
; recognizing DEFUN FORCE
; compiling top level form:
; compiling DEFUN FORCE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/early-extensions.lisp
; in: DEFUN FORCE
; (FUNCALL (CDR SB!IMPL::PROMISE))
; --> 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 top level form:
; recognizing DEFUN PROMISE-READY-P
; compiling top level form:
; compiling DEFUN PROMISE-READY-P:
; compiling top level form:
; compiling DEFMACRO WITH-REBOUND-IO-SYNTAX:
; compiling top level form:
; recognizing DEFUN %WITH-REBOUND-IO-SYNTAX
; compiling top level form:
; compiling DEFUN %WITH-REBOUND-IO-SYNTAX:
; compiling top level form:
; compiling DEFMACRO WITH-SANE-IO-SYNTAX:
; compiling top level form:
; recognizing DEFUN CALL-WITH-SANE-IO-SYNTAX
; compiling top level form:
; compiling DEFUN CALL-WITH-SANE-IO-SYNTAX:
; compiling top level form:
; in: LAMBDA NIL
; (SB!INT:PARSE-BODY SB!IMPL::BODY-DECLS-DOC)
;
; caught STYLE-WARNING:
; undefined function: PARSE-BODY
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/early-extensions.lisp
; in: DEFMACRO DOHASH
; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL)
;
; caught STYLE-WARNING:
; undefined function: PARSE-BODY
; in: LAMBDA NIL
; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL)
;
; caught STYLE-WARNING:
; undefined function: PARSE-BODY
;
; caught STYLE-WARNING:
; 1 more use of undefined function PARSE-BODY
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/early-extensions.lisp
; in: DEFMACRO COLD-FSET
; (SB!INT:STYLE-WARN
; "~@"
; SB!IMPL::NAME)
;
; caught STYLE-WARNING:
; undefined function: STYLE-WARN
; in: LAMBDA NIL
; (SB!INT:STYLE-WARN
; "~@"
; SB!IMPL::NAME)
;
; caught STYLE-WARNING:
; undefined function: STYLE-WARN
;
; caught STYLE-WARNING:
; These functions are undefined:
; PARSE-BODY STYLE-WARN
;
; compilation unit finished
; caught 7 STYLE-WARNING conditions
; printed 2 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/early-extensions.lisp-obj-tmp written
; compilation finished in 0:00:03
STYLE-WARNING: redefining COLLECT-NORMAL-EXPANDER in DEFUN
STYLE-WARNING: redefining COLLECT-LIST-EXPANDER in DEFUN
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/parse-body.lisp" (written 26 AUG 2003 03:21:18 PM):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PARSE-BODY
; compiling top level form:
; compiling DEFUN PARSE-BODY:
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/parse-body.lisp
; in: DEFUN PARSE-BODY
; (SB!INT:STYLE-WARN "DECLAIM where DECLARE was probably intended")
;
; caught STYLE-WARNING:
; undefined function: STYLE-WARN
;
; caught STYLE-WARNING:
; This function is undefined:
; STYLE-WARN
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/parse-body.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/parse-defmacro.lisp" (written 21 DEC 2004 04:52:06 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PARSE-DEFMACRO
; compiling top level form:
; compiling DEFUN PARSE-DEFMACRO:
; compiling top level form:
; recognizing DEFUN PARSE-DEFMACRO-LAMBDA-LIST
; compiling top level form:
; compiling DEFUN PARSE-DEFMACRO-LAMBDA-LIST:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/parse-defmacro.lisp
; in: DEFUN PARSE-DEFMACRO-LAMBDA-LIST
; 'CAR
;
; note: deleting unreachable code
; compiling top level form:
; recognizing DEFUN ARG-COUNT-ERROR
; compiling top level form:
; compiling DEFUN ARG-COUNT-ERROR:
; compiling top level form:
; recognizing DEFUN PUSH-SUB-LIST-BINDING
; compiling top level form:
; compiling DEFUN PUSH-SUB-LIST-BINDING:
; compiling top level form:
; recognizing DEFUN PUSH-LET-BINDING
; compiling top level form:
; compiling DEFUN PUSH-LET-BINDING:
; compiling top level form:
; recognizing DEFUN PUSH-OPTIONAL-BINDING
; compiling top level form:
; compiling DEFUN PUSH-OPTIONAL-BINDING:
; compiling top level form:
; recognizing DEFUN DEFMACRO-ERROR
; compiling top level form:
; compiling DEFUN DEFMACRO-ERROR:
; compiling top level form:
; recognizing DEFUN CHECK-DEFMACRO-ARG
; compiling top level form:
; compiling DEFUN CHECK-DEFMACRO-ARG:
; compiling top level form:
; recognizing DEFUN VERIFY-KEYWORDS
; compiling top level form:
; compiling DEFUN VERIFY-KEYWORDS:
; compiling top level form:
; recognizing DEFUN LOOKUP-KEYWORD
; compiling top level form:
; compiling DEFUN LOOKUP-KEYWORD:
; compiling top level form:
; recognizing DEFUN KEYWORD-SUPPLIED-P
; compiling top level form:
; compiling DEFUN KEYWORD-SUPPLIED-P:
; compiling top level form:
; compilation unit finished
; printed 1 note
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/parse-defmacro.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/deftype.lisp" (written 11 JUN 2003 07:53:59 AM):
; compiling top level form:
; compiling DEF!MACRO SB-XC:DEFTYPE:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/deftype.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/defconstant.lisp" (written 05 JUN 2003 09:58:33 PM):
; compiling top level form:
; compiling DEF!MACRO SB-XC:DEFCONSTANT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SB!C::%DEFCONSTANT
; compiling top level form:
; compiling DEFUN SB!C::%DEFCONSTANT:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/defconstant.lisp
; in: DEFUN SB!C::%DEFCONSTANT
; (SETF (SB!KERNEL:FDOCUMENTATION SB!IMPL::NAME 'VARIABLE) SB!IMPL::DOC)
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL
; ==>
; (SB-C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:G26 #:G28 #:G27)
;
; caught STYLE-WARNING:
; undefined function: (SETF FDOCUMENTATION)
; (SETF (SB!INT:INFO :VARIABLE :KIND SB!IMPL::NAME)
; :CONSTANT
; (SB!INT:INFO :VARIABLE :CONSTANT-VALUE SB!IMPL::NAME)
; SB!IMPL::VALUE)
; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL
; ==>
; (SB-C::%FUNCALL #'(SETF SB!INT:INFO) #:G29 #:G32 #:G31 #:G30)
;
; caught STYLE-WARNING:
; undefined function: (SETF INFO)
; (SB!INT:INFO :VARIABLE :CONSTANT-VALUE SB!IMPL::NAME)
;
; caught STYLE-WARNING:
; undefined function: INFO
; (SB!INT:STYLE-WARN "defining ~S as a constant, even though the name follows~@
; the usual naming convention (names like *FOO*) for special variables"
; SB!IMPL::NAME)
;
; caught STYLE-WARNING:
; undefined function: STYLE-WARN
;
; caught STYLE-WARNING:
; These functions are undefined:
; (SETF FDOCUMENTATION) (SETF INFO) INFO STYLE-WARN
;
; compilation unit finished
; caught 5 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/defconstant.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/early-alieneval.lisp" (written 21 OCT 2000 01:30:33 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/early-alieneval.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/specializable-array.lisp" (written 21 OCT 2000 01:30:33 AM):
; compiling top level form:
; compiling DEFTYPE SPECIALIZABLE:
; compiling top level form:
; compiling DEFTYPE SPECIALIZABLE-VECTOR:
; compiling top level form:
; recognizing DEFUN MAKE-SPECIALIZABLE-ARRAY
; compiling top level form:
; compiling DEFUN MAKE-SPECIALIZABLE-ARRAY:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/specializable-array.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/early-cl.lisp" (written 31 DEC 2000 05:29:27 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/early-cl.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/early-fasl.lisp" (written 02 NOV 2004 08:22:06 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFVAR *FOP-FUNS*:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/early-fasl.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/debug-var-io.lisp" (written 11 JUN 2001 10:56:46 PM):
; compiling top level form:
; compiling DEFMACRO READ-VAR-INTEGER:
; compiling top level form:
; recognizing DEFUN WRITE-VAR-INTEGER
; compiling top level form:
; compiling DEFUN WRITE-VAR-INTEGER:
; compiling top level form:
; compiling DEFMACRO READ-VAR-STRING:
; compiling top level form:
; recognizing DEFUN WRITE-VAR-STRING
; compiling top level form:
; compiling DEFUN WRITE-VAR-STRING:
; compiling top level form:
; compiling DEFMACRO READ-PACKED-BIT-VECTOR:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/debug-var-io.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/defbangstruct.lisp" (written 13 APR 2004 12:30:38 PM):
; compiling top level form:
; compiling DEFTYPE DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DEF!STRUCT-SUPERTYPE
; compiling top level form:
; compiling DEFUN DEF!STRUCT-SUPERTYPE:
; compiling top level form:
; recognizing DEFUN (SETF DEF!STRUCT-SUPERTYPE)
; compiling top level form:
; compiling DEFUN (SETF DEF!STRUCT-SUPERTYPE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN
; compiling top level form:
; compiling DEFUN DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN:
; compiling top level form:
; recognizing DEFUN (SETF DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN)
; compiling top level form:
; compiling DEFUN (SETF DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN):
; compiling top level form:
; recognizing DEFUN JUST-DUMP-IT-NORMALLY
; compiling top level form:
; compiling DEFUN JUST-DUMP-IT-NORMALLY:
; compiling top level form:
; recognizing DEFUN IGNORE-IT
; compiling top level form:
; compiling DEFUN IGNORE-IT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-DELAYED-DEF!STRUCT
; compiling top level form:
; compiling DEFSTRUCT DELAYED-DEF!STRUCT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PARSE-DEF!STRUCT-ARGS
; compiling top level form:
; compiling DEFUN PARSE-DEF!STRUCT-ARGS:
; compiling top level form:
; recognizing DEFUN %INSTANCE-LENGTH
; compiling top level form:
; compiling DEFUN %INSTANCE-LENGTH:
; compiling top level form:
; recognizing DEFUN %INSTANCE-REF
; compiling top level form:
; compiling DEFUN %INSTANCE-REF:
; compiling top level form:
; recognizing DEFUN %INSTANCE-SET
; compiling top level form:
; compiling DEFUN %INSTANCE-SET:
; compiling top level form:
; recognizing DEFUN UNCROSS-DEFSTRUCT-ARGS
; compiling top level form:
; compiling DEFUN UNCROSS-DEFSTRUCT-ARGS:
; compiling top level form:
; compiling DEFMACRO DEF!STRUCT:
; compiling top level form:
; recognizing DEFUN FORCE-DELAYED-DEF!STRUCTS
; compiling top level form:
; compiling DEFUN FORCE-DELAYED-DEF!STRUCTS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN STRUCTURE!OBJECT-MAKE-LOAD-FORM
; compiling top level form:
; compiling DEFUN STRUCTURE!OBJECT-MAKE-LOAD-FORM:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/defbangstruct.lisp
; in: DEFUN STRUCTURE!OBJECT-MAKE-LOAD-FORM
; (FUNCALL
; (SB!KERNEL::DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN (TYPE-OF SB!KERNEL::OBJECT))
; SB!KERNEL::OBJECT)
; --> 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 top level form:
; compiling top level form:
; compiling DEFMETHOD MAKE-LOAD-FORM (STRUCTURE!OBJECT):
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/defbangstruct.lisp
; in: DEFUN %INSTANCE-SET
; (SB!KERNEL:CLASSOID-LAYOUT CLASS)
;
; caught STYLE-WARNING:
; undefined function: CLASSOID-LAYOUT
; in: DEFUN %INSTANCE-REF
; (SB!KERNEL:CLASSOID-LAYOUT CLASS)
;
; caught STYLE-WARNING:
; undefined function: CLASSOID-LAYOUT
; in: DEFUN %INSTANCE-LENGTH
; (SB!KERNEL:CLASSOID-LAYOUT
; (SB!KERNEL:FIND-CLASSOID (TYPE-OF SB!KERNEL:INSTANCE)))
;
; caught STYLE-WARNING:
; undefined function: CLASSOID-LAYOUT
; in: DEFUN %INSTANCE-SET
; (SB!KERNEL:DD-SLOTS SB!KERNEL::DD)
;
; caught STYLE-WARNING:
; undefined function: DD-SLOTS
; in: DEFUN %INSTANCE-REF
; (SB!KERNEL:DD-SLOTS SB!KERNEL::DD)
;
; caught STYLE-WARNING:
; undefined function: DD-SLOTS
; in: DEFUN %INSTANCE-SET
; (SB!KERNEL:DSD-ACCESSOR-NAME SB!KERNEL::DSD)
;
; caught STYLE-WARNING:
; undefined function: DSD-ACCESSOR-NAME
; in: DEFUN %INSTANCE-REF
; (SB!KERNEL:DSD-ACCESSOR-NAME SB!KERNEL::DSD)
;
; caught STYLE-WARNING:
; undefined function: DSD-ACCESSOR-NAME
; in: DEFUN %INSTANCE-SET
; (SB!KERNEL:FIND-CLASSOID (TYPE-OF SB!KERNEL:INSTANCE))
;
; caught STYLE-WARNING:
; undefined function: FIND-CLASSOID
; in: DEFUN %INSTANCE-REF
; (SB!KERNEL:FIND-CLASSOID (TYPE-OF SB!KERNEL:INSTANCE))
;
; caught STYLE-WARNING:
; undefined function: FIND-CLASSOID
; in: DEFUN %INSTANCE-LENGTH
; (SB!KERNEL:FIND-CLASSOID (TYPE-OF SB!KERNEL:INSTANCE))
;
; caught STYLE-WARNING:
; undefined function: FIND-CLASSOID
; in: DEFUN %INSTANCE-SET
; (SB!KERNEL:LAYOUT-INFO SB!KERNEL:LAYOUT)
;
; caught STYLE-WARNING:
; undefined function: LAYOUT-INFO
; in: DEFUN %INSTANCE-REF
; (SB!KERNEL:LAYOUT-INFO SB!KERNEL:LAYOUT)
;
; caught STYLE-WARNING:
; undefined function: LAYOUT-INFO
; in: DEFUN %INSTANCE-LENGTH
; (SB!KERNEL:LAYOUT-LENGTH
; (SB!KERNEL:CLASSOID-LAYOUT
; (SB!KERNEL:FIND-CLASSOID (TYPE-OF SB!KERNEL:INSTANCE))))
;
; caught STYLE-WARNING:
; undefined function: LAYOUT-LENGTH
;
; caught STYLE-WARNING:
; These functions are undefined:
; CLASSOID-LAYOUT DD-SLOTS DSD-ACCESSOR-NAME FIND-CLASSOID LAYOUT-INFO LAYOUT-LENGTH
;
; compilation unit finished
; caught 14 STYLE-WARNING conditions
; printed 1 note
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/defbangstruct.lisp-obj-tmp written
; compilation finished in 0:00:01
STYLE-WARNING: redefining DEF!STRUCT-SUPERTYPE in DEFUN
STYLE-WARNING: redefining (SETF DEF!STRUCT-SUPERTYPE) in DEFUN
STYLE-WARNING: redefining DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN in DEFUN
STYLE-WARNING: redefining (SETF DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN) in DEFUN
STYLE-WARNING: redefining MAKE-DELAYED-DEF!STRUCT in DEFUN
STYLE-WARNING: redefining PARSE-DEF!STRUCT-ARGS in DEFUN
STYLE-WARNING: redefining UNCROSS-DEFSTRUCT-ARGS in DEFUN
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/unportable-float.lisp" (written 05 MAY 2003 04:42:08 PM):
; compiling top level form:
; recognizing DEFUN MAKE-UNPORTABLE-FLOAT
; compiling top level form:
; compiling DEFUN MAKE-UNPORTABLE-FLOAT:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/unportable-float.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/type-class.lisp" (written 11 DEC 2003 02:34:25 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TYPE-CLASS-OR-LOSE
; compiling top level form:
; compiling DEFUN TYPE-CLASS-OR-LOSE:
; compiling top level form:
; recognizing DEFUN MUST-SUPPLY-THIS
; compiling top level form:
; compiling DEFUN MUST-SUPPLY-THIS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-TYPE-CLASS
; compiling top level form:
; compiling DEF!STRUCT (TYPE-CLASS (:PRINT-OBJECT #)):
; compiling top level form:
; compiling top level form:
; compiling DEF!STRUCT (TYPE-CLASS (:PRINT-OBJECT #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COPY-TYPE-CLASS-COLDLY
; compiling top level form:
; compiling DEFUN COPY-TYPE-CLASS-COLDLY:
; compiling top level form:
; recognizing DEFUN CLASS-FUN-SLOT-OR-LOSE
; compiling top level form:
; compiling DEFUN CLASS-FUN-SLOT-OR-LOSE:
; compiling top level form:
; compiling DEFMACRO !DEFINE-TYPE-METHOD:
; compiling top level form:
; compiling DEFMACRO !DEFINE-TYPE-CLASS:
; compiling top level form:
; compiling DEFMACRO !INVOKE-TYPE-METHOD:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %INVOKE-TYPE-METHOD
; compiling top level form:
; compiling DEFUN %INVOKE-TYPE-METHOD:
; compiling top level form:
; recognizing DEFUN INVOKE-COMPLEX-SUBTYPEP-ARG1-METHOD
; compiling top level form:
; compiling DEFUN INVOKE-COMPLEX-SUBTYPEP-ARG1-METHOD:
; compiling top level form:
; recognizing DEFUN INVOKE-COMPLEX-=-OTHER-METHOD
; compiling top level form:
; compiling DEFUN INVOKE-COMPLEX-=-OTHER-METHOD:
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/type-class.lisp
; in:
; DEF!STRUCT (TYPE-CLASS
; (:PRINT-OBJECT (LAMBDA (X STREAM) (PRINT-UNREADABLE-OBJECT # #))))
; #'SB!KERNEL::HIERARCHICAL-INTERSECTION2
;
; caught STYLE-WARNING:
; undefined function: HIERARCHICAL-INTERSECTION2
; #'SB!KERNEL::HIERARCHICAL-UNION2
;
; caught STYLE-WARNING:
; undefined function: HIERARCHICAL-UNION2
; in: DEFUN INVOKE-COMPLEX-=-OTHER-METHOD
; (SB!KERNEL::TYPE-CLASS-INFO SB!KERNEL::TYPE1)
;
; caught STYLE-WARNING:
; undefined function: TYPE-CLASS-INFO
; in: DEFUN INVOKE-COMPLEX-SUBTYPEP-ARG1-METHOD
; (SB!KERNEL::TYPE-CLASS-INFO SB!KERNEL::TYPE1)
;
; caught STYLE-WARNING:
; undefined function: TYPE-CLASS-INFO
; in: DEFUN %INVOKE-TYPE-METHOD
; (SB!KERNEL::TYPE-CLASS-INFO SB!KERNEL::TYPE1)
;
; caught STYLE-WARNING:
; undefined function: TYPE-CLASS-INFO
;
; caught STYLE-WARNING:
; These functions are undefined:
; HIERARCHICAL-INTERSECTION2 HIERARCHICAL-UNION2 TYPE-CLASS-INFO
;
; compilation unit finished
; caught 6 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/type-class.lisp-obj-tmp written
; compilation finished in 0:00:01
STYLE-WARNING: redefining COPY-TYPE-CLASS-COLDLY in DEFUN
STYLE-WARNING: redefining CLASS-FUN-SLOT-OR-LOSE in DEFUN
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/early-pcounter.lisp" (written 08 JUN 2002 05:01:50 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-PCOUNTER
; compiling top level form:
; compiling DEF!STRUCT (PCOUNTER (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/early-pcounter.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/early-backend.lisp" (written 09 MAR 2004 01:08:40 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/early-backend.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/sc-offset.lisp" (written 15 FEB 2002 06:10:02 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!TYPE SC-OFFSET:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO MAKE-SC-OFFSET:
; compiling top level form:
; compiling DEFMACRO SC-OFFSET-SCN:
; compiling top level form:
; compiling DEFMACRO SC-OFFSET-OFFSET:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/sc-offset.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/char.lisp" (written 02 NOV 2004 08:22:06 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/char.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/misc.lisp" (written 21 OCT 2000 01:30:33 AM):
; compiling top level form:
; recognizing DEFUN SB-XC:LISP-IMPLEMENTATION-TYPE
; compiling top level form:
; compiling DEFUN SB-XC:LISP-IMPLEMENTATION-TYPE:
; compiling top level form:
; recognizing DEFUN SB-XC:LISP-IMPLEMENTATION-VERSION
; compiling top level form:
; compiling DEFUN SB-XC:LISP-IMPLEMENTATION-VERSION:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/misc.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/early-format.lisp" (written 31 OCT 2004 06:46:47 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/early-format.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/early-c.lisp" (written 06 OCT 2004 08:22:32 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!TYPE LAYOUT-DEPTHOID:
; compiling top level form:
; compiling top level form:
; compiling DEFTYPE INLINEP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NOTE-NAME-DEFINED
; compiling top level form:
; compiling DEFUN NOTE-NAME-DEFINED:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NOTE-LEXICAL-BINDING
; compiling top level form:
; compiling DEFUN NOTE-LEXICAL-BINDING:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DEBUG-NAMIFY
; compiling top level form:
; compiling DEFUN DEBUG-NAMIFY:
; compiling top level form:
;
; caught STYLE-WARNING:
; undefined type: LEXENV
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/early-c.lisp
; in: DEFUN NOTE-LEXICAL-BINDING
; (SB!INT:STYLE-WARN "using the lexical binding of the symbol ~S, not the~@
; dynamic binding, even though the symbol name follows the usual naming~@
; convention (names like *FOO*) for special variables"
; SYMBOL)
;
; caught STYLE-WARNING:
; undefined function: STYLE-WARN
; in: DEFUN NOTE-NAME-DEFINED
; (SB!C::UNDEFINED-WARNING-KIND SB!C::X)
;
; caught STYLE-WARNING:
; undefined function: UNDEFINED-WARNING-KIND
; (SB!C::UNDEFINED-WARNING-NAME SB!C::X)
;
; caught STYLE-WARNING:
; undefined function: UNDEFINED-WARNING-NAME
;
; caught STYLE-WARNING:
; These functions are undefined:
; STYLE-WARN UNDEFINED-WARNING-KIND UNDEFINED-WARNING-NAME
;
; caught STYLE-WARNING:
; This type is undefined:
; LEXENV
;
; compilation unit finished
; caught 6 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/early-c.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/policy.lisp" (written 29 JUN 2004 10:51:01 AM):
; compiling top level form:
; compiling DEF!TYPE POLICY-QUALITY:
; compiling top level form:
; compiling top level form:
; compiling DEF!TYPE POLICY:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-POLICY-DEPENDENT-QUALITY
; compiling top level form:
; compiling DEFSTRUCT POLICY-DEPENDENT-QUALITY:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN POLICY-QUALITY-NAME-P
; compiling top level form:
; compiling DEFUN POLICY-QUALITY-NAME-P:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN !POLICY-COLD-INIT-OR-RESANIFY
; compiling top level form:
; compiling DEFUN !POLICY-COLD-INIT-OR-RESANIFY:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN POLICY-QUALITY
; compiling top level form:
; compiling DEFUN POLICY-QUALITY:
; compiling top level form:
; compiling DEFMACRO POLICY:
; compiling top level form:
; compiling DEFMACRO DEFINE-OPTIMIZATION-QUALITY:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/policy.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/policies.lisp" (written 13 SEP 2004 09:14:41 AM):
; compiling top level form:
; compiling DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-OPTIMIZATION-QUALITY LET-CONVERTION:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-OPTIMIZATION-QUALITY VERIFY-ARG-COUNT:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-OPTIMIZATION-QUALITY MERGE-TAIL-CALLS:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-OPTIMIZATION-QUALITY INSERT-DEBUG-CATCH:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-OPTIMIZATION-QUALITY RECOGNIZE-SELF-CALLS:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-OPTIMIZATION-QUALITY STACK-ALLOCATE-DYNAMIC-EXTENT:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-OPTIMIZATION-QUALITY FLOAT-ACCURACY:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-OPTIMIZATION-QUALITY INSERT-STEP-CONDITIONS:
; compiling top level form:
; compiling top level form:
; in: LAMBDA NIL
; (SB!C:POLICY SB!C:POLICY (IF (<= DEBUG SPEED) 3 0))
; --> LET*
; ==>
; (SB!C::%COERCE-TO-POLICY SB!C:POLICY)
;
; caught STYLE-WARNING:
; undefined function: %COERCE-TO-POLICY
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/policies.lisp
; in: DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK
; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::TYPE-CHECK
; (COND ((= SAFETY 0) 0)
; ((AND # # #) 3)
; (T 2))
; ("no" "maybe" "fast" "full"))
; --> EVAL-WHEN LET LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION
; --> SB!C:POLICY LET*
; ==>
; (SB!C::%COERCE-TO-POLICY SB!C:POLICY)
;
; caught STYLE-WARNING:
; undefined function: %COERCE-TO-POLICY
; in: LAMBDA NIL
; (SB!C:POLICY SB!C:POLICY (COND ((= SAFETY 0) 0) ((AND # # #) 3) (T 2)))
; --> LET*
; ==>
; (SB!C::%COERCE-TO-POLICY SB!C:POLICY)
;
; caught STYLE-WARNING:
; undefined function: %COERCE-TO-POLICY
;
; caught STYLE-WARNING:
; 15 more uses of undefined function %COERCE-TO-POLICY
;
; caught STYLE-WARNING:
; This function is undefined:
; %COERCE-TO-POLICY
;
; compilation unit finished
; caught 5 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/policies.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/typedefs.lisp" (written 26 AUG 2003 03:21:18 PM):
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO !DEF-TYPE-TRANSLATOR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; recognizing DEFUN MAKE-TYPE-LOAD-FORM
; compiling top level form:
; compiling DEFUN MAKE-TYPE-LOAD-FORM:
; compiling top level form:
; recognizing DEFUN HIERARCHICAL-INTERSECTION2
; compiling top level form:
; compiling DEFUN HIERARCHICAL-INTERSECTION2:
; compiling top level form:
; recognizing DEFUN HIERARCHICAL-UNION2
; compiling top level form:
; compiling DEFUN HIERARCHICAL-UNION2:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TYPE-CACHE-HASH
; compiling top level form:
; compiling DEFUN TYPE-CACHE-HASH:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TYPE-LIST-CACHE-HASH
; compiling top level form:
; compiling DEFUN TYPE-LIST-CACHE-HASH:
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/typedefs.lisp
; in: DEFUN HIERARCHICAL-UNION2
; (SB!KERNEL:CSUBTYPEP SB!KERNEL::TYPE1 SB!KERNEL::TYPE2)
;
; caught STYLE-WARNING:
; undefined function: CSUBTYPEP
; in: DEFUN HIERARCHICAL-INTERSECTION2
; (SB!KERNEL:CSUBTYPEP SB!KERNEL::TYPE2 SB!KERNEL::TYPE1)
;
; caught STYLE-WARNING:
; undefined function: CSUBTYPEP
; in: DEFUN MAKE-TYPE-LOAD-FORM
; (SB!KERNEL:TYPE-SPECIFIER TYPE)
;
; caught STYLE-WARNING:
; undefined function: TYPE-SPECIFIER
; in: DEF!METHOD PRINT-OBJECT
; (SB!KERNEL:TYPE-SPECIFIER SB!KERNEL:CTYPE)
;
; caught STYLE-WARNING:
; undefined function: TYPE-SPECIFIER
;
; caught STYLE-WARNING:
; These functions are undefined:
; CSUBTYPEP TYPE-SPECIFIER
;
; compilation unit finished
; caught 5 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/typedefs.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/macros.lisp" (written 29 OCT 2004 01:30:44 PM):
; compiling top level form:
; compiling top level form:
; compiling DEFTYPE INLINEP:
; compiling top level form:
; compiling DEFMACRO DEF-IR1-TRANSLATOR:
; compiling top level form:
; compiling DEFMACRO SOURCE-TRANSFORM-LAMBDA:
; compiling top level form:
; compiling DEFMACRO DEFINE-SOURCE-TRANSFORM:
; compiling top level form:
; compiling DEFTYPE ATTRIBUTES:
; compiling top level form:
; recognizing DEFUN COMPUTE-ATTRIBUTE-MASK
; compiling top level form:
; compiling DEFUN COMPUTE-ATTRIBUTE-MASK:
; compiling top level form:
; compiling DEF!MACRO !DEF-BOOLEAN-ATTRIBUTE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN GUTS-OF-!DEF-BOOLEAN-ATTRIBUTE-SETTER
; compiling top level form:
; compiling DEFUN GUTS-OF-!DEF-BOOLEAN-ATTRIBUTE-SETTER:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/macros.lisp
; in: DEFUN GUTS-OF-!DEF-BOOLEAN-ATTRIBUTE-SETTER
; (DEFUN SB!C::GUTS-OF-!DEF-BOOLEAN-ATTRIBUTE-SETTER
; (SB!C::TEST-NAME SB!C::TRANSLATIONS-NAME SB!C::ATTRIBUTE-NAMES
; SB!C::GET-SETF-EXPANSION-FUN-NAME)
; (SB!IMPL::BACKQ-LIST 'DEFINE-SETF-EXPANDER
; SB!C::TEST-NAME
; '(SB!C::PLACE &REST
; SB!C:ATTRIBUTES
; &ENVIRONMENT
; SB!C::ENV)
; "Automagically generated boolean attribute setter. See
; !DEF-BOOLEAN-ATTRIBUTE."
; (SB!IMPL::BACKQ-LIST 'MULTIPLE-VALUE-BIND ..)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SB!C::GUTS-OF-!DEF-BOOLEAN-ATTRIBUTE-SETTER
; (SB!C::TEST-NAME SB!C::TRANSLATIONS-NAME
; SB!C::ATTRIBUTE-NAMES
; SB!C::GET-SETF-EXPANSION-FUN-NAME)
; (BLOCK SB!C::GUTS-OF-!DEF-BOOLEAN-ATTRIBUTE-SETTER
; (SB!IMPL::BACKQ-LIST 'DEFINE-SETF-EXPANDER
; SB!C::TEST-NAME
; '(SB!C::PLACE &REST
; SB!C:ATTRIBUTES
; &ENVIRONMENT
; SB!C::ENV)
; "Automagically generated boolean attribute setter. See ..)))
;
; caught STYLE-WARNING:
; The variable ATTRIBUTE-NAMES is defined but never used.
; compiling top level form:
; compiling DEFMACRO !DEF-BOOLEAN-ATTRIBUTE-SETTER:
; compiling top level form:
; compiling DEFMACRO ATTRIBUTES-UNION:
; compiling top level form:
; compiling DEFMACRO ATTRIBUTES-INTERSECTION:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ATTRIBUTES=
; compiling top level form:
; compiling DEFUN ATTRIBUTES=:
; compiling top level form:
; recognizing DEFUN PARSE-DEFTRANSFORM
; compiling top level form:
; compiling DEFUN PARSE-DEFTRANSFORM:
; compiling top level form:
; compiling DEFMACRO DEFTRANSFORM:
; compiling top level form:
; compiling DEFMACRO DEFKNOWN:
; compiling top level form:
; compiling DEFMACRO DEFOPTIMIZER:
; compiling top level form:
; compiling DEFMACRO DO-BLOCKS:
; compiling top level form:
; compiling DEFMACRO DO-BLOCKS-BACKWARDS:
; compiling top level form:
; compiling DEFMACRO DO-USES:
; compiling top level form:
; compiling DEFMACRO DO-NODES:
; compiling top level form:
; compiling DEFMACRO DO-NODES-BACKWARDS:
; compiling top level form:
; compiling DEFMACRO DO-NODES-CAREFULLY:
; compiling top level form:
; compiling DEFMACRO WITH-IR1-ENVIRONMENT-FROM-NODE:
; compiling top level form:
; recognizing DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE
; compiling top level form:
; compiling DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE:
; compiling top level form:
; compiling DEFMACRO WITH-IR1-NAMESPACE:
; compiling top level form:
; compiling DEFMACRO LEXENV-FIND:
; compiling top level form:
; compiling DEFMACRO WITH-COMPONENT-LAST-BLOCK:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-EVENT-INFO
; compiling top level form:
; compiling DEFSTRUCT EVENT-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EVENT-INFO-OR-LOSE
; compiling top level form:
; compiling DEFUN EVENT-INFO-OR-LOSE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EVENT-COUNT
; compiling top level form:
; compiling DEFUN EVENT-COUNT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EVENT-ACTION
; compiling top level form:
; compiling DEFUN EVENT-ACTION:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %SET-EVENT-ACTION
; compiling top level form:
; compiling DEFUN %SET-EVENT-ACTION:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EVENT-LEVEL
; compiling top level form:
; compiling DEFUN EVENT-LEVEL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %SET-EVENT-LEVEL
; compiling top level form:
; compiling DEFUN %SET-EVENT-LEVEL:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO DEFEVENT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO EVENT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EVENT-STATISTICS
; compiling top level form:
; compiling DEFUN EVENT-STATISTICS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CLEAR-EVENT-STATISTICS
; compiling top level form:
; compiling DEFUN CLEAR-EVENT-STATISTICS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-IN
; compiling top level form:
; compiling DEFUN FIND-IN:
; compiling top level form:
; recognizing DEFUN POSITION-IN
; compiling top level form:
; compiling DEFUN POSITION-IN:
; compiling top level form:
; compiling DEF!MACRO DELETEF-IN:
; compiling top level form:
; compiling top level form:
; compiling DEF!MACRO PUSH-IN:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO POSITION-OR-LOSE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO WITH-COMPILER-IO-SYNTAX:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/macros.lisp
; in: DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE
; (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*)
;
; caught STYLE-WARNING:
; undefined function: AVER-LIVE-COMPONENT
; (LET ((SB!C::*CURRENT-COMPONENT* (SB!C::NODE-COMPONENT SB!C::NODE))
; (SB!C:*LEXENV* (SB!C::NODE-LEXENV SB!C::NODE))
; (SB!C::*CURRENT-PATH* (SB!C::NODE-SOURCE-PATH SB!C::NODE)))
; (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*)
; (FUNCALL SB!C::FUN))
; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP LET OR LET TYPEP
; ==>
; (SB-KERNEL:%TYPEP #:ONCE-ONLY-449 'SB!KERNEL:LEXENV)
;
; caught STYLE-WARNING:
; undefined type: LEXENV
; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP LET OR LET
; ==>
; (TYPEP #:ONCE-ONLY-449 'SB!KERNEL:LEXENV)
;
; caught STYLE-WARNING:
; undefined type: LEXENV
; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF
; ==>
; (TYPEP #:G448 '(OR SB!KERNEL:LEXENV NULL))
;
; caught STYLE-WARNING:
; undefined type: LEXENV
;
; caught STYLE-WARNING:
; 1 more use of undefined type LEXENV
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/macros.lisp
; in: DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE
; (DEFUN SB!C::%WITH-IR1-ENVIRONMENT-FROM-NODE (SB!C::NODE SB!C::FUN)
; (DECLARE (TYPE SB!C::NODE SB!C::NODE) (TYPE FUNCTION SB!C::FUN))
; (LET ((SB!C::*CURRENT-COMPONENT* #)
; (SB!C:*LEXENV* #)
; (SB!C::*CURRENT-PATH* #))
; (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*)
; (FUNCALL SB!C::FUN)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> LOCALLY SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF
; --> TYPEP
; ==>
; (SB-KERNEL:%TYPEP #:G446 'SB!C::NODE)
;
; caught STYLE-WARNING:
; undefined type: NODE
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> LOCALLY SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF
; ==>
; (TYPEP #:G446 'SB!C::NODE)
;
; caught STYLE-WARNING:
; undefined type: NODE
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SB!C::%WITH-IR1-ENVIRONMENT-FROM-NODE
; (SB!C::NODE SB!C::FUN)
; (DECLARE (TYPE SB!C::NODE SB!C::NODE)
; (TYPE FUNCTION SB!C::FUN))
; (BLOCK SB!C::%WITH-IR1-ENVIRONMENT-FROM-NODE
; (LET (# # #)
; (SB!C::AVER-LIVE-COMPONENT
; SB!C::*CURRENT-COMPONENT*)
; (FUNCALL SB!C::FUN))))
;
; caught STYLE-WARNING:
; undefined type: NODE
;
; caught STYLE-WARNING:
; 1 more use of undefined type NODE
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/macros.lisp
; in: DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE
; (SB!C::NODE-COMPONENT SB!C::NODE)
;
; caught STYLE-WARNING:
; undefined function: NODE-COMPONENT
; (SB!C::NODE-LEXENV SB!C::NODE)
;
; caught STYLE-WARNING:
; undefined function: NODE-LEXENV
; (SB!C::NODE-SOURCE-PATH SB!C::NODE)
;
; caught STYLE-WARNING:
; undefined function: NODE-SOURCE-PATH
; in: DEFUN PARSE-DEFTRANSFORM
; (SB!INT:PARSE-LAMBDA-LIST SB!C::LAMBDA-LIST)
;
; caught STYLE-WARNING:
; undefined function: PARSE-LAMBDA-LIST
; in: LAMBDA NIL
; (SB!INT:PARSE-LAMBDA-LIST SB!C::LAMBDA-LIST)
;
; caught STYLE-WARNING:
; undefined function: PARSE-LAMBDA-LIST
;
; caught STYLE-WARNING:
; These functions are undefined:
; AVER-LIVE-COMPONENT NODE-COMPONENT NODE-LEXENV NODE-SOURCE-PATH PARSE-LAMBDA-LIST
;
; caught STYLE-WARNING:
; These types are undefined:
; LEXENV NODE
;
; compilation unit finished
; caught 17 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/macros.lisp-obj-tmp written
; compilation finished in 0:00:03
STYLE-WARNING: redefining COMPUTE-ATTRIBUTE-MASK in DEFUN
STYLE-WARNING: redefining PARSE-DEFTRANSFORM in DEFUN
STYLE-WARNING: redefining MAKE-EVENT-INFO in DEFUN
STYLE-WARNING: redefining EVENT-INFO-OR-LOSE in DEFUN
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/vm-macs.lisp" (written 21 DEC 2004 04:52:10 AM):
; compiling top level form:
; compiling DEFMACRO PAD-DATA-BLOCK:
; compiling top level form:
; recognizing DEFUN REMOVE-KEYWORDS
; compiling top level form:
; compiling DEFUN REMOVE-KEYWORDS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-SLOT
; compiling top level form:
; compiling DEF!STRUCT (PRIM-OBJECT-SLOT (:CONSTRUCTOR MAKE-SLOT #) (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) (:CONC-NAME SLOT-)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-PRIMITIVE-OBJECT
; compiling top level form:
; compiling DEF!STRUCT (PRIMITIVE-OBJECT (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %DEFINE-PRIMITIVE-OBJECT
; compiling top level form:
; compiling DEFUN %DEFINE-PRIMITIVE-OBJECT:
; compiling top level form:
; compiling DEFMACRO DEFINE-PRIMITIVE-OBJECT:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO DEF-REFFER:
; compiling top level form:
; compiling DEFMACRO DEF-SETTER:
; compiling top level form:
; compiling DEFMACRO DEF-ALLOC:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-MODULAR-CLASS
; compiling top level form:
; compiling DEFSTRUCT MODULAR-CLASS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-MODULAR-CLASS
; compiling top level form:
; compiling DEFUN FIND-MODULAR-CLASS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-MODULAR-FUN-INFO
; compiling top level form:
; compiling DEFSTRUCT MODULAR-FUN-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-MODULAR-VERSION
; compiling top level form:
; compiling DEFUN FIND-MODULAR-VERSION:
; compiling top level form:
; recognizing DEFUN MODULAR-VERSION-INFO
; compiling top level form:
; compiling DEFUN MODULAR-VERSION-INFO:
; compiling top level form:
; recognizing DEFUN %DEFINE-MODULAR-FUN
; compiling top level form:
; compiling DEFUN %DEFINE-MODULAR-FUN:
; compiling top level form:
; compiling DEFMACRO DEFINE-MODULAR-FUN:
; compiling top level form:
; recognizing DEFUN %DEFINE-GOOD-MODULAR-FUN
; compiling top level form:
; compiling DEFUN %DEFINE-GOOD-MODULAR-FUN:
; compiling top level form:
; compiling DEFMACRO DEFINE-GOOD-MODULAR-FUN:
; compiling top level form:
; compiling DEFMACRO DEFINE-MODULAR-FUN-OPTIMIZER:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/vm-macs.lisp
; in: DEFUN %DEFINE-MODULAR-FUN
; (SB!INT:STYLE-WARN "Redefining modular version ~S of ~S for width ~S."
; SB!C::NAME
; SB!C::PROTOTYPE
; SB!C::WIDTH)
;
; caught STYLE-WARNING:
; undefined function: STYLE-WARN
;
; caught STYLE-WARNING:
; This function is undefined:
; STYLE-WARN
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/vm-macs.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/sset.lisp" (written 14 JUL 2004 10:29:51 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-SSET
; compiling top level form:
; compiling DEFSTRUCT SSET:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (SSET):
; compiling top level form:
; compiling DEFMACRO DO-SSET-ELEMENTS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SSET-ADJOIN
; compiling top level form:
; compiling DEFUN SSET-ADJOIN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SSET-DELETE
; compiling top level form:
; compiling DEFUN SSET-DELETE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SSET-MEMBER
; compiling top level form:
; compiling DEFUN SSET-MEMBER:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SSET=
; compiling top level form:
; compiling DEFUN SSET=:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SSET-EMPTY
; compiling top level form:
; compiling DEFUN SSET-EMPTY:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COPY-SSET
; compiling top level form:
; compiling DEFUN COPY-SSET:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SSET-UNION
; compiling top level form:
; compiling DEFUN SSET-UNION:
; compiling top level form:
; recognizing DEFUN SSET-INTERSECTION
; compiling top level form:
; compiling DEFUN SSET-INTERSECTION:
; compiling top level form:
; recognizing DEFUN SSET-DIFFERENCE
; compiling top level form:
; compiling DEFUN SSET-DIFFERENCE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SSET-UNION-OF-DIFFERENCE
; compiling top level form:
; compiling DEFUN SSET-UNION-OF-DIFFERENCE:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/sset.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/node.lisp" (written 11 NOV 2004 12:54:38 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-CTRAN
; compiling top level form:
; compiling DEF!STRUCT (CTRAN (:MAKE-LOAD-FORM-FUN IGNORE-IT) (:CONSTRUCTOR MAKE-CTRAN)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-LVAR
; compiling top level form:
; compiling DEF!STRUCT (LVAR (:MAKE-LOAD-FORM-FUN IGNORE-IT) (:CONSTRUCTOR MAKE-LVAR #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE BLOCK:
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE BLOCK:
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE BLOCK:
; compiling top level form:
; recognizing DEFUN DECODE-BLOCK-ATTRIBUTES
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE BLOCK:
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-BLOCK-KEY
; compiling top level form:
; compiling DEF!STRUCT (CBLOCK (:INCLUDE SSET-ELEMENT) (:CONSTRUCTOR MAKE-BLOCK #) (:CONSTRUCTOR MAKE-BLOCK-KEY) (:CONC-NAME BLOCK-) ...):
; compiling top level form:
; recognizing DEFUN MAKE-BLOCK
; compiling top level form:
; compiling DEF!STRUCT (CBLOCK (:INCLUDE SSET-ELEMENT) (:CONSTRUCTOR MAKE-BLOCK #) (:CONSTRUCTOR MAKE-BLOCK-KEY) (:CONC-NAME BLOCK-) ...):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-COMPONENT
; compiling top level form:
; compiling DEF!STRUCT (COMPONENT (:COPIER NIL) (:CONSTRUCTOR MAKE-COMPONENT #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (COMPONENT :IDENTITY T):
; compiling top level form:
; recognizing DEFUN AVER-LIVE-COMPONENT
; compiling top level form:
; compiling DEFUN AVER-LIVE-COMPONENT:
; compiling top level form:
; recognizing DEFUN LAMBDA-TOPLEVELISH-P
; compiling top level form:
; compiling DEFUN LAMBDA-TOPLEVELISH-P:
; compiling top level form:
; recognizing DEFUN COMPONENT-TOPLEVELISH-P
; compiling top level form:
; compiling DEFUN COMPONENT-TOPLEVELISH-P:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-CLEANUP
; compiling top level form:
; compiling DEF!STRUCT (CLEANUP (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (CLEANUP :IDENTITY T):
; compiling top level form:
; compiling DEFMACRO CLEANUP-NLX-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-PHYSENV
; compiling top level form:
; compiling DEF!STRUCT (PHYSENV (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (PHYSENV :IDENTITY T):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-TAIL-SET
; compiling top level form:
; compiling DEF!STRUCT (TAIL-SET):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (TAIL-SET :IDENTITY T):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-NLX-INFO
; compiling top level form:
; compiling DEF!STRUCT (NLX-INFO (:CONSTRUCTOR MAKE-NLX-INFO #) (:MAKE-LOAD-FORM-FUN IGNORE-IT)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (NLX-INFO :IDENTITY T):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LEAF-HAS-SOURCE-NAME-P
; compiling top level form:
; compiling DEFUN LEAF-HAS-SOURCE-NAME-P:
; compiling top level form:
; recognizing DEFUN LEAF-SOURCE-NAME
; compiling top level form:
; compiling DEFUN LEAF-SOURCE-NAME:
; compiling top level form:
; recognizing DEFUN LEAF-DEBUG-NAME
; compiling top level form:
; compiling DEFUN LEAF-DEBUG-NAME:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-CONSTANT
; compiling top level form:
; compiling DEF!STRUCT (CONSTANT (:INCLUDE LEAF)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (CONSTANT :IDENTITY T):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-GLOBAL-VAR
; compiling top level form:
; compiling DEF!STRUCT (GLOBAL-VAR (:INCLUDE BASIC-VAR)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (GLOBAL-VAR :IDENTITY T):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-DEFINED-FUN
; compiling top level form:
; compiling DEF!STRUCT (DEFINED-FUN (:INCLUDE GLOBAL-VAR # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (DEFINED-FUN :IDENTITY T):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-FUNCTIONAL
; compiling top level form:
; compiling DEF!STRUCT (FUNCTIONAL (:INCLUDE LEAF # # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (FUNCTIONAL :IDENTITY T):
; compiling top level form:
; recognizing DEFUN FUNCTIONAL-LETLIKE-P
; compiling top level form:
; compiling DEFUN FUNCTIONAL-LETLIKE-P:
; compiling top level form:
; recognizing DEFUN FUNCTIONAL-SOMEWHAT-LETLIKE-P
; compiling top level form:
; compiling DEFUN FUNCTIONAL-SOMEWHAT-LETLIKE-P:
; compiling top level form:
; recognizing DEFUN FUNCTIONAL-DEBUG-NAME
; compiling top level form:
; compiling DEFUN FUNCTIONAL-DEBUG-NAME:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-LAMBDA
; compiling top level form:
; compiling DEF!STRUCT (CLAMBDA (:INCLUDE FUNCTIONAL) (:CONC-NAME LAMBDA-) (:PREDICATE LAMBDA-P) (:CONSTRUCTOR MAKE-LAMBDA) ...):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (CLAMBDA :CONC-NAME LAMBDA- :IDENTITY T):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-OPTIONAL-DISPATCH
; compiling top level form:
; compiling DEF!STRUCT (OPTIONAL-DISPATCH (:INCLUDE FUNCTIONAL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (OPTIONAL-DISPATCH :IDENTITY T):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ARG-INFO
; compiling top level form:
; compiling DEF!STRUCT ARG-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (ARG-INFO :IDENTITY T):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR:
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR:
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR:
; compiling top level form:
; recognizing DEFUN DECODE-LAMBDA-VAR-ATTRIBUTES
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-LAMBDA-VAR
; compiling top level form:
; compiling DEF!STRUCT (LAMBDA-VAR (:INCLUDE BASIC-VAR)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (LAMBDA-VAR :IDENTITY T):
; compiling top level form:
; compiling DEFMACRO LAMBDA-VAR-IGNOREP:
; compiling top level form:
; compiling DEFMACRO LAMBDA-VAR-INDIRECT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-REF
; compiling top level form:
; compiling DEF!STRUCT (REF (:INCLUDE VALUED-NODE #) (:CONSTRUCTOR MAKE-REF #) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (REF :IDENTITY T):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-IF
; compiling top level form:
; compiling DEF!STRUCT (CIF (:INCLUDE NODE) (:CONC-NAME IF-) (:PREDICATE IF-P) (:CONSTRUCTOR MAKE-IF) ...):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (CIF :CONC-NAME IF- :IDENTITY T):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-SET
; compiling top level form:
; compiling DEF!STRUCT (CSET (:INCLUDE VALUED-NODE #) (:CONC-NAME SET-) (:PREDICATE SET-P) (:CONSTRUCTOR MAKE-SET) ...):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (CSET :CONC-NAME SET- :IDENTITY T):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-COMBINATION
; compiling top level form:
; compiling DEF!STRUCT (COMBINATION (:INCLUDE BASIC-COMBINATION) (:CONSTRUCTOR MAKE-COMBINATION #) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (COMBINATION :IDENTITY T):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-MV-COMBINATION
; compiling top level form:
; compiling DEF!STRUCT (MV-COMBINATION (:INCLUDE BASIC-COMBINATION) (:CONSTRUCTOR MAKE-MV-COMBINATION #) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (MV-COMBINATION):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-BIND
; compiling top level form:
; compiling DEF!STRUCT (BIND (:INCLUDE NODE) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (BIND):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-RETURN
; compiling top level form:
; compiling DEF!STRUCT (CRETURN (:INCLUDE NODE) (:CONC-NAME RETURN-) (:PREDICATE RETURN-P) (:CONSTRUCTOR MAKE-RETURN) ...):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (CRETURN :CONC-NAME RETURN- :IDENTITY T):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MAKE-CAST
; compiling top level form:
; compiling DEF!STRUCT (CAST (:INCLUDE VALUED-NODE) (:CONSTRUCTOR %MAKE-CAST)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (CAST :IDENTITY T):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ENTRY
; compiling top level form:
; compiling DEF!STRUCT (ENTRY (:INCLUDE NODE) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (ENTRY :IDENTITY T):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-EXIT
; compiling top level form:
; compiling DEF!STRUCT (EXIT (:INCLUDE VALUED-NODE) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (EXIT :IDENTITY T):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-UNDEFINED-WARNING
; compiling top level form:
; compiling DEF!STRUCT (UNDEFINED-WARNING (:PRINT-OBJECT #) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling DEF!STRUCT (UNDEFINED-WARNING (:PRINT-OBJECT #) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %COERCE-TO-POLICY
; compiling top level form:
; compiling DEFUN %COERCE-TO-POLICY:
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/node.lisp
; in:
; DEF!STRUCT (CBLOCK (:INCLUDE SSET-ELEMENT)
; (:CONSTRUCTOR MAKE-BLOCK (START))
; (:CONSTRUCTOR MAKE-BLOCK-KEY)
; (:CONC-NAME BLOCK-)
; ...)
; (SB!INT:DEF!STRUCT
; (SB!C::CBLOCK (:INCLUDE SB!ASSEM:SSET-ELEMENT)
; (:CONSTRUCTOR SB!C::MAKE-BLOCK (SB!C::START))
; (:CONSTRUCTOR SB!C::MAKE-BLOCK-KEY)
; (:CONC-NAME SB!C::BLOCK-)
; (:PREDICATE SB!C::BLOCK-P))
; (SB!C::PRED NIL :TYPE LIST)
; (SB!C::SUCC NIL :TYPE LIST)
; (SB!C::START NIL :TYPE (OR SB!C::CTRAN NULL))
; (LAST NIL :TYPE (OR SB!C::NODE NULL))
; (SB!C::NEXT NIL :TYPE (OR NULL SB!C::CBLOCK))
; (SB!C::PREV NIL :TYPE (OR NULL SB!C::CBLOCK)) ..)
; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SB!C::MAKE-BLOCK-KEY
; (&KEY ((:NUMBER #:G253) NIL)
; ((:PRED #:G254) NIL)
; ((:SUCC #:G255) NIL)
; ((:START #:G256) NIL)
; ((:LAST #:G257) NIL)
; ((:NEXT #:G258) NIL)
; ((:PREV #:G259) NIL)
; ((:FLAGS #:G260)
; (SB!C::BLOCK-ATTRIBUTES SB!C::REOPTIMIZE
; SB!C::FLUSH-P
; SB!C::TYPE-CHECK ..))))
;
; caught STYLE-WARNING:
; undefined type: CLOOP
;
; caught STYLE-WARNING:
; undefined type: CLOOP
;
; caught STYLE-WARNING:
; undefined type: CLOOP
;
; caught STYLE-WARNING:
; 20 more uses of undefined type CLOOP
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/node.lisp
; in: DEF!METHOD PRINT-OBJECT
; (SB!C::CONT-NUM (SB!C::BLOCK-START SB!C::CBLOCK))
;
; caught STYLE-WARNING:
; undefined function: CONT-NUM
; (SB!C::CONT-NUM SB!C::X)
;
; caught STYLE-WARNING:
; undefined function: CONT-NUM
; [Last message occurs 2 times.]
;
; caught STYLE-WARNING:
; undefined type: FUN-INFO
;
; caught STYLE-WARNING:
; undefined type: FUN-INFO
;
; caught STYLE-WARNING:
; undefined type: FUN-INFO
;
; caught STYLE-WARNING:
; 1 more use of undefined type FUN-INFO
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/node.lisp
; in:
; DEF!STRUCT (COMPONENT (:COPIER NIL)
; (:CONSTRUCTOR MAKE-COMPONENT
; (HEAD TAIL &AUX (LAST-BLOCK TAIL))))
; (SB!INT:DEF!STRUCT
; (SB!C:COMPONENT (:COPIER NIL)
; (:CONSTRUCTOR SB!C::MAKE-COMPONENT
; (SB!C::HEAD SB!C::TAIL &AUX #)))
; (SB!C::KIND NIL
; :TYPE
; (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED))
; (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
; (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
; (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
; (SB!C::LAMBDAS NIL :TYPE LIST)
; (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST) ..)
; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET
; --> (LAMBDA (SB-KERNEL::NEW-VALUE SB-KERNEL:INSTANCE) (SB-KERNEL:%INSTANCE-SET (THE SB!C:COMPONENT SB-KERNEL:INSTANCE) 10 (THE (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)) SB-KERNEL::NEW-VALUE)))
; --> SB-KERNEL:%INSTANCE-SET
; ==>
; (THE (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)) SB-KERNEL::NEW-VALUE)
;
; caught STYLE-WARNING:
; undefined type: IR2-COMPONENT
;
; caught STYLE-WARNING:
; undefined type: IR2-COMPONENT
;
; caught STYLE-WARNING:
; undefined type: IR2-COMPONENT
;
; caught STYLE-WARNING:
; 1 more use of undefined type IR2-COMPONENT
;
; caught STYLE-WARNING:
; undefined type: LEXENV
;
; caught STYLE-WARNING:
; undefined type: LEXENV
;
; caught STYLE-WARNING:
; undefined type: LEXENV
;
; caught STYLE-WARNING:
; 147 more uses of undefined type LEXENV
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/node.lisp
; in: DEFUN %COERCE-TO-POLICY
; (SB!C::LEXENV-POLICY SB!C::THING)
;
; caught STYLE-WARNING:
; undefined function: LEXENV-POLICY
; in:
; DEF!STRUCT (COMPONENT (:COPIER NIL)
; (:CONSTRUCTOR MAKE-COMPONENT
; (HEAD TAIL &AUX (LAST-BLOCK TAIL))))
; (SB!C::MAKE-LOOP :KIND :OUTER :HEAD SB!C::HEAD)
;
; caught STYLE-WARNING:
; undefined function: MAKE-LOOP
; in:
; DEF!STRUCT (CSET
; (:INCLUDE VALUED-NODE
; (DERIVED-TYPE
; (MAKE-SINGLE-VALUE-TYPE *UNIVERSAL-TYPE*)))
; (:CONC-NAME SET-)
; (:PREDICATE SET-P)
; (:CONSTRUCTOR MAKE-SET)
; ...)
; (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE SB!KERNEL:*UNIVERSAL-TYPE*)
;
; caught STYLE-WARNING:
; undefined function: MAKE-SINGLE-VALUE-TYPE
; in:
; DEF!STRUCT (REF (:INCLUDE VALUED-NODE (REOPTIMIZE NIL))
; (:CONSTRUCTOR MAKE-REF
; (LEAF &AUX (LEAF-TYPE #) (DERIVED-TYPE #)))
; (:COPIER NIL))
; (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE SB!C::LEAF-TYPE)
;
; caught STYLE-WARNING:
; undefined function: MAKE-SINGLE-VALUE-TYPE
;
; caught STYLE-WARNING:
; undefined type: SOURCE-INFO
;
; caught STYLE-WARNING:
; undefined type: SOURCE-INFO
;
; caught STYLE-WARNING:
; undefined type: SOURCE-INFO
;
; caught STYLE-WARNING:
; 8 more uses of undefined type SOURCE-INFO
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/node.lisp
; in:
; DEF!STRUCT (FUNCTIONAL
; (:INCLUDE LEAF
; (%SOURCE-NAME '.ANONYMOUS.)
; (WHERE-FROM :DEFINED)
; (TYPE (SPECIFIER-TYPE 'FUNCTION))))
; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)
;
; caught STYLE-WARNING:
; undefined function: SPECIFIER-TYPE
; [Last message occurs 3 times.]
;
; caught STYLE-WARNING:
; These functions are undefined:
; CONT-NUM LEXENV-POLICY MAKE-LOOP MAKE-SINGLE-VALUE-TYPE SPECIFIER-TYPE
;
; caught STYLE-WARNING:
; These types are undefined:
; CLOOP FUN-INFO IR2-COMPONENT LEXENV SOURCE-INFO
;
; compilation unit finished
; caught 32 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/node.lisp-obj-tmp written
; compilation finished in 0:00:09
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/vop.lisp" (written 11 NOV 2004 12:54:38 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTYPE LOCAL-TN-NUMBER:
; compiling top level form:
; compiling DEFTYPE LOCAL-TN-COUNT:
; compiling top level form:
; compiling DEFTYPE LOCAL-TN-VECTOR:
; compiling top level form:
; compiling DEFTYPE LOCAL-TN-BIT-VECTOR:
; compiling top level form:
; compiling DEFTYPE SC-NUMBER:
; compiling top level form:
; compiling DEFTYPE SC-VECTOR:
; compiling top level form:
; compiling DEFTYPE SC-BIT-VECTOR:
; compiling top level form:
; compiling DEFTYPE LTN-POLICY:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-PRIMITIVE-TYPE
; compiling top level form:
; compiling DEFSTRUCT PRIMITIVE-TYPE:
; compiling top level form (SB-KERNEL:FIND-CLASSOID-CELL (QUOTE STANDARD-OBJECT)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (PRIMITIVE-TYPE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-IR2-BLOCK
; compiling top level form:
; compiling DEFSTRUCT IR2-BLOCK:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (IR2-BLOCK):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-IR2-LVAR
; compiling top level form:
; compiling DEFSTRUCT IR2-LVAR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (IR2-LVAR):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-IR2-COMPONENT
; compiling top level form:
; compiling DEFSTRUCT IR2-COMPONENT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ENTRY-INFO
; compiling top level form:
; compiling DEFSTRUCT ENTRY-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-IR2-PHYSENV
; compiling top level form:
; compiling DEFSTRUCT IR2-PHYSENV:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (IR2-PHYSENV):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-RETURN-INFO
; compiling top level form:
; compiling DEFSTRUCT RETURN-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (RETURN-INFO):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-IR2-NLX-INFO
; compiling top level form:
; compiling DEFSTRUCT IR2-NLX-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (IR2-NLX-INFO):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-LOOP
; compiling top level form:
; compiling DEFSTRUCT CLOOP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (CLOOP :CONC-NAME LOOP-):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-VOP
; compiling top level form:
; compiling DEF!STRUCT (VOP (:CONSTRUCTOR MAKE-VOP #) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (VOP):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-TN-REF
; compiling top level form:
; compiling DEF!STRUCT (TN-REF (:CONSTRUCTOR MAKE-TN-REF #) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (TN-REF):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (TEMPLATE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-VOP-INFO
; compiling top level form:
; compiling DEF!STRUCT (VOP-INFO (:INCLUDE TEMPLATE) (:MAKE-LOAD-FORM-FUN IGNORE-IT)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-SB
; compiling top level form:
; compiling DEF!STRUCT (SB (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (SB):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-FINITE-SB
; compiling top level form:
; compiling DEF!STRUCT (FINITE-SB (:INCLUDE SB)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-SC
; compiling top level form:
; compiling DEF!STRUCT (SC (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (SC):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-RANDOM-TN
; compiling top level form:
; compiling DEF!STRUCT (TN (:INCLUDE SSET-ELEMENT) (:CONSTRUCTOR MAKE-RANDOM-TN) (:CONSTRUCTOR MAKE-TN #) (:COPIER NIL)):
; compiling top level form:
; recognizing DEFUN MAKE-TN
; compiling top level form:
; compiling DEF!STRUCT (TN (:INCLUDE SSET-ELEMENT) (:CONSTRUCTOR MAKE-RANDOM-TN) (:CONSTRUCTOR MAKE-TN #) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-GLOBAL-CONFLICTS
; compiling top level form:
; compiling DEFSTRUCT GLOBAL-CONFLICTS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (GLOBAL-CONFLICTS):
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/vop.lisp
; in: DEFSTRUCT IR2-NLX-INFO
; (SB!ASSEM:GEN-LABEL)
;
; caught STYLE-WARNING:
; undefined function: GEN-LABEL
; in: DEFSTRUCT ENTRY-INFO
; (DEFSTRUCT (SB!C::ENTRY-INFO (:COPIER NIL))
; (SB!C::CLOSURE-P NIL :TYPE BOOLEAN)
; (SB!C::OFFSET NIL :TYPE (OR SB!ASSEM:LABEL NULL))
; (SB!C::NAME "" :TYPE (OR SIMPLE-STRING LIST SYMBOL))
; (SB!C::ARGUMENTS NIL :TYPE LIST)
; (TYPE 'FUNCTION :TYPE (OR LIST (MEMBER FUNCTION))))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION LET SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF
; --> TYPEP LET OR LET
; ==>
; (TYPEP #:ONCE-ONLY-586 'SB!ASSEM:LABEL)
;
; caught STYLE-WARNING:
; undefined type: LABEL
;
; caught STYLE-WARNING:
; undefined type: LABEL
;
; caught STYLE-WARNING:
; undefined type: LABEL
;
; caught STYLE-WARNING:
; 37 more uses of undefined type LABEL
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/vop.lisp
; in: DEFSTRUCT IR2-NLX-INFO
; (SB!C::MAKE-DYNAMIC-STATE-TNS)
;
; caught STYLE-WARNING:
; undefined function: MAKE-DYNAMIC-STATE-TNS
; (SB!C:MAKE-STACK-POINTER-TN)
;
; caught STYLE-WARNING:
; undefined function: MAKE-STACK-POINTER-TN
; in: DEF!METHOD PRINT-OBJECT
; (SB!C::PRINT-TN-GUTS SB!C:TN STREAM)
;
; caught STYLE-WARNING:
; undefined function: PRINT-TN-GUTS
; in: DEFSTRUCT CLOOP
; (SB!C::REQUIRED-ARGUMENT)
;
; caught STYLE-WARNING:
; undefined function: REQUIRED-ARGUMENT
;
; caught STYLE-WARNING:
; These functions are undefined:
; GEN-LABEL MAKE-DYNAMIC-STATE-TNS MAKE-STACK-POINTER-TN PRINT-TN-GUTS REQUIRED-ARGUMENT
;
; caught STYLE-WARNING:
; This type is undefined:
; LABEL
;
; compilation unit finished
; caught 11 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/vop.lisp-obj-tmp written
; compilation finished in 0:00:04
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/backend.lisp" (written 29 OCT 2004 01:30:44 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-VM-SUPPORT-ROUTINES
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IMMEDIATE-CONSTANT-SC
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN LOCATION-PRINT-NAME
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN PRIMITIVE-TYPE-OF
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN PRIMITIVE-TYPE
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN MAKE-CALL-OUT-TNS
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN STANDARD-ARG-LOCATION
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN MAKE-RETURN-PC-PASSING-LOCATION
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN MAKE-OLD-FP-PASSING-LOCATION
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN MAKE-OLD-FP-SAVE-LOCATION
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN MAKE-RETURN-PC-SAVE-LOCATION
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN MAKE-ARG-COUNT-LOCATION
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN MAKE-NFP-TN
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN MAKE-STACK-POINTER-TN
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN MAKE-NUMBER-STACK-POINTER-TN
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN MAKE-UNKNOWN-VALUES-LOCATIONS
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN SELECT-COMPONENT-FORMAT
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN MAKE-NLX-SP-TN
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN MAKE-DYNAMIC-STATE-TNS
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN MAKE-NLX-ENTRY-ARG-START-LOCATION
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN GENERATE-CALL-SEQUENCE
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN GENERATE-RETURN-SEQUENCE
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN EMIT-NOP
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; recognizing DEFUN LOCATION-NUMBER
; compiling top level form:
; compiling DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; compiling DEFPRINTER (VM-SUPPORT-ROUTINES):
; compiling top level form:
; compiling DEFMACRO !DEF-VM-SUPPORT-ROUTINE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/backend.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/vmdef.lisp" (written 15 APR 2004 03:30:08 PM):
; compiling top level form:
; recognizing DEFUN TEMPLATE-OR-LOSE
; compiling top level form:
; compiling DEFUN TEMPLATE-OR-LOSE:
; compiling top level form:
; recognizing DEFUN SC-OR-LOSE
; compiling top level form:
; compiling DEFUN SC-OR-LOSE:
; compiling top level form:
; recognizing DEFUN SB-OR-LOSE
; compiling top level form:
; compiling DEFUN SB-OR-LOSE:
; compiling top level form:
; recognizing DEFUN SC-NUMBER-OR-LOSE
; compiling top level form:
; compiling DEFUN SC-NUMBER-OR-LOSE:
; compiling top level form:
; recognizing DEFUN META-SC-OR-LOSE
; compiling top level form:
; compiling DEFUN META-SC-OR-LOSE:
; compiling top level form:
; recognizing DEFUN META-SB-OR-LOSE
; compiling top level form:
; compiling DEFUN META-SB-OR-LOSE:
; compiling top level form:
; recognizing DEFUN META-SC-NUMBER-OR-LOSE
; compiling top level form:
; compiling DEFUN META-SC-NUMBER-OR-LOSE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE VOP:
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE VOP:
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE VOP:
; compiling top level form:
; recognizing DEFUN DECODE-VOP-ATTRIBUTES
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE VOP:
; compiling top level form:
; recognizing DEFUN COMPUTE-MOVE-COSTS
; compiling top level form:
; compiling DEFUN COMPUTE-MOVE-COSTS:
; compiling top level form:
; recognizing DEFUN PRIMITIVE-TYPE-OR-LOSE
; compiling top level form:
; compiling DEFUN PRIMITIVE-TYPE-OR-LOSE:
; compiling top level form:
; recognizing DEFUN SC-ALLOWED-BY-PRIMITIVE-TYPE
; compiling top level form:
; compiling DEFUN SC-ALLOWED-BY-PRIMITIVE-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EMIT-GENERIC-VOP
; compiling top level form:
; compiling DEFUN EMIT-GENERIC-VOP:
; compiling top level form:
; recognizing DEFUN %EMIT-GENERIC-VOP
; compiling top level form:
; compiling DEFUN %EMIT-GENERIC-VOP:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/vmdef.lisp
; in: DEFUN %EMIT-GENERIC-VOP
; (AREF SB!C::TEMPS SB!C::I)
; --> 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 T), not a SIMPLE-ARRAY.
; (AREF SB!C::REF-ORDERING SB!C::I)
; --> 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 T), not a SIMPLE-ARRAY.
; (AREF SB!C::TARGETS SB!C::I)
; --> 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 T), not a SIMPLE-ARRAY.
; compiling top level form:
; recognizing DEFUN ADJOIN-TEMPLATE
; compiling top level form:
; compiling DEFUN ADJOIN-TEMPLATE:
; compiling top level form:
; recognizing DEFUN TEMPLATE-TYPE-SPECIFIER
; compiling top level form:
; compiling DEFUN TEMPLATE-TYPE-SPECIFIER:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/vmdef.lisp
; in: DEFUN %EMIT-GENERIC-VOP
; (SB!C:MAKE-RESTRICTED-TN NIL (ASH SB!C::TEMP -1))
;
; caught STYLE-WARNING:
; undefined function: MAKE-RESTRICTED-TN
; (SB!C:MAKE-WIRED-TN NIL
; (SB-XC:LDB (SB-XC:BYTE SB!C::SC-BITS 1) SB!C::TEMP)
; (ASH SB!C::TEMP (- (1+ SB!C::SC-BITS))))
;
; caught STYLE-WARNING:
; undefined function: MAKE-WIRED-TN
; (SB!C::REFERENCE-TN SB!C:TN NIL)
;
; caught STYLE-WARNING:
; undefined function: REFERENCE-TN
; (SB!C::TARGET-IF-DESIRABLE
; (AREF SB!C::REFS (SB-XC:LDB (SB-XC:BYTE 8 8) SB!C::TARGET))
; (AREF SB!C::REFS (SB-XC:LDB (SB-XC:BYTE 8 0) SB!C::TARGET)))
;
; caught STYLE-WARNING:
; undefined function: TARGET-IF-DESIRABLE
;
; caught STYLE-WARNING:
; These functions are undefined:
; MAKE-RESTRICTED-TN MAKE-WIRED-TN REFERENCE-TN TARGET-IF-DESIRABLE
;
; compilation unit finished
; caught 5 STYLE-WARNING conditions
; printed 3 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/vmdef.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/backend-parms.lisp" (written 05 SEP 2002 03:15:52 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/backend-parms.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/globaldb.lisp" (written 12 JUN 2004 03:55:49 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN GLOBALDB-SXHASHOID
; compiling top level form:
; compiling DEFUN GLOBALDB-SXHASHOID:
; compiling top level form:
; recognizing DEFUN PRIMIFY
; compiling top level form:
; compiling DEFUN PRIMIFY:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTYPE TYPE-NUMBER:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-CLASS-INFO
; compiling top level form:
; compiling DEFSTRUCT CLASS-INFO:
; compiling top level form:
; compiling top level form:
; compiling DEFSTRUCT CLASS-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-TYPE-INFO
; compiling top level form:
; compiling DEFSTRUCT TYPE-INFO:
; compiling top level form:
; compiling top level form:
; compiling DEFSTRUCT TYPE-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-TYPE-INFO
; compiling top level form:
; compiling DEFUN FIND-TYPE-INFO:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CLASS-INFO-OR-LOSE
; compiling top level form:
; compiling DEFUN CLASS-INFO-OR-LOSE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TYPE-INFO-OR-LOSE
; compiling top level form:
; compiling DEFUN TYPE-INFO-OR-LOSE:
; compiling top level form:
; recognizing DEFUN FIND-UNUSED-TYPE-NUMBER
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; compiling DEFMACRO DO-INFO:
; compiling top level form:
; recognizing DEFUN DO-COMPACT-INFO
; compiling top level form:
; compiling DEFUN DO-COMPACT-INFO:
; compiling top level form:
; recognizing DEFUN DO-VOLATILE-INFO
; compiling top level form:
; compiling DEFUN DO-VOLATILE-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INFO-CACHE-HASH
; compiling top level form:
; compiling DEFUN INFO-CACHE-HASH:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INFO-CACHE-LOOKUP
; compiling top level form:
; compiling DEFINE-HASH-CACHE INFO:
; compiling top level form:
; recognizing DEFUN INFO-CACHE-ENTER
; compiling top level form:
; compiling DEFINE-HASH-CACHE INFO:
; compiling top level form:
; recognizing DEFUN INFO-CACHE-CLEAR
; compiling top level form:
; compiling DEFINE-HASH-CACHE INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CLEAR-INVALID-INFO-CACHE
; compiling top level form:
; compiling DEFUN CLEAR-INVALID-INFO-CACHE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTYPE COMPACT-INFO-ENTRIES-INDEX:
; compiling top level form:
; compiling DEFTYPE COMPACT-INFO-ENTRY:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-COMPACT-INFO-ENV
; compiling top level form:
; compiling DEFSTRUCT COMPACT-INFO-ENV:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COMPACT-INFO-CACHE-HIT
; compiling top level form:
; compiling DEFUN COMPACT-INFO-CACHE-HIT:
; compiling top level form:
; recognizing DEFUN COMPACT-INFO-LOOKUP
; compiling top level form:
; compiling DEFUN COMPACT-INFO-LOOKUP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COMPACT-INFO-ENVIRONMENT
; compiling top level form:
; compiling DEFUN COMPACT-INFO-ENVIRONMENT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-VOLATILE-INFO-ENV
; compiling top level form:
; compiling DEFSTRUCT VOLATILE-INFO-ENV:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VOLATILE-INFO-CACHE-HIT
; compiling top level form:
; compiling DEFUN VOLATILE-INFO-CACHE-HIT:
; compiling top level form:
; recognizing DEFUN VOLATILE-INFO-LOOKUP
; compiling top level form:
; compiling DEFUN VOLATILE-INFO-LOOKUP:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN GET-WRITE-INFO-ENV
; compiling top level form:
; compiling DEFUN GET-WRITE-INFO-ENV:
; compiling top level form:
; recognizing DEFUN SET-INFO-VALUE
; compiling top level form:
; compiling DEFUN SET-INFO-VALUE:
; compiling top level form:
; recognizing DEFUN INFO
; compiling top level form:
; compiling DEFUN INFO:
; compiling top level form:
; compiling DEFINE-COMPILER-MACRO INFO:
; compiling top level form:
; recognizing DEFUN (SETF INFO)
; compiling top level form:
; compiling DEFUN (SETF INFO):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-INFO-ENVIRONMENT
; compiling top level form:
; compiling DEFUN MAKE-INFO-ENVIRONMENT:
; compiling top level form:
; recognizing DEFUN CLEAR-INFO
; compiling top level form:
; compiling DEFUN CLEAR-INFO:
; compiling top level form:
; compiling DEFINE-COMPILER-MACRO CLEAR-INFO:
; compiling top level form:
; recognizing DEFUN CLEAR-INFO-VALUE
; compiling top level form:
; compiling DEFUN INFO-CACHE-HASH:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN GET-INFO-VALUE
; compiling top level form:
; compiling DEFUN GET-INFO-VALUE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !COLD-INIT-FORMS (/SHOW0 "beginning *INFO-CLASSES* init, calling MAKE-HASH-TABLE"):
; compiling top level form:
; compiling top level form:
; compiling !COLD-INIT-FORMS (/SHOW0 "beginning *INFO-CLASSES* init, calling MAKE-HASH-TABLE"):
; compiling top level form:
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling MACROLET ((FROB NIL #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/globaldb.lisp
; in: DEFINE-INFO-TYPE :CLASS
; (SB!KERNEL:CLASSOID-LAYOUT CLASS)
;
; caught STYLE-WARNING:
; undefined function: CLASSOID-LAYOUT
; (SB!KERNEL:FIND-CLASSOID SB!C::NAME NIL)
;
; caught STYLE-WARNING:
; undefined function: FIND-CLASSOID
; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)
;
; caught STYLE-WARNING:
; undefined function: SPECIFIER-TYPE
;
; caught STYLE-WARNING:
; These functions are undefined:
; CLASSOID-LAYOUT FIND-CLASSOID SPECIFIER-TYPE
;
; compilation unit finished
; caught 4 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/globaldb.lisp-obj-tmp written
; compilation finished in 0:00:03
STYLE-WARNING: redefining MAKE-CLASS-INFO in DEFUN
STYLE-WARNING: redefining PRINT-OBJECT (CLASS-INFO T) in DEFMETHOD
STYLE-WARNING: redefining MAKE-TYPE-INFO in DEFUN
STYLE-WARNING: redefining PRINT-OBJECT (TYPE-INFO T) in DEFMETHOD
STYLE-WARNING: redefining FIND-TYPE-INFO in DEFUN
STYLE-WARNING: redefining CLASS-INFO-OR-LOSE in DEFUN
STYLE-WARNING: redefining TYPE-INFO-OR-LOSE in DEFUN
STYLE-WARNING: redefining DO-COMPACT-INFO in DEFUN
STYLE-WARNING: redefining DO-VOLATILE-INFO in DEFUN
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/info-functions.lisp" (written 21 DEC 2004 04:52:09 AM):
; compiling top level form:
; recognizing DEFUN CHECK-FUN-NAME
; compiling top level form:
; compiling DEFUN CHECK-FUN-NAME:
; compiling top level form:
; recognizing DEFUN PROCLAIM-AS-FUN-NAME
; compiling top level form:
; compiling DEFUN PROCLAIM-AS-FUN-NAME:
; compiling top level form:
; recognizing DEFUN NOTE-IF-SETF-FUN-AND-MACRO
; compiling top level form:
; compiling DEFUN NOTE-IF-SETF-FUN-AND-MACRO:
; compiling top level form:
; recognizing DEFUN UNDEFINE-FUN-NAME
; compiling top level form:
; compiling DEFUN UNDEFINE-FUN-NAME:
; compiling top level form:
; recognizing DEFUN BECOME-DEFINED-FUN-NAME
; compiling top level form:
; compiling DEFUN BECOME-DEFINED-FUN-NAME:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FUN-NAME-INLINE-EXPANSION
; compiling top level form:
; compiling DEFUN FUN-NAME-INLINE-EXPANSION:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/info-functions.lisp
; in: DEFUN FUN-NAME-INLINE-EXPANSION
; (DEFUN SB!INT:FUN-NAME-INLINE-EXPANSION (SB!C::FUN-NAME)
; (LET ((SB!INT:INFO #))
; (IF (FUNCTIONP SB!INT:INFO) (FUNCALL SB!INT:INFO) SB!INT:INFO)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SB!INT:FUN-NAME-INLINE-EXPANSION
; (SB!C::FUN-NAME)
; (BLOCK SB!INT:FUN-NAME-INLINE-EXPANSION
; (LET (#)
; (IF # # SB!INT:INFO))))
;
; note: type assertion too complex to check:
; (VALUES &OPTIONAL LIST &REST T).
; compiling top level form:
; recognizing DEFUN SB-XC:CONSTANTP
; compiling top level form:
; compiling DEFUN SB-XC:CONSTANTP:
; compiling top level form:
; recognizing DEFUN CONSTANT-FORM-VALUE
; compiling top level form:
; compiling DEFUN CONSTANT-FORM-VALUE:
; compiling top level form:
; recognizing DEFUN SB-XC:MACRO-FUNCTION
; compiling top level form:
; compiling DEFUN SB-XC:MACRO-FUNCTION:
; compiling top level form:
; recognizing DEFUN (SETF SB-XC:MACRO-FUNCTION)
; compiling top level form:
; compiling DEFUN (SETF SB-XC:MACRO-FUNCTION):
; compiling top level form:
; recognizing DEFUN SB-XC:COMPILER-MACRO-FUNCTION
; compiling top level form:
; compiling DEFUN SB-XC:COMPILER-MACRO-FUNCTION:
; compiling top level form:
; recognizing DEFUN (SETF SB-XC:COMPILER-MACRO-FUNCTION)
; compiling top level form:
; compiling DEFUN (SETF SB-XC:COMPILER-MACRO-FUNCTION):
; compiling top level form:
; recognizing DEFUN FDOCUMENTATION
; compiling top level form:
; compiling DEFUN FDOCUMENTATION:
; compiling top level form (SB-KERNEL:FIND-CLASSOID-CELL (QUOTE STRUCTURE-CLASS)):
; compiling top level form:
; recognizing DEFUN (SETF FDOCUMENTATION)
; compiling top level form:
; compiling DEFUN (SETF FDOCUMENTATION):
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/info-functions.lisp
; in: DEFUN FDOCUMENTATION
; (SB!KERNEL:%FUN-DOC SB!C::X)
;
; caught STYLE-WARNING:
; undefined function: %FUN-DOC
; in: DEFUN CHECK-FUN-NAME
; (SB!C:COMPILER-ERROR "illegal function name: ~S" SB!C::NAME)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-ERROR
; in: DEFUN NOTE-IF-SETF-FUN-AND-MACRO
; (SB!C:COMPILER-STYLE-WARN
; "defining as a SETF function a name that already has a SETF macro:~
; ~% ~S"
; SB!C::NAME)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-STYLE-WARN
; in: DEFUN PROCLAIM-AS-FUN-NAME
; (SB!C:COMPILER-STYLE-WARN "~S was previously defined as a macro." SB!C::NAME)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-STYLE-WARN
; in: DEFUN UNDEFINE-FUN-NAME
; (SB!C::FROB :INFO)
; --> UNLESS COND IF NOT IF EQ SB!INT:INFO MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION
; --> UNLESS COND IF NOT IF TYPEP LET OR LET TYPEP
; ==>
; (SB-KERNEL:%TYPEP #:ONCE-ONLY-194 'SB!C::FUN-INFO)
;
; caught STYLE-WARNING:
; undefined type: FUN-INFO
; --> UNLESS COND IF NOT IF EQ SB!INT:INFO MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION
; --> UNLESS COND IF NOT IF TYPEP LET OR LET
; ==>
; (TYPEP #:ONCE-ONLY-194 'SB!C::FUN-INFO)
;
; caught STYLE-WARNING:
; undefined type: FUN-INFO
; --> UNLESS COND IF NOT IF EQ SB!INT:INFO MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL
; ==>
; #'(LAMBDA (&OPTIONAL #:VALUE109 #:FOUNDP110 &REST #:G111)
; (DECLARE (IGNORE #:G111))
; (DECLARE (TYPE (OR SB!C::FUN-INFO NULL) #:VALUE109))
; (VALUES #:VALUE109 #:FOUNDP110))
;
; caught STYLE-WARNING:
; undefined type: FUN-INFO
;
; caught STYLE-WARNING:
; 2 more uses of undefined type FUN-INFO
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/info-functions.lisp
; in: DEFUN SB-XC:MACRO-FUNCTION
; (SB!C::LEXENV-FUNS SB!C::ENV)
;
; caught STYLE-WARNING:
; undefined function: LEXENV-FUNS
; in: DEFUN FDOCUMENTATION
; (SB!KERNEL:PACKAGE-DOC-STRING SB!C::X)
;
; caught STYLE-WARNING:
; undefined function: PACKAGE-DOC-STRING
; in: DEFUN UNDEFINE-FUN-NAME
; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)
;
; caught STYLE-WARNING:
; undefined function: SPECIFIER-TYPE
;
; caught STYLE-WARNING:
; These functions are undefined:
; %FUN-DOC COMPILER-ERROR COMPILER-STYLE-WARN LEXENV-FUNS PACKAGE-DOC-STRING SPECIFIER-TYPE
;
; caught STYLE-WARNING:
; This type is undefined:
; FUN-INFO
;
; compilation unit finished
; caught 13 STYLE-WARNING conditions
; printed 1 note
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/info-functions.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/force-delayed-defbangconstants.lisp" (written 19 MAY 2002 03:55:31 PM):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/force-delayed-defbangconstants.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/defmacro.lisp" (written 10 MAY 2004 05:02:59 PM):
; compiling top level form:
; recognizing DEFUN %EXPANDER-FOR-DEFMACRO
; compiling top level form:
; compiling DEFUN %EXPANDER-FOR-DEFMACRO:
; compiling top level form:
; recognizing DEFUN SB!C::%DEFMACRO
; compiling top level form:
; compiling DEF (:LOAD-TOPLEVEL :EXECUTE):
; compiling top level form:
; recognizing DEFUN SB!C::%DEFMACRO
; compiling DEFMACRO SB-XC:DEFMACRO:
; compiling top level form:
; compiling SB-XC:DEFMACRO DEFMACRO:
; compiling top level form:
; compiling DEF!MACRO DEFMACRO-MUNDANELY:
; compiling top level form:
; compiling top level form:
; in: LAMBDA NIL
; (SB!INT:STYLE-WARN "~S is being redefined as a macro when it was ~
; previously ~(~A~) to be a function."
; SB!IMPL::NAME
; (SB!INT:INFO :FUNCTION :WHERE-FROM SB!IMPL::NAME))
;
; caught STYLE-WARNING:
; undefined function: STYLE-WARN
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/defmacro.lisp
; in: DEF (TIMES SET-P)
; (SB!INT:STYLE-WARN "~S is being redefined as a macro when it was ~
; previously ~(~A~) to be a function."
; SB!IMPL::NAME
; (SB!INT:INFO :FUNCTION :WHERE-FROM SB!IMPL::NAME))
;
; caught STYLE-WARNING:
; undefined function: STYLE-WARN
;
; caught STYLE-WARNING:
; This function is undefined:
; STYLE-WARN
;
; compilation unit finished
; caught 3 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/defmacro.lisp-obj-tmp written
; compilation finished in 0:00:01
STYLE-WARNING: redefining %EXPANDER-FOR-DEFMACRO in DEFUN
STYLE-WARNING: redefining SB!C::%DEFMACRO in DEFUN
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/force-delayed-defbangmacros.lisp" (written 21 OCT 2000 01:30:33 AM):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/force-delayed-defbangmacros.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/late-macros.lisp" (written 02 DEC 2002 02:33:58 AM):
; compiling top level form:
; compiling SB-XC:DEFMACRO DELETEF-IN:
; compiling top level form:
; compiling SB-XC:DEFMACRO PUSH-IN:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY !DEF-BOOLEAN-ATTRIBUTE-SETTER:
; compiling top level form:
; in: LAMBDA NIL
; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
;
; caught STYLE-WARNING:
; undefined function: SB-XC:GET-SETF-EXPANSION
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/late-macros.lisp
; in: SB-XC:DEFMACRO DELETEF-IN
; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
;
; caught STYLE-WARNING:
; undefined function: SB-XC:GET-SETF-EXPANSION
; in: LAMBDA NIL
; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
;
; caught STYLE-WARNING:
; undefined function: SB-XC:GET-SETF-EXPANSION
;
; caught STYLE-WARNING:
; 1 more use of undefined function SB-XC:GET-SETF-EXPANSION
;
; caught STYLE-WARNING:
; This function is undefined:
; SB-XC:GET-SETF-EXPANSION
;
; compilation unit finished
; caught 5 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/late-macros.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/meta-vmdef.lisp" (written 29 OCT 2004 01:30:44 PM):
; compiling top level form:
; compiling DEFMACRO DEFINE-STORAGE-BASE:
; compiling top level form:
; compiling DEFMACRO DEFINE-STORAGE-CLASS:
; compiling top level form:
; compiling DEFMACRO DO-SC-PAIRS:
; compiling top level form:
; compiling DEFMACRO DEFINE-MOVE-FUN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO DEFINE-MOVE-VOP:
; compiling top level form:
; recognizing DEFUN META-PRIMITIVE-TYPE-OR-LOSE
; compiling top level form:
; compiling DEFUN META-PRIMITIVE-TYPE-OR-LOSE:
; compiling top level form:
; compiling DEFMACRO !DEF-PRIMITIVE-TYPE:
; compiling top level form:
; compiling DEFMACRO !DEF-PRIMITIVE-TYPE-ALIAS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO PRIMITIVE-TYPE-VOP:
; compiling top level form:
; recognizing DEFUN META-SC-ALLOWED-BY-PRIMITIVE-TYPE
; compiling top level form:
; compiling DEFUN META-SC-ALLOWED-BY-PRIMITIVE-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-VOP-PARSE
; compiling top level form:
; compiling DEF!STRUCT (VOP-PARSE (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (VOP-PARSE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-OPERAND-PARSE
; compiling top level form:
; compiling DEF!STRUCT (OPERAND-PARSE (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (OPERAND-PARSE):
; compiling top level form:
; recognizing DEFUN FIND-OPERAND
; compiling top level form:
; compiling DEFUN FIND-OPERAND:
; compiling top level form:
; recognizing DEFUN VOP-PARSE-OR-LOSE
; compiling top level form:
; compiling DEFUN VOP-PARSE-OR-LOSE:
; compiling top level form:
; recognizing DEFUN ACCESS-OPERANDS
; compiling top level form:
; compiling DEFUN ACCESS-OPERANDS:
; compiling top level form:
; recognizing DEFUN IGNORE-UNREFERENCED-TEMPS
; compiling top level form:
; compiling DEFUN IGNORE-UNREFERENCED-TEMPS:
; compiling top level form:
; recognizing DEFUN VOP-SPEC-ARG
; compiling top level form:
; compiling DEFUN VOP-SPEC-ARG:
; compiling top level form:
; recognizing DEFUN PARSE-TIME-SPEC
; compiling top level form:
; compiling DEFUN PARSE-TIME-SPEC:
; compiling top level form:
; recognizing DEFUN TIME-SPEC-ORDER
; compiling top level form:
; compiling DEFUN TIME-SPEC-ORDER:
; compiling top level form:
; recognizing DEFUN COMPUTE-TEMPORARIES-DESCRIPTION
; compiling top level form:
; compiling DEFUN COMPUTE-TEMPORARIES-DESCRIPTION:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/meta-vmdef.lisp
; in: DEFUN COMPUTE-TEMPORARIES-DESCRIPTION
; (SETF (AREF SB!C::RESULTS SB!INT:INDEX)
; (IF SB!C::OFFSET
; (+ (ASH SB!C::OFFSET #) (ASH # 1) 1)
; (ASH (SB!C:META-SC-NUMBER-OR-LOSE SB!C:SC) 1)))
; --> SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling top level form:
; recognizing DEFUN COMPUTE-REF-ORDERING
; compiling top level form:
; compiling DEFUN COMPUTE-REF-ORDERING:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/meta-vmdef.lisp
; in: DEFUN COMPUTE-REF-ORDERING
; (SETF (AREF SB!C::ORDERING SB!INT:INDEX) (CDR SB!C::REF))
; --> SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling top level form:
; recognizing DEFUN MAKE-EMIT-FUNCTION-AND-FRIENDS
; compiling top level form:
; compiling DEFUN MAKE-EMIT-FUNCTION-AND-FRIENDS:
; compiling top level form:
; recognizing DEFUN FIND-MOVE-FUNS
; compiling top level form:
; compiling DEFUN FIND-MOVE-FUNS:
; compiling top level form:
; recognizing DEFUN CALL-MOVE-FUN
; compiling top level form:
; compiling DEFUN CALL-MOVE-FUN:
; compiling top level form:
; recognizing DEFUN DECIDE-TO-LOAD
; compiling top level form:
; compiling DEFUN DECIDE-TO-LOAD:
; compiling top level form:
; recognizing DEFUN MAKE-GENERATOR-FUNCTION
; compiling top level form:
; compiling DEFUN MAKE-GENERATOR-FUNCTION:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-OPERAND-PARSE-TEMP
; compiling top level form:
; compiling DEFUN MAKE-OPERAND-PARSE-TEMP:
; compiling top level form:
; recognizing DEFUN MAKE-OPERAND-PARSE-LOAD-TN
; compiling top level form:
; compiling DEFUN MAKE-OPERAND-PARSE-LOAD-TN:
; compiling top level form:
; recognizing DEFUN !PARSE-VOP-OPERANDS
; compiling top level form:
; compiling DEFUN !PARSE-VOP-OPERANDS:
; compiling top level form:
; recognizing DEFUN PARSE-TEMPORARY
; compiling top level form:
; compiling DEFUN PARSE-TEMPORARY:
; compiling top level form:
; recognizing DEFUN COMPUTE-PARSE-VOP-OPERAND-COUNT
; compiling top level form:
; compiling DEFUN COMPUTE-PARSE-VOP-OPERAND-COUNT:
; compiling top level form:
; recognizing DEFUN PARSE-DEFINE-VOP
; compiling top level form:
; compiling DEFUN PARSE-DEFINE-VOP:
; compiling top level form:
; recognizing DEFUN COMPUTE-LOADING-COSTS
; compiling top level form:
; compiling DEFUN COMPUTE-LOADING-COSTS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COMPUTE-LOADING-COSTS-IF-ANY
; compiling top level form:
; compiling DEFUN COMPUTE-LOADING-COSTS-IF-ANY:
; compiling top level form:
; recognizing DEFUN COMPUTE-COSTS-AND-RESTRICTIONS-LIST
; compiling top level form:
; compiling DEFUN COMPUTE-COSTS-AND-RESTRICTIONS-LIST:
; compiling top level form:
; recognizing DEFUN MAKE-COSTS-AND-RESTRICTIONS
; compiling top level form:
; compiling DEFUN MAKE-COSTS-AND-RESTRICTIONS:
; compiling top level form:
; recognizing DEFUN !PARSE-VOP-OPERAND-TYPES
; compiling top level form:
; compiling DEFUN !PARSE-VOP-OPERAND-TYPES:
; compiling top level form:
; recognizing DEFUN CHECK-OPERAND-TYPE-SCS
; compiling top level form:
; compiling DEFUN CHECK-OPERAND-TYPE-SCS:
; compiling top level form:
; recognizing DEFUN CHECK-OPERAND-TYPES
; compiling top level form:
; compiling DEFUN CHECK-OPERAND-TYPES:
; compiling top level form:
; recognizing DEFUN !GROVEL-VOP-OPERANDS
; compiling top level form:
; compiling DEFUN !GROVEL-VOP-OPERANDS:
; compiling top level form:
; recognizing DEFUN !SET-UP-FUN-TRANSLATION
; compiling top level form:
; compiling DEFUN !SET-UP-FUN-TRANSLATION:
; compiling top level form:
; recognizing DEFUN MAKE-OPERAND-TYPE
; compiling top level form:
; compiling DEFUN MAKE-OPERAND-TYPE:
; compiling top level form:
; recognizing DEFUN SPECIFY-OPERAND-TYPES
; compiling top level form:
; compiling DEFUN SPECIFY-OPERAND-TYPES:
; compiling top level form:
; recognizing DEFUN MAKE-VOP-INFO-TYPES
; compiling top level form:
; compiling DEFUN MAKE-VOP-INFO-TYPES:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO INHERIT-VOP-INFO:
; compiling top level form:
; recognizing DEFUN SET-UP-VOP-INFO
; compiling top level form:
; compiling DEFUN SET-UP-VOP-INFO:
; compiling top level form:
; compiling DEF!MACRO DEFINE-VOP:
; compiling top level form:
; compiling DEF!MACRO DEFINE-VOP:
; compiling top level form:
; recognizing DEFUN MAKE-OPERAND-LIST
; compiling top level form:
; compiling DEFUN MAKE-OPERAND-LIST:
; compiling top level form:
; compiling DEFMACRO EMIT-TEMPLATE:
; compiling top level form:
; compiling DEFMACRO VOP:
; compiling top level form:
; compiling DEFMACRO VOP*:
; compiling top level form:
; compiling DEF!MACRO SC-CASE:
; compiling top level form:
; compiling DEF!MACRO SC-CASE:
; compiling top level form:
; compiling DEFMACRO SC-IS:
; compiling top level form:
; compiling DEFMACRO DO-IR2-BLOCKS:
; compiling top level form:
; compiling DEFMACRO DO-LIVE-TNS:
; compiling top level form:
; compiling DEFMACRO DO-PHYSENV-IR2-BLOCKS:
; compiling top level form:
; compilation unit finished
; printed 2 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/meta-vmdef.lisp-obj-tmp written
; compilation finished in 0:00:03
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/vm.lisp" (written 02 NOV 2004 08:22:11 AM):
; compiling top level form:
; compiling DEFTYPE SAP-INT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO !DEFINE-STORAGE-CLASSES:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPARAMETER *REGISTER-ARG-TNS*:
; compiling DEFPARAMETER *REGISTER-ARG-TNS*:
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-IMMEDIATE-CONSTANT-SC
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE IMMEDIATE-CONSTANT-SC:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-LOCATION-PRINT-NAME
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE LOCATION-PRINT-NAME:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EXTERN-ALIEN-NAME
; compiling top level form:
; compiling DEFUN EXTERN-ALIEN-NAME:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/vm.lisp
; in: !DEF-VM-SUPPORT-ROUTINE IMMEDIATE-CONSTANT-SC
; (SB!VM:STATIC-SYMBOL-P SB!VM::VALUE)
;
; caught STYLE-WARNING:
; undefined function: STATIC-SYMBOL-P
;
; caught STYLE-WARNING:
; This function is undefined:
; STATIC-SYMBOL-P
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/vm.lisp-obj-tmp written
; compilation finished in 0:00:05
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/early-type.lisp" (written 29 OCT 2004 01:30:43 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-HAIRY-TYPE
; compiling top level form:
; compiling DEFSTRUCT HAIRY-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-UNKNOWN-TYPE
; compiling top level form:
; compiling DEFSTRUCT UNKNOWN-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-NEGATION-TYPE
; compiling top level form:
; compiling DEFSTRUCT NEGATION-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CANONICALIZE-ARGS-TYPE-ARGS
; compiling top level form:
; compiling DEFUN CANONICALIZE-ARGS-TYPE-ARGS:
; compiling top level form:
; recognizing DEFUN ARGS-TYPES
; compiling top level form:
; compiling DEFUN ARGS-TYPES:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MAKE-VALUES-TYPE
; compiling top level form:
; compiling DEFSTRUCT VALUES-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-VALUES-TYPE-CACHED-CACHE-LOOKUP
; compiling top level form:
; compiling DEFUN-CACHED (MAKE-VALUES-TYPE-CACHED :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; recognizing DEFUN MAKE-VALUES-TYPE-CACHED-CACHE-ENTER
; compiling top level form:
; compiling DEFUN-CACHED (MAKE-VALUES-TYPE-CACHED :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; recognizing DEFUN MAKE-VALUES-TYPE-CACHED-CACHE-CLEAR
; compiling top level form:
; compiling DEFUN-CACHED (MAKE-VALUES-TYPE-CACHED :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-VALUES-TYPE-CACHED
; compiling top level form:
; compiling DEFUN-CACHED (MAKE-VALUES-TYPE-CACHED :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; recognizing DEFUN MAKE-VALUES-TYPE
; compiling top level form:
; compiling DEFUN MAKE-VALUES-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MAKE-FUN-TYPE
; compiling top level form:
; compiling DEFSTRUCT FUN-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-FUN-TYPE
; compiling top level form:
; compiling DEFUN MAKE-FUN-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-CONSTANT-TYPE
; compiling top level form:
; compiling DEFSTRUCT CONSTANT-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-NAMED-TYPE
; compiling top level form:
; compiling DEFSTRUCT NAMED-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTYPE FLOAT-FORMAT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MAKE-NUMERIC-TYPE
; compiling top level form:
; compiling DEFSTRUCT NUMERIC-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-NUMERIC-TYPE
; compiling top level form:
; compiling DEFUN MAKE-NUMERIC-TYPE:
; compiling top level form:
; recognizing DEFUN MODIFIED-NUMERIC-TYPE
; compiling top level form:
; compiling DEFUN MODIFIED-NUMERIC-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MAKE-CHARACTER-SET-TYPE
; compiling top level form:
; compiling DEFSTRUCT CHARACTER-SET-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-CHARACTER-SET-TYPE
; compiling top level form:
; compiling DEFUN MAKE-CHARACTER-SET-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MAKE-ARRAY-TYPE
; compiling top level form:
; compiling DEFSTRUCT ARRAY-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |%%MAKE-ARRAY-TYPE-cached-CACHE-LOOKUP|
; compiling top level form:
; compiling DEFINE-CACHED-SYNONYM MAKE-ARRAY-TYPE:
; compiling top level form:
; recognizing DEFUN |%%MAKE-ARRAY-TYPE-cached-CACHE-ENTER|
; compiling top level form:
; compiling DEFINE-CACHED-SYNONYM MAKE-ARRAY-TYPE:
; compiling top level form:
; recognizing DEFUN |%%MAKE-ARRAY-TYPE-cached-CACHE-CLEAR|
; compiling top level form:
; compiling DEFINE-CACHED-SYNONYM MAKE-ARRAY-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |%%MAKE-ARRAY-TYPE-cached|
; compiling top level form:
; compiling DEFINE-CACHED-SYNONYM MAKE-ARRAY-TYPE:
; compiling top level form:
; recognizing DEFUN MAKE-ARRAY-TYPE
; compiling top level form:
; compiling DEFINE-CACHED-SYNONYM MAKE-ARRAY-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MAKE-MEMBER-TYPE
; compiling top level form:
; compiling DEFSTRUCT MEMBER-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-MEMBER-TYPE
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :DOUBLE-FLOAT-NEGATIVE-ZERO)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :DOUBLE-FLOAT-NEGATIVE-ZERO)):
; compiling DEFUN MAKE-MEMBER-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MAKE-UNION-TYPE
; compiling top level form:
; compiling DEFSTRUCT UNION-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |%%MAKE-UNION-TYPE-cached-CACHE-LOOKUP|
; compiling top level form:
; compiling DEFINE-CACHED-SYNONYM MAKE-UNION-TYPE:
; compiling top level form:
; recognizing DEFUN |%%MAKE-UNION-TYPE-cached-CACHE-ENTER|
; compiling top level form:
; compiling DEFINE-CACHED-SYNONYM MAKE-UNION-TYPE:
; compiling top level form:
; recognizing DEFUN |%%MAKE-UNION-TYPE-cached-CACHE-CLEAR|
; compiling top level form:
; compiling DEFINE-CACHED-SYNONYM MAKE-UNION-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |%%MAKE-UNION-TYPE-cached|
; compiling top level form:
; compiling DEFINE-CACHED-SYNONYM MAKE-UNION-TYPE:
; compiling top level form:
; recognizing DEFUN MAKE-UNION-TYPE
; compiling top level form:
; compiling DEFINE-CACHED-SYNONYM MAKE-UNION-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MAKE-INTERSECTION-TYPE
; compiling top level form:
; compiling DEFSTRUCT INTERSECTION-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TYPE-*-TO-T
; compiling top level form:
; compiling DEFUN TYPE-*-TO-T:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MAKE-CONS-TYPE
; compiling top level form:
; compiling DEFSTRUCT CONS-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-CONS-TYPE
; compiling top level form:
; compiling DEFUN MAKE-CONS-TYPE:
; compiling top level form:
; recognizing DEFUN CONS-TYPE-LENGTH-INFO
; compiling top level form:
; compiling DEFUN CONS-TYPE-LENGTH-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALUES-SPECIFIER-TYPE-CACHE-LOOKUP
; compiling top level form:
; compiling DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION (LAMBDA # #) :HASH-BITS 10 ...):
; compiling top level form:
; recognizing DEFUN VALUES-SPECIFIER-TYPE-CACHE-ENTER
; compiling top level form:
; compiling DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION (LAMBDA # #) :HASH-BITS 10 ...):
; compiling top level form:
; recognizing DEFUN VALUES-SPECIFIER-TYPE-CACHE-CLEAR
; compiling top level form:
; compiling DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION (LAMBDA # #) :HASH-BITS 10 ...):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALUES-SPECIFIER-TYPE
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/early-type.lisp
; in:
; DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION
; (LAMBDA (X) (LOGAND (SXHASH X) 1023))
; :HASH-BITS
; 10
; ...)
; (OR (SB!KERNEL:BUILT-IN-CLASSOID-TRANSLATION SB!KERNEL::SPEC) SB!KERNEL::SPEC)
; --> LET IF OR
; ==>
; SB!KERNEL::SPEC
;
; note: deleting unreachable code
; (IF (TYPEP SB!KERNEL::SPEC 'SB!KERNEL:BUILT-IN-CLASSOID)
; (OR (SB!KERNEL:BUILT-IN-CLASSOID-TRANSLATION SB!KERNEL::SPEC)
; SB!KERNEL::SPEC)
; SB!KERNEL::SPEC)
; ==>
; SB!KERNEL::SPEC
;
; note: deleting unreachable code
; (SB!KERNEL:BUILT-IN-CLASSOID-TRANSLATION SB!KERNEL::SPEC)
; ==>
; SB!KERNEL::SPEC
;
; note: deleting unreachable code
; (TYPEP SB!KERNEL::SPEC 'SB!KERNEL:BUILT-IN-CLASSOID)
; --> SB-KERNEL:%TYPEP
; ==>
; SB!KERNEL::SPEC
;
; note: deleting unreachable code
; compiling DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION (LAMBDA # #) :HASH-BITS 10 ...):
; compiling top level form:
; recognizing DEFUN SPECIFIER-TYPE
; compiling top level form:
; compiling DEFUN SPECIFIER-TYPE:
; compiling top level form:
; recognizing DEFUN SINGLE-VALUE-SPECIFIER-TYPE
; compiling top level form:
; compiling DEFUN SINGLE-VALUE-SPECIFIER-TYPE:
; compiling top level form:
; recognizing DEFUN TYPE-EXPAND
; compiling top level form:
; compiling DEFUN TYPE-EXPAND:
; compiling top level form:
; recognizing DEFUN %NOTE-TYPE-DEFINED
; compiling top level form:
; compiling DEFUN %NOTE-TYPE-DEFINED:
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/early-type.lisp
; in:
; DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION
; (LAMBDA (X) (LOGAND (SXHASH X) 1023))
; :HASH-BITS
; 10
; ...)
; (TYPEP SB!KERNEL::SPEC 'SB!KERNEL:BUILT-IN-CLASSOID)
;
; caught STYLE-WARNING:
; undefined type: BUILT-IN-CLASSOID
; (SB!KERNEL:BUILT-IN-CLASSOID-TRANSLATION SB!KERNEL::SPEC)
;
; caught STYLE-WARNING:
; undefined function: BUILT-IN-CLASSOID-TRANSLATION
;
; caught STYLE-WARNING:
; undefined type: CLASSOID
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/early-type.lisp
; in:
; DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION
; (LAMBDA (X) (LOGAND (SXHASH X) 1023))
; :HASH-BITS
; 10
; ...)
; (TYPEP SB!KERNEL::SPEC 'SB!KERNEL:CLASSOID)
; ==>
; (SB-KERNEL:%TYPEP SB!KERNEL::SPEC 'SB!KERNEL:CLASSOID)
;
; caught STYLE-WARNING:
; undefined type: CLASSOID
;
; caught STYLE-WARNING:
; undefined type: CLASSOID
; in: DEFUN CONS-TYPE-LENGTH-INFO
; (SB!KERNEL:CSUBTYPEP CDR (SB!KERNEL:SPECIFIER-TYPE 'NULL))
;
; caught STYLE-WARNING:
; undefined function: CSUBTYPEP
; in: DEFUN MAKE-MEMBER-TYPE
; (SB!KERNEL:CTYPE-OF 0.0)
;
; caught STYLE-WARNING:
; undefined function: CTYPE-OF
; in:
; DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION
; (LAMBDA (X) (LOGAND (SXHASH X) 1023))
; :HASH-BITS
; 10
; ...)
; (SB!KERNEL:FIND-CLASSOID SB!KERNEL::SPEC)
;
; caught STYLE-WARNING:
; undefined function: FIND-CLASSOID
; in: DEFUN ARGS-TYPES
; #'SB!KERNEL:KEY-INFO-NAME
;
; caught STYLE-WARNING:
; undefined function: KEY-INFO-NAME
; (SB!KERNEL:MAKE-KEY-INFO :NAME
; SB!KERNEL::KWD
; :TYPE
; (SB!KERNEL:SINGLE-VALUE-SPECIFIER-TYPE
; (SECOND SB!KERNEL::KEY)))
;
; caught STYLE-WARNING:
; undefined function: MAKE-KEY-INFO
; in: DEFUN MAKE-VALUES-TYPE
; (SB!KERNEL:MAKE-SHORT-VALUES-TYPE SB!KERNEL::REQUIRED)
;
; caught STYLE-WARNING:
; undefined function: MAKE-SHORT-VALUES-TYPE
; in: DEFUN ARGS-TYPES
; (SB!INT:PARSE-LAMBDA-LIST-LIKE-THING SB!KERNEL::LAMBDA-LIST-LIKE-THING)
;
; caught STYLE-WARNING:
; undefined function: PARSE-LAMBDA-LIST-LIKE-THING
; in: DEFUN CONS-TYPE-LENGTH-INFO
; (SB!KERNEL:TYPE-INTERSECTION (SB!KERNEL:SPECIFIER-TYPE 'CONS) CDR)
;
; caught STYLE-WARNING:
; undefined function: TYPE-INTERSECTION
; (SB!KERNEL:TYPE/=
; (SB!KERNEL:TYPE-INTERSECTION (SB!KERNEL:SPECIFIER-TYPE 'CONS) CDR)
; SB!KERNEL:*EMPTY-TYPE*)
;
; caught STYLE-WARNING:
; undefined function: TYPE/=
; in: DEFUN TYPE-*-TO-T
; (SB!KERNEL:TYPE= TYPE SB!KERNEL:*WILD-TYPE*)
;
; caught STYLE-WARNING:
; undefined function: TYPE=
;
; caught STYLE-WARNING:
; These functions are undefined:
; BUILT-IN-CLASSOID-TRANSLATION CSUBTYPEP CTYPE-OF FIND-CLASSOID KEY-INFO-NAME MAKE-KEY-INFO MAKE-SHORT-VALUES-TYPE PARSE-LAMBDA-LIST-LIKE-THING TYPE-INTERSECTION TYPE/= TYPE=
;
; caught STYLE-WARNING:
; These types are undefined:
; BUILT-IN-CLASSOID CLASSOID
;
; compilation unit finished
; caught 17 STYLE-WARNING conditions
; printed 4 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/early-type.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/class.lisp" (written 02 NOV 2004 08:22:06 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!STRUCT (CLASSOID (:MAKE-LOAD-FORM-FUN CLASSOID-MAKE-LOAD-FORM-FUN) (:INCLUDE CTYPE #) (:CONSTRUCTOR NIL) (:PRINT-OBJECT #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CLASSOID-MAKE-LOAD-FORM-FUN
; compiling top level form:
; compiling DEFUN CLASSOID-MAKE-LOAD-FORM-FUN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-LAYOUT
; compiling top level form:
; compiling DEF!STRUCT (LAYOUT (:MAKE-LOAD-FORM-FUN MAKE-LOAD-FORM-FOR-LAYOUT)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; recognizing DEFUN LAYOUT-PROPER-NAME
; compiling top level form:
; compiling DEFUN LAYOUT-PROPER-NAME:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LAYOUT-CLOS-HASH
; compiling top level form:
; compiling DEFUN LAYOUT-CLOS-HASH:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/class.lisp
; in: DEFUN LAYOUT-CLOS-HASH
; (SB!EXT:TRULY-THE SB!INT:INDEX
; (SB!KERNEL:%INSTANCE-REF SB!KERNEL:LAYOUT
; (1+ SB!KERNEL::I)))
; ==>
; (THE SB!INT:INDEX
; (SB!KERNEL:%INSTANCE-REF SB!KERNEL:LAYOUT (1+ SB!KERNEL::I)))
;
; note: type assertion too complex to check:
; (VALUES (MOD 536870911) &REST T).
; compiling top level form:
; compiling top level form:
; recognizing DEFUN (SETF LAYOUT-CLOS-HASH)
; compiling top level form:
; compiling DEFUN (SETF LAYOUT-CLOS-HASH):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN RANDOM-LAYOUT-CLOS-HASH
; compiling top level form:
; compiling DEFUN RANDOM-LAYOUT-CLOS-HASH:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-LAYOUT
; compiling top level form:
; compiling DEFUN FIND-LAYOUT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INIT-OR-CHECK-LAYOUT
; compiling top level form:
; compiling DEFUN INIT-OR-CHECK-LAYOUT:
; compiling top level form:
; recognizing DEFUN MAKE-LOAD-FORM-FOR-LAYOUT
; compiling top level form:
; compiling DEFUN MAKE-LOAD-FORM-FOR-LAYOUT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN REDEFINE-LAYOUT-WARNING
; compiling top level form:
; compiling DEFUN REDEFINE-LAYOUT-WARNING:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHECK-LAYOUT
; compiling top level form:
; compiling DEFUN CHECK-LAYOUT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-AND-INIT-OR-CHECK-LAYOUT
; compiling top level form:
; compiling DEFUN FIND-AND-INIT-OR-CHECK-LAYOUT:
; compiling top level form:
; recognizing DEFUN REGISTER-LAYOUT
; compiling top level form:
; compiling DEFUN REGISTER-LAYOUT:
; compiling top level form:
; recognizing DEFUN ORDER-LAYOUT-INHERITS
; compiling top level form:
; compiling DEFUN ORDER-LAYOUT-INHERITS:
; compiling top level form:
; recognizing DEFUN TOPOLOGICAL-SORT
; compiling top level form:
; compiling DEFUN TOPOLOGICAL-SORT:
; compiling top level form:
; recognizing DEFUN STD-COMPUTE-CLASS-PRECEDENCE-LIST
; compiling top level form:
; compiling DEFUN STD-COMPUTE-CLASS-PRECEDENCE-LIST:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-UNDEFINED-CLASSOID
; compiling top level form:
; compiling DEF!STRUCT (UNDEFINED-CLASSOID (:INCLUDE CLASSOID) (:CONSTRUCTOR MAKE-UNDEFINED-CLASSOID #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-BUILT-IN-CLASSOID
; compiling top level form:
; compiling DEF!STRUCT (BUILT-IN-CLASSOID (:INCLUDE CLASSOID) (:CONSTRUCTOR MAKE-BUILT-IN-CLASSOID)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-STRUCTURE-CLASSOID
; compiling top level form:
; compiling DEF!STRUCT (STRUCTURE-CLASSOID (:INCLUDE BASIC-STRUCTURE-CLASSOID) (:CONSTRUCTOR MAKE-STRUCTURE-CLASSOID)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-FUNCALLABLE-STRUCTURE-CLASSOID
; compiling top level form:
; compiling DEF!STRUCT (FUNCALLABLE-STRUCTURE-CLASSOID (:INCLUDE BASIC-STRUCTURE-CLASSOID) (:CONSTRUCTOR MAKE-FUNCALLABLE-STRUCTURE-CLASSOID)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-CLASSOID-CELL
; compiling top level form:
; compiling DEF!STRUCT (CLASSOID-CELL (:CONSTRUCTOR MAKE-CLASSOID-CELL #) (:MAKE-LOAD-FORM-FUN #) (:PRINT-OBJECT #)):
; compiling top level form:
; compiling top level form:
; compiling DEF!STRUCT (CLASSOID-CELL (:CONSTRUCTOR MAKE-CLASSOID-CELL #) (:MAKE-LOAD-FORM-FUN #) (:PRINT-OBJECT #)):
; compiling top level form:
; compiling top level form:
; compiling DEF!STRUCT (CLASSOID-CELL (:CONSTRUCTOR MAKE-CLASSOID-CELL #) (:MAKE-LOAD-FORM-FUN #) (:PRINT-OBJECT #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-CLASSOID-CELL
; compiling top level form:
; compiling DEFUN FIND-CLASSOID-CELL:
; compiling top level form:
; recognizing DEFUN FIND-CLASSOID
; compiling top level form:
; compiling DEFUN FIND-CLASSOID:
; compiling top level form:
; recognizing DEFUN (SETF FIND-CLASSOID)
; compiling top level form:
; compiling DEFUN (SETF FIND-CLASSOID):
; compiling top level form:
; recognizing DEFUN INSURED-FIND-CLASSOID
; compiling top level form:
; compiling DEFUN INSURED-FIND-CLASSOID:
; compiling top level form:
; recognizing DEFUN CLASSOID-PROPER-NAME
; compiling top level form:
; compiling DEFUN CLASSOID-PROPER-NAME:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CLASSOID-SIMPLE-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CLASSOID-SIMPLE-SUBTYPEP-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-SUBTYPEP):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SEALED-CLASS-INTERSECTION2
; compiling top level form:
; compiling DEFUN SEALED-CLASS-INTERSECTION2:
; compiling top level form:
; recognizing DEFUN CLASSOID-SIMPLE-INTERSECTION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-INTERSECTION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CLASSOID-COMPLEX-SUBTYPEP-ARG2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CLASSOID :COMPLEX-SUBTYPEP-ARG2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CLASSOID-NEGATE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CLASSOID :NEGATE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CLASSOID-UNPARSE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CLASSOID :UNPARSE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-STANDARD-CLASSOID
; compiling top level form:
; compiling DEF!STRUCT (STANDARD-CLASSOID (:INCLUDE STD-CLASSOID) (:CONSTRUCTOR MAKE-STANDARD-CLASSOID)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-RANDOM-PCL-CLASSOID
; compiling top level form:
; compiling DEF!STRUCT (RANDOM-PCL-CLASSOID (:INCLUDE STD-CLASSOID) (:CONSTRUCTOR MAKE-RANDOM-PCL-CLASSOID)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; in: COMMON-LISP:LAMBDA COMMON-LISP:NIL
; '(:OR)
;
; note: deleting unreachable code
; '(:AND)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; '(:OR)
;
; note: deleting unreachable code
; '(:AND)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; compiling top level form:
; compiling top level form:
; compiling !COLD-INIT-FORMS (DOLIST (X *BUILT-IN-CLASSES*) (DESTRUCTURING-BIND # X # #)):
; compiling top level form:
; compiling top level form:
; compiling !COLD-INIT-FORMS (/SHOW0 "about to define temporary STANDARD-CLASSes"):
; compiling !COLD-INIT-FORMS (/SHOW0 "about to define temporary STANDARD-CLASSes"):
; compiling top level form:
; compiling !COLD-INIT-FORMS (DOLIST (X *BUILT-IN-CLASSES*) (DESTRUCTURING-BIND # X #)):
; recognizing DEFUN MODIFY-CLASSOID
; compiling top level form:
; compiling DEFUN MODIFY-CLASSOID:
; compiling top level form:
; recognizing DEFUN INVALIDATE-LAYOUT
; compiling top level form:
; compiling DEFUN INVALIDATE-LAYOUT:
; compiling top level form:
; recognizing DEFUN !CLASS-FINALIZE
; compiling top level form:
; compiling DEFUN !CLASS-FINALIZE:
; compiling top level form:
; compiling !COLD-INIT-FORMS (SETQ *BUILT-IN-CLASS-CODES* (LET* # #)):
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/class.lisp
; in: DEFUN MODIFY-CLASSOID
; (SB!KERNEL::CLEAR-TYPE-CACHES)
;
; caught STYLE-WARNING:
; undefined function: CLEAR-TYPE-CACHES
; in: DEFUN MAKE-LOAD-FORM-FOR-LAYOUT
; (SB!KERNEL::COMPILER-ERROR "can't dump reference to obsolete class: ~S"
; (SB!KERNEL:LAYOUT-CLASSOID SB!KERNEL:LAYOUT))
;
; caught STYLE-WARNING:
; undefined function: COMPILER-ERROR
; in: DEFUN SEALED-CLASS-INTERSECTION2
; (SB!KERNEL::RES (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS))
; --> PROGN SETQ THE
; ==>
; (SB!KERNEL:TYPE-UNION (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS)
; #:RES-N-VALUE-1507)
;
; caught STYLE-WARNING:
; undefined function: TYPE-UNION
;
; caught STYLE-WARNING:
; These functions are undefined:
; CLEAR-TYPE-CACHES COMPILER-ERROR TYPE-UNION
;
; compilation unit finished
; caught 4 STYLE-WARNING conditions
; printed 8 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/class.lisp-obj-tmp written
; compilation finished in 0:00:04
STYLE-WARNING: redefining LAYOUT-PROPER-NAME in DEFUN
STYLE-WARNING: redefining REGISTER-LAYOUT in DEFUN
STYLE-WARNING: redefining FIND-CLASSOID in DEFUN
STYLE-WARNING: redefining (SETF FIND-CLASSOID) in DEFUN
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/vm-array.lisp" (written 02 NOV 2004 08:22:09 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN !MAKE-SAETP
; compiling top level form:
; compiling DEFSTRUCT SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES:
; compiling top level form (SB-KERNEL:FIND-CLASSOID-CELL (QUOTE STANDARD-OBJECT)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; in: COMMON-LISP:LAMBDA COMMON-LISP:NIL
; '(:OR)
;
; note: deleting unreachable code
; '(:AND)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; '(:OR)
;
; note: deleting unreachable code
; '(:AND)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; compiling top level form:
; compiling DEFPARAMETER *SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES*:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFVAR *SIMPLE-ARRAY-PRIMITIVE-TYPES*:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compilation unit finished
; printed 7 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/vm-array.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/primtype.lisp" (written 11 NOV 2004 12:54:54 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-PRIMITIVE-TYPE-OF
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE PRIMITIVE-TYPE-OF:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-PRIMITIVE-TYPE
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE PRIMITIVE-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PRIMITIVE-TYPE-AUX-CACHE-LOOKUP
; compiling top level form:
; compiling DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION (LAMBDA # #) :HASH-BITS 9 ...):
; compiling top level form:
; recognizing DEFUN PRIMITIVE-TYPE-AUX-CACHE-ENTER
; compiling top level form:
; compiling DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION (LAMBDA # #) :HASH-BITS 9 ...):
; compiling top level form:
; recognizing DEFUN PRIMITIVE-TYPE-AUX-CACHE-CLEAR
; compiling top level form:
; compiling DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION (LAMBDA # #) :HASH-BITS 9 ...):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PRIMITIVE-TYPE-AUX
; compiling top level form:
; compiling DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION (LAMBDA # #) :HASH-BITS 9 ...):
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/primtype.lisp
; in:
; DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION
; (LAMBDA (X) (LOGAND (TYPE-HASH-VALUE X) 511))
; :HASH-BITS
; 9
; ...)
; (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION))
;
; caught STYLE-WARNING:
; undefined function: CSUBTYPEP
; in: !DEF-VM-SUPPORT-ROUTINE PRIMITIVE-TYPE-OF
; (SB!KERNEL:CTYPE-OF SB!VM::OBJECT)
;
; caught STYLE-WARNING:
; undefined function: CTYPE-OF
; in:
; DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION
; (LAMBDA (X) (LOGAND (TYPE-HASH-VALUE X) 511))
; :HASH-BITS
; 9
; ...)
; (SB!KERNEL:TYPE-SPECIFIER SB!VM::ETYPE)
;
; caught STYLE-WARNING:
; undefined function: TYPE-SPECIFIER
; (SB!KERNEL:TYPE= TYPE (SB!KERNEL:SPECIFIER-TYPE 'LIST))
;
; caught STYLE-WARNING:
; undefined function: TYPE=
;
; caught STYLE-WARNING:
; These functions are undefined:
; CSUBTYPEP CTYPE-OF TYPE-SPECIFIER TYPE=
;
; compilation unit finished
; caught 5 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/primtype.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/parse-lambda-list.lisp" (written 21 DEC 2004 04:52:09 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PARSE-LAMBDA-LIST-LIKE-THING
; compiling top level form:
; compiling DEFUN PARSE-LAMBDA-LIST-LIKE-THING:
; compiling top level form:
; recognizing DEFUN PARSE-LAMBDA-LIST
; compiling top level form:
; compiling DEFUN PARSE-LAMBDA-LIST:
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/parse-lambda-list.lisp
; in: DEFUN PARSE-LAMBDA-LIST
; (SB!C:COMPILER-ERROR "~A is not a symbol: ~S" SB!C::WHY SB!C::X)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-ERROR
; in: DEFUN PARSE-LAMBDA-LIST-LIKE-THING
; (SB!C:COMPILER-ERROR "misplaced &OPTIONAL in lambda list: ~S" LIST)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-ERROR
; (SB!INT:STYLE-WARN "suspicious variable in lambda list: ~S." SB!C::ARG)
;
; caught STYLE-WARNING:
; undefined function: STYLE-WARN
;
; caught STYLE-WARNING:
; These functions are undefined:
; COMPILER-ERROR STYLE-WARN
;
; compilation unit finished
; caught 4 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/parse-lambda-list.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/host-alieneval.lisp" (written 21 DEC 2004 04:52:05 AM):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIGN-OFFSET
; compiling top level form:
; compiling DEFUN ALIGN-OFFSET:
; compiling top level form:
; recognizing DEFUN GUESS-ALIGNMENT
; compiling top level form:
; compiling DEFUN GUESS-ALIGNMENT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-TYPE-CLASS
; compiling top level form:
; compiling DEFSTRUCT ALIEN-TYPE-CLASS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; recognizing DEFUN ALIEN-TYPE-CLASS-OR-LOSE
; compiling top level form:
; compiling DEFUN ALIEN-TYPE-CLASS-OR-LOSE:
; compiling top level form:
; recognizing DEFUN CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY
; compiling top level form:
; compiling DEFUN CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN METHOD-SLOT
; compiling top level form:
; compiling DEFUN METHOD-SLOT:
; compiling top level form:
; compiling DEF!MACRO DEFINE-ALIEN-TYPE-CLASS:
; compiling top level form:
; compiling DEF!MACRO DEFINE-ALIEN-TYPE-CLASS:
; compiling top level form:
; compiling DEF!MACRO DEFINE-ALIEN-TYPE-METHOD:
; compiling top level form:
; compiling DEF!MACRO DEFINE-ALIEN-TYPE-METHOD:
; compiling top level form:
; compiling DEF!MACRO INVOKE-ALIEN-TYPE-METHOD:
; compiling top level form:
; compiling DEF!MACRO INVOKE-ALIEN-TYPE-METHOD:
; compiling top level form:
; recognizing DEFUN AUXILIARY-TYPE-DEFINITIONS
; compiling top level form:
; compiling DEFUN AUXILIARY-TYPE-DEFINITIONS:
; compiling top level form:
; compiling DEF!MACRO WITH-AUXILIARY-ALIEN-TYPES:
; compiling top level form:
; compiling DEF!MACRO WITH-AUXILIARY-ALIEN-TYPES:
; compiling top level form:
; recognizing DEFUN PARSE-ALIEN-TYPE
; compiling top level form:
; compiling DEFUN PARSE-ALIEN-TYPE:
; compiling top level form:
; recognizing DEFUN AUXILIARY-ALIEN-TYPE
; compiling top level form:
; compiling DEFUN AUXILIARY-ALIEN-TYPE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/host-alieneval.lisp
; in: DEFUN AUXILIARY-ALIEN-TYPE
; (FIND-IF #'SB!ALIEN::AUX-DEFN-MATCHES SB!ALIEN::*NEW-AUXILIARY-TYPES*)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION-IF
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; (FIND-IF #'SB!ALIEN::AUX-DEFN-MATCHES
; (SB!ALIEN::AUXILIARY-TYPE-DEFINITIONS SB!ALIEN::ENV))
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION-IF
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN (SETF AUXILIARY-ALIEN-TYPE)
; compiling top level form:
; compiling DEFUN (SETF AUXILIARY-ALIEN-TYPE):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/host-alieneval.lisp
; in: DEFUN (SETF AUXILIARY-ALIEN-TYPE)
; (FIND-IF #'SB!ALIEN::AUX-DEFN-MATCHES SB!ALIEN::*NEW-AUXILIARY-TYPES*)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION-IF
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; (FIND-IF #'SB!ALIEN::AUX-DEFN-MATCHES
; (SB!ALIEN::AUXILIARY-TYPE-DEFINITIONS SB!ALIEN::ENV))
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION-IF
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN VERIFY-LOCAL-AUXILIARIES-OKAY
; compiling top level form:
; compiling DEFUN VERIFY-LOCAL-AUXILIARIES-OKAY:
; compiling top level form:
; recognizing DEFUN UNPARSE-ALIEN-TYPE
; compiling top level form:
; compiling DEFUN UNPARSE-ALIEN-TYPE:
; compiling top level form:
; recognizing DEFUN %UNPARSE-ALIEN-TYPE
; compiling top level form:
; compiling DEFUN %UNPARSE-ALIEN-TYPE:
; compiling top level form:
; compiling DEF!MACRO DEFINE-ALIEN-TYPE-TRANSLATOR:
; compiling top level form:
; compiling DEF!MACRO DEFINE-ALIEN-TYPE-TRANSLATOR:
; compiling top level form:
; recognizing DEFUN %DEFINE-ALIEN-TYPE-TRANSLATOR
; compiling top level form:
; compiling DEFUN %DEFINE-ALIEN-TYPE-TRANSLATOR:
; compiling top level form:
; compiling DEF!MACRO DEFINE-ALIEN-TYPE:
; compiling top level form:
; compiling DEF!MACRO DEFINE-ALIEN-TYPE:
; compiling top level form:
; compiling DEF!MACRO DEF-ALIEN-TYPE:
; compiling top level form:
; compiling DEF!MACRO DEF-ALIEN-TYPE:
; compiling top level form:
; recognizing DEFUN %DEF-AUXILIARY-ALIEN-TYPES
; compiling top level form:
; compiling DEFUN %DEF-AUXILIARY-ALIEN-TYPES:
; compiling top level form:
; recognizing DEFUN %DEFINE-ALIEN-TYPE
; compiling top level form:
; compiling DEFUN %DEFINE-ALIEN-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-TYPE
; compiling top level form:
; compiling DEF!STRUCT (ALIEN-TYPE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) (:CONSTRUCTOR MAKE-ALIEN-TYPE #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-SYSTEM-AREA-POINTER-TYPE
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-CLASS (SYSTEM-AREA-POINTER):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-SYSTEM-AREA-POINTER-TYPE-TRANSLATOR
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-TRANSLATOR SYSTEM-AREA-POINTER:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SYSTEM-AREA-POINTER-UNPARSE-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :UNPARSE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SYSTEM-AREA-POINTER-LISP-REP-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :LISP-REP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SYSTEM-AREA-POINTER-ALIEN-REP-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ALIEN-REP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SYSTEM-AREA-POINTER-NATURALIZE-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :NATURALIZE-GEN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SYSTEM-AREA-POINTER-DEPORT-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :DEPORT-GEN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SYSTEM-AREA-POINTER-EXTRACT-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :EXTRACT-GEN):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-ALIEN-VALUE-TYPE
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-CLASS (ALIEN-VALUE :INCLUDE SYSTEM-AREA-POINTER):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-VALUE-LISP-REP-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :LISP-REP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-VALUE-NATURALIZE-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :NATURALIZE-GEN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-VALUE-DEPORT-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :DEPORT-GEN):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-HEAP-ALIEN-INFO
; compiling top level form:
; compiling DEF!STRUCT (HEAP-ALIEN-INFO (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; recognizing DEFUN ALIEN-TYPE-=
; compiling top level form:
; compiling DEFUN ALIEN-TYPE-=:
; compiling top level form:
; recognizing DEFUN ALIEN-SUBTYPE-P
; compiling top level form:
; compiling DEFUN ALIEN-SUBTYPE-P:
; compiling top level form:
; recognizing DEFUN COMPUTE-NATURALIZE-LAMBDA
; compiling top level form:
; compiling DEFUN COMPUTE-NATURALIZE-LAMBDA:
; compiling top level form:
; recognizing DEFUN COMPUTE-DEPORT-LAMBDA
; compiling top level form:
; compiling DEFUN COMPUTE-DEPORT-LAMBDA:
; compiling top level form:
; recognizing DEFUN COMPUTE-EXTRACT-LAMBDA
; compiling top level form:
; compiling DEFUN COMPUTE-EXTRACT-LAMBDA:
; compiling top level form:
; recognizing DEFUN COMPUTE-DEPOSIT-LAMBDA
; compiling top level form:
; compiling DEFUN COMPUTE-DEPOSIT-LAMBDA:
; compiling top level form:
; recognizing DEFUN COMPUTE-LISP-REP-TYPE
; compiling top level form:
; compiling DEFUN COMPUTE-LISP-REP-TYPE:
; compiling top level form:
; recognizing DEFUN COMPUTE-ALIEN-REP-TYPE
; compiling top level form:
; compiling DEFUN COMPUTE-ALIEN-REP-TYPE:
; compiling top level form:
; recognizing DEFUN ROOT-UNPARSE-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ROOT :UNPARSE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ROOT-TYPE=-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ROOT :TYPE=):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ROOT-SUBTYPEP-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ROOT :SUBTYPEP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ROOT-LISP-REP-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ROOT :LISP-REP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ROOT-ALIEN-REP-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ROOT :ALIEN-REP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ROOT-NATURALIZE-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ROOT :NATURALIZE-GEN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ROOT-DEPORT-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-GEN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ROOT-EXTRACT-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ROOT :EXTRACT-GEN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ROOT-DEPOSIT-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPOSIT-GEN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ROOT-ARG-TN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ROOT :ARG-TN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ROOT-RESULT-TN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ROOT :RESULT-TN):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-INTEGER-TYPE
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-CLASS (INTEGER):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-SIGNED-TYPE-TRANSLATOR
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-TRANSLATOR SIGNED:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-INTEGER-TYPE-TRANSLATOR
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-UNSIGNED-TYPE-TRANSLATOR
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-TRANSLATOR UNSIGNED:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INTEGER-UNPARSE-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (INTEGER :UNPARSE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INTEGER-TYPE=-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (INTEGER :TYPE=):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INTEGER-LISP-REP-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (INTEGER :LISP-REP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INTEGER-ALIEN-REP-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (INTEGER :ALIEN-REP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INTEGER-NATURALIZE-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (INTEGER :NATURALIZE-GEN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INTEGER-DEPORT-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (INTEGER :DEPORT-GEN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INTEGER-EXTRACT-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (INTEGER :EXTRACT-GEN):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-BOOLEAN-TYPE
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-CLASS (BOOLEAN :INCLUDE INTEGER :INCLUDE-ARGS (SIGNED)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-BOOLEAN-TYPE-TRANSLATOR
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-TRANSLATOR BOOLEAN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BOOLEAN-UNPARSE-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :UNPARSE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BOOLEAN-LISP-REP-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :LISP-REP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BOOLEAN-NATURALIZE-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :NATURALIZE-GEN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BOOLEAN-DEPORT-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :DEPORT-GEN):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-ENUM-TYPE
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-CLASS (ENUM :INCLUDE (INTEGER #) :INCLUDE-ARGS (SIGNED)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-ENUM-TYPE-TRANSLATOR
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-TRANSLATOR ENUM:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PARSE-ENUM
; compiling top level form:
; compiling DEFUN PARSE-ENUM:
; compiling top level form:
; recognizing DEFUN ENUM-UNPARSE-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ENUM :UNPARSE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ENUM-TYPE=-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ENUM :TYPE=):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ENUM-LISP-REP-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ENUM :LISP-REP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ENUM-NATURALIZE-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ENUM :NATURALIZE-GEN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ENUM-DEPORT-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ENUM :DEPORT-GEN):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-FLOAT-TYPE
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-CLASS (FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLOAT-UNPARSE-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (FLOAT :UNPARSE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLOAT-LISP-REP-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (FLOAT :LISP-REP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLOAT-ALIEN-REP-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (FLOAT :ALIEN-REP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLOAT-NATURALIZE-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (FLOAT :NATURALIZE-GEN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLOAT-DEPORT-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (FLOAT :DEPORT-GEN):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-SINGLE-FLOAT-TYPE
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-CLASS (SINGLE-FLOAT :INCLUDE (FLOAT #) :INCLUDE-ARGS (TYPE)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-SINGLE-FLOAT-TYPE-TRANSLATOR
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-TRANSLATOR SINGLE-FLOAT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SINGLE-FLOAT-EXTRACT-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :EXTRACT-GEN):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-DOUBLE-FLOAT-TYPE
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-CLASS (DOUBLE-FLOAT :INCLUDE (FLOAT #) :INCLUDE-ARGS (TYPE)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-DOUBLE-FLOAT-TYPE-TRANSLATOR
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-TRANSLATOR DOUBLE-FLOAT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DOUBLE-FLOAT-EXTRACT-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :EXTRACT-GEN):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-POINTER-TYPE
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-CLASS (POINTER :INCLUDE (ALIEN-VALUE #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-*-TYPE-TRANSLATOR
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-TRANSLATOR *:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN POINTER-UNPARSE-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (POINTER :UNPARSE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN POINTER-TYPE=-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (POINTER :TYPE=):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN POINTER-SUBTYPEP-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (POINTER :SUBTYPEP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN POINTER-DEPORT-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (POINTER :DEPORT-GEN):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-MEM-BLOCK-TYPE
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-CLASS (MEM-BLOCK :INCLUDE ALIEN-VALUE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MEM-BLOCK-EXTRACT-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :EXTRACT-GEN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MEM-BLOCK-DEPOSIT-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :DEPOSIT-GEN):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-ARRAY-TYPE
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-CLASS (ARRAY :INCLUDE MEM-BLOCK):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-ARRAY-TYPE-TRANSLATOR
; compiling top level form:
; in: LAMBDA NIL
; (FIND-IF-NOT (LAMBDA (SB!ALIEN::X) (TYPEP SB!ALIEN::X 'SB!INT:INDEX))
; (REST SB!ALIEN::DIMS))
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION-IF-NOT
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY
; (FIND-IF-NOT (LAMBDA (SB!ALIEN::X) (TYPEP SB!ALIEN::X 'SB!INT:INDEX))
; (REST SB!ALIEN::DIMS))
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION-IF-NOT
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ARRAY-UNPARSE-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ARRAY :UNPARSE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ARRAY-TYPE=-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ARRAY :TYPE=):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ARRAY-SUBTYPEP-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (ARRAY :SUBTYPEP):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-RECORD-FIELD
; compiling top level form:
; compiling DEF!STRUCT (ALIEN-RECORD-FIELD (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-RECORD-TYPE
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-CLASS (RECORD :INCLUDE MEM-BLOCK):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-STRUCT-TYPE-TRANSLATOR
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-TRANSLATOR STRUCT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-UNION-TYPE-TRANSLATOR
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-TRANSLATOR UNION:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PARSE-ALIEN-RECORD-TYPE
; compiling top level form:
; compiling DEFUN PARSE-ALIEN-RECORD-TYPE:
; compiling top level form:
; recognizing DEFUN PARSE-ALIEN-RECORD-FIELDS
; compiling top level form:
; compiling DEFUN PARSE-ALIEN-RECORD-FIELDS:
; compiling top level form:
; recognizing DEFUN RECORD-UNPARSE-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (RECORD :UNPARSE):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-METHOD (RECORD :UNPARSE)
; 'SB!ALIEN::???
;
; note: deleting unreachable code
; compiling top level form:
; compiling top level form:
; recognizing DEFUN RECORD-FIELDS-MATCH-P
; compiling top level form:
; compiling DEFUN RECORD-FIELDS-MATCH-P:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN RECORD-TYPE=-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (RECORD :TYPE=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-FUN-TYPE
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-CLASS (FUN :INCLUDE MEM-BLOCK):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-FUNCTION-TYPE-TRANSLATOR
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-TRANSLATOR FUNCTION:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FUN-UNPARSE-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (FUN :UNPARSE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FUN-TYPE=-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (FUN :TYPE=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-VALUES-TYPE
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-CLASS (VALUES):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-VALUES-TYPE-TRANSLATOR
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-TRANSLATOR VALUES:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALUES-UNPARSE-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (VALUES :UNPARSE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALUES-TYPE=-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (VALUES :TYPE=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-LOCAL-ALIEN-INFO
; compiling top level form:
; compiling DEF!STRUCT (LOCAL-ALIEN-INFO (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) (:CONSTRUCTOR MAKE-LOCAL-ALIEN-INFO #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY ADDR:
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/host-alieneval.lisp
; in: DEFUN PARSE-ALIEN-TYPE
; (DEFUN SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE (TYPE SB!ALIEN::ENV)
; (DECLARE (TYPE (OR SB!KERNEL:LEXENV NULL) SB!ALIEN::ENV))
; (IF (CONSP TYPE)
; (LET (#)
; (UNLESS SB!ALIEN::TRANSLATOR #)
; (FUNCALL SB!ALIEN::TRANSLATOR TYPE SB!ALIEN::ENV))
; (ECASE (SB!INT:INFO :ALIEN-TYPE :KIND TYPE)
; (:PRIMITIVE #)
; (:DEFINED #)
; (:UNKNOWN #))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> LOCALLY SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF
; --> TYPEP LET OR LET TYPEP
; ==>
; (SB-KERNEL:%TYPEP #:ONCE-ONLY-377 'SB!KERNEL:LEXENV)
;
; caught STYLE-WARNING:
; undefined type: SB!KERNEL:LEXENV
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> LOCALLY SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF
; --> TYPEP LET OR LET
; ==>
; (TYPEP #:ONCE-ONLY-377 'SB!KERNEL:LEXENV)
;
; caught STYLE-WARNING:
; undefined type: SB!KERNEL:LEXENV
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE
; (TYPE SB!ALIEN::ENV)
; (DECLARE
; (TYPE (OR SB!KERNEL:LEXENV NULL) SB!ALIEN::ENV))
; (BLOCK SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE
; (IF (CONSP TYPE)
; (LET #
; #
; #)
; (ECASE # # # #))))
;
; caught STYLE-WARNING:
; undefined type: SB!KERNEL:LEXENV
;
; caught STYLE-WARNING:
; 11 more uses of undefined type SB!KERNEL:LEXENV
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/host-alieneval.lisp
; in: DEFMACRO-MUNDANELY ADDR
; (SB-XC:MACROEXPAND SB!ALIEN::EXPR SB!ALIEN::ENV)
;
; caught STYLE-WARNING:
; undefined function: SB-XC:MACROEXPAND
; in: DEFUN AUXILIARY-TYPE-DEFINITIONS
; (SB-XC:MACROEXPAND 'SB!ALIEN::&AUXILIARY-TYPE-DEFINITIONS& SB!ALIEN::ENV)
;
; caught STYLE-WARNING:
; undefined function: SB-XC:MACROEXPAND
; in: LAMBDA NIL
; (SB-XC:MACROEXPAND 'SB!ALIEN::&AUXILIARY-TYPE-DEFINITIONS& SB!ALIEN::ENV)
;
; caught STYLE-WARNING:
; undefined function: SB-XC:MACROEXPAND
;
; caught STYLE-WARNING:
; This function is undefined:
; SB-XC:MACROEXPAND
;
; caught STYLE-WARNING:
; This type is undefined:
; SB!KERNEL:LEXENV
;
; compilation unit finished
; caught 9 STYLE-WARNING conditions
; printed 13 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/host-alieneval.lisp-obj-tmp written
; compilation finished in 0:00:05
STYLE-WARNING: redefining MAKE-ALIEN-TYPE-CLASS in DEFUN
STYLE-WARNING: redefining PRINT-OBJECT (ALIEN-TYPE-CLASS T) in DEFMETHOD
STYLE-WARNING: redefining ALIEN-TYPE-CLASS-OR-LOSE in DEFUN
STYLE-WARNING: redefining CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY in DEFUN
STYLE-WARNING: redefining METHOD-SLOT in DEFUN
STYLE-WARNING: redefining AUXILIARY-TYPE-DEFINITIONS in DEFUN
STYLE-WARNING: redefining %DEFINE-ALIEN-TYPE-TRANSLATOR in DEFUN
STYLE-WARNING: redefining %DEF-AUXILIARY-ALIEN-TYPES in DEFUN
STYLE-WARNING: redefining %DEFINE-ALIEN-TYPE in DEFUN
STYLE-WARNING: redefining ALIEN-SYSTEM-AREA-POINTER-TYPE-TRANSLATOR in DEFUN
STYLE-WARNING: redefining ALIEN-SIGNED-TYPE-TRANSLATOR in DEFUN
STYLE-WARNING: redefining ALIEN-INTEGER-TYPE-TRANSLATOR in DEFUN
STYLE-WARNING: redefining ALIEN-UNSIGNED-TYPE-TRANSLATOR in DEFUN
STYLE-WARNING: redefining ALIEN-BOOLEAN-TYPE-TRANSLATOR in DEFUN
STYLE-WARNING: redefining ALIEN-ENUM-TYPE-TRANSLATOR in DEFUN
STYLE-WARNING: redefining ALIEN-SINGLE-FLOAT-TYPE-TRANSLATOR in DEFUN
STYLE-WARNING: redefining ALIEN-DOUBLE-FLOAT-TYPE-TRANSLATOR in DEFUN
STYLE-WARNING: redefining ALIEN-*-TYPE-TRANSLATOR in DEFUN
STYLE-WARNING: redefining ALIEN-ARRAY-TYPE-TRANSLATOR in DEFUN
STYLE-WARNING: redefining ALIEN-STRUCT-TYPE-TRANSLATOR in DEFUN
STYLE-WARNING: redefining ALIEN-UNION-TYPE-TRANSLATOR in DEFUN
STYLE-WARNING: redefining ALIEN-FUNCTION-TYPE-TRANSLATOR in DEFUN
STYLE-WARNING: redefining ALIEN-VALUES-TYPE-TRANSLATOR in DEFUN
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/host-c-call.lisp" (written 31 OCT 2004 06:46:47 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-C-STRING-TYPE
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-CLASS (C-STRING :INCLUDE POINTER :INCLUDE-ARGS (TO)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-C-STRING-TYPE-TRANSLATOR
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN C-STRING-UNPARSE-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (C-STRING :UNPARSE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN C-STRING-LISP-REP-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (C-STRING :LISP-REP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN C-STRING-NATURALIZE-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (C-STRING :NATURALIZE-GEN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN C-STRING-DEPORT-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-GEN):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-UTF8-STRING-TYPE
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-CLASS (UTF8-STRING :INCLUDE POINTER :INCLUDE-ARGS (TO)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-UTF8-STRING-TYPE-TRANSLATOR
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-TRANSLATOR UTF8-STRING:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN UTF8-STRING-UNPARSE-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (UTF8-STRING :UNPARSE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN UTF8-STRING-LISP-REP-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (UTF8-STRING :LISP-REP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN UTF8-STRING-NATURALIZE-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (UTF8-STRING :NATURALIZE-GEN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN UTF8-STRING-DEPORT-GEN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (UTF8-STRING :DEPORT-GEN):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; in: LAMBDA NIL
; (SB!KERNEL:MAKE-NULL-LEXENV)
;
; caught STYLE-WARNING:
; undefined function: SB!KERNEL:MAKE-NULL-LEXENV
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/host-c-call.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING
; (SB!KERNEL:MAKE-NULL-LEXENV)
;
; caught STYLE-WARNING:
; undefined function: SB!KERNEL:MAKE-NULL-LEXENV
; in: LAMBDA NIL
; (SB!KERNEL:MAKE-NULL-LEXENV)
;
; caught STYLE-WARNING:
; undefined function: SB!KERNEL:MAKE-NULL-LEXENV
;
; caught STYLE-WARNING:
; 1 more use of undefined function SB!KERNEL:MAKE-NULL-LEXENV
;
; caught STYLE-WARNING:
; This function is undefined:
; SB!KERNEL:MAKE-NULL-LEXENV
;
; compilation unit finished
; caught 5 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/host-c-call.lisp-obj-tmp written
; compilation finished in 0:00:00
STYLE-WARNING: redefining ALIEN-C-STRING-TYPE-TRANSLATOR in DEFUN
STYLE-WARNING: redefining ALIEN-UTF8-STRING-TYPE-TRANSLATOR in DEFUN
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/compiler-deftype.lisp" (written 29 JUN 2004 10:51:00 AM):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %COMPILER-DEFTYPE
; compiling top level form:
; compiling DEFUN %COMPILER-DEFTYPE:
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/compiler-deftype.lisp
; in: DEFUN %COMPILER-DEFTYPE
; (SB!KERNEL:UNDEFINE-STRUCTURE
; (SB!KERNEL:LAYOUT-INFO
; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID SB!IMPL::NAME))))
;
; caught STYLE-WARNING:
; undefined function: UNDEFINE-STRUCTURE
;
; caught STYLE-WARNING:
; This function is undefined:
; UNDEFINE-STRUCTURE
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/compiler-deftype.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/late-type.lisp" (written 21 DEC 2004 04:52:06 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DELEGATE-COMPLEX-SUBTYPEP-ARG2
; compiling top level form:
; compiling DEFUN DELEGATE-COMPLEX-SUBTYPEP-ARG2:
; compiling top level form:
; recognizing DEFUN DELEGATE-COMPLEX-INTERSECTION2
; compiling top level form:
; compiling DEFUN DELEGATE-COMPLEX-INTERSECTION2:
; compiling top level form:
; recognizing DEFUN !HAS-SUPERCLASSES-COMPLEX-SUBTYPEP-ARG1
; compiling top level form:
; compiling DEFUN !HAS-SUPERCLASSES-COMPLEX-SUBTYPEP-ARG1:
; compiling top level form:
; compiling DEFMACRO !DEFINE-SUPERCLASSES:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-KEY-INFO
; compiling top level form:
; compiling DEFSTRUCT KEY-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALUES-SIMPLE-SUBTYPEP-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (VALUES :SIMPLE-SUBTYPEP :COMPLEX-SUBTYPEP-ARG1):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALUES-COMPLEX-SUBTYPEP-ARG2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (VALUES :COMPLEX-SUBTYPEP-ARG2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALUES-NEGATE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (VALUES :NEGATE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALUES-UNPARSE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (VALUES :UNPARSE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TYPE=-LIST
; compiling top level form:
; compiling DEFUN TYPE=-LIST:
; compiling top level form:
; recognizing DEFUN VALUES-SIMPLE-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (VALUES :SIMPLE-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FUNCTION-NEGATE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (FUNCTION :NEGATE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FUNCTION-UNPARSE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (FUNCTION :UNPARSE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FUNCTION-SIMPLE-SUBTYPEP-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-SUBTYPEP):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-SUPERCLASSES FUNCTION:
; compiling DEFMACRO !DEFINE-SUPERCLASSES:
; recognizing DEFUN FUNCTION-SIMPLE-UNION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-UNION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FUNCTION-SIMPLE-INTERSECTION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-INTERSECTION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FUNCTION-COMPLEX-INTERSECTION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (FUNCTION :COMPLEX-INTERSECTION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FUNCTION-COMPLEX-UNION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (FUNCTION :COMPLEX-UNION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FUNCTION-SIMPLE-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CONSTANT-NEGATE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CONSTANT :NEGATE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CONSTANT-UNPARSE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CONSTANT :UNPARSE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CONSTANT-SIMPLE-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CONSTANT :SIMPLE-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEF-TYPE-TRANSLATOR CONSTANT-ARG:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN UNPARSE-ARGS-TYPES
; compiling top level form:
; compiling DEFUN UNPARSE-ARGS-TYPES:
; compiling top level form:
; compiling !DEF-TYPE-TRANSLATOR FUNCTION:
; compiling top level form:
; compiling top level form:
; compiling !DEF-TYPE-TRANSLATOR VALUES:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TYPE-SINGLE-VALUE-P
; compiling top level form:
; compiling DEFUN TYPE-SINGLE-VALUE-P:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SINGLE-VALUE-TYPE
; compiling top level form:
; compiling DEFUN SINGLE-VALUE-TYPE:
; compiling top level form:
; recognizing DEFUN FUN-TYPE-NARGS
; compiling top level form:
; compiling DEFUN FUN-TYPE-NARGS:
; compiling top level form:
; recognizing DEFUN VALUES-TYPES
; compiling top level form:
; compiling DEFUN VALUES-TYPES:
; compiling top level form:
; recognizing DEFUN VALUES-TYPE-TYPES
; compiling top level form:
; compiling DEFUN VALUES-TYPE-TYPES:
; compiling top level form:
; recognizing DEFUN VALUES-TYPE-OUT
; compiling top level form:
; compiling DEFUN VALUES-TYPE-OUT:
; compiling top level form:
; recognizing DEFUN VALUES-TYPE-IN
; compiling top level form:
; compiling DEFUN VALUES-TYPE-IN:
; compiling top level form:
; recognizing DEFUN FIXED-VALUES-OP
; compiling top level form:
; compiling DEFUN FIXED-VALUES-OP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %COERCE-TO-VALUES-CACHE-LOOKUP
; compiling top level form:
; compiling DEFUN-CACHED (%COERCE-TO-VALUES :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; recognizing DEFUN %COERCE-TO-VALUES-CACHE-ENTER
; compiling top level form:
; compiling DEFUN-CACHED (%COERCE-TO-VALUES :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; recognizing DEFUN %COERCE-TO-VALUES-CACHE-CLEAR
; compiling top level form:
; compiling DEFUN-CACHED (%COERCE-TO-VALUES :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %COERCE-TO-VALUES
; compiling top level form:
; compiling DEFUN-CACHED (%COERCE-TO-VALUES :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; recognizing DEFUN COERCE-TO-VALUES
; compiling top level form:
; compiling DEFUN COERCE-TO-VALUES:
; compiling top level form:
; recognizing DEFUN MAKE-SHORT-VALUES-TYPE
; compiling top level form:
; compiling DEFUN MAKE-SHORT-VALUES-TYPE:
; compiling top level form:
; recognizing DEFUN MAKE-SINGLE-VALUE-TYPE
; compiling top level form:
; compiling DEFUN MAKE-SINGLE-VALUE-TYPE:
; compiling top level form:
; recognizing DEFUN ARGS-TYPE-OP
; compiling top level form:
; compiling DEFUN ARGS-TYPE-OP:
; compiling top level form:
; recognizing DEFUN VALUES-TYPE-OP
; compiling top level form:
; compiling DEFUN VALUES-TYPE-OP:
; compiling top level form:
; recognizing DEFUN TYPE=-ARGS
; compiling top level form:
; compiling DEFUN TYPE=-ARGS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALUES-TYPE-UNION-CACHE-LOOKUP
; compiling top level form:
; compiling DEFUN-CACHED (VALUES-TYPE-UNION :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN VALUES-TYPE-UNION-CACHE-ENTER
; compiling top level form:
; compiling DEFUN-CACHED (VALUES-TYPE-UNION :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN VALUES-TYPE-UNION-CACHE-CLEAR
; compiling top level form:
; compiling DEFUN-CACHED (VALUES-TYPE-UNION :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALUES-TYPE-UNION
; compiling top level form:
; compiling DEFUN-CACHED (VALUES-TYPE-UNION :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALUES-TYPE-INTERSECTION-CACHE-LOOKUP
; compiling top level form:
; compiling DEFUN-CACHED (VALUES-TYPE-INTERSECTION :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN VALUES-TYPE-INTERSECTION-CACHE-ENTER
; compiling top level form:
; compiling DEFUN-CACHED (VALUES-TYPE-INTERSECTION :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN VALUES-TYPE-INTERSECTION-CACHE-CLEAR
; compiling top level form:
; compiling DEFUN-CACHED (VALUES-TYPE-INTERSECTION :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALUES-TYPE-INTERSECTION
; compiling top level form:
; compiling DEFUN-CACHED (VALUES-TYPE-INTERSECTION :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN VALUES-TYPES-EQUAL-OR-INTERSECT
; compiling top level form:
; compiling DEFUN VALUES-TYPES-EQUAL-OR-INTERSECT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALUES-SUBTYPEP-CACHE-LOOKUP
; compiling top level form:
; compiling DEFUN-CACHED (VALUES-SUBTYPEP :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN VALUES-SUBTYPEP-CACHE-ENTER
; compiling top level form:
; compiling DEFUN-CACHED (VALUES-SUBTYPEP :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN VALUES-SUBTYPEP-CACHE-CLEAR
; compiling top level form:
; compiling DEFUN-CACHED (VALUES-SUBTYPEP :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALUES-SUBTYPEP
; compiling top level form:
; compiling DEFUN-CACHED (VALUES-SUBTYPEP :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CSUBTYPEP-CACHE-LOOKUP
; compiling top level form:
; compiling DEFUN-CACHED (CSUBTYPEP :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN CSUBTYPEP-CACHE-ENTER
; compiling top level form:
; compiling DEFUN-CACHED (CSUBTYPEP :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN CSUBTYPEP-CACHE-CLEAR
; compiling top level form:
; compiling DEFUN-CACHED (CSUBTYPEP :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CSUBTYPEP
; compiling top level form:
; compiling DEFUN-CACHED (CSUBTYPEP :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/late-type.lisp
; in:
; DEFUN-CACHED (CSUBTYPEP :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...)
; (SB!KERNEL::!INVOKE-TYPE-METHOD :SIMPLE-SUBTYPEP
; :COMPLEX-SUBTYPEP-ARG2
; SB!KERNEL::TYPE1
; SB!KERNEL::TYPE2
; :COMPLEX-ARG1
; :COMPLEX-SUBTYPEP-ARG1)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL SB!KERNEL::%INVOKE-TYPE-METHOD
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL LET IF LET IF LET IF IF
; --> FUNCALL
; ==>
; SB!KERNEL::TYPE2
;
; note: deleting unreachable code
; compiling top level form:
; recognizing DEFUN SB-XC:SUBTYPEP
; compiling top level form:
; compiling DEFUN SB-XC:SUBTYPEP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TYPE=-CACHE-LOOKUP
; compiling top level form:
; compiling DEFUN-CACHED (TYPE= :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN TYPE=-CACHE-ENTER
; compiling top level form:
; compiling DEFUN-CACHED (TYPE= :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN TYPE=-CACHE-CLEAR
; compiling top level form:
; compiling DEFUN-CACHED (TYPE= :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TYPE=
; compiling top level form:
; compiling DEFUN-CACHED (TYPE= :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/late-type.lisp
; in:
; DEFUN-CACHED (TYPE= :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...)
; (SB!KERNEL::!INVOKE-TYPE-METHOD :SIMPLE-=
; :COMPLEX-=
; SB!KERNEL::TYPE1
; SB!KERNEL::TYPE2)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL SB!KERNEL::%INVOKE-TYPE-METHOD
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL LET IF LET IF LET IF IF
; --> FUNCALL
; ==>
; SB!KERNEL::TYPE1
;
; note: deleting unreachable code
; compiling top level form:
; recognizing DEFUN TYPE/=
; compiling top level form:
; compiling DEFUN TYPE/=:
; compiling top level form:
; recognizing DEFUN %TYPE-UNION2
; compiling top level form:
; compiling DEFUN %TYPE-UNION2:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TYPE-UNION2-CACHE-LOOKUP
; compiling top level form:
; compiling DEFUN-CACHED (TYPE-UNION2 :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN TYPE-UNION2-CACHE-ENTER
; compiling top level form:
; compiling DEFUN-CACHED (TYPE-UNION2 :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN TYPE-UNION2-CACHE-CLEAR
; compiling top level form:
; compiling DEFUN-CACHED (TYPE-UNION2 :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TYPE-UNION2
; compiling top level form:
; compiling DEFUN-CACHED (TYPE-UNION2 :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN %TYPE-INTERSECTION2
; compiling top level form:
; compiling DEFUN %TYPE-INTERSECTION2:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TYPE-INTERSECTION2-CACHE-LOOKUP
; compiling top level form:
; compiling DEFUN-CACHED (TYPE-INTERSECTION2 :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN TYPE-INTERSECTION2-CACHE-ENTER
; compiling top level form:
; compiling DEFUN-CACHED (TYPE-INTERSECTION2 :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN TYPE-INTERSECTION2-CACHE-CLEAR
; compiling top level form:
; compiling DEFUN-CACHED (TYPE-INTERSECTION2 :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TYPE-INTERSECTION2
; compiling top level form:
; compiling DEFUN-CACHED (TYPE-INTERSECTION2 :HASH-FUNCTION TYPE-CACHE-HASH :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN TYPE-APPROX-INTERSECTION2
; compiling top level form:
; compiling DEFUN TYPE-APPROX-INTERSECTION2:
; compiling top level form:
; recognizing DEFUN TYPES-EQUAL-OR-INTERSECT
; compiling top level form:
; compiling DEFUN TYPES-EQUAL-OR-INTERSECT:
; compiling top level form:
; recognizing DEFUN TYPE-SPECIFIER
; compiling top level form:
; compiling DEFUN TYPE-SPECIFIER:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TYPE-NEGATION-CACHE-LOOKUP
; compiling top level form:
; compiling DEFUN-CACHED (TYPE-NEGATION :HASH-FUNCTION (LAMBDA # #) :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN TYPE-NEGATION-CACHE-ENTER
; compiling top level form:
; compiling DEFUN-CACHED (TYPE-NEGATION :HASH-FUNCTION (LAMBDA # #) :HASH-BITS 8 ...):
; compiling top level form:
; recognizing DEFUN TYPE-NEGATION-CACHE-CLEAR
; compiling top level form:
; compiling DEFUN-CACHED (TYPE-NEGATION :HASH-FUNCTION (LAMBDA # #) :HASH-BITS 8 ...):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TYPE-NEGATION
; compiling top level form:
; compiling DEFUN-CACHED (TYPE-NEGATION :HASH-FUNCTION (LAMBDA # #) :HASH-BITS 8 ...):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PRECOMPUTE-TYPES
; compiling top level form:
; compiling DEFUN PRECOMPUTE-TYPES:
; compiling top level form:
; recognizing DEFUN SIMPLIFY-INTERSECTIONS
; compiling top level form:
; compiling DEF SIMPLIFY-INTERSECTIONS:
; compiling top level form:
; recognizing DEFUN SIMPLIFY-UNIONS
; compiling top level form:
; compiling DEF SIMPLIFY-UNIONS:
; compiling top level form:
; recognizing DEFUN MAYBE-DISTRIBUTE-ONE-UNION
; compiling top level form:
; compiling DEFUN MAYBE-DISTRIBUTE-ONE-UNION:
; compiling top level form:
; recognizing DEFUN TYPE-INTERSECTION
; compiling top level form:
; compiling DEFUN TYPE-INTERSECTION:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %TYPE-INTERSECTION-CACHE-LOOKUP
; compiling top level form:
; compiling DEFUN-CACHED (%TYPE-INTERSECTION :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; recognizing DEFUN %TYPE-INTERSECTION-CACHE-ENTER
; compiling top level form:
; compiling DEFUN-CACHED (%TYPE-INTERSECTION :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; recognizing DEFUN %TYPE-INTERSECTION-CACHE-CLEAR
; compiling top level form:
; compiling DEFUN-CACHED (%TYPE-INTERSECTION :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %TYPE-INTERSECTION
; compiling top level form:
; compiling DEFUN-CACHED (%TYPE-INTERSECTION :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; recognizing DEFUN TYPE-UNION
; compiling top level form:
; compiling DEFUN TYPE-UNION:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %TYPE-UNION-CACHE-LOOKUP
; compiling top level form:
; compiling DEFUN-CACHED (%TYPE-UNION :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; recognizing DEFUN %TYPE-UNION-CACHE-ENTER
; compiling top level form:
; compiling DEFUN-CACHED (%TYPE-UNION :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; recognizing DEFUN %TYPE-UNION-CACHE-CLEAR
; compiling top level form:
; compiling DEFUN-CACHED (%TYPE-UNION :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %TYPE-UNION
; compiling top level form:
; compiling DEFUN-CACHED (%TYPE-UNION :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NAMED-SIMPLE-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NAMED :SIMPLE-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NAMED-COMPLEX-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NAMED :COMPLEX-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NAMED-SIMPLE-SUBTYPEP-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NAMED :SIMPLE-SUBTYPEP):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NAMED-COMPLEX-SUBTYPEP-ARG1-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NAMED :COMPLEX-SUBTYPEP-ARG1):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NAMED-COMPLEX-SUBTYPEP-ARG2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NAMED :COMPLEX-SUBTYPEP-ARG2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NAMED-COMPLEX-INTERSECTION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NAMED :COMPLEX-INTERSECTION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NAMED-COMPLEX-UNION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NAMED :COMPLEX-UNION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NAMED-NEGATE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NAMED :NEGATE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NAMED-UNPARSE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NAMED :UNPARSE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN HAIRY-NEGATE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (HAIRY :NEGATE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN HAIRY-UNPARSE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (HAIRY :UNPARSE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN HAIRY-SIMPLE-SUBTYPEP-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (HAIRY :SIMPLE-SUBTYPEP):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN HAIRY-COMPLEX-SUBTYPEP-ARG2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (HAIRY :COMPLEX-SUBTYPEP-ARG2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN HAIRY-COMPLEX-SUBTYPEP-ARG1-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (HAIRY :COMPLEX-SUBTYPEP-ARG1):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN HAIRY-COMPLEX-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (HAIRY :COMPLEX-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN HAIRY-SIMPLE-INTERSECTION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (HAIRY :SIMPLE-INTERSECTION2 :COMPLEX-INTERSECTION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN HAIRY-SIMPLE-UNION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (HAIRY :SIMPLE-UNION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN HAIRY-SIMPLE-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (HAIRY :SIMPLE-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEF-TYPE-TRANSLATOR SATISFIES:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NEGATION-NEGATE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NEGATION :NEGATE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NEGATION-UNPARSE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NEGATION :UNPARSE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NEGATION-SIMPLE-SUBTYPEP-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NEGATION :SIMPLE-SUBTYPEP):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NEGATION-COMPLEX-SUBTYPEP-ARG2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NEGATION :COMPLEX-SUBTYPEP-ARG2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NEGATION-COMPLEX-SUBTYPEP-ARG1-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NEGATION :COMPLEX-SUBTYPEP-ARG1):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NEGATION-COMPLEX-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NEGATION :COMPLEX-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NEGATION-SIMPLE-INTERSECTION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NEGATION :SIMPLE-INTERSECTION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NEGATION-COMPLEX-INTERSECTION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NEGATION :COMPLEX-INTERSECTION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NEGATION-SIMPLE-UNION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NEGATION :SIMPLE-UNION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NEGATION-COMPLEX-UNION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NEGATION :COMPLEX-UNION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NEGATION-SIMPLE-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NEGATION :SIMPLE-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEF-TYPE-TRANSLATOR NOT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NUMERIC-TYPE-EQUAL
; compiling top level form:
; compiling DEFUN NUMERIC-TYPE-EQUAL:
; compiling top level form:
; recognizing DEFUN NUMBER-SIMPLE-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NUMBER :SIMPLE-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NUMBER-NEGATE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NUMBER :NEGATE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NUMBER-UNPARSE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NUMBER :UNPARSE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO NUMERIC-BOUND-TEST:
; compiling top level form:
; compiling DEFMACRO NUMERIC-BOUND-TEST*:
; compiling top level form:
; compiling DEFMACRO NUMERIC-BOUND-MAX:
; compiling top level form:
; recognizing DEFUN NUMBER-SIMPLE-SUBTYPEP-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NUMBER :SIMPLE-SUBTYPEP):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-SUPERCLASSES NUMBER:
; compiling DEFMACRO !DEFINE-SUPERCLASSES:
; recognizing DEFUN NUMERIC-TYPES-ADJACENT
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :DOUBLE-FLOAT-NEGATIVE-ZERO)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :DOUBLE-FLOAT-NEGATIVE-ZERO)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :DOUBLE-FLOAT-NEGATIVE-ZERO)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :DOUBLE-FLOAT-NEGATIVE-ZERO)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO)):
; compiling DEFUN NUMERIC-TYPES-ADJACENT:
; compiling top level form:
; recognizing DEFUN NUMBER-SIMPLE-UNION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NUMBER :SIMPLE-UNION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEF-TYPE-TRANSLATOR COMPLEX:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CANONICALIZED-BOUND
; compiling top level form:
; compiling DEFUN CANONICALIZED-BOUND:
; compiling top level form:
; compiling !DEF-TYPE-TRANSLATOR INTEGER:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO !DEF-BOUNDED-TYPE:
; compiling top level form:
; compiling !DEF-BOUNDED-TYPE RATIONAL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COERCE-BOUND
; compiling top level form:
; compiling DEFUN COERCE-BOUND:
; compiling top level form:
; recognizing DEFUN INNER-COERCE-REAL-BOUND
; compiling top level form:
; compiling DEFUN INNER-COERCE-REAL-BOUND:
; compiling top level form:
; recognizing DEFUN INNER-COERCE-FLOAT-BOUND
; compiling top level form:
; compiling DEFUN INNER-COERCE-FLOAT-BOUND:
; compiling top level form:
; recognizing DEFUN COERCED-REAL-BOUND
; compiling top level form:
; compiling DEFUN COERCED-REAL-BOUND:
; compiling top level form:
; recognizing DEFUN COERCED-FLOAT-BOUND
; compiling top level form:
; compiling DEFUN COERCED-FLOAT-BOUND:
; compiling top level form:
; compiling !DEF-TYPE-TRANSLATOR REAL:
; compiling top level form:
; compiling top level form:
; compiling !DEF-TYPE-TRANSLATOR FLOAT:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO !DEFINE-FLOAT-FORMAT:
; compiling top level form:
; compiling !DEFINE-FLOAT-FORMAT SHORT-FLOAT:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-FLOAT-FORMAT SINGLE-FLOAT:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-FLOAT-FORMAT DOUBLE-FLOAT:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-FLOAT-FORMAT LONG-FLOAT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NUMERIC-TYPES-INTERSECT
; compiling top level form:
; compiling DEFUN NUMERIC-TYPES-INTERSECT:
; compiling top level form:
; recognizing DEFUN ROUND-NUMERIC-BOUND
; compiling top level form:
; compiling DEFUN ROUND-NUMERIC-BOUND:
; compiling top level form:
; recognizing DEFUN NUMBER-SIMPLE-INTERSECTION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (NUMBER :SIMPLE-INTERSECTION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLOAT-FORMAT-MAX
; compiling top level form:
; compiling DEFUN FLOAT-FORMAT-MAX:
; compiling top level form:
; recognizing DEFUN NUMERIC-CONTAGION
; compiling top level form:
; compiling DEFUN NUMERIC-CONTAGION:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SPECIALIZED-ELEMENT-TYPE-MAYBE
; compiling top level form:
; compiling DEFUN SPECIALIZED-ELEMENT-TYPE-MAYBE:
; compiling top level form:
; recognizing DEFUN ARRAY-SIMPLE-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (ARRAY :SIMPLE-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ARRAY-NEGATE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (ARRAY :NEGATE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ARRAY-UNPARSE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (ARRAY :UNPARSE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ARRAY-SIMPLE-SUBTYPEP-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (ARRAY :SIMPLE-SUBTYPEP):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-SUPERCLASSES ARRAY:
; compiling DEFMACRO !DEFINE-SUPERCLASSES:
; recognizing DEFUN ARRAY-TYPES-INTERSECT
; compiling top level form:
; compiling DEFUN ARRAY-TYPES-INTERSECT:
; compiling top level form:
; recognizing DEFUN ARRAY-SIMPLE-INTERSECTION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (ARRAY :SIMPLE-INTERSECTION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CANONICAL-ARRAY-DIMENSIONS
; compiling top level form:
; compiling DEFUN CANONICAL-ARRAY-DIMENSIONS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MEMBER-NEGATE-TYPE-METHOD
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :DOUBLE-FLOAT-NEGATIVE-ZERO)):
; compiling !DEFINE-TYPE-METHOD (MEMBER :NEGATE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MEMBER-UNPARSE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (MEMBER :UNPARSE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MEMBER-SIMPLE-SUBTYPEP-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (MEMBER :SIMPLE-SUBTYPEP):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MEMBER-COMPLEX-SUBTYPEP-ARG1-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG1):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MEMBER-COMPLEX-SUBTYPEP-ARG2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MEMBER-SIMPLE-INTERSECTION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (MEMBER :SIMPLE-INTERSECTION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MEMBER-COMPLEX-INTERSECTION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (MEMBER :COMPLEX-INTERSECTION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MEMBER-SIMPLE-UNION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (MEMBER :SIMPLE-UNION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MEMBER-SIMPLE-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (MEMBER :SIMPLE-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MEMBER-COMPLEX-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (MEMBER :COMPLEX-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEF-TYPE-TRANSLATOR MEMBER:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INTERSECTION-NEGATE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (INTERSECTION :NEGATE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INTERSECTION-UNPARSE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (INTERSECTION :UNPARSE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TYPE=-SET
; compiling top level form:
; compiling DEFUN TYPE=-SET:
; compiling top level form:
; recognizing DEFUN INTERSECTION-SIMPLE-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG1
; compiling top level form:
; compiling DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG1:
; compiling top level form:
; recognizing DEFUN %INTERSECTION-SIMPLE-SUBTYPEP
; compiling top level form:
; compiling DEFUN %INTERSECTION-SIMPLE-SUBTYPEP:
; compiling top level form:
; recognizing DEFUN INTERSECTION-SIMPLE-SUBTYPEP-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-SUBTYPEP):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INTERSECTION-COMPLEX-SUBTYPEP-ARG1-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (INTERSECTION :COMPLEX-SUBTYPEP-ARG1):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG2
; compiling top level form:
; compiling DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG2:
; compiling top level form:
; recognizing DEFUN INTERSECTION-COMPLEX-SUBTYPEP-ARG2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (INTERSECTION :COMPLEX-SUBTYPEP-ARG2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INTERSECTION-SIMPLE-UNION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-UNION2 :COMPLEX-UNION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEF-TYPE-TRANSLATOR AND:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN UNION-NEGATE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (UNION :NEGATE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN UNION-UNPARSE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (UNION :UNPARSE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN UNION-SIMPLE-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (UNION :SIMPLE-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN UNION-COMPLEX-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (UNION :COMPLEX-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN UNION-SIMPLE-SUBTYPEP
; compiling top level form:
; compiling DEFUN UNION-SIMPLE-SUBTYPEP:
; compiling top level form:
; recognizing DEFUN UNION-SIMPLE-SUBTYPEP-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (UNION :SIMPLE-SUBTYPEP):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN UNION-COMPLEX-SUBTYPEP-ARG1
; compiling top level form:
; compiling DEFUN UNION-COMPLEX-SUBTYPEP-ARG1:
; compiling top level form:
; recognizing DEFUN UNION-COMPLEX-SUBTYPEP-ARG1-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (UNION :COMPLEX-SUBTYPEP-ARG1):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN UNION-COMPLEX-SUBTYPEP-ARG2
; compiling top level form:
; compiling DEFUN UNION-COMPLEX-SUBTYPEP-ARG2:
; compiling top level form:
; recognizing DEFUN UNION-COMPLEX-SUBTYPEP-ARG2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (UNION :COMPLEX-SUBTYPEP-ARG2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN UNION-SIMPLE-INTERSECTION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (UNION :SIMPLE-INTERSECTION2 :COMPLEX-INTERSECTION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEF-TYPE-TRANSLATOR OR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEF-TYPE-TRANSLATOR CONS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CONS-NEGATE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CONS :NEGATE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CONS-UNPARSE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CONS :UNPARSE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CONS-SIMPLE-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CONS :SIMPLE-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CONS-SIMPLE-SUBTYPEP-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CONS :SIMPLE-SUBTYPEP):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CONS-SIMPLE-UNION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CONS :SIMPLE-UNION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CONS-SIMPLE-INTERSECTION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CONS :SIMPLE-INTERSECTION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEF-TYPE-TRANSLATOR CHARACTER-SET:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHARACTER-SET-NEGATE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CHARACTER-SET :NEGATE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHARACTER-SET-UNPARSE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CHARACTER-SET :UNPARSE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHARACTER-SET-SIMPLE-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHARACTER-SET-SIMPLE-SUBTYPEP-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-SUBTYPEP):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHARACTER-SET-SIMPLE-UNION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-UNION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHARACTER-SET-SIMPLE-INTERSECTION2-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-INTERSECTION2):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TYPE-DIFFERENCE
; compiling top level form:
; compiling DEFUN TYPE-DIFFERENCE:
; compiling top level form:
; compiling !DEF-TYPE-TRANSLATOR ARRAY:
; compiling top level form:
; compiling top level form:
; compiling !DEF-TYPE-TRANSLATOR SIMPLE-ARRAY:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P
; compiling top level form:
; compiling DEFUN DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P:
; compiling top level form:
; recognizing DEFUN CTYPE-OF-NUMBER
; compiling top level form:
; compiling DEFUN CTYPE-OF-NUMBER:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/late-type.lisp
; in: !DEF-TYPE-TRANSLATOR MEMBER
; (SB!KERNEL:CTYPE-OF SB!KERNEL::M)
;
; caught STYLE-WARNING:
; undefined function: CTYPE-OF
; in: !DEFINE-TYPE-METHOD (MEMBER :NEGATE)
; (SB!KERNEL:CTYPE-OF SB!KERNEL::X)
;
; caught STYLE-WARNING:
; undefined function: CTYPE-OF
; in: !DEF-TYPE-TRANSLATOR COMPLEX
; (SB!KERNEL:CTYPE-OF SB!KERNEL::X)
;
; caught STYLE-WARNING:
; undefined function: CTYPE-OF
; in: DEFUN TYPE-DIFFERENCE
; (SB!KERNEL:CTYPEP SB!KERNEL::MEM SB!KERNEL::Y)
;
; caught STYLE-WARNING:
; undefined function: CTYPEP
; in: !DEFINE-TYPE-METHOD (MEMBER :COMPLEX-INTERSECTION2)
; (SB!KERNEL:CTYPEP MEMBER SB!KERNEL::TYPE1)
;
; caught STYLE-WARNING:
; undefined function: CTYPEP
; in: !DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG1)
; #'SB!KERNEL:CTYPEP
;
; caught STYLE-WARNING:
; undefined function: CTYPEP
; in: DEFUN CTYPE-OF-NUMBER
; (SB!KERNEL:FLOAT-FORMAT-NAME SB!KERNEL::NUM)
;
; caught STYLE-WARNING:
; undefined function: FLOAT-FORMAT-NAME
; in: !DEF-TYPE-TRANSLATOR SIMPLE-ARRAY
; (SB!KERNEL::SPECIALIZE-ARRAY-TYPE
; (SB!KERNEL:MAKE-ARRAY-TYPE :DIMENSIONS
; (SB!KERNEL::CANONICAL-ARRAY-DIMENSIONS
; SB!KERNEL::DIMENSIONS)
; :COMPLEXP
; NIL
; :ELEMENT-TYPE
; (IF (EQ SB!KERNEL::ELEMENT-TYPE '*)
; SB!KERNEL:*WILD-TYPE*
; (SB!KERNEL:SPECIFIER-TYPE
; SB!KERNEL::ELEMENT-TYPE))))
;
; caught STYLE-WARNING:
; undefined function: SPECIALIZE-ARRAY-TYPE
; in: !DEF-TYPE-TRANSLATOR ARRAY
; (SB!KERNEL::SPECIALIZE-ARRAY-TYPE
; (SB!KERNEL:MAKE-ARRAY-TYPE :DIMENSIONS
; (SB!KERNEL::CANONICAL-ARRAY-DIMENSIONS
; SB!KERNEL::DIMENSIONS)
; :COMPLEXP
; :MAYBE
; :ELEMENT-TYPE
; (IF (EQ SB!KERNEL::ELEMENT-TYPE '*)
; SB!KERNEL:*WILD-TYPE*
; (SB!KERNEL:SPECIFIER-TYPE
; SB!KERNEL::ELEMENT-TYPE))))
;
; caught STYLE-WARNING:
; undefined function: SPECIALIZE-ARRAY-TYPE
; in: !DEFINE-TYPE-METHOD (ARRAY :SIMPLE-INTERSECTION2)
; (SB!KERNEL::SPECIALIZE-ARRAY-TYPE
; (SB!KERNEL:MAKE-ARRAY-TYPE :DIMENSIONS
; (COND (# SB!KERNEL::DIMS2)
; (# SB!KERNEL::DIMS1)
; (T #))
; :COMPLEXP
; (IF (EQ SB!KERNEL::COMPLEXP1 :MAYBE)
; SB!KERNEL::COMPLEXP2
; SB!KERNEL::COMPLEXP1)
; :ELEMENT-TYPE
; (COND (# SB!KERNEL::ELTYPE2)
; (# SB!KERNEL::ELTYPE1) ..)))
;
; caught STYLE-WARNING:
; undefined function: SPECIALIZE-ARRAY-TYPE
; in: DEFUN CANONICALIZED-BOUND
; (SB-XC:TYPEP (CAR SB!KERNEL::BOUND) TYPE)
;
; caught STYLE-WARNING:
; undefined function: SB-XC:TYPEP
; [Last message occurs 2 times.]
; in: DEFUN !HAS-SUPERCLASSES-COMPLEX-SUBTYPEP-ARG1
; (SB-XC:TYPEP SB!KERNEL::TYPE2 'SB!KERNEL:CLASSOID)
;
; caught STYLE-WARNING:
; undefined function: SB-XC:TYPEP
;
; caught STYLE-WARNING:
; 5 more uses of undefined function SB-XC:TYPEP
;
; caught STYLE-WARNING:
; These functions are undefined:
; CTYPE-OF CTYPEP FLOAT-FORMAT-NAME SPECIALIZE-ARRAY-TYPE SB-XC:TYPEP
;
; compilation unit finished
; caught 15 STYLE-WARNING conditions
; printed 2 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/late-type.lisp-obj-tmp written
; compilation finished in 0:00:09
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/deftypes-for-target.lisp" (written 31 OCT 2004 06:46:47 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling SB-XC:DEFTYPE BOOLEAN:
; compiling top level form:
; compiling SB-XC:DEFTYPE MOD:
; compiling top level form:
; compiling SB-XC:DEFTYPE SIGNED-BYTE:
; compiling top level form:
; compiling SB-XC:DEFTYPE UNSIGNED-BYTE:
; compiling top level form:
; compiling SB-XC:DEFTYPE UNSIGNED-BYTE*:
; compiling top level form:
; compiling SB-XC:DEFTYPE BIT:
; compiling top level form:
; compiling SB-XC:DEFTYPE COMPILED-FUNCTION:
; compiling top level form:
; compiling SB-XC:DEFTYPE ATOM:
; compiling top level form:
; compiling SB-XC:DEFTYPE BASE-CHAR:
; compiling top level form:
; compiling SB-XC:DEFTYPE EXTENDED-CHAR:
; compiling top level form:
; compiling SB-XC:DEFTYPE STANDARD-CHAR:
; compiling top level form:
; compiling SB-XC:DEFTYPE KEYWORD:
; compiling top level form:
; compiling SB-XC:DEFTYPE EQL:
; compiling top level form:
; compiling SB-XC:DEFTYPE VECTOR:
; compiling top level form:
; compiling SB-XC:DEFTYPE SIMPLE-VECTOR:
; compiling top level form:
; compiling SB-XC:DEFTYPE BASE-STRING:
; compiling top level form:
; compiling SB-XC:DEFTYPE SIMPLE-BASE-STRING:
; compiling top level form:
; compiling SB-XC:DEFTYPE STRING:
; compiling top level form:
; compiling SB-XC:DEFTYPE SIMPLE-STRING:
; compiling top level form:
; compiling SB-XC:DEFTYPE BIT-VECTOR:
; compiling top level form:
; compiling SB-XC:DEFTYPE SIMPLE-BIT-VECTOR:
; compiling top level form:
; compiling SB-XC:DEFTYPE GENERALIZED-BOOLEAN:
; compiling top level form:
; compiling SB-XC:DEFTYPE FORMAT-CONTROL:
; compiling top level form:
; compiling SB-XC:DEFTYPE RESTART-DESIGNATOR:
; compiling top level form:
; compiling SB-XC:DEFTYPE ARRAY-RANK:
; compiling top level form:
; compiling SB-XC:DEFTYPE ARRAY-TOTAL-SIZE:
; compiling top level form:
; compiling SB-XC:DEFTYPE FORM:
; compiling top level form:
; compiling SB-XC:DEFTYPE STRING-DESIGNATOR:
; compiling top level form:
; compiling SB-XC:DEFTYPE FILENAME:
; compiling top level form:
; compiling SB-XC:DEFTYPE PATHNAME-DESIGNATOR:
; compiling top level form:
; compiling SB-XC:DEFTYPE LOGICAL-HOST-DESIGNATOR:
; compiling top level form:
; compiling SB-XC:DEFTYPE PACKAGE-DESIGNATOR:
; compiling top level form:
; compiling SB-XC:DEFTYPE SYMBOLS-DESIGNATOR:
; compiling top level form:
; compiling SB-XC:DEFTYPE IRRATIONAL:
; compiling top level form:
; compiling SB-XC:DEFTYPE CHAR-CODE:
; compiling top level form:
; compiling SB-XC:DEFTYPE CONSED-SEQUENCE:
; compiling top level form:
; compiling SB-XC:DEFTYPE SEQUENCE-END:
; compiling top level form:
; compiling SB-XC:DEFTYPE SEQUENCE-COUNT:
; compiling top level form:
; compiling SB-XC:DEFTYPE STREAM-DESIGNATOR:
; compiling top level form:
; compiling SB-XC:DEFTYPE LEXENV-DESIGNATOR:
; compiling top level form:
; compiling SB-XC:DEFTYPE CALLABLE:
; compiling top level form:
; compiling SB-XC:DEFTYPE SINGLE-FLOAT-EXPONENT:
; compiling top level form:
; compiling SB-XC:DEFTYPE DOUBLE-FLOAT-EXPONENT:
; compiling top level form:
; compiling SB-XC:DEFTYPE SINGLE-FLOAT-INT-EXPONENT:
; compiling top level form:
; compiling SB-XC:DEFTYPE DOUBLE-FLOAT-INT-EXPONENT:
; compiling top level form:
; compiling SB-XC:DEFTYPE SINGLE-FLOAT-SIGNIFICAND:
; compiling top level form:
; compiling SB-XC:DEFTYPE DOUBLE-FLOAT-SIGNIFICAND:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/deftypes-for-target.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/knownfun.lisp" (written 13 SEP 2004 07:40:29 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE IR1:
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE IR1:
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE IR1:
; compiling top level form:
; recognizing DEFUN DECODE-IR1-ATTRIBUTES
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE IR1:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-FUN-INFO
; compiling top level form:
; compiling DEFSTRUCT FUN-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (FUN-INFO):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-TRANSFORM
; compiling top level form:
; compiling DEFSTRUCT TRANSFORM:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (TRANSFORM):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %DEFTRANSFORM
; compiling top level form:
; compiling DEFUN %DEFTRANSFORM:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %DEFKNOWN
; compiling top level form:
; compiling DEFUN %DEFKNOWN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FUN-INFO-OR-LOSE
; compiling top level form:
; compiling DEFUN FUN-INFO-OR-LOSE:
; compiling top level form:
; recognizing DEFUN RESULT-TYPE-FIRST-ARG
; compiling top level form:
; compiling DEFUN RESULT-TYPE-FIRST-ARG:
; compiling top level form:
; recognizing DEFUN RESULT-TYPE-LAST-ARG
; compiling top level form:
; compiling DEFUN RESULT-TYPE-LAST-ARG:
; compiling top level form:
; recognizing DEFUN RESULT-TYPE-FLOAT-CONTAGION
; compiling top level form:
; compiling DEFUN RESULT-TYPE-FLOAT-CONTAGION:
; compiling top level form:
; recognizing DEFUN SEQUENCE-RESULT-NTH-ARG
; compiling top level form:
; compiling DEFUN SEQUENCE-RESULT-NTH-ARG:
; compiling top level form:
; recognizing DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG
; compiling top level form:
; compiling DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG:
; compiling top level form:
; recognizing DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG
; compiling top level form:
; compiling DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG:
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/knownfun.lisp
; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG
; (SB!C::CAREFUL-SPECIFIER-TYPE
; (SB!IMPL::BACKQ-LIST* 'VECTOR 'CHARACTER (WHEN SB!C::SIZE SB!C::SIZE)))
;
; caught STYLE-WARNING:
; undefined function: CAREFUL-SPECIFIER-TYPE
; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG
; (SB!C::CAREFUL-SPECIFIER-TYPE (SB!C::LVAR-VALUE SB!C::LVAR))
;
; caught STYLE-WARNING:
; undefined function: CAREFUL-SPECIFIER-TYPE
; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG
; (SB!C::CONSTANT-LVAR-P SB!C::LVAR)
;
; caught STYLE-WARNING:
; undefined function: CONSTANT-LVAR-P
; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG
; (SB!C::CONSTANT-LVAR-P SB!C::LVAR)
;
; caught STYLE-WARNING:
; undefined function: CONSTANT-LVAR-P
; in: DEFUN RESULT-TYPE-FLOAT-CONTAGION
; #'SB!C::LVAR-TYPE
;
; caught STYLE-WARNING:
; undefined function: LVAR-TYPE
; in: DEFUN RESULT-TYPE-LAST-ARG
; (SB!C::LVAR-TYPE SB!C::LVAR)
;
; caught STYLE-WARNING:
; undefined function: LVAR-TYPE
; in: DEFUN RESULT-TYPE-FIRST-ARG
; (SB!C::LVAR-TYPE SB!C::LVAR)
;
; caught STYLE-WARNING:
; undefined function: LVAR-TYPE
;
; caught STYLE-WARNING:
; 1 more use of undefined function LVAR-TYPE
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/knownfun.lisp
; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG
; (SB!C::LVAR-VALUE SB!C::LVAR)
;
; caught STYLE-WARNING:
; undefined function: LVAR-VALUE
; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG
; (SB!C::LVAR-VALUE SB!C::LVAR)
;
; caught STYLE-WARNING:
; undefined function: LVAR-VALUE
; in: DEFUN %DEFTRANSFORM
; (SB!INT:STYLE-WARN "Overwriting ~S" SB!C::OLD)
;
; caught STYLE-WARNING:
; undefined function: STYLE-WARN
;
; caught STYLE-WARNING:
; These functions are undefined:
; CAREFUL-SPECIFIER-TYPE CONSTANT-LVAR-P LVAR-TYPE LVAR-VALUE STYLE-WARN
;
; compilation unit finished
; caught 12 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/knownfun.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/fun-info-funs.lisp" (written 12 AUG 2002 03:54:50 PM):
; compiling top level form:
; recognizing DEFUN %DEF-REFFER
; compiling top level form:
; compiling DEFUN %DEF-REFFER:
; compiling top level form:
; recognizing DEFUN %DEF-SETTER
; compiling top level form:
; compiling DEFUN %DEF-SETTER:
; compiling top level form:
; recognizing DEFUN %DEF-ALLOC
; compiling top level form:
; compiling DEFUN %DEF-ALLOC:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/fun-info-funs.lisp
; in: DEFUN %DEF-ALLOC
; (SB!C::IR2-CONVERT-FIXED-ALLOCATION SB!C::NODE
; BLOCK
; SB!C::NAME
; SB!SYS:WORDS
; SB!C::HEADER
; SB!C::LOWTAG
; SB!C::INITS)
;
; caught STYLE-WARNING:
; undefined function: IR2-CONVERT-FIXED-ALLOCATION
; in: DEFUN %DEF-REFFER
; (SB!C::IR2-CONVERT-REFFER SB!C::NODE
; BLOCK
; SB!C::NAME
; SB!C::OFFSET
; SB!C::LOWTAG)
;
; caught STYLE-WARNING:
; undefined function: IR2-CONVERT-REFFER
; in: DEFUN %DEF-SETTER
; (SB!C::IR2-CONVERT-SETFER SB!C::NODE
; BLOCK
; SB!C::NAME
; SB!C::OFFSET
; SB!C::LOWTAG)
;
; caught STYLE-WARNING:
; undefined function: IR2-CONVERT-SETFER
; (SB!C::IR2-CONVERT-SETTER SB!C::NODE
; BLOCK
; SB!C::NAME
; SB!C::OFFSET
; SB!C::LOWTAG)
;
; caught STYLE-WARNING:
; undefined function: IR2-CONVERT-SETTER
; in: DEFUN %DEF-ALLOC
; (SB!C::IR2-CONVERT-VARIABLE-ALLOCATION SB!C::NODE
; BLOCK
; SB!C::NAME
; SB!SYS:WORDS
; SB!C::HEADER
; SB!C::LOWTAG
; SB!C::INITS)
;
; caught STYLE-WARNING:
; undefined function: IR2-CONVERT-VARIABLE-ALLOCATION
;
; caught STYLE-WARNING:
; These functions are undefined:
; IR2-CONVERT-FIXED-ALLOCATION IR2-CONVERT-REFFER IR2-CONVERT-SETFER IR2-CONVERT-SETTER IR2-CONVERT-VARIABLE-ALLOCATION
;
; compilation unit finished
; caught 6 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/fun-info-funs.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/cross-type.lisp" (written 01 NOV 2004 07:43:39 AM):
; compiling top level form:
; recognizing DEFUN FIXNUMP
; compiling top level form:
; compiling DEFUN FIXNUMP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-CONDITION CROSS-TYPE-STYLE-WARNING:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN WARN-POSSIBLE-CROSS-TYPE-FLOAT-INFO-LOSS
; compiling top level form:
; compiling DEFUN WARN-POSSIBLE-CROSS-TYPE-FLOAT-INFO-LOSS:
; compiling top level form:
; recognizing DEFUN SB-XC:TYPE-OF
; compiling top level form:
; compiling DEFUN SB-XC:TYPE-OF:
; compiling top level form:
; recognizing DEFUN IN-CL-PACKAGE-P
; compiling top level form:
; compiling DEFUN IN-CL-PACKAGE-P:
; compiling top level form:
; recognizing DEFUN CROSS-TYPEP
; compiling top level form:
; compiling DEFUN CROSS-TYPEP:
; compiling top level form (SB-KERNEL:FIND-CLASSOID-CELL (QUOTE CLASS)):
; compiling top level form:
; recognizing DEFUN SB-XC:TYPEP
; compiling top level form:
; compiling DEFUN SB-XC:TYPEP:
; compiling top level form:
; recognizing DEFUN CTYPEP
; compiling top level form:
; compiling DEFUN CTYPEP:
; compiling top level form:
; recognizing DEFUN CTYPE-OF
; compiling top level form:
; compiling DEFUN CTYPE-OF:
; compiling top level form (SB-KERNEL:FIND-CLASSOID-CELL (QUOTE GENERIC-FUNCTION)):
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/cross-type.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/vm-type.lisp" (written 21 DEC 2004 04:52:11 AM):
; compiling top level form:
; compiling DEF!TYPE SB!VM:WORD:
; compiling top level form:
; compiling DEF!TYPE SB!VM:WORD:
; compiling top level form:
; compiling top level form:
; compiling SB-XC:DEFTYPE LONG-FLOAT:
; compiling top level form:
; compiling top level form:
; compiling SB-XC:DEFTYPE SHORT-FLOAT:
; compiling top level form:
; compiling SB-XC:DEFTYPE BIT-INDEX:
; compiling top level form:
; compiling SB-XC:DEFTYPE FLOAT-EXPONENT:
; compiling top level form:
; compiling SB-XC:DEFTYPE FLOAT-DIGITS:
; compiling top level form:
; compiling SB-XC:DEFTYPE FLOAT-RADIX:
; compiling top level form:
; compiling SB-XC:DEFTYPE FLOAT-INT-EXPONENT:
; compiling top level form:
; compiling SB-XC:DEFTYPE BOOLE-CODE:
; compiling top level form:
; compiling SB-XC:DEFTYPE BYTE-SPECIFIER:
; compiling top level form:
; compiling SB-XC:DEFTYPE CHAR-INT:
; compiling top level form:
; compiling SB-XC:DEFTYPE PATHNAME-HOST:
; compiling top level form:
; compiling SB-XC:DEFTYPE PATHNAME-DEVICE:
; compiling top level form:
; compiling SB-XC:DEFTYPE PATHNAME-DIRECTORY:
; compiling top level form:
; compiling SB-XC:DEFTYPE PATHNAME-NAME:
; compiling top level form:
; compiling SB-XC:DEFTYPE PATHNAME-TYPE:
; compiling top level form:
; compiling SB-XC:DEFTYPE PATHNAME-VERSION:
; compiling top level form:
; compiling SB-XC:DEFTYPE INTERNAL-TIME:
; compiling top level form:
; compiling SB-XC:DEFTYPE BIGNUM-ELEMENT-TYPE:
; compiling top level form:
; compiling SB-XC:DEFTYPE BIGNUM-TYPE:
; compiling top level form:
; compiling SB-XC:DEFTYPE BIGNUM-INDEX:
; compiling top level form:
; compiling SB-XC:DEFTYPE UNBOXED-ARRAY:
; compiling top level form:
; compiling SB-XC:DEFTYPE SIMPLE-UNBOXED-ARRAY:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLOAT-FORMAT-NAME
; compiling top level form:
; compiling DEFUN FLOAT-FORMAT-NAME:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SPECIALIZE-ARRAY-TYPE
; compiling top level form:
; compiling DEFUN SPECIALIZE-ARRAY-TYPE:
; compiling top level form:
; recognizing DEFUN SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE
; compiling top level form:
; compiling DEFUN SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE:
; compiling top level form:
; recognizing DEFUN SB-XC:UPGRADED-COMPLEX-PART-TYPE
; compiling top level form:
; compiling DEFUN SB-XC:UPGRADED-COMPLEX-PART-TYPE:
; compiling top level form:
; recognizing DEFUN CONTAINING-INTEGER-TYPE
; compiling top level form:
; compiling DEFUN CONTAINING-INTEGER-TYPE:
; compiling top level form:
; recognizing DEFUN HAIRY-TYPE-CHECK-TEMPLATE-NAME
; compiling top level form:
; compiling DEFUN HAIRY-TYPE-CHECK-TEMPLATE-NAME:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/vm-type.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/proclaim.lisp" (written 22 JUL 2004 02:18:41 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN GET-OLD-VARS
; compiling top level form:
; compiling DEFUN GET-OLD-VARS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PROCESS-OPTIMIZE-DECL
; compiling top level form:
; compiling DEFUN PROCESS-OPTIMIZE-DECL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PROCESS-HANDLE-CONDITIONS-DECL
; compiling top level form:
; compiling DEFUN PROCESS-HANDLE-CONDITIONS-DECL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PROCESS-MUFFLE-CONDITIONS-DECL
; compiling top level form:
; compiling DEFUN PROCESS-MUFFLE-CONDITIONS-DECL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PROCESS-UNHANDLE-CONDITIONS-DECL
; compiling top level form:
; compiling DEFUN PROCESS-UNHANDLE-CONDITIONS-DECL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PROCESS-UNMUFFLE-CONDITIONS-DECL
; compiling top level form:
; compiling DEFUN PROCESS-UNMUFFLE-CONDITIONS-DECL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PROCESS-PACKAGE-LOCK-DECL
; compiling top level form:
; compiling DEFUN PROCESS-PACKAGE-LOCK-DECL:
; compiling top level form:
; recognizing DEFUN CANONIZED-DECL-SPEC
; compiling top level form:
; compiling DEFUN CANONIZED-DECL-SPEC:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SB-XC:PROCLAIM
; compiling top level form:
; compiling DEFUN SB-XC:PROCLAIM:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/proclaim.lisp
; in: DEFUN CANONIZED-DECL-SPEC
; (SB!C:COMPILER-ERROR "ambiguous declaration ~S:~% ~
; ~S was declared as a DECLARATION, but is also a type name."
; SB!C::DECL-SPEC
; SB!C::ID)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-ERROR
; in: DEFUN GET-OLD-VARS
; (SB!C:COMPILER-ERROR "The name ~S is not a symbol." SB!C::NAME)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-ERROR
; in: DEFUN SB-XC:PROCLAIM
; (SB!C:COMPILER-WARN "unrecognized declaration ~S" SB!C::RAW-FORM)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-WARN
; in: DEFUN PROCESS-OPTIMIZE-DECL
; (SB!C:COMPILER-WARN "ignoring unknown optimization quality ~
; ~S in ~S"
; SB!C::QUALITY
; SB!C::SPEC)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-WARN
; in: DEFUN SB-XC:PROCLAIM
; (SB!INT:STYLE-WARN "The new TYPE proclamation~% ~S~@
; for ~S does not match the old TYPE~@
; proclamation ~S"
; TYPE
; SB!C::NAME
; SB!C::OLD-TYPE)
;
; caught STYLE-WARNING:
; undefined function: STYLE-WARN
;
; caught STYLE-WARNING:
; These functions are undefined:
; COMPILER-ERROR COMPILER-WARN STYLE-WARN
;
; compilation unit finished
; caught 6 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/proclaim.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/class-init.lisp" (written 16 JUL 2003 10:26:00 AM):
; compiling top level form:
; compiling top level form:
; compiling DOLIST (X *BUILT-IN-CLASSES*):
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/class-init.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/typecheckfuns.lisp" (written 29 OCT 2004 01:30:44 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CTYPE-IS-COMMON-TYPECHECKFUN-TYPE-P
; compiling top level form:
; compiling DEFUN CTYPE-IS-COMMON-TYPECHECKFUN-TYPE-P:
; compiling top level form:
; recognizing DEFUN TYPECHECK-FAILURE
; compiling top level form:
; compiling DEFUN TYPECHECK-FAILURE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO MEMOIZED-TYPECHECKFUN-FORM:
; compiling top level form:
; recognizing DEFUN INTERPRETED-TYPECHECKFUN
; compiling top level form:
; compiling DEFUN INTERPRETED-TYPECHECKFUN:
; compiling top level form:
; recognizing DEFUN %STRUCTURE-OBJECT-TYPECHECKFUN
; compiling top level form:
; compiling DEFUN %STRUCTURE-OBJECT-TYPECHECKFUN:
; compiling top level form:
; recognizing DEFUN STRUCTURE-OBJECT-TYPECHECKFUN
; compiling top level form:
; compiling DEFUN STRUCTURE-OBJECT-TYPECHECKFUN:
; compiling top level form:
; recognizing DEFUN GENERAL-TYPECHECKFUN
; compiling top level form:
; compiling DEFUN GENERAL-TYPECHECKFUN:
; compiling top level form:
; recognizing DEFUN CTYPE-NEEDS-TO-BE-INTERPRETED-P
; compiling top level form:
; compiling DEFUN CTYPE-NEEDS-TO-BE-INTERPRETED-P:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TYPESPEC-TYPECHECKFUN
; compiling top level form:
; compiling DEFUN TYPESPEC-TYPECHECKFUN:
; compiling top level form:
; compiling DEFINE-COMPILER-MACRO TYPESPEC-TYPECHECKFUN:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/typecheckfuns.lisp
; in: DEFUN %STRUCTURE-OBJECT-TYPECHECKFUN
; (SB!KERNEL::COMPILER-LAYOUT-OR-LOSE SB!KERNEL::TYPESPEC)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-LAYOUT-OR-LOSE
; (SB!KERNEL::TYPEP-TO-LAYOUT SB!KERNEL::ARG SB!KERNEL:LAYOUT)
;
; caught STYLE-WARNING:
; undefined function: TYPEP-TO-LAYOUT
;
; caught STYLE-WARNING:
; These functions are undefined:
; COMPILER-LAYOUT-OR-LOSE TYPEP-TO-LAYOUT
;
; compilation unit finished
; caught 3 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/typecheckfuns.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/defstruct.lisp" (written 21 DEC 2004 04:52:04 AM):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COMPILER-LAYOUT-OR-LOSE
; compiling top level form:
; compiling DEFUN COMPILER-LAYOUT-OR-LOSE:
; compiling top level form:
; compiling SB-XC:DEFMACRO %DELAYED-GET-COMPILER-LAYOUT:
; compiling top level form:
; compiling SB-XC:DEFMACRO COMPILE-TIME-FIND-LAYOUT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-DEFSTRUCT-DESCRIPTION
; compiling top level form:
; compiling DEF!STRUCT (DEFSTRUCT-DESCRIPTION (:CONC-NAME DD-) (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) (:CONSTRUCTOR MAKE-DEFSTRUCT-DESCRIPTION #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; recognizing DEFUN DD-CLASS-P
; compiling top level form:
; compiling DEFUN DD-CLASS-P:
; compiling top level form:
; recognizing DEFUN DD-DECLARABLE-TYPE
; compiling top level form:
; compiling DEFUN DD-DECLARABLE-TYPE:
; compiling top level form:
; recognizing DEFUN DD-LAYOUT-OR-LOSE
; compiling top level form:
; compiling DEFUN DD-LAYOUT-OR-LOSE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-DEFSTRUCT-SLOT-DESCRIPTION
; compiling top level form:
; compiling DEF!STRUCT (DEFSTRUCT-SLOT-DESCRIPTION (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) (:CONC-NAME DSD-) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; recognizing DEFUN DD-LISP-TYPE
; compiling top level form:
; compiling DEFUN DD-LISP-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-RAW-SLOT-DATA
; compiling top level form:
; compiling DEFSTRUCT RAW-SLOT-DATA:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CLASS-METHOD-DEFINITIONS
; compiling top level form:
; compiling DEFUN CLASS-METHOD-DEFINITIONS:
; compiling top level form:
; compiling DEFMACRO !EXPANDER-FOR-DEFSTRUCT:
; compiling top level form:
; compiling SB-XC:DEFMACRO DEFSTRUCT:
; compiling top level form:
; compiling DEFMACRO SB-XC:DEFSTRUCT:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/defstruct.lisp
; in: DEFMACRO !EXPANDER-FOR-DEFSTRUCT
; (SB!KERNEL::CONSTRUCTOR-DEFINITIONS SB!KERNEL::DD)
; ==>
; SB!KERNEL::DD
;
; note: deleting unreachable code
; (SB!KERNEL::TYPED-ACCESSOR-DEFINITIONS SB!KERNEL::DD)
; ==>
; SB!KERNEL::DD
;
; note: deleting unreachable code
; compiling top level form:
; recognizing DEFUN ACCESSOR-INHERITED-DATA
; compiling top level form:
; compiling DEFUN ACCESSOR-INHERITED-DATA:
; compiling top level form:
; recognizing DEFUN TYPED-PREDICATE-DEFINITIONS
; compiling top level form:
; compiling DEFUN TYPED-PREDICATE-DEFINITIONS:
; compiling top level form:
; recognizing DEFUN TYPED-COPIER-DEFINITIONS
; compiling top level form:
; compiling DEFUN TYPED-COPIER-DEFINITIONS:
; compiling top level form:
; recognizing DEFUN TYPED-ACCESSOR-DEFINITIONS
; compiling top level form:
; compiling DEFUN TYPED-ACCESSOR-DEFINITIONS:
; compiling top level form:
; recognizing DEFUN REQUIRE-NO-PRINT-OPTIONS-SO-FAR
; compiling top level form:
; compiling DEFUN REQUIRE-NO-PRINT-OPTIONS-SO-FAR:
; compiling top level form:
; recognizing DEFUN PARSE-1-DD-OPTION
; compiling top level form:
; compiling DEFUN PARSE-1-DD-OPTION:
; compiling top level form:
; recognizing DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS
; compiling top level form:
; compiling DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS:
; compiling top level form:
; recognizing DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS-AND-SLOT-DESCRIPTIONS
; compiling top level form:
; compiling DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS-AND-SLOT-DESCRIPTIONS:
; compiling top level form:
; recognizing DEFUN PARSE-1-DSD
; compiling top level form:
; compiling DEFUN PARSE-1-DSD:
; compiling top level form:
; recognizing DEFUN STRUCTURE-RAW-SLOT-TYPE-AND-SIZE
; compiling top level form:
; compiling DEFUN STRUCTURE-RAW-SLOT-TYPE-AND-SIZE:
; compiling top level form:
; recognizing DEFUN ALLOCATE-1-SLOT
; compiling top level form:
; compiling DEFUN ALLOCATE-1-SLOT:
; compiling top level form:
; recognizing DEFUN TYPED-STRUCTURE-INFO-OR-LOSE
; compiling top level form:
; compiling DEFUN TYPED-STRUCTURE-INFO-OR-LOSE:
; compiling top level form:
; recognizing DEFUN FROB-DD-INCLUSION-STUFF
; compiling top level form:
; compiling DEFUN FROB-DD-INCLUSION-STUFF:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/defstruct.lisp
; in: DEFUN FROB-DD-INCLUSION-STUFF
; (FIND SB!KERNEL::INCLUDED-NAME
; SB!KERNEL::MODIFIED-SLOTS
; :KEY
; (LAMBDA (SB!KERNEL::X)
; (IF (ATOM SB!KERNEL::X) SB!KERNEL::X (CAR SB!KERNEL::X)))
; :TEST
; #'STRING=)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN INHERITS-FOR-STRUCTURE
; compiling top level form:
; compiling DEFUN INHERITS-FOR-STRUCTURE:
; compiling top level form:
; recognizing DEFUN %DEFSTRUCT
; compiling top level form:
; compiling DEFUN %DEFSTRUCT:
; compiling top level form:
; recognizing DEFUN %ACCESSOR-PLACE-FORM
; compiling top level form:
; compiling DEFUN %ACCESSOR-PLACE-FORM:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/defstruct.lisp
; in: DEFUN %ACCESSOR-PLACE-FORM
; (FIND SB!KERNEL::RAW-TYPE
; SB!KERNEL::*RAW-SLOT-DATA-LIST*
; :KEY
; #'SB!KERNEL::RAW-SLOT-DATA-RAW-TYPE
; :TEST
; #'EQUAL)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN SLOT-ACCESSOR-TRANSFORMS
; compiling top level form:
; compiling DEFUN SLOT-ACCESSOR-TRANSFORMS:
; compiling top level form:
; recognizing DEFUN SLOT-SETTER-LAMBDA-FORM
; compiling top level form:
; compiling DEFUN SLOT-SETTER-LAMBDA-FORM:
; compiling top level form:
; recognizing DEFUN %COMPILER-SET-UP-LAYOUT
; compiling top level form:
; compiling DEFUN %COMPILER-SET-UP-LAYOUT:
; compiling top level form:
; recognizing DEFUN %COMPILER-DEFSTRUCT
; compiling top level form:
; compiling DEFUN %COMPILER-DEFSTRUCT:
; compiling top level form:
; recognizing DEFUN COMPARE-SLOTS
; compiling top level form:
; compiling DEFUN COMPARE-SLOTS:
; compiling top level form:
; recognizing DEFUN REDEFINE-STRUCTURE-WARNING
; compiling top level form:
; compiling DEFUN REDEFINE-STRUCTURE-WARNING:
; compiling top level form:
; recognizing DEFUN %REDEFINE-DEFSTRUCT
; compiling top level form:
; compiling DEFUN %REDEFINE-DEFSTRUCT:
; compiling top level form:
; recognizing DEFUN ENSURE-STRUCTURE-CLASS
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/defstruct.lisp
; in: DEFUN ENSURE-STRUCTURE-CLASS
; (VALUES CLASS SB!KERNEL::NEW-LAYOUT SB!KERNEL::OLD-LAYOUT)
; ==>
; CLASS
;
; note: deleting unreachable code
; compiling DEFUN ENSURE-STRUCTURE-CLASS:
; compiling top level form:
; recognizing DEFUN UNDEFINE-STRUCTURE
; compiling top level form:
; compiling DEFUN UNDEFINE-STRUCTURE:
; compiling top level form:
; recognizing DEFUN FIND-NAME-INDICES
; compiling top level form:
; compiling DEFUN FIND-NAME-INDICES:
; compiling top level form:
; recognizing DEFUN CREATE-VECTOR-CONSTRUCTOR
; compiling top level form:
; compiling DEFUN CREATE-VECTOR-CONSTRUCTOR:
; compiling top level form:
; recognizing DEFUN CREATE-LIST-CONSTRUCTOR
; compiling top level form:
; compiling DEFUN CREATE-LIST-CONSTRUCTOR:
; compiling top level form:
; recognizing DEFUN CREATE-STRUCTURE-CONSTRUCTOR
; compiling top level form:
; compiling DEFUN CREATE-STRUCTURE-CONSTRUCTOR:
; compiling top level form:
; recognizing DEFUN CREATE-KEYWORD-CONSTRUCTOR
; compiling top level form:
; compiling DEFUN CREATE-KEYWORD-CONSTRUCTOR:
; compiling top level form:
; recognizing DEFUN CREATE-BOA-CONSTRUCTOR
; compiling top level form:
; compiling DEFUN CREATE-BOA-CONSTRUCTOR:
; compiling top level form:
; recognizing DEFUN CONSTRUCTOR-DEFINITIONS
; compiling top level form:
; compiling DEFUN CONSTRUCTOR-DEFINITIONS:
; compiling top level form:
; recognizing DEFUN MAKE-DD-WITH-ALTERNATE-METACLASS
; compiling top level form:
; compiling DEFUN MAKE-DD-WITH-ALTERNATE-METACLASS:
; compiling top level form:
; compiling SB-XC:DEFMACRO !DEFSTRUCT-WITH-ALTERNATE-METACLASS:
; compiling top level form:
; recognizing DEFUN !SET-UP-STRUCTURE-OBJECT-CLASS
; compiling top level form:
; compiling DEFUN !SET-UP-STRUCTURE-OBJECT-CLASS:
; compiling top level form:
; compiling top level form:
; compiling DOLIST (ARGS (QUOTE #)):
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/defstruct.lisp
; in: SB-XC:DEFMACRO %DELAYED-GET-COMPILER-LAYOUT
; (SB!C:COMPILER-NOTIFY "implementation limitation: ~
; Non-toplevel DEFSTRUCT constructors are slow.")
;
; caught STYLE-WARNING:
; undefined function: SB!C:COMPILER-NOTIFY
; in: LAMBDA NIL
; (SB!C:COMPILER-NOTIFY "implementation limitation: ~
; Non-toplevel DEFSTRUCT constructors are slow.")
;
; caught STYLE-WARNING:
; undefined function: SB!C:COMPILER-NOTIFY
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/defstruct.lisp
; in: DEFUN %COMPILER-DEFSTRUCT
; (SB!INT:STYLE-WARN "~@"
; SB!KERNEL::ACCESSOR-NAME
; (SB!KERNEL:DSD-NAME SB!KERNEL::DSD))
;
; caught STYLE-WARNING:
; undefined function: STYLE-WARN
; in: DEFUN PARSE-1-DSD
; (SB!INT:STYLE-WARN
; "~@"
; SB!KERNEL::ACCESSOR-NAME)
;
; caught STYLE-WARNING:
; undefined function: STYLE-WARN
; in: DEFUN TYPED-ACCESSOR-DEFINITIONS
; (SB!INT:STYLE-WARN "~@"
; SB!KERNEL::NAME
; (SB!KERNEL:DSD-NAME SB!ALIEN:SLOT))
;
; caught STYLE-WARNING:
; undefined function: STYLE-WARN
;
; caught STYLE-WARNING:
; These functions are undefined:
; SB!C:COMPILER-NOTIFY STYLE-WARN
;
; compilation unit finished
; caught 6 STYLE-WARNING conditions
; printed 7 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/defstruct.lisp-obj-tmp written
; compilation finished in 0:00:03
STYLE-WARNING: redefining MAKE-RAW-SLOT-DATA in DEFUN
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/alien-type.lisp" (written 11 DEC 2003 02:34:25 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MAKE-ALIEN-TYPE-TYPE
; compiling top level form:
; compiling DEFSTRUCT ALIEN-TYPE-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-NEGATE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (ALIEN :NEGATE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-UNPARSE-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (ALIEN :UNPARSE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALIEN-SIMPLE-SUBTYPEP-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (ALIEN :SIMPLE-SUBTYPEP):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEFINE-SUPERCLASSES ALIEN:
; compiling !DEFINE-SUPERCLASSES ALIEN:
; recognizing DEFUN ALIEN-SIMPLE-=-TYPE-METHOD
; compiling top level form:
; compiling !DEFINE-TYPE-METHOD (ALIEN :SIMPLE-=):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEF-TYPE-TRANSLATOR ALIEN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIEN-TYPE-TYPE
; compiling top level form:
; compiling DEFUN MAKE-ALIEN-TYPE-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/alien-type.lisp
; in: !DEF-TYPE-TRANSLATOR ALIEN
; (SB!KERNEL:MAKE-NULL-LEXENV)
;
; caught STYLE-WARNING:
; undefined function: MAKE-NULL-LEXENV
;
; caught STYLE-WARNING:
; This function is undefined:
; MAKE-NULL-LEXENV
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/alien-type.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/force-delayed-defbangstructs.lisp" (written 21 OCT 2000 01:30:33 AM):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/force-delayed-defbangstructs.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/compiler-error.lisp" (written 19 JUL 2004 10:24:21 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-CONDITION COMPILER-ERROR:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COMPILER-ERROR
; compiling top level form:
; compiling DEFUN COMPILER-ERROR:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/compiler-error.lisp
; in: DEFUN COMPILER-ERROR
; (SB!INT:BUG "Control returned from *COMPILER-ERROR-BAILOUT*.")
; ==>
; "Control returned from *COMPILER-ERROR-BAILOUT*."
;
; note: deleting unreachable code
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COMPILER-WARN
; compiling top level form:
; compiling DEFUN COMPILER-WARN:
; compiling top level form:
; recognizing DEFUN COMPILER-STYLE-WARN
; compiling top level form:
; compiling DEFUN COMPILER-STYLE-WARN:
; compiling top level form:
; recognizing DEFUN MAKE-COMPILER-ERROR-FORM
; compiling top level form:
; compiling DEFUN MAKE-COMPILER-ERROR-FORM:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-CONDITION INPUT-ERROR-IN-COMPILE-FILE:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/compiler-error.lisp
; in: DEFUN COMPILER-ERROR
; (SB!KERNEL:COERCE-TO-CONDITION SB!C::DATUM
; SB!C::ARGUMENTS
; 'SB!INT:SIMPLE-PROGRAM-ERROR
; 'SB!C:COMPILER-ERROR)
;
; caught STYLE-WARNING:
; undefined function: COERCE-TO-CONDITION
; in: DEFUN COMPILER-STYLE-WARN
; #'SB!INT:STYLE-WARN
;
; caught STYLE-WARNING:
; undefined function: STYLE-WARN
;
; caught STYLE-WARNING:
; These functions are undefined:
; COERCE-TO-CONDITION STYLE-WARN
;
; compilation unit finished
; caught 3 STYLE-WARNING conditions
; printed 1 note
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/compiler-error.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/type-init.lisp" (written 16 JUL 2003 10:26:01 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/type-init.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/fixup-type.lisp" (written 16 JUL 2003 10:26:01 AM):
; compiling top level form:
; compiling top level form:
; compiling !COLD-INIT-FORMS (MAP (QUOTE NIL) (LAMBDA # #) SB!VM:*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES*):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/fixup-type.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/package.lisp" (written 29 OCT 2004 01:30:43 PM):
; compiling top level form:
; compiling DEF!TYPE HASH-VECTOR:
; compiling top level form:
; compiling DEF!TYPE HASH-VECTOR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MAKE-PACKAGE-HASHTABLE
; compiling top level form:
; compiling DEF!STRUCT (PACKAGE-HASHTABLE (:CONSTRUCTOR %MAKE-PACKAGE-HASHTABLE #) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE T)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!KERNEL:INSTANCE)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE STRUCTURE-OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!SYS:STRUCTURE!OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INTERNAL-MAKE-PACKAGE
; compiling top level form:
; compiling DEF!STRUCT (SB-XC:PACKAGE (:CONSTRUCTOR INTERNAL-MAKE-PACKAGE) (:MAKE-LOAD-FORM-FUN #) (:PREDICATE SB-XC:PACKAGEP)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!STRUCT (SB-XC:PACKAGE (:CONSTRUCTOR INTERNAL-MAKE-PACKAGE) (:MAKE-LOAD-FORM-FUN #) (:PREDICATE SB-XC:PACKAGEP)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY DO-SYMBOLS:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY DO-EXTERNAL-SYMBOLS:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY DO-ALL-SYMBOLS:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY WITH-PACKAGE-ITERATOR:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/package.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/random.lisp" (written 19 MAY 2002 03:55:32 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE T)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!KERNEL:INSTANCE)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE STRUCTURE-OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/random.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/hash-table.lisp" (written 15 MAR 2004 04:55:07 PM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE T)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!KERNEL:INSTANCE)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE STRUCTURE-OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY WITH-HASH-TABLE-ITERATOR:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/hash-table.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/readtable.lisp" (written 31 OCT 2004 06:46:48 AM):
; compiling top level form:
; compiling SB-XC:DEFTYPE ATTRIBUTE-TABLE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE T)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!KERNEL:INSTANCE)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE STRUCTURE-OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/readtable.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/pathname.lisp" (written 27 JAN 2004 03:24:06 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE T)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!KERNEL:INSTANCE)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE STRUCTURE-OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!SYS:STRUCTURE!OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-LOGICAL-HOST
; compiling top level form:
; compiling DEF!STRUCT (LOGICAL-HOST (:MAKE-LOAD-FORM-FUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN) (:INCLUDE HOST # # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!KERNEL:HOST)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; recognizing DEFUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN
; compiling top level form:
; compiling DEFUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-PATTERN
; compiling top level form:
; compiling DEF!STRUCT (PATTERN (:CONSTRUCTOR MAKE-PATTERN #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!TYPE PATHNAME-COMPONENT-TOKENS:
; compiling top level form:
; compiling DEF!TYPE PATHNAME-COMPONENT-TOKENS:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE PATHNAME)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/pathname.lisp
; in:
; DEF!STRUCT (LOGICAL-HOST (:MAKE-LOAD-FORM-FUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN)
; (:INCLUDE HOST
; (PARSE #'PARSE-LOGICAL-NAMESTRING)
; (UNPARSE #'UNPARSE-LOGICAL-NAMESTRING)
; (UNPARSE-HOST (LAMBDA # #))
; ...))
; (SB!IMPL::%PATHNAME-HOST SB!IMPL::X)
;
; caught STYLE-WARNING:
; undefined function: %PATHNAME-HOST
; #'SB!IMPL::PARSE-LOGICAL-NAMESTRING
;
; caught STYLE-WARNING:
; undefined function: PARSE-LOGICAL-NAMESTRING
; #'SB!IMPL::UNPARSE-ENOUGH-NAMESTRING
;
; caught STYLE-WARNING:
; undefined function: UNPARSE-ENOUGH-NAMESTRING
; #'SB!IMPL::UNPARSE-LOGICAL-DIRECTORY
;
; caught STYLE-WARNING:
; undefined function: UNPARSE-LOGICAL-DIRECTORY
; #'SB!IMPL::UNPARSE-LOGICAL-FILE
;
; caught STYLE-WARNING:
; undefined function: UNPARSE-LOGICAL-FILE
; #'SB!IMPL::UNPARSE-LOGICAL-NAMESTRING
;
; caught STYLE-WARNING:
; undefined function: UNPARSE-LOGICAL-NAMESTRING
;
; caught STYLE-WARNING:
; These functions are undefined:
; %PATHNAME-HOST PARSE-LOGICAL-NAMESTRING UNPARSE-ENOUGH-NAMESTRING UNPARSE-LOGICAL-DIRECTORY UNPARSE-LOGICAL-FILE UNPARSE-LOGICAL-NAMESTRING
;
; compilation unit finished
; caught 7 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/pathname.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/host-pprint.lisp" (written 04 FEB 2004 10:16:24 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-PPRINT-DISPATCH-TABLE
; compiling top level form:
; compiling DEF!STRUCT (PPRINT-DISPATCH-TABLE (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE T)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!KERNEL:INSTANCE)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE STRUCTURE-OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!SYS:STRUCTURE!OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/host-pprint.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/lexenv.lisp" (written 29 JUN 2004 10:51:00 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-NULL-LEXENV
; compiling top level form:
; compiling DEF!STRUCT (LEXENV (:CONSTRUCTOR MAKE-NULL-LEXENV NIL) (:CONSTRUCTOR MAKE-NULL-INTERACTIVE-LEXENV #) (:CONSTRUCTOR INTERNAL-MAKE-LEXENV #)):
; compiling top level form:
; recognizing DEFUN MAKE-NULL-INTERACTIVE-LEXENV
; compiling top level form:
; compiling DEF!STRUCT (LEXENV (:CONSTRUCTOR MAKE-NULL-LEXENV NIL) (:CONSTRUCTOR MAKE-NULL-INTERACTIVE-LEXENV #) (:CONSTRUCTOR INTERNAL-MAKE-LEXENV #)):
; compiling top level form:
; recognizing DEFUN INTERNAL-MAKE-LEXENV
; compiling top level form:
; compiling DEF!STRUCT (LEXENV (:CONSTRUCTOR MAKE-NULL-LEXENV NIL) (:CONSTRUCTOR MAKE-NULL-INTERACTIVE-LEXENV #) (:CONSTRUCTOR INTERNAL-MAKE-LEXENV #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE T)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!KERNEL:INSTANCE)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE STRUCTURE-OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!SYS:STRUCTURE!OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COERCE-TO-LEXENV
; compiling top level form:
; compiling DEFUN COERCE-TO-LEXENV:
; compiling top level form:
; recognizing DEFUN MAYBE-INLINE-SYNTACTIC-CLOSURE
; compiling top level form:
; compiling DEFUN MAYBE-INLINE-SYNTACTIC-CLOSURE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/lexenv.lisp
; in: DEFUN MAYBE-INLINE-SYNTACTIC-CLOSURE
; (SB!INT:COLLECT ((SB!C::DECLS) (SB!C::MACROS) (SB!C::SYMBOL-MACROS))
; (COND ((OR # #) NIL)
; ((AND # #)
; (SB!IMPL::BACKQ-LIST* 'SB!C:LAMBDA-WITH-LEXENV
; NIL
; NIL
; NIL
; #))
; ((DOLIST # #) NIL)
; ((DOLIST # #) NIL)
; (T
; (SB!IMPL::BACKQ-LIST* 'SB!C:LAMBDA-WITH-LEXENV ..))))
; --> MACROLET
; ==>
; (LET* ((#:DECLS-N-VALUE-47 NIL)
; #:DECLS-N-TAIL-48
; (#:MACROS-N-VALUE-49 NIL)
; #:MACROS-N-TAIL-50
; (#:SYMBOL-MACROS-N-VALUE-51 NIL)
; #:SYMBOL-MACROS-N-TAIL-52)
; (COND ((OR # #) NIL)
; ((AND # #)
; (SB!IMPL::BACKQ-LIST* 'SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL #))
; ((DOLIST # #) NIL)
; ((DOLIST # #) NIL)
; (T (SB!IMPL::BACKQ-LIST* 'SB!C:LAMBDA-WITH-LEXENV # # # #))))
;
; caught STYLE-WARNING:
; The variable #:DECLS-N-TAIL-48 is defined but never used.
;
; caught STYLE-WARNING:
; The variable #:MACROS-N-TAIL-50 is defined but never used.
;
; caught STYLE-WARNING:
; The variable #:SYMBOL-MACROS-N-TAIL-52 is defined but never used.
; (DOLIST (SB!C::X SB!C::VARS NIL) (RETURN T))
; --> BLOCK LET TAGBODY UNLESS COND IF PROGN
; ==>
; (LET ((SB!C::X (CAR #:N-LIST60)))
; (SETQ #:N-LIST60 (CDR #:N-LIST60))
; (TAGBODY (RETURN T)))
;
; caught STYLE-WARNING:
; The variable X is defined but never used.
; (DOLIST (SB!C::X SB!C::FUNS NIL) (RETURN T))
; --> BLOCK LET TAGBODY UNLESS COND IF PROGN
; ==>
; (LET ((SB!C::X (CAR #:N-LIST62)))
; (SETQ #:N-LIST62 (CDR #:N-LIST62))
; (TAGBODY (RETURN T)))
;
; caught STYLE-WARNING:
; The variable X is defined but never used.
; compiling top level form:
; compilation unit finished
; caught 5 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/lexenv.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/fndb.lisp" (written 21 DEC 2004 04:52:09 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling SB-XC:DEFTYPE NAME-FOR-CLASS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/fndb.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/vm-fndb.lisp" (written 02 NOV 2004 08:22:09 AM):
; compiling top level form:
; in: COMMON-LISP:LAMBDA COMMON-LISP:NIL
; '(:OR)
;
; note: deleting unreachable code
; '(:AND)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; '(:OR)
;
; note: deleting unreachable code
; '(:AND)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; '(:OR)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; '(:AND)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling SB-XC:DEFTYPE RAW-VECTOR:
; compiling top level form:
; in: COMMON-LISP:LAMBDA COMMON-LISP:NIL
; '(:OR)
;
; note: deleting unreachable code
; '(:AND)
;
; note: deleting unreachable code
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compilation unit finished
; printed 13 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/vm-fndb.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/objdef.lisp" (written 20 JUL 2004 01:44:45 AM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/objdef.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/interr.lisp" (written 02 NOV 2004 08:22:09 AM):
; compiling top level form:
; recognizing DEFUN ERROR-NUMBER-OR-LOSE
; compiling top level form:
; compiling DEFUN ERROR-NUMBER-OR-LOSE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/interr.lisp
; in: DEFUN ERROR-NUMBER-OR-LOSE
; (POSITION SB!KERNEL::NAME SB!C:*BACKEND-INTERNAL-ERRORS* :KEY #'CAR)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR SIMPLE-VECTOR NULL), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR SIMPLE-VECTOR NULL), not a VECTOR.
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compilation unit finished
; printed 2 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/interr.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/bit-util.lisp" (written 11 OCT 2001 03:09:15 AM):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CLEAR-BIT-VECTOR
; compiling top level form:
; compiling DEFUN CLEAR-BIT-VECTOR:
; compiling top level form:
; recognizing DEFUN SET-BIT-VECTOR
; compiling top level form:
; compiling DEFUN SET-BIT-VECTOR:
; compiling top level form:
; recognizing DEFUN BIT-VECTOR-REPLACE
; compiling top level form:
; compiling DEFUN BIT-VECTOR-REPLACE:
; compiling top level form:
; recognizing DEFUN BIT-VECTOR-COPY
; compiling top level form:
; compiling DEFUN BIT-VECTOR-COPY:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/bit-util.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/early-assem.lisp" (written 14 JUL 2004 10:29:51 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!TYPE ASSEMBLY-UNIT:
; compiling top level form:
; compiling DEF!TYPE ASSEMBLY-UNIT:
; compiling top level form:
; compiling DEF!TYPE POSSIBLY-SIGNED-ASSEMBLY-UNIT:
; compiling top level form:
; compiling DEF!TYPE POSSIBLY-SIGNED-ASSEMBLY-UNIT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!TYPE ALIGNMENT:
; compiling top level form:
; compiling DEF!TYPE ALIGNMENT:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/early-assem.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/core.lisp" (written 09 SEP 2004 02:10:15 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-CORE-OBJECT
; compiling top level form:
; compiling DEFSTRUCT CORE-OBJECT:
; compiling top level form:
; compiling top level form:
; compiling DEFSTRUCT CORE-OBJECT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NOTE-FUN
; compiling top level form:
; compiling DEFUN NOTE-FUN:
; compiling top level form:
; recognizing DEFUN DO-CORE-FIXUPS
; compiling top level form:
; compiling DEFUN DO-CORE-FIXUPS:
; compiling top level form:
; recognizing DEFUN REFERENCE-CORE-FUN
; compiling top level form:
; compiling DEFUN REFERENCE-CORE-FUN:
; compiling top level form:
; recognizing DEFUN CORE-CALL-TOPLEVEL-LAMBDA
; compiling top level form:
; compiling DEFUN CORE-CALL-TOPLEVEL-LAMBDA:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/core.lisp
; in: DEFUN CORE-CALL-TOPLEVEL-LAMBDA
; (FUNCALL
; (OR
; (GETHASH (SB!C::LEAF-INFO SB!C::ENTRY)
; (SB!C::CORE-OBJECT-ENTRY-TABLE SB!C::OBJECT))
; (ERROR "Unresolved forward reference.")))
; --> 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 top level form:
; recognizing DEFUN FIX-CORE-SOURCE-INFO
; compiling top level form:
; compiling DEFUN FIX-CORE-SOURCE-INFO:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/core.lisp
; in: DEFUN FIX-CORE-SOURCE-INFO
; (SETF (SB!C::COMPILED-DEBUG-INFO-SOURCE SB!INT:INFO) SB!C::RES)
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL
; ==>
; (SB-C::%FUNCALL #'(SETF SB!C::COMPILED-DEBUG-INFO-SOURCE) #:G122 #:G123)
;
; caught STYLE-WARNING:
; undefined function: (SETF COMPILED-DEBUG-INFO-SOURCE)
; (SETF (SB!C::DEBUG-SOURCE-INFO SB!C::SINFO) SB!C::SOURCE-INFO)
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL
; ==>
; (SB-C::%FUNCALL #'(SETF SB!C::DEBUG-SOURCE-INFO) #:G118 #:G119)
;
; caught STYLE-WARNING:
; undefined function: (SETF DEBUG-SOURCE-INFO)
; in: DEFUN REFERENCE-CORE-FUN
; (SETF (SB!KERNEL:CODE-HEADER-REF SB!C::CODE-OBJ SB!C::I) SB!C::FOUND)
; ==>
; (SB!KERNEL:CODE-HEADER-SET SB!C::CODE-OBJ SB!C::I SB!C::FOUND)
;
; caught STYLE-WARNING:
; undefined function: CODE-HEADER-SET
; in: DEFUN NOTE-FUN
; (SETF (SB!KERNEL:CODE-HEADER-REF (CAR SB!C::PATCH)
; (THE SB!INT:INDEX (CDR SB!C::PATCH)))
; FUNCTION)
; ==>
; (SB!KERNEL:CODE-HEADER-SET (CAR SB!C::PATCH)
; (THE SB!INT:INDEX (CDR SB!C::PATCH))
; FUNCTION)
;
; caught STYLE-WARNING:
; undefined function: CODE-HEADER-SET
; in: DEFUN FIX-CORE-SOURCE-INFO
; (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO)
;
; caught STYLE-WARNING:
; undefined function: DEBUG-SOURCE-FOR-INFO
; in: DEFUN DO-CORE-FIXUPS
; (SB!VM:FIXUP-CODE-OBJECT SB!C::CODE POSITION SB!C::VALUE SB!C::KIND)
;
; caught STYLE-WARNING:
; undefined function: SB!VM:FIXUP-CODE-OBJECT
; (SB!C:FIXUP-FLAVOR SB!C:FIXUP)
;
; caught STYLE-WARNING:
; undefined function: FIXUP-FLAVOR
; (SB!C:FIXUP-NAME SB!C:FIXUP)
;
; caught STYLE-WARNING:
; undefined function: FIXUP-NAME
; (SB!C:FIXUP-NOTE-FIXUP SB!C::NOTE)
;
; caught STYLE-WARNING:
; undefined function: FIXUP-NOTE-FIXUP
; (SB!C:FIXUP-NOTE-KIND SB!C::NOTE)
;
; caught STYLE-WARNING:
; undefined function: FIXUP-NOTE-KIND
; (SB!C:FIXUP-NOTE-POSITION SB!C::NOTE)
;
; caught STYLE-WARNING:
; undefined function: FIXUP-NOTE-POSITION
; (SB!SYS:FOREIGN-SYMBOL-ADDRESS-AS-INTEGER SB!C::NAME)
;
; caught STYLE-WARNING:
; undefined function: FOREIGN-SYMBOL-ADDRESS-AS-INTEGER
; (SB!KERNEL:GET-LISP-OBJ-ADDRESS SB!C::CODE)
;
; caught STYLE-WARNING:
; undefined function: GET-LISP-OBJ-ADDRESS
; in: DEFUN FIX-CORE-SOURCE-INFO
; (DEFUN SB!C::FIX-CORE-SOURCE-INFO
; (SB!INT:INFO SB!C::OBJECT &OPTIONAL SB!C::SOURCE-INFO)
; (DECLARE (TYPE SB!C::SOURCE-INFO SB!INT:INFO)
; (TYPE SB!C::CORE-OBJECT SB!C::OBJECT))
; (SB!INT:AVER (ZEROP (HASH-TABLE-COUNT #)))
; (LET ((SB!C::RES #))
; (DOLIST (SB!C::SINFO SB!C::RES) (SETF # SB!C::SOURCE-INFO))
; (DOLIST (SB!INT:INFO #) (SETF # SB!C::RES))
; (SETF (SB!C::CORE-OBJECT-DEBUG-INFO SB!C::OBJECT) NIL))
; (VALUES))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION COND
; --> IF PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF
; ==>
; (TYPEP #:G136 'SB!C::SOURCE-INFO)
;
; caught STYLE-WARNING:
; undefined type: SOURCE-INFO
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION COND
; --> IF COND IF PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF
; --> NOT IF
; ==>
; (TYPEP #:G132 'SB!C::SOURCE-INFO)
;
; caught STYLE-WARNING:
; undefined type: SOURCE-INFO
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SB!C::FIX-CORE-SOURCE-INFO
; (SB!INT:INFO SB!C::OBJECT &OPTIONAL SB!C::SOURCE-INFO)
; (DECLARE (TYPE SB!C::SOURCE-INFO SB!INT:INFO)
; (TYPE SB!C::CORE-OBJECT SB!C::OBJECT))
; (BLOCK SB!C::FIX-CORE-SOURCE-INFO
; (SB!INT:AVER (ZEROP #))
; (LET (#)
; (DOLIST # #)
; (DOLIST # #)
; (SETF # NIL))
; (VALUES)))
;
; caught STYLE-WARNING:
; undefined type: SOURCE-INFO
;
; caught STYLE-WARNING:
; 4 more uses of undefined type SOURCE-INFO
;
; caught STYLE-WARNING:
; These functions are undefined:
; (SETF COMPILED-DEBUG-INFO-SOURCE) (SETF DEBUG-SOURCE-INFO) CODE-HEADER-SET DEBUG-SOURCE-FOR-INFO SB!VM:FIXUP-CODE-OBJECT FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION FOREIGN-SYMBOL-ADDRESS-AS-INTEGER GET-LISP-OBJ-ADDRESS
;
; caught STYLE-WARNING:
; This type is undefined:
; SOURCE-INFO
;
; compilation unit finished
; caught 19 STYLE-WARNING conditions
; printed 1 note
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/core.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/thread.lisp" (written 15 APR 2004 03:17:18 PM):
; compiling top level form:
; compiling SB-XC:DEFMACRO WITH-MUTEX:
; compiling top level form:
; compiling SB-XC:DEFMACRO WITH-RECURSIVE-LOCK:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/thread.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/load.lisp" (written 09 SEP 2004 02:10:14 PM):
; compiling top level form:
; recognizing DEFUN LOAD-FRESH-LINE
; compiling top level form:
; compiling DEFUN LOAD-FRESH-LINE:
; compiling top level form:
; recognizing DEFUN MAYBE-ANNOUNCE-LOAD
; compiling top level form:
; compiling DEFUN MAYBE-ANNOUNCE-LOAD:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/load.lisp
; in: DEFUN MAYBE-ANNOUNCE-LOAD
; (FORMAT T "loading ~S~%" SB!FASL::NAME)
; ==>
; "loading ~S~%"
;
; note: deleting unreachable code
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO FAST-READ-U-INTEGER:
; compiling top level form:
; compiling DEFMACRO FAST-READ-VAR-U-INTEGER:
; compiling top level form:
; compiling DEFMACRO FAST-READ-S-INTEGER:
; compiling top level form:
; compiling DEFMACRO READ-ARG:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN READ-BYTE-ARG
; compiling top level form:
; compiling DEFUN READ-BYTE-ARG:
; compiling top level form:
; recognizing DEFUN READ-HALFWORD-ARG
; compiling top level form:
; compiling DEFUN READ-HALFWORD-ARG:
; compiling top level form:
; recognizing DEFUN READ-WORD-ARG
; compiling top level form:
; compiling DEFUN READ-WORD-ARG:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN GROW-FOP-TABLE
; compiling top level form:
; compiling DEFUN GROW-FOP-TABLE:
; compiling top level form:
; compiling DEFMACRO PUSH-FOP-TABLE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO WITH-FOP-STACK:
; compiling top level form:
; compiling DEFMACRO %CALL-WITH-POPPED-ARGS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-CONDITION INVALID-FASL:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-CONDITION INVALID-FASL-HEADER:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-CONDITION INVALID-FASL-VERSION:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-CONDITION INVALID-FASL-IMPLEMENTATION:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-CONDITION INVALID-FASL-FEATURES:
; compiling top level form:
; recognizing DEFUN CHECK-FASL-HEADER
; compiling top level form:
; compiling DEFUN CHECK-FASL-HEADER:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/load.lisp
; in: DEFUN CHECK-FASL-HEADER
; (READ-BYTE STREAM NIL)
; --> BLOCK LET IF LET IF SB-IMPL::EOF-OR-LOSE IF ERROR
; ==>
; STREAM
;
; note: deleting unreachable code
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOAD-FASL-GROUP
; compiling top level form:
; compiling DEFUN LOAD-FASL-GROUP:
; compiling top level form:
; recognizing DEFUN LOAD-AS-FASL
; compiling top level form:
; compiling DEFUN LOAD-AS-FASL:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/load.lisp
; in: DEFUN CHECK-FASL-HEADER
; (SB!FASL::READ-STRING-AS-BYTES STREAM SB!FASL::RESULT)
;
; caught STYLE-WARNING:
; undefined function: READ-STRING-AS-BYTES
;
; caught STYLE-WARNING:
; This function is undefined:
; READ-STRING-AS-BYTES
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; printed 2 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/load.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/foreign.lisp" (written 21 DEC 2004 04:52:05 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-FOREIGN-SYMBOL-IN-TABLE
; compiling top level form:
; compiling DEFUN FIND-FOREIGN-SYMBOL-IN-TABLE:
; compiling top level form:
; recognizing DEFUN FOREIGN-SYMBOL-ADDRESS-AS-INTEGER-OR-NIL
; compiling top level form:
; compiling DEFUN FOREIGN-SYMBOL-ADDRESS-AS-INTEGER-OR-NIL:
; compiling top level form:
; recognizing DEFUN FOREIGN-SYMBOL-ADDRESS-AS-INTEGER
; compiling top level form:
; compiling DEFUN FOREIGN-SYMBOL-ADDRESS-AS-INTEGER:
; compiling top level form:
; recognizing DEFUN FOREIGN-SYMBOL-ADDRESS
; compiling top level form:
; compiling DEFUN FOREIGN-SYMBOL-ADDRESS:
; compiling top level form:
; recognizing DEFUN FOREIGN-SYMBOL-IN-ADDRESS
; compiling top level form:
; compiling DEFUN FOREIGN-SYMBOL-IN-ADDRESS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOAD-SHARED-OBJECT
; compiling top level form:
; compiling DEFINE-UNSUPPORTED-FUN LOAD-SHARED-OBJECT:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/foreign.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp" (written 11 NOV 2004 12:54:33 PM):
; compiling top level form:
; compiling DEFMACRO DEFINE-FOP:
; compiling top level form:
; recognizing DEFUN %DEFINE-FOP
; compiling top level form:
; compiling DEFUN %DEFINE-FOP:
; compiling top level form:
; compiling DEFMACRO DEFINE-CLONED-FOPS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN READ-STRING-AS-BYTES
; compiling top level form:
; compiling DEFUN READ-STRING-AS-BYTES:
; compiling top level form:
; recognizing DEFUN READ-STRING-AS-WORDS
; compiling top level form:
; compiling DEFUN READ-STRING-AS-WORDS:
; compiling top level form:
; recognizing DEFUN FOP-NOP4
; compiling top level form:
; compiling DEFINE-FOP (FOP-NOP4 137 :STACKP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-NOP
; compiling top level form:
; compiling DEFINE-FOP (FOP-NOP 0 :STACKP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-POP
; compiling top level form:
; compiling DEFINE-FOP (FOP-POP 1 :PUSHP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-PUSH
; compiling top level form:
; compiling DEFINE-FOP (FOP-PUSH 2):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-BYTE-PUSH
; compiling top level form:
; compiling DEFINE-FOP (FOP-BYTE-PUSH 3):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-EMPTY-LIST
; compiling top level form:
; compiling DEFINE-FOP (FOP-EMPTY-LIST 4):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-TRUTH
; compiling top level form:
; compiling DEFINE-FOP (FOP-TRUTH 5):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-MISC-TRAP
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in: DEFINE-FOP (FOP-MISC-TRAP 66)
; (SB!FASL::DEFINE-FOP (SB!FASL::FOP-MISC-TRAP 66)
; (ERROR
; "FOP-MISC-TRAP can't be defined without %PRIMITIVE."))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; ==>
; (VECTOR-PUSH-EXTEND
; (PROGN (ERROR "FOP-MISC-TRAP can't be defined without %PRIMITIVE."))
; #:FOP-STACK-474)
;
; note: The first argument never returns a value.
; compiling DEFINE-FOP (FOP-MISC-TRAP 66):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-CHARACTER
; compiling top level form:
; compiling DEFINE-CLONED-FOPS (FOP-CHARACTER 68):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-SHORT-CHARACTER
; compiling top level form:
; compiling DEFINE-CLONED-FOPS (FOP-CHARACTER 68):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-STRUCT
; compiling top level form:
; compiling DEFINE-CLONED-FOPS (FOP-STRUCT 48):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-SMALL-STRUCT
; compiling top level form:
; compiling DEFINE-CLONED-FOPS (FOP-STRUCT 48):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LAYOUT
; compiling top level form:
; compiling DEFINE-FOP (FOP-LAYOUT 45):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-END-GROUP
; compiling top level form:
; compiling DEFINE-FOP (FOP-END-GROUP 64 :STACKP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-NORMAL-LOAD
; compiling top level form:
; compiling DEFINE-FOP (FOP-NORMAL-LOAD 81 :STACKP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-MAYBE-COLD-LOAD
; compiling top level form:
; compiling DEFINE-FOP (FOP-MAYBE-COLD-LOAD 82 :STACKP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-VERIFY-TABLE-SIZE
; compiling top level form:
; compiling DEFINE-FOP (FOP-VERIFY-TABLE-SIZE 62 :STACKP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-VERIFY-EMPTY-STACK
; compiling top level form:
; compiling DEFINE-FOP (FOP-VERIFY-EMPTY-STACK 63 :STACKP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LISP-SYMBOL-SAVE
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LISP-SMALL-SYMBOL-SAVE
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-KEYWORD-SYMBOL-SAVE
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-KEYWORD-SMALL-SYMBOL-SAVE
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-SYMBOL-IN-PACKAGE-SAVE
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-SMALL-SYMBOL-IN-PACKAGE-SAVE
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-SYMBOL-IN-BYTE-PACKAGE-SAVE
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-SMALL-SYMBOL-IN-BYTE-PACKAGE-SAVE
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-UNINTERNED-SYMBOL-SAVE
; compiling top level form:
; compiling DEFINE-CLONED-FOPS (FOP-UNINTERNED-SYMBOL-SAVE 12):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-UNINTERNED-SMALL-SYMBOL-SAVE
; compiling top level form:
; compiling DEFINE-CLONED-FOPS (FOP-UNINTERNED-SYMBOL-SAVE 12):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-PACKAGE
; compiling top level form:
; compiling DEFINE-FOP (FOP-PACKAGE 14):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOAD-S-INTEGER
; compiling top level form:
; compiling DEFUN LOAD-S-INTEGER:
; compiling top level form:
; recognizing DEFUN FOP-INTEGER
; compiling top level form:
; compiling DEFINE-CLONED-FOPS (FOP-INTEGER 33):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-SMALL-INTEGER
; compiling top level form:
; compiling DEFINE-CLONED-FOPS (FOP-INTEGER 33):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-WORD-INTEGER
; compiling top level form:
; compiling DEFINE-FOP (FOP-WORD-INTEGER 35):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-BYTE-INTEGER
; compiling top level form:
; compiling DEFINE-FOP (FOP-BYTE-INTEGER 36):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-RATIO
; compiling top level form:
; compiling DEFINE-FOP (FOP-RATIO 70):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-COMPLEX
; compiling top level form:
; compiling DEFINE-FOP (FOP-COMPLEX 71):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-COMPLEX-SINGLE-FLOAT
; compiling top level form:
; compiling DEFINE-COMPLEX-FOP FOP-COMPLEX-SINGLE-FLOAT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-COMPLEX-DOUBLE-FLOAT
; compiling top level form:
; compiling DEFINE-COMPLEX-FOP FOP-COMPLEX-DOUBLE-FLOAT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-SINGLE-FLOAT
; compiling top level form:
; compiling DEFINE-FLOAT-FOP FOP-SINGLE-FLOAT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-DOUBLE-FLOAT
; compiling top level form:
; compiling DEFINE-FLOAT-FOP FOP-DOUBLE-FLOAT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LIST
; compiling top level form:
; compiling DEFINE-FOP (FOP-LIST 15):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LIST*
; compiling top level form:
; compiling DEFINE-FOP (FOP-LIST* 16):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LIST-1
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in:
; MACROLET ((FROB (NAME OP FUN N)
; (SB!IMPL::BACKQ-LIST 'DEFINE-FOP
; (SB!IMPL::BACKQ-LIST NAME OP)
; (SB!IMPL::BACKQ-LIST
; 'CALL-WITH-POPPED-ARGS
; FUN
; N))))
; (SB!FASL::FROB SB!FASL::FOP-LIST-1 17 LIST 1)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; --> VECTOR-PUSH-EXTEND PROGN SB!FASL::CALL-WITH-POPPED-ARGS
; --> SB!FASL::%CALL-WITH-POPPED-ARGS 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 T), not a SIMPLE-ARRAY.
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LIST-2
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in:
; MACROLET ((FROB (NAME OP FUN N)
; (SB!IMPL::BACKQ-LIST 'DEFINE-FOP
; (SB!IMPL::BACKQ-LIST NAME OP)
; (SB!IMPL::BACKQ-LIST
; 'CALL-WITH-POPPED-ARGS
; FUN
; N))))
; (SB!FASL::FROB SB!FASL::FOP-LIST-2 18 LIST 2)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; --> VECTOR-PUSH-EXTEND PROGN SB!FASL::CALL-WITH-POPPED-ARGS
; --> SB!FASL::%CALL-WITH-POPPED-ARGS 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 T), not a SIMPLE-ARRAY.
; [Last message occurs 2 times.]
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LIST-3
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in:
; MACROLET ((FROB (NAME OP FUN N)
; (SB!IMPL::BACKQ-LIST 'DEFINE-FOP
; (SB!IMPL::BACKQ-LIST NAME OP)
; (SB!IMPL::BACKQ-LIST
; 'CALL-WITH-POPPED-ARGS
; FUN
; N))))
; (SB!FASL::FROB SB!FASL::FOP-LIST-3 19 LIST 3)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; --> VECTOR-PUSH-EXTEND PROGN SB!FASL::CALL-WITH-POPPED-ARGS
; --> SB!FASL::%CALL-WITH-POPPED-ARGS 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 T), not a SIMPLE-ARRAY.
; [Last message occurs 3 times.]
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LIST-4
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in:
; MACROLET ((FROB (NAME OP FUN N)
; (SB!IMPL::BACKQ-LIST 'DEFINE-FOP
; (SB!IMPL::BACKQ-LIST NAME OP)
; (SB!IMPL::BACKQ-LIST
; 'CALL-WITH-POPPED-ARGS
; FUN
; N))))
; (SB!FASL::FROB SB!FASL::FOP-LIST-4 20 LIST 4)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; --> VECTOR-PUSH-EXTEND PROGN SB!FASL::CALL-WITH-POPPED-ARGS
; --> SB!FASL::%CALL-WITH-POPPED-ARGS 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 T), not a SIMPLE-ARRAY.
; [Last message occurs 4 times.]
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LIST-5
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in:
; MACROLET ((FROB (NAME OP FUN N)
; (SB!IMPL::BACKQ-LIST 'DEFINE-FOP
; (SB!IMPL::BACKQ-LIST NAME OP)
; (SB!IMPL::BACKQ-LIST
; 'CALL-WITH-POPPED-ARGS
; FUN
; N))))
; (SB!FASL::FROB SB!FASL::FOP-LIST-5 21 LIST 5)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; --> VECTOR-PUSH-EXTEND PROGN SB!FASL::CALL-WITH-POPPED-ARGS
; --> SB!FASL::%CALL-WITH-POPPED-ARGS 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 T), not a SIMPLE-ARRAY.
; [Last message occurs 5 times.]
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LIST-6
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in:
; MACROLET ((FROB (NAME OP FUN N)
; (SB!IMPL::BACKQ-LIST 'DEFINE-FOP
; (SB!IMPL::BACKQ-LIST NAME OP)
; (SB!IMPL::BACKQ-LIST
; 'CALL-WITH-POPPED-ARGS
; FUN
; N))))
; (SB!FASL::FROB SB!FASL::FOP-LIST-6 22 LIST 6)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; --> VECTOR-PUSH-EXTEND PROGN SB!FASL::CALL-WITH-POPPED-ARGS
; --> SB!FASL::%CALL-WITH-POPPED-ARGS 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 T), not a SIMPLE-ARRAY.
; [Last message occurs 6 times.]
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LIST-7
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in:
; MACROLET ((FROB (NAME OP FUN N)
; (SB!IMPL::BACKQ-LIST 'DEFINE-FOP
; (SB!IMPL::BACKQ-LIST NAME OP)
; (SB!IMPL::BACKQ-LIST
; 'CALL-WITH-POPPED-ARGS
; FUN
; N))))
; (SB!FASL::FROB SB!FASL::FOP-LIST-7 23 LIST 7)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; --> VECTOR-PUSH-EXTEND PROGN SB!FASL::CALL-WITH-POPPED-ARGS
; --> SB!FASL::%CALL-WITH-POPPED-ARGS 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 T), not a SIMPLE-ARRAY.
; [Last message occurs 7 times.]
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LIST-8
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in:
; MACROLET ((FROB (NAME OP FUN N)
; (SB!IMPL::BACKQ-LIST 'DEFINE-FOP
; (SB!IMPL::BACKQ-LIST NAME OP)
; (SB!IMPL::BACKQ-LIST
; 'CALL-WITH-POPPED-ARGS
; FUN
; N))))
; (SB!FASL::FROB SB!FASL::FOP-LIST-8 24 LIST 8)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; --> VECTOR-PUSH-EXTEND PROGN SB!FASL::CALL-WITH-POPPED-ARGS
; --> SB!FASL::%CALL-WITH-POPPED-ARGS 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 T), not a SIMPLE-ARRAY.
; [Last message occurs 8 times.]
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LIST*-1
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in:
; MACROLET ((FROB (NAME OP FUN N)
; (SB!IMPL::BACKQ-LIST 'DEFINE-FOP
; (SB!IMPL::BACKQ-LIST NAME OP)
; (SB!IMPL::BACKQ-LIST
; 'CALL-WITH-POPPED-ARGS
; FUN
; N))))
; (SB!FASL::FROB SB!FASL::FOP-LIST*-1 25 LIST* 2)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; --> VECTOR-PUSH-EXTEND PROGN SB!FASL::CALL-WITH-POPPED-ARGS
; --> SB!FASL::%CALL-WITH-POPPED-ARGS 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 T), not a SIMPLE-ARRAY.
; [Last message occurs 2 times.]
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LIST*-2
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in:
; MACROLET ((FROB (NAME OP FUN N)
; (SB!IMPL::BACKQ-LIST 'DEFINE-FOP
; (SB!IMPL::BACKQ-LIST NAME OP)
; (SB!IMPL::BACKQ-LIST
; 'CALL-WITH-POPPED-ARGS
; FUN
; N))))
; (SB!FASL::FROB SB!FASL::FOP-LIST*-2 26 LIST* 3)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; --> VECTOR-PUSH-EXTEND PROGN SB!FASL::CALL-WITH-POPPED-ARGS
; --> SB!FASL::%CALL-WITH-POPPED-ARGS 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 T), not a SIMPLE-ARRAY.
; [Last message occurs 3 times.]
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LIST*-3
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in:
; MACROLET ((FROB (NAME OP FUN N)
; (SB!IMPL::BACKQ-LIST 'DEFINE-FOP
; (SB!IMPL::BACKQ-LIST NAME OP)
; (SB!IMPL::BACKQ-LIST
; 'CALL-WITH-POPPED-ARGS
; FUN
; N))))
; (SB!FASL::FROB SB!FASL::FOP-LIST*-3 27 LIST* 4)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; --> VECTOR-PUSH-EXTEND PROGN SB!FASL::CALL-WITH-POPPED-ARGS
; --> SB!FASL::%CALL-WITH-POPPED-ARGS 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 T), not a SIMPLE-ARRAY.
; [Last message occurs 4 times.]
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LIST*-4
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in:
; MACROLET ((FROB (NAME OP FUN N)
; (SB!IMPL::BACKQ-LIST 'DEFINE-FOP
; (SB!IMPL::BACKQ-LIST NAME OP)
; (SB!IMPL::BACKQ-LIST
; 'CALL-WITH-POPPED-ARGS
; FUN
; N))))
; (SB!FASL::FROB SB!FASL::FOP-LIST*-4 28 LIST* 5)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; --> VECTOR-PUSH-EXTEND PROGN SB!FASL::CALL-WITH-POPPED-ARGS
; --> SB!FASL::%CALL-WITH-POPPED-ARGS 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 T), not a SIMPLE-ARRAY.
; [Last message occurs 5 times.]
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LIST*-5
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in:
; MACROLET ((FROB (NAME OP FUN N)
; (SB!IMPL::BACKQ-LIST 'DEFINE-FOP
; (SB!IMPL::BACKQ-LIST NAME OP)
; (SB!IMPL::BACKQ-LIST
; 'CALL-WITH-POPPED-ARGS
; FUN
; N))))
; (SB!FASL::FROB SB!FASL::FOP-LIST*-5 29 LIST* 6)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; --> VECTOR-PUSH-EXTEND PROGN SB!FASL::CALL-WITH-POPPED-ARGS
; --> SB!FASL::%CALL-WITH-POPPED-ARGS 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 T), not a SIMPLE-ARRAY.
; [Last message occurs 6 times.]
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LIST*-6
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in:
; MACROLET ((FROB (NAME OP FUN N)
; (SB!IMPL::BACKQ-LIST 'DEFINE-FOP
; (SB!IMPL::BACKQ-LIST NAME OP)
; (SB!IMPL::BACKQ-LIST
; 'CALL-WITH-POPPED-ARGS
; FUN
; N))))
; (SB!FASL::FROB SB!FASL::FOP-LIST*-6 30 LIST* 7)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; --> VECTOR-PUSH-EXTEND PROGN SB!FASL::CALL-WITH-POPPED-ARGS
; --> SB!FASL::%CALL-WITH-POPPED-ARGS 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 T), not a SIMPLE-ARRAY.
; [Last message occurs 7 times.]
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LIST*-7
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in:
; MACROLET ((FROB (NAME OP FUN N)
; (SB!IMPL::BACKQ-LIST 'DEFINE-FOP
; (SB!IMPL::BACKQ-LIST NAME OP)
; (SB!IMPL::BACKQ-LIST
; 'CALL-WITH-POPPED-ARGS
; FUN
; N))))
; (SB!FASL::FROB SB!FASL::FOP-LIST*-7 31 LIST* 8)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; --> VECTOR-PUSH-EXTEND PROGN SB!FASL::CALL-WITH-POPPED-ARGS
; --> SB!FASL::%CALL-WITH-POPPED-ARGS 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 T), not a SIMPLE-ARRAY.
; [Last message occurs 8 times.]
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-LIST*-8
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in:
; MACROLET ((FROB (NAME OP FUN N)
; (SB!IMPL::BACKQ-LIST 'DEFINE-FOP
; (SB!IMPL::BACKQ-LIST NAME OP)
; (SB!IMPL::BACKQ-LIST
; 'CALL-WITH-POPPED-ARGS
; FUN
; N))))
; (SB!FASL::FROB SB!FASL::FOP-LIST*-8 32 LIST* 9)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; --> VECTOR-PUSH-EXTEND PROGN SB!FASL::CALL-WITH-POPPED-ARGS
; --> SB!FASL::%CALL-WITH-POPPED-ARGS 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 T), not a SIMPLE-ARRAY.
; [Last message occurs 9 times.]
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-BASE-STRING
; compiling top level form:
; compiling DEFINE-CLONED-FOPS (FOP-BASE-STRING 37):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-SMALL-BASE-STRING
; compiling top level form:
; compiling DEFINE-CLONED-FOPS (FOP-BASE-STRING 37):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-CHARACTER-STRING
; compiling top level form:
; compiling DEFINE-CLONED-FOPS (FOP-CHARACTER-STRING 161):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-SMALL-CHARACTER-STRING
; compiling top level form:
; compiling DEFINE-CLONED-FOPS (FOP-CHARACTER-STRING 161):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-VECTOR
; compiling top level form:
; compiling DEFINE-CLONED-FOPS (FOP-VECTOR 39):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-SMALL-VECTOR
; compiling top level form:
; compiling DEFINE-CLONED-FOPS (FOP-VECTOR 39):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-ARRAY
; compiling top level form:
; compiling DEFINE-FOP (FOP-ARRAY 83):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-SINGLE-FLOAT-VECTOR
; compiling top level form:
; compiling DEFINE-FOP (FOP-SINGLE-FLOAT-VECTOR 84):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-DOUBLE-FLOAT-VECTOR
; compiling top level form:
; compiling DEFINE-FOP (FOP-DOUBLE-FLOAT-VECTOR 85):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-COMPLEX-SINGLE-FLOAT-VECTOR
; compiling top level form:
; compiling DEFINE-FOP (FOP-COMPLEX-SINGLE-FLOAT-VECTOR 86):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-COMPLEX-DOUBLE-FLOAT-VECTOR
; compiling top level form:
; compiling DEFINE-FOP (FOP-COMPLEX-DOUBLE-FLOAT-VECTOR 87):
; compiling top level form:
; compiling top level form:
; in: COMMON-LISP:LAMBDA COMMON-LISP:NIL
; '(:AND)
;
; note: deleting unreachable code
; recognizing DEFUN FOP-INT-VECTOR
; compiling top level form:
; compiling DEFINE-FOP (FOP-INT-VECTOR 43):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in: DEFINE-FOP (FOP-INT-VECTOR 43)
; (MAKE-ARRAY SB!FASL::LEN :ELEMENT-TYPE 'NIL)
;
; caught STYLE-WARNING:
; The default initial element #:MU is not a NIL.
; compiling top level form:
; compiling top level form:
; in: COMMON-LISP:LAMBDA COMMON-LISP:NIL
; '(:OR)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; '(:AND)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; recognizing DEFUN FOP-SIGNED-INT-VECTOR
; compiling top level form:
; compiling DEFINE-FOP (FOP-SIGNED-INT-VECTOR 50):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-EVAL
; compiling top level form:
; compiling DEFINE-FOP (FOP-EVAL 53):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-EVAL-FOR-EFFECT
; compiling top level form:
; compiling DEFINE-FOP (FOP-EVAL-FOR-EFFECT 54 :PUSHP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-FUNCALL
; compiling top level form:
; compiling DEFINE-FOP (FOP-FUNCALL 55):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in: DEFINE-FOP (FOP-FUNCALL 55)
; (FUNCALL (SB!FASL::POP-STACK))
; --> 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.
; (APPLY (SB!FASL::POP-STACK) SB!FASL::ARGS)
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (SB!FASL::POP-STACK))
;
; 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 top level form:
; compiling top level form:
; recognizing DEFUN FOP-FUNCALL-FOR-EFFECT
; compiling top level form:
; compiling DEFINE-FOP (FOP-FUNCALL-FOR-EFFECT 56 :PUSHP NIL):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in: DEFINE-FOP (FOP-FUNCALL-FOR-EFFECT 56 :PUSHP NIL)
; (FUNCALL (SB!FASL::POP-STACK))
; --> 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.
; (APPLY (SB!FASL::POP-STACK) SB!FASL::ARGS)
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (SB!FASL::POP-STACK))
;
; 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 top level form:
; compiling top level form:
; recognizing DEFUN FOP-RPLACA
; compiling top level form:
; compiling DEFINE-FOP (FOP-RPLACA 200 :PUSHP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-RPLACD
; compiling top level form:
; compiling DEFINE-FOP (FOP-RPLACD 201 :PUSHP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-SVSET
; compiling top level form:
; compiling DEFINE-FOP (FOP-SVSET 202 :PUSHP NIL):
; compiling top level form (SB-KERNEL:FIND-CLASSOID-CELL (QUOTE STANDARD-OBJECT)):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-STRUCTSET
; compiling top level form:
; compiling DEFINE-FOP (FOP-STRUCTSET 204 :PUSHP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-NTHCDR
; compiling top level form:
; compiling DEFINE-FOP (FOP-NTHCDR 203):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-CODE
; compiling top level form:
; compiling DEFINE-FOP (FOP-CODE 58 :STACKP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-SMALL-CODE
; compiling top level form:
; compiling DEFINE-FOP (FOP-SMALL-CODE 59 :STACKP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-FDEFINITION
; compiling top level form:
; compiling DEFINE-FOP (FOP-FDEFINITION 60):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-SANCTIFY-FOR-EXECUTION
; compiling top level form:
; compiling DEFINE-FOP (FOP-SANCTIFY-FOR-EXECUTION 61):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-FSET
; compiling top level form:
; compiling DEFINE-FOP (FOP-FSET 74 :PUSHP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-ALTER-CODE
; compiling top level form:
; compiling DEFINE-CLONED-FOPS (FOP-ALTER-CODE 140 :PUSHP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-BYTE-ALTER-CODE
; compiling top level form:
; compiling DEFINE-CLONED-FOPS (FOP-ALTER-CODE 140 :PUSHP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-FUN-ENTRY
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in: DEFINE-FOP (FOP-FUN-ENTRY 142)
; (SB!FASL::DEFINE-FOP (SB!FASL::FOP-FUN-ENTRY 142)
; (ERROR
; "FOP-FUN-ENTRY can't be defined without %PRIMITIVE."))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; ==>
; (VECTOR-PUSH-EXTEND
; (PROGN (ERROR "FOP-FUN-ENTRY can't be defined without %PRIMITIVE."))
; #:FOP-STACK-5101)
;
; note: The first argument never returns a value.
; compiling DEFINE-FOP (FOP-FUN-ENTRY 142):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-ASSEMBLER-CODE
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in: DEFINE-FOP (FOP-ASSEMBLER-CODE 144)
; (SB!FASL::DEFINE-FOP (SB!FASL::FOP-ASSEMBLER-CODE 144)
; (ERROR "cannot load assembler code except at cold load"))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; ==>
; (VECTOR-PUSH-EXTEND
; (PROGN (ERROR "cannot load assembler code except at cold load"))
; #:FOP-STACK-5107)
;
; note: The first argument never returns a value.
; compiling DEFINE-FOP (FOP-ASSEMBLER-CODE 144):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-ASSEMBLER-ROUTINE
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in: DEFINE-FOP (FOP-ASSEMBLER-ROUTINE 145)
; (SB!FASL::DEFINE-FOP (SB!FASL::FOP-ASSEMBLER-ROUTINE 145)
; (ERROR "cannot load assembler code except at cold load"))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET
; ==>
; (VECTOR-PUSH-EXTEND
; (PROGN (ERROR "cannot load assembler code except at cold load"))
; #:FOP-STACK-5113)
;
; note: The first argument never returns a value.
; compiling DEFINE-FOP (FOP-ASSEMBLER-ROUTINE 145):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-FOREIGN-FIXUP
; compiling top level form:
; compiling DEFINE-FOP (FOP-FOREIGN-FIXUP 147):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-ASSEMBLER-FIXUP
; compiling top level form:
; compiling DEFINE-FOP (FOP-ASSEMBLER-FIXUP 148):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-CODE-OBJECT-FIXUP
; compiling top level form:
; compiling DEFINE-FOP (FOP-CODE-OBJECT-FIXUP 149):
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in: DEFINE-FOP (FOP-COMPLEX 71)
; (SB!KERNEL:%MAKE-COMPLEX (SB!FASL::POP-STACK) SB!FASL::IM)
;
; caught STYLE-WARNING:
; undefined function: %MAKE-COMPLEX
; in: DEFINE-CLONED-FOPS (FOP-STRUCT 48)
; (SB!KERNEL:%MAKE-INSTANCE SB!FASL::SIZE)
;
; caught STYLE-WARNING:
; undefined function: %MAKE-INSTANCE
; [Last message occurs 2 times.]
; in: DEFINE-FOP (FOP-RATIO 70)
; (SB!KERNEL:%MAKE-RATIO (SB!FASL::POP-STACK) SB!FASL::DEN)
;
; caught STYLE-WARNING:
; undefined function: %MAKE-RATIO
; in: DEFINE-CLONED-FOPS (FOP-ALTER-CODE 140 :PUSHP NIL)
; (SETF (SB!KERNEL:CODE-HEADER-REF SB!FASL::CODE (SB!FASL::CLONE-ARG))
; SB!FASL::VALUE)
; ==>
; (SB!KERNEL:CODE-HEADER-SET SB!FASL::CODE (SB!FASL::CLONE-ARG) SB!FASL::VALUE)
;
; caught STYLE-WARNING:
; undefined function: CODE-HEADER-SET
; [Last message occurs 2 times.]
; in: DEFINE-FOP (FOP-FDEFINITION 60)
; (SB!KERNEL:FDEFINITION-OBJECT (SB!FASL::POP-STACK) T)
;
; caught STYLE-WARNING:
; undefined function: FDEFINITION-OBJECT
; in: DEFINE-FOP (FOP-CODE-OBJECT-FIXUP 149)
; (SB!VM:FIXUP-CODE-OBJECT SB!FASL::CODE-OBJECT
; (SB!FASL::READ-WORD-ARG)
; (SB!KERNEL:GET-LISP-OBJ-ADDRESS
; SB!FASL::CODE-OBJECT)
; SB!FASL::KIND)
;
; caught STYLE-WARNING:
; undefined function: SB!VM:FIXUP-CODE-OBJECT
; in: DEFINE-FOP (FOP-ASSEMBLER-FIXUP 148)
; (SB!VM:FIXUP-CODE-OBJECT SB!FASL::CODE-OBJECT
; (SB!FASL::READ-WORD-ARG)
; SB!FASL::VALUE
; SB!FASL::KIND)
;
; caught STYLE-WARNING:
; undefined function: SB!VM:FIXUP-CODE-OBJECT
; in: DEFINE-FOP (FOP-FOREIGN-FIXUP 147)
; (SB!VM:FIXUP-CODE-OBJECT SB!FASL::CODE-OBJECT
; (SB!FASL::READ-WORD-ARG)
; (SB!SYS:FOREIGN-SYMBOL-ADDRESS-AS-INTEGER
; SB!FASL::SYM)
; SB!FASL::KIND)
;
; caught STYLE-WARNING:
; undefined function: SB!VM:FIXUP-CODE-OBJECT
; in: DEFINE-FOP (FOP-CODE-OBJECT-FIXUP 149)
; (SB!KERNEL:GET-LISP-OBJ-ADDRESS SB!FASL::CODE-OBJECT)
;
; caught STYLE-WARNING:
; undefined function: GET-LISP-OBJ-ADDRESS
; in: DEFINE-FOP (FOP-SMALL-CODE 59 :STACKP NIL)
; (SB!FASL::LOAD-CODE (SB!FASL::READ-BYTE-ARG) (SB!FASL::READ-HALFWORD-ARG))
;
; caught STYLE-WARNING:
; undefined function: LOAD-CODE
; in: DEFINE-FOP (FOP-CODE 58 :STACKP NIL)
; (SB!FASL::LOAD-CODE (SB!FASL::READ-WORD-ARG) (SB!FASL::READ-WORD-ARG))
;
; caught STYLE-WARNING:
; undefined function: LOAD-CODE
; in: DEFINE-FOP (FOP-ARRAY 83)
; (SB!KERNEL:MAKE-ARRAY-HEADER SB!VM:SIMPLE-ARRAY-WIDETAG SB!FASL::RANK)
;
; caught STYLE-WARNING:
; undefined function: MAKE-ARRAY-HEADER
; in: DEFINE-FOP (FOP-COMPLEX-SINGLE-FLOAT-VECTOR 86)
; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM*
; SB!FASL::RESULT
; 0
; (* LENGTH 8))
;
; caught STYLE-WARNING:
; undefined function: READ-N-BYTES
; in: DEFINE-FOP (FOP-DOUBLE-FLOAT-VECTOR 85)
; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM*
; SB!FASL::RESULT
; 0
; (* LENGTH 8))
;
; caught STYLE-WARNING:
; undefined function: READ-N-BYTES
; in: DEFINE-FOP (FOP-SINGLE-FLOAT-VECTOR 84)
; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM*
; SB!FASL::RESULT
; 0
; (* LENGTH 4))
;
; caught STYLE-WARNING:
; undefined function: READ-N-BYTES
;
; caught STYLE-WARNING:
; 4 more uses of undefined function READ-N-BYTES
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/fop.lisp
; in: DEFINE-FOP (FOP-SANCTIFY-FOR-EXECUTION 61)
; (SB!VM:SANCTIFY-FOR-EXECUTION SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: SB!VM:SANCTIFY-FOR-EXECUTION
; in: DEFINE-FOP (FOP-ARRAY 83)
; (SB!KERNEL:SET-ARRAY-HEADER SB!FASL::RES
; SB!FASL::VEC
; LENGTH
; NIL
; 0
; (DO ((SB!FASL::I SB!FASL::RANK #)
; (SB!FASL::DIMENSIONS NIL #))
; ((ZEROP SB!FASL::I) SB!FASL::DIMENSIONS)
; (DECLARE (TYPE SB!INT:INDEX SB!FASL::I)))
; NIL)
;
; caught STYLE-WARNING:
; undefined function: SET-ARRAY-HEADER
;
; caught STYLE-WARNING:
; These functions are undefined:
; %MAKE-COMPLEX %MAKE-INSTANCE %MAKE-RATIO CODE-HEADER-SET FDEFINITION-OBJECT SB!VM:FIXUP-CODE-OBJECT GET-LISP-OBJ-ADDRESS LOAD-CODE MAKE-ARRAY-HEADER READ-N-BYTES SB!VM:SANCTIFY-FOR-EXECUTION SET-ARRAY-HEADER
;
; compilation unit finished
; caught 22 STYLE-WARNING conditions
; printed 94 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/fop.lisp-obj-tmp written
; compilation finished in 0:00:07
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/ctype.lisp" (written 29 OCT 2004 01:30:44 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NOTE-LOSSAGE
; compiling top level form:
; compiling DEFUN NOTE-LOSSAGE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ctype.lisp
; in: DEFUN NOTE-LOSSAGE
; (APPLY SB!C::*LOSSAGE-FUN* SB!C::FORMAT-STRING SB!C::FORMAT-ARGS)
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB!C::*LOSSAGE-FUN*)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR FUNCTION NULL), not a FUNCTION.
; compiling top level form:
; recognizing DEFUN NOTE-UNWINNAGE
; compiling top level form:
; compiling DEFUN NOTE-UNWINNAGE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ctype.lisp
; in: DEFUN NOTE-UNWINNAGE
; (APPLY SB!C::*UNWINNAGE-FUN* SB!C::FORMAT-STRING SB!C::FORMAT-ARGS)
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB!C::*UNWINNAGE-FUN*)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
; The first argument is a (OR FUNCTION NULL), not a FUNCTION.
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALWAYS-SUBTYPEP
; compiling top level form:
; compiling DEFUN ALWAYS-SUBTYPEP:
; compiling top level form:
; recognizing DEFUN VALID-FUN-USE
; compiling top level form:
; compiling DEFUN VALID-FUN-USE:
; compiling top level form:
; recognizing DEFUN CHECK-ARG-TYPE
; compiling top level form:
; compiling DEFUN CHECK-ARG-TYPE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ctype.lisp
; in: DEFUN CHECK-ARG-TYPE
; (FUNCALL SB!C::*CTYPE-TEST-FUN* SB!KERNEL:CTYPE TYPE)
; --> 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 NULL), not a FUNCTION.
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHECK-FIXED-AND-REST
; compiling top level form:
; compiling DEFUN CHECK-FIXED-AND-REST:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHECK-KEY-ARGS
; compiling top level form:
; compiling DEFUN CHECK-KEY-ARGS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DEFINITION-TYPE
; compiling top level form:
; compiling DEFUN DEFINITION-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-APPROXIMATE-FUN-TYPE
; compiling top level form:
; compiling DEFSTRUCT APPROXIMATE-FUN-TYPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-APPROXIMATE-KEY-INFO
; compiling top level form:
; compiling DEFSTRUCT APPROXIMATE-KEY-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NOTE-FUN-USE
; compiling top level form:
; compiling DEFUN NOTE-FUN-USE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALID-APPROXIMATE-TYPE
; compiling top level form:
; compiling DEFUN VALID-APPROXIMATE-TYPE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHECK-APPROXIMATE-FIXED-AND-REST
; compiling top level form:
; compiling DEFUN CHECK-APPROXIMATE-FIXED-AND-REST:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHECK-APPROXIMATE-ARG-TYPE
; compiling top level form:
; compiling DEFUN CHECK-APPROXIMATE-ARG-TYPE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ctype.lisp
; in: DEFUN CHECK-APPROXIMATE-ARG-TYPE
; (FUNCALL SB!C::*CTYPE-TEST-FUN* SB!KERNEL:CTYPE SB!C::DECL-TYPE)
; --> 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 NULL), not a FUNCTION.
; compiling top level form:
; recognizing DEFUN CHECK-APPROXIMATE-KEYWORDS
; compiling top level form:
; compiling DEFUN CHECK-APPROXIMATE-KEYWORDS:
; compiling top level form:
; recognizing DEFUN TRY-TYPE-INTERSECTIONS
; compiling top level form:
; compiling DEFUN TRY-TYPE-INTERSECTIONS:
; compiling top level form:
; recognizing DEFUN FIND-OPTIONAL-DISPATCH-TYPES
; compiling top level form:
; compiling DEFUN FIND-OPTIONAL-DISPATCH-TYPES:
; compiling top level form:
; recognizing DEFUN FIND-LAMBDA-TYPES
; compiling top level form:
; compiling DEFUN FIND-LAMBDA-TYPES:
; compiling top level form:
; recognizing DEFUN ASSERT-DEFINITION-TYPE
; compiling top level form:
; compiling DEFUN ASSERT-DEFINITION-TYPE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ctype.lisp
; in: DEFUN ASSERT-DEFINITION-TYPE
; (FUNCALL SB!C::UNWINNAGE-FUN
; "Assignment to argument: ~S~% ~
; prevents use of assertion from function ~
; type ~A:~% ~S~%"
; (SB!C::LEAF-DEBUG-NAME SB!C::VAR)
; SB!C::WHERE
; (SB!KERNEL:TYPE-SPECIFIER TYPE))
; --> 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 top level form:
; recognizing DEFUN ASSERT-GLOBAL-FUNCTION-DEFINITION-TYPE
; compiling top level form:
; compiling DEFUN ASSERT-GLOBAL-FUNCTION-DEFINITION-TYPE:
; compiling top level form:
; recognizing DEFUN MAP-COMBINATION-ARGS-AND-TYPES
; compiling top level form:
; compiling DEFUN MAP-COMBINATION-ARGS-AND-TYPES:
; compiling top level form:
; recognizing DEFUN ASSERT-CALL-TYPE
; compiling top level form:
; compiling DEFUN ASSERT-CALL-TYPE:
; compiling top level form:
; recognizing DEFUN CHECK-CATCH-TAG-TYPE
; compiling top level form:
; compiling DEFUN CHECK-CATCH-TAG-TYPE:
; compiling top level form:
; recognizing DEFUN %COMPILE-TIME-TYPE-ERROR
; compiling top level form:
; compiling DEFUN %COMPILE-TIME-TYPE-ERROR:
; compiling top level form:
; recognizing DEFUN %COMPILE-TIME-TYPE-ERROR-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%COMPILE-TIME-TYPE-ERROR IR2-CONVERT):
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ctype.lisp
; in: DEFUN ASSERT-CALL-TYPE
; (SB!C::ASSERT-LVAR-TYPE SB!C::ARG TYPE SB!C:POLICY)
;
; caught STYLE-WARNING:
; undefined function: ASSERT-LVAR-TYPE
; in: DEFUN ASSERT-DEFINITION-TYPE
; (SB!C::ASSERT-LVAR-TYPE (SB!C::RETURN-RESULT RETURN)
; SB!C::TYPE-RETURNS
; SB!C:POLICY)
;
; caught STYLE-WARNING:
; undefined function: ASSERT-LVAR-TYPE
; in: DEFUN ASSERT-GLOBAL-FUNCTION-DEFINITION-TYPE
; #'SB!C:COMPILER-NOTIFY
;
; caught STYLE-WARNING:
; undefined function: COMPILER-NOTIFY
; in: DEFUN VALID-APPROXIMATE-TYPE
; #'SB!C:COMPILER-NOTIFY
;
; caught STYLE-WARNING:
; undefined function: COMPILER-NOTIFY
; in: DEFUN NOTE-FUN-USE
; (SB!C::CONSTANT-LVAR-P SB!C::KEY)
;
; caught STYLE-WARNING:
; undefined function: CONSTANT-LVAR-P
; in: DEFUN CHECK-KEY-ARGS
; (SB!C::CONSTANT-LVAR-P SB!C::K)
;
; caught STYLE-WARNING:
; undefined function: CONSTANT-LVAR-P
; in: DEFUN CHECK-ARG-TYPE
; (SB!C::CONSTANT-LVAR-P SB!C::LVAR)
;
; caught STYLE-WARNING:
; undefined function: CONSTANT-LVAR-P
; in: DEFUN ASSERT-CALL-TYPE
; (SB!C::DERIVE-NODE-TYPE SB!C:CALL (SB!KERNEL:FUN-TYPE-RETURNS TYPE))
;
; caught STYLE-WARNING:
; undefined function: DERIVE-NODE-TYPE
; in: DEFUN ASSERT-DEFINITION-TYPE
; (SB!C::DERIVE-NODE-TYPE SB!C::REF (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE TYPE))
;
; caught STYLE-WARNING:
; undefined function: DERIVE-NODE-TYPE
; in: DEFUN VALID-FUN-USE
; (SB!C::IMMEDIATELY-USED-P SB!C::LVAR SB!C:CALL)
;
; caught STYLE-WARNING:
; undefined function: IMMEDIATELY-USED-P
; in: DEFOPTIMIZER (%COMPILE-TIME-TYPE-ERROR IR2-CONVERT)
; (SB!C::IR2-CONVERT-FULL-CALL SB!C::NODE BLOCK)
;
; caught STYLE-WARNING:
; undefined function: IR2-CONVERT-FULL-CALL
; in: DEFUN ASSERT-DEFINITION-TYPE
; (SB!C::LVAR-DERIVED-TYPE (SB!C::RETURN-RESULT RETURN))
;
; caught STYLE-WARNING:
; undefined function: LVAR-DERIVED-TYPE
; in: DEFUN CHECK-CATCH-TAG-TYPE
; (SB!C::LVAR-SOURCE SB!C::TAG)
;
; caught STYLE-WARNING:
; undefined function: LVAR-SOURCE
; in: DEFUN MAP-COMBINATION-ARGS-AND-TYPES
; (SB!C::LVAR-TYPE (SB!C::COMBINATION-FUN SB!C:CALL))
;
; caught STYLE-WARNING:
; undefined function: LVAR-TYPE
; in: DEFUN NOTE-FUN-USE
; (SB!C::LVAR-TYPE (CAR SB!C::ARG))
;
; caught STYLE-WARNING:
; undefined function: LVAR-TYPE
; in: DEFUN CHECK-ARG-TYPE
; (SB!C::LVAR-TYPE SB!C::LVAR)
;
; caught STYLE-WARNING:
; undefined function: LVAR-TYPE
;
; caught STYLE-WARNING:
; 1 more use of undefined function LVAR-TYPE
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ctype.lisp
; in: DEFUN NOTE-FUN-USE
; (SB!C::LVAR-VALUE SB!C::KEY)
;
; caught STYLE-WARNING:
; undefined function: LVAR-VALUE
; in: DEFUN CHECK-KEY-ARGS
; (SB!C::LVAR-VALUE SB!C::K)
;
; caught STYLE-WARNING:
; undefined function: LVAR-VALUE
; in: DEFUN CHECK-ARG-TYPE
; (SB!C::LVAR-VALUE SB!C::LVAR)
;
; caught STYLE-WARNING:
; undefined function: LVAR-VALUE
;
; caught STYLE-WARNING:
; 2 more uses of undefined function LVAR-VALUE
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ctype.lisp
; in: DEFUN ASSERT-DEFINITION-TYPE
; (SB!C::MAIN-ENTRY SB!C::FUNCTIONAL)
;
; caught STYLE-WARNING:
; undefined function: MAIN-ENTRY
;
; caught STYLE-WARNING:
; These functions are undefined:
; ASSERT-LVAR-TYPE COMPILER-NOTIFY CONSTANT-LVAR-P DERIVE-NODE-TYPE IMMEDIATELY-USED-P IR2-CONVERT-FULL-CALL LVAR-DERIVED-TYPE LVAR-SOURCE LVAR-TYPE LVAR-VALUE MAIN-ENTRY
;
; compilation unit finished
; caught 23 STYLE-WARNING conditions
; printed 5 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/ctype.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/disassem.lisp" (written 15 APR 2004 07:47:13 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTYPE TEXT-WIDTH:
; compiling top level form:
; compiling DEFTYPE ALIGNMENT:
; compiling top level form:
; compiling DEFTYPE OFFSET:
; compiling top level form:
; compiling DEFTYPE ADDRESS:
; compiling top level form:
; compiling DEFTYPE DISASSEM-LENGTH:
; compiling top level form:
; compiling DEFTYPE COLUMN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTYPE FILTERED-VALUE-INDEX:
; compiling top level form:
; compiling DEFTYPE FILTERED-VALUE-VECTOR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-FUN-CACHE
; compiling top level form:
; compiling DEFSTRUCT FUN-CACHE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTYPE DCHUNK:
; compiling top level form:
; compiling DEFTYPE DCHUNK-INDEX:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DCHUNK-EXTRACT
; compiling top level form:
; compiling DEFUN DCHUNK-EXTRACT:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/disassem.lisp
; in: DEFUN DCHUNK-EXTRACT
; (THE SB!DISASSEM:DCHUNK
; (SB-XC:LDB SB!DISASSEM::POS (THE SB!DISASSEM:DCHUNK SB!DISASSEM::FROM)))
;
; note: type assertion too complex to check:
; (VALUES (UNSIGNED-BYTE 32) &REST T).
; compiling top level form:
; compiling DEFMACRO DCHUNK-COPY:
; compiling top level form:
; recognizing DEFUN DCHUNK-OR
; compiling top level form:
; compiling DEFUN DCHUNK-OR:
; compiling top level form:
; recognizing DEFUN DCHUNK-AND
; compiling top level form:
; compiling DEFUN DCHUNK-AND:
; compiling top level form:
; recognizing DEFUN DCHUNK-CLEAR
; compiling top level form:
; compiling DEFUN DCHUNK-CLEAR:
; compiling top level form:
; recognizing DEFUN DCHUNK-NOT
; compiling top level form:
; compiling DEFUN DCHUNK-NOT:
; compiling top level form:
; compiling DEFMACRO DCHUNK-ANDF:
; compiling top level form:
; compiling DEFMACRO DCHUNK-ORF:
; compiling top level form:
; compiling DEFMACRO DCHUNK-CLEARF:
; compiling top level form:
; recognizing DEFUN DCHUNK-MAKE-MASK
; compiling top level form:
; compiling DEFUN DCHUNK-MAKE-MASK:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/disassem.lisp
; in: DEFUN DCHUNK-MAKE-MASK
; (THE SB!DISASSEM:DCHUNK (SB-XC:MASK-FIELD SB!DISASSEM::POS -1))
;
; note: type assertion too complex to check:
; (VALUES (UNSIGNED-BYTE 32) &REST T).
; compiling top level form:
; recognizing DEFUN DCHUNK-MAKE-FIELD
; compiling top level form:
; compiling DEFUN DCHUNK-MAKE-FIELD:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/disassem.lisp
; in: DEFUN DCHUNK-MAKE-FIELD
; (THE SB!DISASSEM:DCHUNK (SB-XC:DPB SB!DISASSEM::VALUE SB!DISASSEM::POS 0))
;
; note: type assertion too complex to check:
; (VALUES (UNSIGNED-BYTE 32) &REST T).
; compiling top level form:
; compiling DEFMACRO MAKE-DCHUNK:
; compiling top level form:
; recognizing DEFUN SAP-REF-DCHUNK
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/disassem.lisp
; in: DEFUN SAP-REF-DCHUNK
; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24)
;
; note: The first argument never returns a value.
; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 16)
;
; note: The first argument never returns a value.
; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8)
;
; note: The first argument never returns a value.
; (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24)
; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET))
; 16)
; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8)
; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)))
; ==>
; (+
; (+ (+ (ASH # 24) (ASH # 16)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 8))
; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)))
;
; note: The second argument never returns a value.
; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
;
; note: The first argument never returns a value.
; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET))
; 16)
; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET))
; 24))
; --> + +
; ==>
; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8))
;
; note: The first argument never returns a value.
; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16)
;
; note: The first argument never returns a value.
; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24)
;
; note: The first argument never returns a value.
;
; note: deleting unreachable code
; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16)
;
; note: deleting unreachable code
; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
;
; note: deleting unreachable code
; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET))
; ==>
; SB!DISASSEM::SAP
;
; note: deleting unreachable code
; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8)
;
; note: deleting unreachable code
; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 16)
;
; note: deleting unreachable code
; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24)
;
; note: deleting unreachable code
; (THE SB!DISASSEM:DCHUNK
; (IF (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN)
; (+ (ASH # 24)
; (ASH # 16)
; (ASH # 8)
; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #))
; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
; (ASH # 8)
; (ASH # 16)
; (ASH # 24))))
;
; note: deleting unreachable code
; compiling DEFUN SAP-REF-DCHUNK:
; compiling top level form:
; recognizing DEFUN DCHUNK-CORRECTED-EXTRACT
; compiling top level form:
; compiling DEFUN DCHUNK-CORRECTED-EXTRACT:
; compiling top level form:
; compiling DEFMACRO DCHUNK-INSERTF:
; compiling top level form:
; recognizing DEFUN DCHUNK=
; compiling top level form:
; compiling DEFUN DCHUNK=:
; compiling top level form:
; compiling DEFMACRO DCHUNK-ZEROP:
; compiling top level form:
; recognizing DEFUN DCHUNK-STRICT-SUPERSET-P
; compiling top level form:
; compiling DEFUN DCHUNK-STRICT-SUPERSET-P:
; compiling top level form:
; recognizing DEFUN DCHUNK-COUNT-BITS
; compiling top level form:
; compiling DEFUN DCHUNK-COUNT-BITS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-INSTRUCTION
; compiling top level form:
; compiling DEFSTRUCT INSTRUCTION:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-INST-SPACE
; compiling top level form:
; compiling DEFSTRUCT INST-SPACE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-INST-SPACE-CHOICE
; compiling top level form:
; compiling DEFSTRUCT INST-SPACE-CHOICE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ARG-FORM-KIND
; compiling top level form:
; compiling DEFSTRUCT ARG-FORM-KIND:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ARG-FORM-KIND-OR-LOSE
; compiling top level form:
; compiling DEFUN ARG-FORM-KIND-OR-LOSE:
; compiling top level form:
; recognizing DEFUN FIND-ARG-FORM-PRODUCER
; compiling top level form:
; compiling DEFUN FIND-ARG-FORM-PRODUCER:
; compiling top level form:
; recognizing DEFUN FIND-ARG-FORM-CHECKER
; compiling top level form:
; compiling DEFUN FIND-ARG-FORM-CHECKER:
; compiling top level form:
; recognizing DEFUN CANONICALIZE-ARG-FORM-KIND
; compiling top level form:
; compiling DEFUN CANONICALIZE-ARG-FORM-KIND:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ARG
; compiling top level form:
; compiling DEFSTRUCT ARG:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-INSTRUCTION-FORMAT
; compiling top level form:
; compiling DEFSTRUCT INSTRUCTION-FORMAT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MAKE-FUNSTATE
; compiling top level form:
; compiling DEFSTRUCT FUNSTATE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-FUNSTATE
; compiling top level form:
; compiling DEFUN MAKE-FUNSTATE:
; compiling top level form:
; recognizing DEFUN FUNSTATE-COMPATIBLE-P
; compiling top level form:
; compiling DEFUN FUNSTATE-COMPATIBLE-P:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/disassem.lisp
; in: DEFUN FUNSTATE-COMPATIBLE-P
; (FIND (SB!DISASSEM::ARG-NAME SB!DISASSEM::OLD-ARG)
; SB!DISASSEM::ARGS
; :KEY
; #'SB!DISASSEM::ARG-NAME)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN ARG-OR-LOSE
; compiling top level form:
; compiling DEFUN ARG-OR-LOSE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MAKE-VALSRC
; compiling top level form:
; compiling DEFSTRUCT VALSRC:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-VALSRC
; compiling top level form:
; compiling DEFUN MAKE-VALSRC:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PD-ERROR
; compiling top level form:
; compiling DEFUN PD-ERROR:
; compiling top level form:
; recognizing DEFUN SELF-EVALUATING-P
; compiling top level form:
; compiling DEFUN SELF-EVALUATING-P:
; compiling top level form:
; recognizing DEFUN MAYBE-QUOTE
; compiling top level form:
; compiling DEFUN MAYBE-QUOTE:
; compiling top level form:
; recognizing DEFUN DOESNT-NEED-WRAPPING-P
; compiling top level form:
; compiling DEFUN DOESNT-NEED-WRAPPING-P:
; compiling top level form:
; recognizing DEFUN MAKE-WRAPPER
; compiling top level form:
; compiling DEFUN MAKE-WRAPPER:
; compiling top level form:
; recognizing DEFUN FILTER-OVERRIDES
; compiling top level form:
; compiling DEFUN FILTER-OVERRIDES:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MUNGE-FUN-REFS
; compiling top level form:
; compiling DEFUN MUNGE-FUN-REFS:
; compiling top level form:
; recognizing DEFUN GEN-ARGS-DEF-FORM
; compiling top level form:
; compiling DEFUN GEN-ARGS-DEF-FORM:
; compiling top level form:
; recognizing DEFUN GEN-PRINTER-DEF-FORMS-DEF-FORM
; compiling top level form:
; compiling DEFUN GEN-PRINTER-DEF-FORMS-DEF-FORM:
; compiling top level form:
; recognizing DEFUN UPDATE-ARGS-FORM
; compiling top level form:
; compiling DEFUN UPDATE-ARGS-FORM:
; compiling top level form:
; recognizing DEFUN FORMAT-OR-LOSE
; compiling top level form:
; compiling DEFUN FORMAT-OR-LOSE:
; compiling top level form:
; compiling DEFMACRO DEFINE-INSTRUCTION-FORMAT:
; compiling top level form:
; recognizing DEFUN GEN-FORMAT-DEF-FORM
; compiling top level form:
; compiling DEFUN GEN-FORMAT-DEF-FORM:
; compiling top level form:
; recognizing DEFUN MODIFY-OR-ADD-ARG
; compiling top level form:
; compiling DEFUN MODIFY-OR-ADD-ARG:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/disassem.lisp
; in: DEFUN MODIFY-OR-ADD-ARG
; (POSITION SB!DISASSEM::ARG-NAME
; SB!DISASSEM::ARGS
; :KEY
; #'SB!DISASSEM::ARG-NAME)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN GEN-ARG-ACCESS-MACRO-DEF-FORM
; compiling top level form:
; compiling DEFUN GEN-ARG-ACCESS-MACRO-DEF-FORM:
; compiling top level form:
; recognizing DEFUN ARG-VALUE-FORM
; compiling top level form:
; compiling DEFUN ARG-VALUE-FORM:
; compiling top level form:
; recognizing DEFUN CORRECT-DCHUNK-BYTESPEC-FOR-ENDIANNESS
; compiling top level form:
; compiling DEFUN CORRECT-DCHUNK-BYTESPEC-FOR-ENDIANNESS:
; compiling top level form:
; recognizing DEFUN MAKE-ARG-TEMP-BINDINGS
; compiling top level form:
; compiling DEFUN MAKE-ARG-TEMP-BINDINGS:
; compiling top level form:
; recognizing DEFUN GEN-ARG-FORMS
; compiling top level form:
; compiling DEFUN GEN-ARG-FORMS:
; compiling top level form:
; recognizing DEFUN MAYBE-LISTIFY
; compiling top level form:
; compiling DEFUN MAYBE-LISTIFY:
; compiling top level form:
; recognizing DEFUN SET-ARG-FROM-TYPE
; compiling top level form:
; compiling DEFUN SET-ARG-FROM-TYPE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/disassem.lisp
; in: DEFUN SET-ARG-FROM-TYPE
; (FIND SB!DISASSEM::TYPE-NAME SB!DISASSEM::TABLE :KEY #'SB!DISASSEM::ARG-NAME)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN GET-ARG-TEMP
; compiling top level form:
; compiling DEFUN GET-ARG-TEMP:
; compiling top level form:
; recognizing DEFUN SET-ARG-TEMPS
; compiling top level form:
; compiling DEFUN SET-ARG-TEMPS:
; compiling top level form:
; compiling DEFMACRO DEFINE-ARG-TYPE:
; compiling top level form:
; recognizing DEFUN GEN-ARG-TYPE-DEF-FORM
; compiling top level form:
; compiling DEFUN GEN-ARG-TYPE-DEF-FORM:
; compiling top level form:
; compiling DEFMACRO DEF-ARG-FORM-KIND:
; compiling top level form:
; compiling DEF-ARG-FORM-KIND (:RAW):
; compiling DEF-ARG-FORM-KIND (:RAW):
; compiling top level form:
; compiling DEF-ARG-FORM-KIND (:SIGN-EXTENDED :UNFILTERED):
; compiling DEF-ARG-FORM-KIND (:SIGN-EXTENDED :UNFILTERED):
; compiling top level form:
; recognizing DEFUN VALSRC-EQUAL
; compiling top level form:
; compiling DEFUN VALSRC-EQUAL:
; compiling top level form:
; compiling DEF-ARG-FORM-KIND (:FILTERING):
; compiling DEF-ARG-FORM-KIND (:FILTERING):
; compiling top level form:
; compiling DEF-ARG-FORM-KIND (:FILTERED :UNADJUSTED):
; compiling DEF-ARG-FORM-KIND (:FILTERED :UNADJUSTED):
; compiling top level form:
; compiling DEF-ARG-FORM-KIND (:ADJUSTED :NUMERIC :UNLABELLED):
; compiling DEF-ARG-FORM-KIND (:ADJUSTED :NUMERIC :UNLABELLED):
; compiling top level form:
; compiling DEF-ARG-FORM-KIND (:LABELLED :FINAL):
; compiling DEF-ARG-FORM-KIND (:LABELLED :FINAL):
; compiling top level form:
; compiling DEF-ARG-FORM-KIND (:PRINTED):
; compiling DEF-ARG-FORM-KIND (:PRINTED):
; compiling top level form:
; recognizing DEFUN REMEMBER-PRINTER-USE
; compiling top level form:
; compiling DEFUN REMEMBER-PRINTER-USE:
; compiling top level form:
; recognizing DEFUN SOURCE-FORM
; compiling top level form:
; compiling DEFUN SOURCE-FORM:
; compiling top level form:
; recognizing DEFUN VALUE-OR-SOURCE
; compiling top level form:
; compiling DEFUN VALUE-OR-SOURCE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-CACHED-FUN
; compiling top level form:
; compiling DEFSTRUCT CACHED-FUN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-CACHED-FUN
; compiling top level form:
; compiling DEFUN FIND-CACHED-FUN:
; compiling top level form:
; compiling DEFMACRO !WITH-CACHED-FUN:
; compiling top level form:
; recognizing DEFUN FIND-PRINTER-FUN
; compiling top level form:
; compiling DEFUN FIND-PRINTER-FUN:
; compiling top level form:
; recognizing DEFUN MAKE-PRINTER-DEFUN
; compiling top level form:
; compiling DEFUN MAKE-PRINTER-DEFUN:
; compiling top level form:
; recognizing DEFUN PREPROCESS-TEST
; compiling top level form:
; compiling DEFUN PREPROCESS-TEST:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/disassem.lisp
; in: DEFUN PREPROCESS-TEST
; (FIND SB!DISASSEM::SUBJ SB!DISASSEM::ARGS :KEY #'SB!DISASSEM::ARG-NAME)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN PREPROCESS-CONDITIONALS
; compiling top level form:
; compiling DEFUN PREPROCESS-CONDITIONALS:
; compiling top level form:
; recognizing DEFUN PREPROCESS-PRINTER
; compiling top level form:
; compiling DEFUN PREPROCESS-PRINTER:
; compiling top level form:
; recognizing DEFUN FIND-FIRST-FIELD-NAME
; compiling top level form:
; compiling DEFUN FIND-FIRST-FIELD-NAME:
; compiling top level form:
; recognizing DEFUN PREPROCESS-CHOOSES
; compiling top level form:
; compiling DEFUN PREPROCESS-CHOOSES:
; compiling top level form:
; recognizing DEFUN SHARING-CONS
; compiling top level form:
; compiling DEFUN SHARING-CONS:
; compiling top level form:
; recognizing DEFUN SHARING-MAPCAR
; compiling top level form:
; compiling DEFUN SHARING-MAPCAR:
; compiling top level form:
; recognizing DEFUN ALL-ARG-REFS-RELEVANT-P
; compiling top level form:
; compiling DEFUN ALL-ARG-REFS-RELEVANT-P:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/disassem.lisp
; in: DEFUN ALL-ARG-REFS-RELEVANT-P
; (FIND SB!DISASSEM::PRINTER SB!DISASSEM::ARGS :KEY #'SB!DISASSEM::ARG-NAME)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN PICK-PRINTER-CHOICE
; compiling top level form:
; compiling DEFUN PICK-PRINTER-CHOICE:
; compiling top level form:
; recognizing DEFUN COMPILE-PRINTER-LIST
; compiling top level form:
; compiling DEFUN COMPILE-PRINTER-LIST:
; compiling top level form:
; recognizing DEFUN COMPILE-PRINTER-BODY
; compiling top level form:
; compiling DEFUN COMPILE-PRINTER-BODY:
; compiling top level form:
; recognizing DEFUN COMPILE-PRINT
; compiling top level form:
; compiling DEFUN COMPILE-PRINT:
; compiling top level form:
; recognizing DEFUN STRING-OR-QSYM-P
; compiling top level form:
; compiling DEFUN STRING-OR-QSYM-P:
; compiling top level form:
; recognizing DEFUN STRIP-QUOTE
; compiling top level form:
; compiling DEFUN STRIP-QUOTE:
; compiling top level form:
; recognizing DEFUN COMPARE-FIELDS-FORM
; compiling top level form:
; compiling DEFUN COMPARE-FIELDS-FORM:
; compiling top level form:
; recognizing DEFUN COMPILE-TEST
; compiling top level form:
; compiling DEFUN COMPILE-TEST:
; compiling top level form:
; recognizing DEFUN FIND-LABELLER-FUN
; compiling top level form:
; compiling DEFUN FIND-LABELLER-FUN:
; compiling top level form:
; recognizing DEFUN FIND-PREFILTER-FUN
; compiling top level form:
; compiling DEFUN FIND-PREFILTER-FUN:
; compiling top level form:
; recognizing DEFUN COMPUTE-MASK-ID
; compiling top level form:
; compiling DEFUN COMPUTE-MASK-ID:
; compiling top level form:
; recognizing DEFUN INSTALL-INST-FLAVORS
; compiling top level form:
; compiling DEFUN INSTALL-INST-FLAVORS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BYTES-TO-BITS
; compiling top level form:
; compiling DEFUN BYTES-TO-BITS:
; compiling top level form:
; recognizing DEFUN BITS-TO-BYTES
; compiling top level form:
; compiling DEFUN BITS-TO-BYTES:
; compiling top level form:
; recognizing DEFUN SIGN-EXTEND
; compiling top level form:
; compiling DEFUN SIGN-EXTEND:
; compiling top level form:
; recognizing DEFUN ALIGNED-P
; compiling top level form:
; compiling DEFUN ALIGNED-P:
; compiling top level form:
; recognizing DEFUN ALIGN
; compiling top level form:
; compiling DEFUN ALIGN:
; compiling top level form:
; recognizing DEFUN TAB
; compiling top level form:
; compiling DEFUN TAB:
; compiling top level form:
; recognizing DEFUN TAB0
; compiling top level form:
; compiling DEFUN TAB0:
; compiling top level form:
; recognizing DEFUN PRINC16
; compiling top level form:
; compiling DEFUN PRINC16:
; compiling top level form:
; recognizing DEFUN READ-SIGNED-SUFFIX
; compiling top level form:
; compiling DEFUN READ-SIGNED-SUFFIX:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MAKE-DSTATE
; compiling top level form:
; compiling DEFSTRUCT DISASSEM-STATE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; recognizing DEFUN DSTATE-CUR-ADDR
; compiling top level form:
; compiling DEFUN DSTATE-CUR-ADDR:
; compiling top level form:
; recognizing DEFUN DSTATE-NEXT-ADDR
; compiling top level form:
; compiling DEFUN DSTATE-NEXT-ADDR:
; compiling top level form:
; compiling DEFMACRO DSTATE-GET-PROP:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/disassem.lisp
; in: DEFUN READ-SIGNED-SUFFIX
; (SB!DISASSEM:READ-SUFFIX LENGTH SB!DISASSEM::DSTATE)
;
; caught STYLE-WARNING:
; undefined function: READ-SUFFIX
; in: DEFUN DSTATE-NEXT-ADDR
; (SB!DISASSEM:SEG-VIRTUAL-LOCATION
; (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE))
;
; caught STYLE-WARNING:
; undefined function: SEG-VIRTUAL-LOCATION
; in: DEFUN DSTATE-CUR-ADDR
; (SB!DISASSEM:SEG-VIRTUAL-LOCATION
; (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE))
;
; caught STYLE-WARNING:
; undefined function: SEG-VIRTUAL-LOCATION
; in: DEFSTRUCT DISASSEM-STATE
; (DEFSTRUCT
; (SB!DISASSEM:DISASSEM-STATE (:CONC-NAME SB!DISASSEM::DSTATE-)
; (:CONSTRUCTOR SB!DISASSEM::%MAKE-DSTATE)
; (:COPIER NIL))
; (SB!DISASSEM::CUR-OFFS 0 :TYPE SB!DISASSEM::OFFSET)
; (SB!DISASSEM::NEXT-OFFS 0 :TYPE SB!DISASSEM::OFFSET)
; (SB!DISASSEM::SEGMENT-SAP (SB!INT:MISSING-ARG)
; :TYPE
; SB!SYS:SYSTEM-AREA-POINTER)
; (SB!DISASSEM:SEGMENT NIL :TYPE (OR NULL SB!DISASSEM:SEGMENT))
; (SB!DISASSEM::ALIGNMENT SB!VM:N-WORD-BYTES :TYPE SB!DISASSEM::ALIGNMENT)
; (SB!DISASSEM::BYTE-ORDER :LITTLE-ENDIAN ..))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SB!DISASSEM::%MAKE-DSTATE
; (&KEY ((:CUR-OFFS #:G2227) 0)
; ((:NEXT-OFFS #:G2228) 0)
; ((:SEGMENT-SAP #:G2229) (SB!INT:MISSING-ARG))
; ((:SEGMENT #:G2230) NIL)
; ((:ALIGNMENT #:G2231) SB!VM:N-WORD-BYTES)
; ((:BYTE-ORDER #:G2232) :LITTLE-ENDIAN)
; ((:PROPERTIES #:G2233) NIL)
; ((:FILTERED-VALUES #:G2234)
; (MAKE-ARRAY
; SB!DISASSEM::MAX-FILTERED-VALUE-INDEX))
; ((:ADDR-PRINT-LEN #:G2235) NIL) ..))
;
; caught STYLE-WARNING:
; undefined type: SEGMENT
;
; caught STYLE-WARNING:
; undefined type: SEGMENT
;
; caught STYLE-WARNING:
; undefined type: SEGMENT
;
; caught STYLE-WARNING:
; 8 more uses of undefined type SEGMENT
;
; caught STYLE-WARNING:
; These functions are undefined:
; READ-SUFFIX SEG-VIRTUAL-LOCATION
;
; caught STYLE-WARNING:
; This type is undefined:
; SEGMENT
;
; compilation unit finished
; caught 9 STYLE-WARNING conditions
; printed 29 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/disassem.lisp-obj-tmp written
; compilation finished in 0:00:03
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/assem.lisp" (written 31 OCT 2004 06:46:48 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-SEGMENT
; compiling top level form:
; compiling DEFSTRUCT SEGMENT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPRINTER (SEGMENT):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SEGMENT-CURRENT-INDEX
; compiling top level form:
; compiling DEFUN SEGMENT-CURRENT-INDEX:
; compiling top level form:
; recognizing DEFUN (SETF SEGMENT-CURRENT-INDEX)
; compiling top level form:
; compiling DEFUN (SETF SEGMENT-CURRENT-INDEX):
; compiling top level form:
; compiling DEFMACRO WITH-MODIFIED-SEGMENT-INDEX-AND-POSN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE INSTRUCTION:
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE INSTRUCTION:
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE INSTRUCTION:
; compiling top level form:
; recognizing DEFUN DECODE-INSTRUCTION-ATTRIBUTES
; compiling top level form:
; compiling !DEF-BOOLEAN-ATTRIBUTE INSTRUCTION:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-INSTRUCTION
; compiling top level form:
; compiling DEF!STRUCT (INSTRUCTION (:INCLUDE SSET-ELEMENT) (:CONC-NAME INST-) (:CONSTRUCTOR MAKE-INSTRUCTION #) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE T)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!KERNEL:INSTANCE)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE STRUCTURE-OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!SYS:STRUCTURE!OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!ASSEM:SSET-ELEMENT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; compiling DEFMACRO WITHOUT-SCHEDULING:
; compiling top level form:
; compiling DEFMACRO NOTE-DEPENDENCIES:
; compiling top level form:
; recognizing DEFUN NOTE-READ-DEPENDENCY
; compiling top level form:
; compiling DEFUN NOTE-READ-DEPENDENCY:
; compiling top level form:
; recognizing DEFUN NOTE-WRITE-DEPENDENCY
; compiling top level form:
; compiling DEFUN NOTE-WRITE-DEPENDENCY:
; compiling top level form:
; recognizing DEFUN QUEUE-INST
; compiling top level form:
; compiling DEFUN QUEUE-INST:
; compiling top level form:
; recognizing DEFUN SCHEDULE-PENDING-INSTRUCTIONS
; compiling top level form:
; compiling DEFUN SCHEDULE-PENDING-INSTRUCTIONS:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/assem.lisp
; in: DEFUN SCHEDULE-PENDING-INSTRUCTIONS
; (FUNCALL (SB!ASSEM::INST-EMITTER SB!ASSEM:INST) SB!ASSEM:SEGMENT)
; --> 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 top level form:
; recognizing DEFUN ADD-TO-NTH-LIST
; compiling top level form:
; compiling DEFUN ADD-TO-NTH-LIST:
; compiling top level form:
; recognizing DEFUN SCHEDULE-ONE-INST
; compiling top level form:
; compiling DEFUN SCHEDULE-ONE-INST:
; compiling top level form:
; recognizing DEFUN NOTE-RESOLVED-DEPENDENCIES
; compiling top level form:
; compiling DEFUN NOTE-RESOLVED-DEPENDENCIES:
; compiling top level form:
; recognizing DEFUN ADVANCE-ONE-INST
; compiling top level form:
; compiling DEFUN ADVANCE-ONE-INST:
; compiling top level form:
; recognizing DEFUN INSERT-EMITTABLE-INST
; compiling top level form:
; compiling DEFUN INSERT-EMITTABLE-INST:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN GEN-LABEL
; compiling top level form:
; compiling DEF!STRUCT (LABEL (:INCLUDE ANNOTATION) (:CONSTRUCTOR GEN-LABEL NIL) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!ASSEM::ANNOTATION)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ALIGNMENT
; compiling top level form:
; compiling DEF!STRUCT (ALIGNMENT-NOTE (:INCLUDE ANNOTATION) (:CONC-NAME ALIGNMENT-) (:PREDICATE ALIGNMENT-P) (:CONSTRUCTOR MAKE-ALIGNMENT #) ...):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-BACK-PATCH
; compiling top level form:
; compiling DEF!STRUCT (BACK-PATCH (:INCLUDE ANNOTATION) (:CONSTRUCTOR MAKE-BACK-PATCH #) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-CHOOSER
; compiling top level form:
; compiling DEF!STRUCT (CHOOSER (:INCLUDE ANNOTATION) (:CONSTRUCTOR MAKE-CHOOSER #) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-FILLER
; compiling top level form:
; compiling DEF!STRUCT (FILLER (:INCLUDE ANNOTATION) (:CONSTRUCTOR MAKE-FILLER #) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EMIT-BYTE
; compiling top level form:
; compiling DEFUN EMIT-BYTE:
; compiling top level form:
; recognizing DEFUN EMIT-SKIP
; compiling top level form:
; compiling DEFUN EMIT-SKIP:
; compiling top level form:
; recognizing DEFUN EMIT-ANNOTATION
; compiling top level form:
; compiling DEFUN EMIT-ANNOTATION:
; compiling top level form:
; recognizing DEFUN EMIT-BACK-PATCH
; compiling top level form:
; compiling DEFUN EMIT-BACK-PATCH:
; compiling top level form:
; recognizing DEFUN EMIT-CHOOSER
; compiling top level form:
; compiling DEFUN EMIT-CHOOSER:
; compiling top level form:
; recognizing DEFUN ADJUST-ALIGNMENT-AFTER-CHOOSER
; compiling top level form:
; compiling DEFUN ADJUST-ALIGNMENT-AFTER-CHOOSER:
; compiling top level form:
; recognizing DEFUN EMIT-FILLER
; compiling top level form:
; compiling DEFUN EMIT-FILLER:
; compiling top level form:
; recognizing DEFUN %EMIT-LABEL
; compiling top level form:
; compiling DEFUN %EMIT-LABEL:
; compiling top level form:
; recognizing DEFUN EMIT-ALIGNMENT
; compiling top level form:
; compiling DEFUN EMIT-ALIGNMENT:
; compiling top level form:
; recognizing DEFUN FIND-ALIGNMENT
; compiling top level form:
; compiling DEFUN FIND-ALIGNMENT:
; compiling top level form:
; recognizing DEFUN %EMIT-POSTIT
; compiling top level form:
; compiling DEFUN %EMIT-POSTIT:
; compiling top level form:
; recognizing DEFUN COMPRESS-OUTPUT
; compiling top level form:
; compiling DEFUN COMPRESS-OUTPUT:
; compiling top level form:
; recognizing DEFUN FINALIZE-POSITIONS
; compiling top level form:
; compiling DEFUN FINALIZE-POSITIONS:
; compiling top level form:
; recognizing DEFUN PROCESS-BACK-PATCHES
; compiling top level form:
; compiling DEFUN PROCESS-BACK-PATCHES:
; compiling top level form:
; compiling DEFMACRO %%CURRENT-SEGMENT%%:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO %%CURRENT-VOP%%:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!MACRO ASSEMBLE:
; compiling top level form:
; compiling DEF!MACRO ASSEMBLE:
; compiling top level form:
; compiling SB-XC:DEFMACRO ASSEMBLE:
; compiling top level form:
; compiling DEFMACRO INST:
; compiling top level form:
; compiling DEFMACRO EMIT-LABEL:
; compiling top level form:
; compiling DEFMACRO EMIT-POSTIT:
; compiling top level form:
; compiling DEFMACRO ALIGN:
; compiling top level form:
; recognizing DEFUN LABEL-POSITION
; compiling top level form:
; compiling DEFUN LABEL-POSITION:
; compiling top level form:
; recognizing DEFUN APPEND-SEGMENT
; compiling top level form:
; compiling DEFUN APPEND-SEGMENT:
; compiling top level form:
; recognizing DEFUN FINALIZE-SEGMENT
; compiling top level form:
; compiling DEFUN FINALIZE-SEGMENT:
; compiling top level form:
; recognizing DEFUN ON-SEGMENT-CONTENTS-VECTORLY
; compiling top level form:
; compiling DEFUN ON-SEGMENT-CONTENTS-VECTORLY:
; compiling top level form:
; recognizing DEFUN WRITE-SEGMENT-CONTENTS
; compiling top level form:
; compiling DEFUN WRITE-SEGMENT-CONTENTS:
; compiling top level form:
; compiling DEFMACRO DEFINE-BITFIELD-EMITTER:
; compiling top level form:
; recognizing DEFUN GROVEL-LAMBDA-LIST
; compiling top level form:
; compiling DEFUN GROVEL-LAMBDA-LIST:
; compiling top level form:
; recognizing DEFUN EXTRACT-NTHS
; compiling top level form:
; compiling DEFUN EXTRACT-NTHS:
; compiling top level form:
; compiling DEFMACRO DEFINE-INSTRUCTION:
; compiling top level form:
; compiling DEFMACRO DEFINE-INSTRUCTION-MACRO:
; compiling top level form:
; recognizing DEFUN %DEFINE-INSTRUCTION
; compiling top level form:
; compiling DEFUN %DEFINE-INSTRUCTION:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/assem.lisp
; in: DEF!METHOD PRINT-OBJECT
; (SB!C:LABEL-ID SB!ASSEM:LABEL)
;
; caught STYLE-WARNING:
; undefined function: SB!C:LABEL-ID
; in: SB-XC:DEFMACRO ASSEMBLE
; (SB-XC:MACROEXPAND 'SB!ASSEM::..INHERITED-LABELS.. SB!ASSEM::ENV)
;
; caught STYLE-WARNING:
; undefined function: SB-XC:MACROEXPAND
; in: LAMBDA NIL
; (SB-XC:MACROEXPAND 'SB!ASSEM::..INHERITED-LABELS.. SB!ASSEM::ENV)
;
; caught STYLE-WARNING:
; undefined function: SB-XC:MACROEXPAND
;
; caught STYLE-WARNING:
; These functions are undefined:
; SB!C:LABEL-ID SB-XC:MACROEXPAND
;
; compilation unit finished
; caught 4 STYLE-WARNING conditions
; printed 1 note
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/assem.lisp-obj-tmp written
; compilation finished in 0:00:04
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/trace-table.lisp" (written 19 MAY 2002 03:55:32 PM):
; compiling top level form:
; recognizing DEFUN TRACE-TABLE-ENTRY
; compiling top level form:
; compiling DEFUN TRACE-TABLE-ENTRY:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTYPE TT-STATE:
; compiling top level form:
; compiling DEFTYPE TT-ENTRY:
; compiling top level form:
; compiling DEFTYPE TT-OFFSET:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PACK-TRACE-TABLE
; compiling top level form:
; compiling DEFUN PACK-TRACE-TABLE:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/trace-table.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/dump.lisp" (written 02 NOV 2004 08:22:08 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-FASL-OUTPUT
; compiling top level form:
; compiling DEFSTRUCT FASL-OUTPUT:
; compiling top level form:
; compiling top level form:
; compiling DEFSTRUCT FASL-OUTPUT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-CIRCULARITY
; compiling top level form:
; compiling DEFSTRUCT CIRCULARITY:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DUMP-BYTE
; compiling top level form:
; compiling DEFUN DUMP-BYTE:
; compiling top level form:
; recognizing DEFUN DUMP-WORD
; compiling top level form:
; compiling DEFUN DUMP-WORD:
; compiling top level form:
; recognizing DEFUN DUMP-INTEGER-AS-N-BYTES
; compiling top level form:
; compiling DEFUN DUMP-INTEGER-AS-N-BYTES:
; compiling top level form:
; compiling DEFMACRO DUMP-FOP:
; compiling top level form:
; compiling DEFMACRO DUMP-FOP*:
; compiling top level form:
; recognizing DEFUN DUMP-PUSH
; compiling top level form:
; compiling DEFUN DUMP-PUSH:
; compiling top level form:
; recognizing DEFUN DUMP-POP
; compiling top level form:
; compiling DEFUN DUMP-POP:
; compiling top level form:
; recognizing DEFUN EQUAL-CHECK-TABLE
; compiling top level form:
; compiling DEFUN EQUAL-CHECK-TABLE:
; compiling top level form:
; recognizing DEFUN STRING-CHECK-TABLE
; compiling top level form:
; compiling DEFUN STRING-CHECK-TABLE:
; compiling top level form:
; recognizing DEFUN EQ-SAVE-OBJECT
; compiling top level form:
; compiling DEFUN EQ-SAVE-OBJECT:
; compiling top level form:
; recognizing DEFUN EQUAL-SAVE-OBJECT
; compiling top level form:
; compiling DEFUN EQUAL-SAVE-OBJECT:
; compiling top level form:
; recognizing DEFUN STRING-SAVE-OBJECT
; compiling top level form:
; compiling DEFUN STRING-SAVE-OBJECT:
; compiling top level form:
; recognizing DEFUN NOTE-POTENTIAL-CIRCULARITY
; compiling top level form:
; compiling DEFUN NOTE-POTENTIAL-CIRCULARITY:
; compiling top level form:
; recognizing DEFUN FASL-DUMP-COLD-LOAD-FORM
; compiling top level form:
; compiling DEFUN FASL-DUMP-COLD-LOAD-FORM:
; compiling top level form:
; recognizing DEFUN FASL-WRITE-STRING
; compiling top level form:
; compiling DEFUN FASL-WRITE-STRING:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/dump.lisp
; in: DEFUN FASL-WRITE-STRING
; (LOOP SB!FASL::FOR
; CHAR
; SB!FASL::ACROSS
; STRING
; DO
; (LET ((SB!FASL::CODE #))
; (SB!INT:AVER (<= 0 SB!FASL::CODE 127))
; (WRITE-BYTE SB!FASL::CODE STREAM)))
; --> BLOCK 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
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling top level form:
; recognizing DEFUN OPEN-FASL-OUTPUT
; compiling top level form:
; compiling DEFUN OPEN-FASL-OUTPUT:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/dump.lisp
; in: DEFUN OPEN-FASL-OUTPUT
; (AREF STRING SB!FASL::I)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling top level form:
; recognizing DEFUN CLOSE-FASL-OUTPUT
; compiling top level form:
; compiling DEFUN CLOSE-FASL-OUTPUT:
; compiling top level form:
; recognizing DEFUN DUMP-NON-IMMEDIATE-OBJECT
; compiling top level form:
; compiling DEFUN DUMP-NON-IMMEDIATE-OBJECT:
; compiling top level form (SB-KERNEL:FIND-CLASSOID-CELL (QUOTE STANDARD-OBJECT)):
; compiling top level form:
; recognizing DEFUN SUB-DUMP-OBJECT
; compiling top level form:
; compiling DEFUN SUB-DUMP-OBJECT:
; compiling top level form:
; recognizing DEFUN DUMP-CIRCULARITIES
; compiling top level form:
; compiling DEFUN DUMP-CIRCULARITIES:
; compiling top level form:
; recognizing DEFUN DUMP-OBJECT
; compiling top level form:
; compiling DEFUN DUMP-OBJECT:
; compiling top level form:
; recognizing DEFUN FASL-DUMP-LOAD-TIME-VALUE-LAMBDA
; compiling top level form:
; compiling DEFUN FASL-DUMP-LOAD-TIME-VALUE-LAMBDA:
; compiling top level form:
; recognizing DEFUN FASL-CONSTANT-ALREADY-DUMPED-P
; compiling top level form:
; compiling DEFUN FASL-CONSTANT-ALREADY-DUMPED-P:
; compiling top level form:
; recognizing DEFUN FASL-NOTE-HANDLE-FOR-CONSTANT
; compiling top level form:
; compiling DEFUN FASL-NOTE-HANDLE-FOR-CONSTANT:
; compiling top level form:
; recognizing DEFUN FASL-VALIDATE-STRUCTURE
; compiling top level form:
; compiling DEFUN FASL-VALIDATE-STRUCTURE:
; compiling top level form:
; recognizing DEFUN DUMP-RATIO
; compiling top level form:
; compiling DEFUN DUMP-RATIO:
; compiling top level form:
; recognizing DEFUN DUMP-INTEGER
; compiling top level form:
; compiling DEFUN DUMP-INTEGER:
; compiling top level form:
; recognizing DEFUN DUMP-FLOAT
; compiling top level form:
; compiling DEFUN DUMP-FLOAT:
; compiling top level form:
; recognizing DEFUN DUMP-COMPLEX
; compiling top level form:
; compiling DEFUN DUMP-COMPLEX:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DUMP-PACKAGE
; compiling top level form:
; compiling DEFUN DUMP-PACKAGE:
; compiling top level form:
; recognizing DEFUN DUMP-LIST
; compiling top level form:
; compiling DEFUN DUMP-LIST:
; compiling top level form:
; recognizing DEFUN TERMINATE-DOTTED-LIST
; compiling top level form:
; compiling DEFUN TERMINATE-DOTTED-LIST:
; compiling top level form:
; recognizing DEFUN TERMINATE-UNDOTTED-LIST
; compiling top level form:
; compiling DEFUN TERMINATE-UNDOTTED-LIST:
; compiling top level form:
; recognizing DEFUN DUMP-ARRAY
; compiling top level form:
; compiling DEFUN DUMP-ARRAY:
; compiling top level form:
; recognizing DEFUN DUMP-VECTOR
; compiling top level form:
; compiling DEFUN DUMP-VECTOR:
; compiling top level form:
; recognizing DEFUN DUMP-SIMPLE-VECTOR
; compiling top level form:
; compiling DEFUN DUMP-SIMPLE-VECTOR:
; compiling top level form:
; recognizing DEFUN OCTET-SWAP
; compiling top level form:
; compiling DEFUN OCTET-SWAP:
; compiling top level form:
; in: COMMON-LISP:LAMBDA COMMON-LISP:NIL
; '(:AND)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; '(:OR)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; '(:AND)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; recognizing DEFUN DUMP-I-VECTOR
; compiling top level form:
; compiling DEFUN DUMP-I-VECTOR:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/dump.lisp
; in: DEFUN DUMP-I-VECTOR
; (SB!INT:DOVECTOR (SB!FASL::I SB!FASL::VEC)
; (SB!FASL::DUMP-INTEGER-AS-N-BYTES
; (ECASE SB!C:*BACKEND-BYTE-ORDER*
; (:LITTLE-ENDIAN SB!FASL::I)
; (:BIG-ENDIAN #))
; FLOOR
; SB!FASL::FILE))
; --> LET DO BLOCK LET TAGBODY TAGBODY LET AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling top level form:
; recognizing DEFUN DUMP-CHARACTER
; compiling top level form:
; compiling DEFUN DUMP-CHARACTER:
; compiling top level form:
; recognizing DEFUN DUMP-BASE-CHARS-OF-STRING
; compiling top level form:
; compiling DEFUN DUMP-BASE-CHARS-OF-STRING:
; compiling top level form:
; recognizing DEFUN DUMP-SIMPLE-BASE-STRING
; compiling top level form:
; compiling DEFUN DUMP-SIMPLE-BASE-STRING:
; compiling top level form:
; recognizing DEFUN DUMP-SYMBOL
; compiling top level form:
; compiling DEFUN DUMP-SYMBOL:
; compiling top level form:
; recognizing DEFUN DUMP-SEGMENT
; compiling top level form:
; compiling DEFUN DUMP-SEGMENT:
; compiling top level form:
; recognizing DEFUN DUMP-FIXUPS
; compiling top level form:
; compiling DEFUN DUMP-FIXUPS:
; compiling top level form:
; recognizing DEFUN DUMP-CODE-OBJECT
; compiling top level form:
; compiling DEFUN DUMP-CODE-OBJECT:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/dump.lisp
; in: DEFUN DUMP-CODE-OBJECT
; (AREF SB!FASL::CONSTANTS SB!FASL::I)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling top level form:
; recognizing DEFUN DUMP-ASSEMBLER-ROUTINES
; compiling top level form:
; compiling DEFUN DUMP-ASSEMBLER-ROUTINES:
; compiling top level form:
; recognizing DEFUN DUMP-ONE-ENTRY
; compiling top level form:
; compiling DEFUN DUMP-ONE-ENTRY:
; compiling top level form:
; recognizing DEFUN DUMP-ALTER-CODE-OBJECT
; compiling top level form:
; compiling DEFUN DUMP-ALTER-CODE-OBJECT:
; compiling top level form:
; recognizing DEFUN FASL-DUMP-COMPONENT
; compiling top level form:
; compiling DEFUN FASL-DUMP-COMPONENT:
; compiling top level form:
; recognizing DEFUN DUMP-PUSH-PREVIOUSLY-DUMPED-FUN
; compiling top level form:
; compiling DEFUN DUMP-PUSH-PREVIOUSLY-DUMPED-FUN:
; compiling top level form:
; recognizing DEFUN FASL-DUMP-TOPLEVEL-LAMBDA-CALL
; compiling top level form:
; compiling DEFUN FASL-DUMP-TOPLEVEL-LAMBDA-CALL:
; compiling top level form:
; recognizing DEFUN FASL-DUMP-COLD-FSET
; compiling top level form:
; compiling DEFUN FASL-DUMP-COLD-FSET:
; compiling top level form:
; recognizing DEFUN FASL-DUMP-SOURCE-INFO
; compiling top level form:
; compiling DEFUN FASL-DUMP-SOURCE-INFO:
; compiling top level form:
; recognizing DEFUN DUMP-STRUCTURE
; compiling top level form:
; compiling DEFUN DUMP-STRUCTURE:
; compiling top level form:
; recognizing DEFUN DUMP-LAYOUT
; compiling top level form:
; compiling DEFUN DUMP-LAYOUT:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/dump.lisp
; in: DEFUN DUMP-CODE-OBJECT
; (SB!C::DEBUG-INFO-FOR-COMPONENT SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: SB!C::DEBUG-INFO-FOR-COMPONENT
; in: DEFUN FASL-DUMP-SOURCE-INFO
; (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO)
;
; caught STYLE-WARNING:
; undefined function: SB!C::DEBUG-SOURCE-FOR-INFO
; in: DEFUN DUMP-VECTOR
; (SB!FASL::DUMP-COMPLEX-DOUBLE-FLOAT-VECTOR SB!FASL::SIMPLE-VERSION
; SB!FASL::FILE)
;
; caught STYLE-WARNING:
; undefined function: DUMP-COMPLEX-DOUBLE-FLOAT-VECTOR
; (SB!FASL::DUMP-COMPLEX-SINGLE-FLOAT-VECTOR SB!FASL::SIMPLE-VERSION
; SB!FASL::FILE)
;
; caught STYLE-WARNING:
; undefined function: DUMP-COMPLEX-SINGLE-FLOAT-VECTOR
; (SB!FASL::DUMP-DOUBLE-FLOAT-VECTOR SB!FASL::SIMPLE-VERSION SB!FASL::FILE)
;
; caught STYLE-WARNING:
; undefined function: DUMP-DOUBLE-FLOAT-VECTOR
; in: DEFUN DUMP-ARRAY
; (SB!FASL::DUMP-MULTI-DIM-ARRAY SB!FASL::X SB!FASL::FILE)
;
; caught STYLE-WARNING:
; undefined function: DUMP-MULTI-DIM-ARRAY
; in: DEFUN DUMP-I-VECTOR
; (SB!FASL::DUMP-RAW-BYTES SB!FASL::VEC SB!SYS:BYTES SB!FASL::FILE)
;
; caught STYLE-WARNING:
; undefined function: DUMP-RAW-BYTES
; in: DEFUN DUMP-VECTOR
; (SB!FASL::DUMP-SINGLE-FLOAT-VECTOR SB!FASL::SIMPLE-VERSION SB!FASL::FILE)
;
; caught STYLE-WARNING:
; undefined function: DUMP-SINGLE-FLOAT-VECTOR
; in: DEFUN DUMP-FIXUPS
; (SB!C:FIXUP-FLAVOR SB!C:FIXUP)
;
; caught STYLE-WARNING:
; undefined function: FIXUP-FLAVOR
; (SB!C:FIXUP-NAME SB!C:FIXUP)
;
; caught STYLE-WARNING:
; undefined function: FIXUP-NAME
; (SB!C:FIXUP-NOTE-FIXUP SB!FASL::NOTE)
;
; caught STYLE-WARNING:
; undefined function: FIXUP-NOTE-FIXUP
; (SB!C:FIXUP-NOTE-KIND SB!FASL::NOTE)
;
; caught STYLE-WARNING:
; undefined function: FIXUP-NOTE-KIND
; (SB!C:FIXUP-NOTE-POSITION SB!FASL::NOTE)
;
; caught STYLE-WARNING:
; undefined function: FIXUP-NOTE-POSITION
; in: DEFUN OPEN-FASL-OUTPUT
; (SB!INT:FORMAT-UNIVERSAL-TIME NIL (GET-UNIVERSAL-TIME))
;
; caught STYLE-WARNING:
; undefined function: FORMAT-UNIVERSAL-TIME
; in: DEFUN FASL-DUMP-SOURCE-INFO
; (DEFUN SB!FASL:FASL-DUMP-SOURCE-INFO (SB!INT:INFO SB!FASL:FASL-OUTPUT)
; (DECLARE (TYPE SB!C::SOURCE-INFO SB!INT:INFO))
; (LET ((SB!FASL::RES #) (SB!FASL::*DUMP-ONLY-VALID-STRUCTURES* NIL))
; (SB!FASL:DUMP-OBJECT SB!FASL::RES SB!FASL:FASL-OUTPUT)
; (LET (#)
; (DOLIST # # # # #)))
; (SETF (SB!FASL::FASL-OUTPUT-DEBUG-INFO SB!FASL:FASL-OUTPUT) NIL)
; (VALUES))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> LOCALLY SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF
; --> TYPEP
; ==>
; (SB-KERNEL:%TYPEP #:G1151 'SB!C::SOURCE-INFO)
;
; caught STYLE-WARNING:
; undefined type: SB!C::SOURCE-INFO
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> LOCALLY SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF
; ==>
; (TYPEP #:G1151 'SB!C::SOURCE-INFO)
;
; caught STYLE-WARNING:
; undefined type: SB!C::SOURCE-INFO
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SB!FASL:FASL-DUMP-SOURCE-INFO
; (SB!INT:INFO SB!FASL:FASL-OUTPUT)
; (DECLARE (TYPE SB!C::SOURCE-INFO SB!INT:INFO))
; (BLOCK SB!FASL:FASL-DUMP-SOURCE-INFO
; (LET (# #)
; (SB!FASL:DUMP-OBJECT SB!FASL::RES
; SB!FASL:FASL-OUTPUT)
; (LET #
; #))
; (SETF (SB!FASL::FASL-OUTPUT-DEBUG-INFO
; SB!FASL:FASL-OUTPUT)
; NIL) ..))
;
; caught STYLE-WARNING:
; undefined type: SB!C::SOURCE-INFO
;
; caught STYLE-WARNING:
; 1 more use of undefined type SB!C::SOURCE-INFO
;
; caught STYLE-WARNING:
; These functions are undefined:
; SB!C::DEBUG-INFO-FOR-COMPONENT SB!C::DEBUG-SOURCE-FOR-INFO DUMP-COMPLEX-DOUBLE-FLOAT-VECTOR DUMP-COMPLEX-SINGLE-FLOAT-VECTOR DUMP-DOUBLE-FLOAT-VECTOR DUMP-MULTI-DIM-ARRAY DUMP-RAW-BYTES DUMP-SINGLE-FLOAT-VECTOR FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION FORMAT-UNIVERSAL-TIME
;
; caught STYLE-WARNING:
; This type is undefined:
; SB!C::SOURCE-INFO
;
; compilation unit finished
; caught 20 STYLE-WARNING conditions
; printed 11 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/dump.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/main.lisp" (written 21 DEC 2004 04:52:09 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAYBE-MUMBLE
; compiling top level form:
; compiling DEFUN MAYBE-MUMBLE:
; compiling top level form:
; compiling DEFTYPE OBJECT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO SB-XC:WITH-COMPILATION-UNIT:
; compiling top level form:
; recognizing DEFUN %WITH-COMPILATION-UNIT
; compiling top level form:
; compiling DEFUN %WITH-COMPILATION-UNIT:
; compiling top level form:
; recognizing DEFUN FUN-NAME-RESERVED-BY-ANSI-P
; compiling top level form:
; compiling DEFUN FUN-NAME-RESERVED-BY-ANSI-P:
; compiling top level form:
; recognizing DEFUN SUMMARIZE-COMPILATION-UNIT
; compiling top level form:
; compiling DEFUN SUMMARIZE-COMPILATION-UNIT:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/main.lisp
; in: DEFUN SUMMARIZE-COMPILATION-UNIT
; (CASE SB!C::NAME
; ((DECLARE)
; (SB!C:COMPILER-WARN
; "~@"
; SB!C::NAME
; SB!C::NAME))
; (T
; (SB!C:COMPILER-WARN "~@ LET
; ==>
; SB!C::NAME
;
; note: deleting unreachable code
; (SB!C:COMPILER-WARN "~@"
; SB!C::NAME
; SB!C::NAME)
; ==>
; "~@"
;
; note: deleting unreachable code
; (SB!C:COMPILER-WARN "~@"
; SB!C::KIND
; SB!C::NAME)
; ==>
; "~@"
;
; note: deleting unreachable code
; compiling top level form:
; compiling DEFMACRO WITH-COMPILATION-VALUES:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-OPTIMIZE-UNTIL-DONE
; compiling top level form:
; compiling DEFUN IR1-OPTIMIZE-UNTIL-DONE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DFO-AS-NEEDED
; compiling top level form:
; compiling DEFUN DFO-AS-NEEDED:
; compiling top level form:
; recognizing DEFUN IR1-PHASES
; compiling top level form:
; compiling DEFUN IR1-PHASES:
; compiling top level form:
; recognizing DEFUN %COMPILE-COMPONENT
; compiling top level form:
; compiling DEFUN %COMPILE-COMPONENT:
; compiling top level form:
; recognizing DEFUN DELETE-IF-NO-ENTRIES
; compiling top level form:
; compiling DEFUN DELETE-IF-NO-ENTRIES:
; compiling top level form:
; recognizing DEFUN COMPILE-COMPONENT
; compiling top level form:
; compiling DEFUN COMPILE-COMPONENT:
; compiling top level form:
; recognizing DEFUN CLEAR-CONSTANT-INFO
; compiling top level form:
; compiling DEFUN CLEAR-CONSTANT-INFO:
; compiling top level form:
; recognizing DEFUN CLEAR-IR1-INFO
; compiling top level form:
; compiling DEFUN CLEAR-IR1-INFO:
; compiling top level form:
; recognizing DEFUN CLEAR-STUFF
; compiling top level form:
; compiling DEFUN CLEAR-STUFF:
; compiling top level form:
; recognizing DEFUN DESCRIBE-COMPONENT
; compiling top level form:
; compiling DEFUN DESCRIBE-COMPONENT:
; compiling top level form:
; recognizing DEFUN DESCRIBE-IR2-COMPONENT
; compiling top level form:
; compiling DEFUN DESCRIBE-IR2-COMPONENT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-FILE-INFO
; compiling top level form:
; compiling DEF!STRUCT (FILE-INFO (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE T)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!KERNEL:INSTANCE)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE STRUCTURE-OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!SYS:STRUCTURE!OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-SOURCE-INFO
; compiling top level form:
; compiling DEF!STRUCT (SOURCE-INFO (:PRINT-OBJECT #) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling DEF!STRUCT (SOURCE-INFO (:PRINT-OBJECT #) (:COPIER NIL)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-FILE-SOURCE-INFO
; compiling top level form:
; compiling DEFUN MAKE-FILE-SOURCE-INFO:
; compiling top level form:
; recognizing DEFUN MAKE-LISP-SOURCE-INFO
; compiling top level form:
; compiling DEFUN MAKE-LISP-SOURCE-INFO:
; compiling top level form:
; recognizing DEFUN MAKE-STREAM-SOURCE-INFO
; compiling top level form:
; compiling DEFUN MAKE-STREAM-SOURCE-INFO:
; compiling top level form:
; recognizing DEFUN READ-FOR-COMPILE-FILE
; compiling top level form:
; compiling DEFUN READ-FOR-COMPILE-FILE:
; compiling top level form:
; recognizing DEFUN GET-SOURCE-STREAM
; compiling top level form:
; compiling DEFUN GET-SOURCE-STREAM:
; compiling top level form:
; recognizing DEFUN CLOSE-SOURCE-INFO
; compiling top level form:
; compiling DEFUN CLOSE-SOURCE-INFO:
; compiling top level form:
; recognizing DEFUN SUB-SUB-COMPILE-FILE
; compiling top level form:
; compiling DEFUN SUB-SUB-COMPILE-FILE:
; compiling top level form:
; recognizing DEFUN FIND-SOURCE-ROOT
; compiling top level form:
; compiling DEFUN FIND-SOURCE-ROOT:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/main.lisp
; in: DEFUN FIND-SOURCE-ROOT
; (AREF (SB!C::FILE-INFO-FORMS SB!C::FILE-INFO) SB!INT:INDEX)
; --> 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 T), not a SIMPLE-ARRAY.
; (AREF (SB!C::FILE-INFO-POSITIONS SB!C::FILE-INFO) SB!INT:INDEX)
; --> 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 T), not a SIMPLE-ARRAY.
; compiling top level form:
; recognizing DEFUN CONVERT-AND-MAYBE-COMPILE
; compiling top level form:
; compiling DEFUN CONVERT-AND-MAYBE-COMPILE:
; compiling top level form:
; recognizing DEFUN PREPROCESSOR-MACROEXPAND-1
; compiling top level form:
; compiling DEFUN PREPROCESSOR-MACROEXPAND-1:
; compiling top level form:
; recognizing DEFUN PROCESS-TOPLEVEL-PROGN
; compiling top level form:
; compiling DEFUN PROCESS-TOPLEVEL-PROGN:
; compiling top level form:
; recognizing DEFUN PROCESS-TOPLEVEL-LOCALLY
; compiling top level form:
; compiling DEFUN PROCESS-TOPLEVEL-LOCALLY:
; compiling top level form:
; recognizing DEFUN PARSE-EVAL-WHEN-SITUATIONS
; compiling top level form:
; compiling DEFUN PARSE-EVAL-WHEN-SITUATIONS:
; compiling top level form:
; recognizing DEFUN FUNCTIONAL-COMPONENTS
; compiling top level form:
; compiling DEFUN FUNCTIONAL-COMPONENTS:
; compiling top level form:
; recognizing DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
; compiling top level form:
; compiling DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA:
; compiling top level form:
; recognizing DEFUN %COMPILE
; compiling top level form:
; compiling DEFUN %COMPILE:
; compiling top level form:
; recognizing DEFUN PROCESS-TOPLEVEL-COLD-FSET
; compiling top level form:
; compiling DEFUN PROCESS-TOPLEVEL-COLD-FSET:
; compiling top level form:
; recognizing DEFUN PROCESS-TOPLEVEL-FORM
; compiling top level form:
; compiling DEFUN PROCESS-TOPLEVEL-FORM:
; compiling top level form:
; recognizing DEFUN PRODUCING-FASL-FILE
; compiling top level form:
; compiling DEFUN PRODUCING-FASL-FILE:
; compiling top level form:
; recognizing DEFUN COMPILE-LOAD-TIME-VALUE
; compiling top level form:
; compiling DEFUN COMPILE-LOAD-TIME-VALUE:
; compiling top level form:
; recognizing DEFUN COMPILE-MAKE-LOAD-FORM-INIT-FORMS
; compiling top level form:
; compiling DEFUN COMPILE-MAKE-LOAD-FORM-INIT-FORMS:
; compiling top level form:
; recognizing DEFUN COMPILE-LOAD-TIME-STUFF
; compiling top level form:
; compiling DEFUN COMPILE-LOAD-TIME-STUFF:
; compiling top level form:
; recognizing DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA
; compiling top level form:
; compiling DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA:
; compiling top level form:
; recognizing DEFUN OBJECT-CALL-TOPLEVEL-LAMBDA
; compiling top level form:
; compiling DEFUN OBJECT-CALL-TOPLEVEL-LAMBDA:
; compiling top level form:
; recognizing DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS
; compiling top level form:
; compiling DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS:
; compiling top level form:
; recognizing DEFUN COMPILE-TOPLEVEL-LAMBDAS
; compiling top level form:
; compiling DEFUN COMPILE-TOPLEVEL-LAMBDAS:
; compiling top level form:
; recognizing DEFUN COMPILE-TOPLEVEL
; compiling top level form:
; compiling DEFUN COMPILE-TOPLEVEL:
; compiling top level form:
; recognizing DEFUN FINISH-BLOCK-COMPILATION
; compiling top level form:
; compiling DEFUN FINISH-BLOCK-COMPILATION:
; compiling top level form:
; recognizing DEFUN HANDLE-CONDITION-P
; compiling top level form:
; compiling DEFUN HANDLE-CONDITION-P:
; compiling top level form:
; recognizing DEFUN HANDLE-CONDITION-HANDLER
; compiling top level form:
; compiling DEFUN HANDLE-CONDITION-HANDLER:
; compiling top level form:
; recognizing DEFUN SUB-COMPILE-FILE
; compiling top level form:
; compiling DEFUN SUB-COMPILE-FILE:
; compiling top level form:
; recognizing DEFUN VERIFY-SOURCE-FILE
; compiling top level form:
; compiling DEFUN VERIFY-SOURCE-FILE:
; compiling top level form:
; recognizing DEFUN ELAPSED-TIME-TO-STRING
; compiling top level form:
; compiling DEFUN ELAPSED-TIME-TO-STRING:
; compiling top level form:
; recognizing DEFUN START-ERROR-OUTPUT
; compiling top level form:
; compiling DEFUN START-ERROR-OUTPUT:
; compiling top level form:
; recognizing DEFUN FINISH-ERROR-OUTPUT
; compiling top level form:
; compiling DEFUN FINISH-ERROR-OUTPUT:
; compiling top level form:
; recognizing DEFUN SB-XC:COMPILE-FILE
; compiling top level form:
; compiling DEFUN SB-XC:COMPILE-FILE:
; compiling top level form:
; recognizing DEFUN CFP-OUTPUT-FILE-DEFAULT
; compiling top level form:
; compiling DEFUN CFP-OUTPUT-FILE-DEFAULT:
; compiling top level form:
; recognizing DEFUN SB-XC:COMPILE-FILE-PATHNAME
; compiling top level form:
; compiling DEFUN SB-XC:COMPILE-FILE-PATHNAME:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EMIT-MAKE-LOAD-FORM
; compiling top level form:
; compiling DEFUN EMIT-MAKE-LOAD-FORM:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/main.lisp
; in: DEFUN EMIT-MAKE-LOAD-FORM
; (FIND SB!KERNEL:CONSTANT SB!C::*CONSTANTS-CREATED-SINCE-LAST-INIT* :TEST #'EQ)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN COMPILE-IN-LEXENV
; compiling top level form:
; compiling DEFUN COMPILE-IN-LEXENV:
; compiling top level form:
; recognizing DEFUN EVAL-IN-LEXENV
; compiling top level form:
; compiling DEFUN EVAL-IN-LEXENV:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/main.lisp
; in: DEFUN IR1-PHASES
; (SB!C::EVENT SB!C::REOPTIMIZE-MAXED-OUT)
; ==>
; (SB!C::%EVENT SB!C::*REOPTIMIZE-MAXED-OUT-EVENT-INFO* NIL)
;
; caught STYLE-WARNING:
; undefined function: %EVENT
; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE
; (SB!C::EVENT SB!C::IR1-OPTIMIZE-UNTIL-DONE)
; ==>
; (SB!C::%EVENT SB!C::*IR1-OPTIMIZE-UNTIL-DONE-EVENT-INFO* NIL)
;
; caught STYLE-WARNING:
; undefined function: %EVENT
; in: DEFUN COMPILE-TOPLEVEL
; (SB!C::CHECK-IR1-CONSISTENCY SB!C::*ALL-COMPONENTS*)
;
; caught STYLE-WARNING:
; undefined function: CHECK-IR1-CONSISTENCY
; in: DEFUN %COMPILE-COMPONENT
; (SB!C::CHECK-IR2-CONSISTENCY SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: CHECK-IR2-CONSISTENCY
; (SB!C::CHECK-LIFE-CONSISTENCY SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: CHECK-LIFE-CONSISTENCY
; (SB!C::CHECK-PACK-CONSISTENCY SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: CHECK-PACK-CONSISTENCY
;
; caught STYLE-WARNING:
; undefined type: COMPILER-ERROR-CONTEXT
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/main.lisp
; in: DEFUN HANDLE-CONDITION-P
; (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT*
; (SB!C::NODE (SB!C::NODE-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*))
; (SB!C::COMPILER-ERROR-CONTEXT
; (LET (#)
; (SB!INT:AVER SB!KERNEL:LEXENV)
; SB!KERNEL:LEXENV))
; (NULL SB!C:*LEXENV*))
; --> LET COND IF COND IF TYPEP
; ==>
; (SB-KERNEL:%TYPEP #:G1676 'SB!C::COMPILER-ERROR-CONTEXT)
;
; caught STYLE-WARNING:
; undefined type: COMPILER-ERROR-CONTEXT
; --> LET COND IF COND IF
; ==>
; (TYPEP #:G1676 'SB!C::COMPILER-ERROR-CONTEXT)
;
; caught STYLE-WARNING:
; undefined type: COMPILER-ERROR-CONTEXT
;
; caught STYLE-WARNING:
; 3 more uses of undefined type COMPILER-ERROR-CONTEXT
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/main.lisp
; in: DEFUN HANDLE-CONDITION-HANDLER
; (SB!C::COMPILER-ERROR-CONTEXT-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-ERROR-CONTEXT-LEXENV
; in: DEFUN HANDLE-CONDITION-P
; (SB!C::COMPILER-ERROR-CONTEXT-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-ERROR-CONTEXT-LEXENV
; in: DEFUN SUB-COMPILE-FILE
; (SB!C::WITH-COMPILATION-VALUES
; (SB-XC:WITH-COMPILATION-UNIT NIL
; (SB!C::CLEAR-STUFF)
; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO)
; (SB!C::FINISH-BLOCK-COMPILATION)
; (LET (#)
; (ETYPECASE SB!C::OBJECT # # #))
; NIL))
; --> SB!C::WITH-IR1-NAMESPACE LET HANDLER-BIND LET CONS LIST CONS
; ==>
; #'SB!C::COMPILER-ERROR-HANDLER
;
; caught STYLE-WARNING:
; undefined function: COMPILER-ERROR-HANDLER
; in: DEFUN COMPILE-LOAD-TIME-STUFF
; (SB!C::WITH-IR1-NAMESPACE
; (LET* ((SB!C:*LEXENV* #) (LAMBDA #))
; (SB!C::COMPILE-TOPLEVEL (LIST LAMBDA) T)
; LAMBDA))
; --> LET HANDLER-BIND LET CONS LIST CONS
; ==>
; #'SB!C::COMPILER-ERROR-HANDLER
;
; caught STYLE-WARNING:
; undefined function: COMPILER-ERROR-HANDLER
; in: DEFUN %COMPILE-COMPONENT
; (SB!C::COMPILER-MUMBLE "")
;
; caught STYLE-WARNING:
; undefined function: COMPILER-MUMBLE
; in: DEFUN SUMMARIZE-COMPILATION-UNIT
; (SB!C::COMPILER-MUMBLE "compilation unit ~:[finished~;aborted~]~
; ~[~:;~:*~& caught ~W fatal ERROR condition~:P~]~
; ~[~:;~:*~& caught ~W ERROR condition~:P~]~
; ~[~:;~:*~& caught ~W WARNING condition~:P~]~
; ~[~:;~:*~& caught ~W STYLE-WARNING condition~:P~]~
; ~[~:;~:*~& printed ~W note~:P~]"
; SB!C::ABORT-P
; SB!C::*ABORTED-COMPILATION-UNIT-COUNT*
; SB!C::*COMPILER-ERROR-COUNT*
; SB!C::*COMPILER-WARNING-COUNT*
; SB!C::*COMPILER-STYLE-WARNING-COUNT*
; SB!C::*COMPILER-NOTE-COUNT*)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-MUMBLE
; in: DEFUN MAYBE-MUMBLE
; (SB!C::COMPILER-MUMBLE "~&")
;
; caught STYLE-WARNING:
; undefined function: COMPILER-MUMBLE
;
; caught STYLE-WARNING:
; 5 more uses of undefined function COMPILER-MUMBLE
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/main.lisp
; in: DEFUN SUB-COMPILE-FILE
; (SB!C::WITH-COMPILATION-VALUES
; (SB-XC:WITH-COMPILATION-UNIT NIL
; (SB!C::CLEAR-STUFF)
; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO)
; (SB!C::FINISH-BLOCK-COMPILATION)
; (LET (#)
; (ETYPECASE SB!C::OBJECT # # #))
; NIL))
; --> SB!C::WITH-IR1-NAMESPACE LET HANDLER-BIND LET CONS LIST CONS
; ==>
; #'SB!C::COMPILER-STYLE-WARNING-HANDLER
;
; caught STYLE-WARNING:
; undefined function: COMPILER-STYLE-WARNING-HANDLER
; in: DEFUN COMPILE-LOAD-TIME-STUFF
; (SB!C::WITH-IR1-NAMESPACE
; (LET* ((SB!C:*LEXENV* #) (LAMBDA #))
; (SB!C::COMPILE-TOPLEVEL (LIST LAMBDA) T)
; LAMBDA))
; --> LET HANDLER-BIND LET CONS LIST CONS
; ==>
; #'SB!C::COMPILER-STYLE-WARNING-HANDLER
;
; caught STYLE-WARNING:
; undefined function: COMPILER-STYLE-WARNING-HANDLER
; in: DEFUN SUMMARIZE-COMPILATION-UNIT
; #'SB!C::COMPILER-STYLE-WARNING-HANDLER
;
; caught STYLE-WARNING:
; undefined function: COMPILER-STYLE-WARNING-HANDLER
; in: DEFUN SUB-COMPILE-FILE
; (SB!C::WITH-COMPILATION-VALUES
; (SB-XC:WITH-COMPILATION-UNIT NIL
; (SB!C::CLEAR-STUFF)
; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO)
; (SB!C::FINISH-BLOCK-COMPILATION)
; (LET (#)
; (ETYPECASE SB!C::OBJECT # # #))
; NIL))
; --> SB!C::WITH-IR1-NAMESPACE LET HANDLER-BIND LET CONS LIST CONS
; ==>
; #'SB!C::COMPILER-WARNING-HANDLER
;
; caught STYLE-WARNING:
; undefined function: COMPILER-WARNING-HANDLER
; in: DEFUN COMPILE-LOAD-TIME-STUFF
; (SB!C::WITH-IR1-NAMESPACE
; (LET* ((SB!C:*LEXENV* #) (LAMBDA #))
; (SB!C::COMPILE-TOPLEVEL (LIST LAMBDA) T)
; LAMBDA))
; --> LET HANDLER-BIND LET CONS LIST CONS
; ==>
; #'SB!C::COMPILER-WARNING-HANDLER
;
; caught STYLE-WARNING:
; undefined function: COMPILER-WARNING-HANDLER
; in: DEFUN SUMMARIZE-COMPILATION-UNIT
; #'SB!C::COMPILER-WARNING-HANDLER
;
; caught STYLE-WARNING:
; undefined function: COMPILER-WARNING-HANDLER
; in: DEFUN IR1-PHASES
; (SB!C::CONSTRAINT-PROPAGATE SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: CONSTRAINT-PROPAGATE
; in: DEFUN %COMPILE-COMPONENT
; (SB!C::CONTROL-ANALYZE SB!C:COMPONENT #'SB!C::MAKE-IR2-BLOCK)
;
; caught STYLE-WARNING:
; undefined function: CONTROL-ANALYZE
; (SB!C::COPY-PROPAGATE SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: COPY-PROPAGATE
; in: DEFUN DELETE-IF-NO-ENTRIES
; (SB!C::DELETE-COMPONENT SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: DELETE-COMPONENT
; in: DEFUN %COMPILE-COMPONENT
; (SB!C::DELETE-UNREFERENCED-TNS SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: DELETE-UNREFERENCED-TNS
; (SB!C::ENTRY-ANALYZE SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: ENTRY-ANALYZE
; in: DEFUN DFO-AS-NEEDED
; (SB!C::FIND-DFO SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: FIND-DFO
; in: DEFUN COMPILE-COMPONENT
; (SB!C::FIND-DOMINATORS SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: FIND-DOMINATORS
; in: DEFUN COMPILE-TOPLEVEL
; (SB!C::FIND-INITIAL-DFO SB!C::LAMBDAS)
;
; caught STYLE-WARNING:
; undefined function: FIND-INITIAL-DFO
; in: DEFUN %COMPILE
; (SB!C::FIND-INITIAL-DFO (LIST SB!C::FUN))
;
; caught STYLE-WARNING:
; undefined function: FIND-INITIAL-DFO
; in: DEFUN SUB-SUB-COMPILE-FILE
; (SB!C::FIND-SOURCE-PATHS SB!KERNEL:FORM SB!C::CURRENT-IDX)
;
; caught STYLE-WARNING:
; undefined function: FIND-SOURCE-PATHS
; in: DEFUN START-ERROR-OUTPUT
; (SB!INT:FORMAT-UNIVERSAL-TIME NIL
; (SB!C::FILE-INFO-WRITE-DATE SB!C::FILE-INFO)
; :STYLE
; :GOVERNMENT
; :PRINT-WEEKDAY
; NIL
; :PRINT-TIMEZONE
; NIL)
;
; caught STYLE-WARNING:
; undefined function: FORMAT-UNIVERSAL-TIME
; in: DEFUN PROCESS-TOPLEVEL-FORM
; (SB!C::FUNCALL-IN-MACROLET-LEXENV SB!C::MAGIC
; (LAMBDA (&KEY SB!C::FUNS SB!C::PREPEND)
; (DECLARE (IGNORE SB!C::FUNS))
; (SB!INT:AVER (NULL SB!C::PREPEND))
; (SB!C::PROCESS-TOPLEVEL-LOCALLY
; SB!C::BODY
; SB!C::PATH
; SB!C::COMPILE-TIME-TOO))
; :COMPILE)
;
; caught STYLE-WARNING:
; undefined function: FUNCALL-IN-MACROLET-LEXENV
; (SB!C::FUNCALL-IN-SYMBOL-MACROLET-LEXENV SB!C::MAGIC
; (LAMBDA
; (&KEY SB!C::VARS SB!C::PREPEND)
; (SB!INT:AVER (NULL SB!C::PREPEND))
; (SB!C::PROCESS-TOPLEVEL-LOCALLY
; SB!C::BODY
; SB!C::PATH
; SB!C::COMPILE-TIME-TOO
; :VARS
; SB!C::VARS))
; :COMPILE)
;
; caught STYLE-WARNING:
; undefined function: FUNCALL-IN-SYMBOL-MACROLET-LEXENV
; in: DEFUN %COMPILE-COMPONENT
; (SB!C::GENERATE-CODE SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: GENERATE-CODE
; in: DEFUN IR1-PHASES
; (SB!C::GENERATE-TYPE-CHECKS SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: GENERATE-TYPE-CHECKS
; in: DEFUN %COMPILE-COMPONENT
; (SB!C::GTN-ANALYZE SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: GTN-ANALYZE
; (SB!C::INIT-ASSEMBLER)
;
; caught STYLE-WARNING:
; undefined function: INIT-ASSEMBLER
; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
; (SB!C::IR1-CONVERT-LAMBDA (SB!C::MAKE-XEP-LAMBDA-EXPRESSION SB!C::LOCALL-FUN)
; :SOURCE-NAME
; (OR SB!C::NAME 'SB!C::.ANONYMOUS.)
; :DEBUG-NAME
; (UNLESS SB!C::NAME "top level form"))
;
; caught STYLE-WARNING:
; undefined function: IR1-CONVERT-LAMBDA
; (SB!C::IR1-CONVERT-LAMBDALIKE SB!C::DEFINITION
; :DEBUG-NAME
; (SB!INT:DEBUG-NAMIFY "top level local call "
; SB!C::NAME))
;
; caught STYLE-WARNING:
; undefined function: IR1-CONVERT-LAMBDALIKE
; in: DEFUN IR1-PHASES
; (SB!C::IR1-FINALIZE SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: IR1-FINALIZE
; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE
; (SB!C::IR1-OPTIMIZE SB!C:COMPONENT SB!C::FASTP)
;
; caught STYLE-WARNING:
; undefined function: IR1-OPTIMIZE
; in: DEFUN COMPILE-LOAD-TIME-STUFF
; (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::*CURRENT-PATH* SB!C::FOR-VALUE)
;
; caught STYLE-WARNING:
; undefined function: IR1-TOPLEVEL
; in: DEFUN CONVERT-AND-MAYBE-COMPILE
; (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::PATH NIL)
;
; caught STYLE-WARNING:
; undefined function: IR1-TOPLEVEL
; in: DEFUN %COMPILE-COMPONENT
; (SB!C:IR2-CONVERT SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: IR2-CONVERT
; in: DEFUN DESCRIBE-IR2-COMPONENT
; (SB!C:LABEL-ID (SB!C::ENTRY-INFO-OFFSET SB!C::ENTRY))
;
; caught STYLE-WARNING:
; undefined function: LABEL-ID
; in: DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA
; (SB!C::LAMBDA-COMPONENT LAMBDA)
;
; caught STYLE-WARNING:
; undefined function: LAMBDA-COMPONENT
; in: DEFUN FUNCTIONAL-COMPONENTS
; (SB!C::LAMBDA-COMPONENT SB!C::F)
;
; caught STYLE-WARNING:
; undefined function: LAMBDA-COMPONENT
; in: DEFUN COMPILE-COMPONENT
; (SB!C::LAMBDA-COMPONENT LAMBDA)
;
; caught STYLE-WARNING:
; undefined function: LAMBDA-COMPONENT
; in: DEFUN %COMPILE-COMPONENT
; (SB!C::LIFETIME-ANALYZE SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: LIFETIME-ANALYZE
; in: DEFUN COMPILE-TOPLEVEL
; (SB!C::LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE SB!C::LAMBDAS)
;
; caught STYLE-WARNING:
; undefined function: LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE
; in: DEFUN %COMPILE
; (SB!C::LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE (LIST SB!C::FUN))
;
; caught STYLE-WARNING:
; undefined function: LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE
; in: DEFUN IR1-PHASES
; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: LOCALL-ANALYZE-COMPONENT
; in: DEFUN COMPILE-COMPONENT
; (SB!C::LOOP-ANALYZE SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: LOOP-ANALYZE
; in: DEFUN %COMPILE-COMPONENT
; (SB!C::LTN-ANALYZE SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: LTN-ANALYZE
; in: DEFUN PREPROCESSOR-MACROEXPAND-1
; (SB-XC:MACROEXPAND-1 SB!KERNEL:FORM SB!C:*LEXENV*)
;
; caught STYLE-WARNING:
; undefined function: SB-XC:MACROEXPAND-1
; in: DEFUN %COMPILE-COMPONENT
; (SB!C::MAKE-CORE-COMPONENT SB!C:COMPONENT
; SB!C:*CODE-SEGMENT*
; SB!C::CODE-LENGTH
; SB!C::TRACE-TABLE
; SB!C::FIXUP-NOTES
; SB!C::*COMPILE-OBJECT*)
;
; caught STYLE-WARNING:
; undefined function: MAKE-CORE-COMPONENT
; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
; (SB!C::MAKE-EMPTY-COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: MAKE-EMPTY-COMPONENT
; in: DEFUN %COMPILE
; (SB!C::MAKE-LEXENV :POLICY
; SB!C::*POLICY*
; :HANDLED-CONDITIONS
; SB!C::*HANDLED-CONDITIONS*
; :DISABLED-PACKAGE-LOCKS
; SB!C::*DISABLED-PACKAGE-LOCKS*)
;
; caught STYLE-WARNING:
; undefined function: MAKE-LEXENV
; in: DEFUN CONVERT-AND-MAYBE-COMPILE
; (SB!C::MAKE-LEXENV :POLICY
; SB!C::*POLICY*
; :HANDLED-CONDITIONS
; SB!C::*HANDLED-CONDITIONS*
; :DISABLED-PACKAGE-LOCKS
; SB!C::*DISABLED-PACKAGE-LOCKS*)
;
; caught STYLE-WARNING:
; undefined function: MAKE-LEXENV
; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
; (SB!C::MAKE-XEP-LAMBDA-EXPRESSION SB!C::LOCALL-FUN)
;
; caught STYLE-WARNING:
; undefined function: MAKE-XEP-LAMBDA-EXPRESSION
; in: DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS
; (SB!C::MERGE-TOPLEVEL-LAMBDAS SB!C::LAMBDAS)
;
; caught STYLE-WARNING:
; undefined function: MERGE-TOPLEVEL-LAMBDAS
; in: DEFUN CLEAR-IR1-INFO
; (SB!C::NODE-COMPONENT SB!C::X)
;
; caught STYLE-WARNING:
; undefined function: NODE-COMPONENT
; in: DEFUN COMPILE-COMPONENT
; (SB!C::NODE-COMPONENT (SB!C::LAMBDA-BIND LAMBDA))
;
; caught STYLE-WARNING:
; undefined function: NODE-COMPONENT
; in: DEFUN DELETE-IF-NO-ENTRIES
; (SB!C::NODE-COMPONENT SB!C::REF)
;
; caught STYLE-WARNING:
; undefined function: NODE-COMPONENT
;
; caught STYLE-WARNING:
; 1 more use of undefined function NODE-COMPONENT
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/main.lisp
; in: DEFUN %WITH-COMPILATION-UNIT
; (SB!C::NOTE-UNDEFINED-REFERENCE
; (SB!KERNEL:PARSE-UNKNOWN-TYPE-SPECIFIER SB!C::C)
; :TYPE)
;
; caught STYLE-WARNING:
; undefined function: NOTE-UNDEFINED-REFERENCE
; in: DEFUN %COMPILE-COMPONENT
; (SB!C::PACK SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: PACK
; in: DEFUN COMPILE-COMPONENT
; (SB!C::PHYSENV-ANALYZE SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: PHYSENV-ANALYZE
; in: DEFUN DESCRIBE-IR2-COMPONENT
; (SB!C::PRE-PACK-TN-STATS SB!C:COMPONENT *STANDARD-OUTPUT*)
;
; caught STYLE-WARNING:
; undefined function: PRE-PACK-TN-STATS
; in: DEFUN %COMPILE-COMPONENT
; (SB!C::PRE-PACK-TN-STATS SB!C:COMPONENT *ERROR-OUTPUT*)
;
; caught STYLE-WARNING:
; undefined function: PRE-PACK-TN-STATS
; in: DEFUN COMPILE-TOPLEVEL
; (SB!C::PRE-PHYSENV-ANALYZE-TOPLEVEL SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: PRE-PHYSENV-ANALYZE-TOPLEVEL
; in: DEFUN %COMPILE
; #'SB!C::PREALLOCATE-PHYSENVS-FOR-TOPLEVELISH-LAMBDAS
;
; caught STYLE-WARNING:
; undefined function: PREALLOCATE-PHYSENVS-FOR-TOPLEVELISH-LAMBDAS
; in: DEFUN DESCRIBE-COMPONENT
; (SB!C::PRINT-ALL-BLOCKS SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: PRINT-ALL-BLOCKS
; in: DEFUN DESCRIBE-IR2-COMPONENT
; (SB!C::PRINT-IR2-BLOCKS SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: PRINT-IR2-BLOCKS
; in: DEFUN PROCESS-TOPLEVEL-LOCALLY
; (SB!C::PROCESS-DECLS SB!C::DECLS SB!C::VARS SB!C::FUNS)
;
; caught STYLE-WARNING:
; undefined function: PROCESS-DECLS
; in: DEFUN COMPILE-TOPLEVEL
; (SB!C::REPLACE-TOPLEVEL-XEPS SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: REPLACE-TOPLEVEL-XEPS
; in: DEFUN %COMPILE
; (SB!C::REPLACE-TOPLEVEL-XEPS SB!C::COMPONENT-FROM-DFO)
;
; caught STYLE-WARNING:
; undefined function: REPLACE-TOPLEVEL-XEPS
; in: DEFUN IR1-PHASES
; (SB!C::RETRY-DELAYED-IR1-TRANSFORMS :CONSTRAINT)
;
; caught STYLE-WARNING:
; undefined function: RETRY-DELAYED-IR1-TRANSFORMS
; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE
; (SB!C::RETRY-DELAYED-IR1-TRANSFORMS :OPTIMIZE)
;
; caught STYLE-WARNING:
; undefined function: RETRY-DELAYED-IR1-TRANSFORMS
; in: DEFUN %COMPILE-COMPONENT
; (SB!C::SELECT-REPRESENTATIONS SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: SELECT-REPRESENTATIONS
; (SB!C::STACK-ANALYZE SB!C:COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: STACK-ANALYZE
; in: DEFUN PARSE-EVAL-WHEN-SITUATIONS
; (SB!INT:STYLE-WARN "using deprecated EVAL-WHEN situation names~{ ~S~}"
; SB!C::DEPRECATED-NAMES)
;
; caught STYLE-WARNING:
; undefined function: STYLE-WARN
;
; caught STYLE-WARNING:
; These functions are undefined:
; %EVENT CHECK-IR1-CONSISTENCY CHECK-IR2-CONSISTENCY CHECK-LIFE-CONSISTENCY CHECK-PACK-CONSISTENCY COMPILER-ERROR-CONTEXT-LEXENV COMPILER-ERROR-HANDLER COMPILER-MUMBLE COMPILER-STYLE-WARNING-HANDLER COMPILER-WARNING-HANDLER CONSTRAINT-PROPAGATE CONTROL-ANALYZE COPY-PROPAGATE DELETE-COMPONENT DELETE-UNREFERENCED-TNS ENTRY-ANALYZE FIND-DFO FIND-DOMINATORS FIND-INITIAL-DFO FIND-SOURCE-PATHS FORMAT-UNIVERSAL-TIME FUNCALL-IN-MACROLET-LEXENV FUNCALL-IN-SYMBOL-MACROLET-LEXENV GENERATE-CODE GENERATE-TYPE-CHECKS GTN-ANALYZE INIT-ASSEMBLER IR1-CONVERT-LAMBDA IR1-CONVERT-LAMBDALIKE IR1-FINALIZE IR1-OPTIMIZE IR1-TOPLEVEL IR2-CONVERT LABEL-ID LAMBDA-COMPONENT LIFETIME-ANALYZE LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE LOCALL-ANALYZE-COMPONENT LOOP-ANALYZE LTN-ANALYZE SB-XC:MACROEXPAND-1 MAKE-CORE-COMPONENT MAKE-EMPTY-COMPONENT MAKE-LEXENV MAKE-XEP-LAMBDA-EXPRESSION MERGE-TOPLEVEL-LAMBDAS NODE-COMPONENT NOTE-UNDEFINED-REFERENCE PACK PHYSENV-ANALYZE PRE-PACK-TN-STATS PRE-PHYSENV-ANALYZE-TOPLEVEL PREALLOCATE-PHYSENVS-FOR-TOPLEVELISH-LAMBDAS PRINT-ALL-BLOCKS PRINT-IR2-BLOCKS PROCESS-DECLS REPLACE-TOPLEVEL-XEPS RETRY-DELAYED-IR1-TRANSFORMS SELECT-REPRESENTATIONS STACK-ANALYZE STYLE-WARN
;
; caught STYLE-WARNING:
; This type is undefined:
; COMPILER-ERROR-CONTEXT
;
; compilation unit finished
; caught 89 STYLE-WARNING conditions
; printed 7 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/main.lisp-obj-tmp written
; compilation finished in 0:00:03
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1tran.lisp" (written 21 DEC 2004 04:52:09 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FUN-LEXICALLY-NOTINLINE-P
; compiling top level form:
; compiling DEFUN FUN-LEXICALLY-NOTINLINE-P => DEFINED-FUN-P FUN:
; compiling top level form:
; recognizing DEFUN FIND-FREE-REALLY-FUN
; compiling top level form:
; compiling DEFUN FIND-FREE-REALLY-FUN:
; compiling top level form:
; recognizing DEFUN INVALID-FREE-FUN-P
; compiling top level form:
; compiling DEFUN INVALID-FREE-FUN-P => DEFINED-FUN-P FREE-FUN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-FREE-FUN
; compiling top level form:
; compiling DEFUN FIND-FREE-FUN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-LEXICALLY-APPARENT-FUN
; compiling top level form:
; compiling DEFUN FIND-LEXICALLY-APPARENT-FUN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-FREE-VAR
; compiling top level form:
; compiling DEFUN FIND-FREE-VAR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAYBE-EMIT-MAKE-LOAD-FORMS
; compiling top level form:
; compiling DEFUN MAYBE-EMIT-MAKE-LOAD-FORMS:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1tran.lisp
; in: DEFUN MAYBE-EMIT-MAKE-LOAD-FORMS
; (AREF SB!C::VALUE SB!C::I)
; --> 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 T), not a SIMPLE-ARRAY.
; (ROW-MAJOR-AREF SB!C::VALUE SB!C::I)
; --> 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 (ARRAY T), not a SIMPLE-ARRAY.
; compiling top level form:
; recognizing DEFUN LINK-NODE-TO-PREVIOUS-CTRAN
; compiling top level form:
; compiling DEFUN LINK-NODE-TO-PREVIOUS-CTRAN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN USE-CTRAN
; compiling top level form:
; compiling DEFUN USE-CTRAN:
; compiling top level form:
; recognizing DEFUN %USE-CTRAN
; compiling top level form:
; compiling DEFUN %USE-CTRAN:
; compiling top level form:
; recognizing DEFUN USE-LVAR
; compiling top level form:
; compiling DEFUN USE-LVAR:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN USE-CONTINUATION
; compiling top level form:
; compiling DEFUN USE-CONTINUATION:
; compiling top level form:
; recognizing DEFUN IR1-TOPLEVEL
; compiling top level form:
; compiling DEFUN IR1-TOPLEVEL:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-SOURCE-PATHS
; compiling top level form:
; compiling DEFUN FIND-SOURCE-PATHS:
; compiling top level form:
; recognizing DEFUN SUB-FIND-SOURCE-PATHS
; compiling top level form:
; compiling DEFUN SUB-FIND-SOURCE-PATHS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT
; compiling top level form:
; compiling DEFUN IR1-CONVERT:
; compiling top level form:
; recognizing DEFUN REFERENCE-CONSTANT
; compiling top level form:
; compiling DEFUN REFERENCE-CONSTANT:
; compiling top level form:
; recognizing DEFUN MAYBE-REANALYZE-FUNCTIONAL
; compiling top level form:
; compiling DEFUN MAYBE-REANALYZE-FUNCTIONAL:
; compiling top level form:
; recognizing DEFUN REFERENCE-LEAF
; compiling top level form:
; compiling DEFUN REFERENCE-LEAF => DEFINED-FUN-P LEAF:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-VAR
; compiling top level form:
; compiling DEFUN IR1-CONVERT-VAR:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-GLOBAL-FUNCTOID
; compiling top level form:
; compiling DEFUN IR1-CONVERT-GLOBAL-FUNCTOID:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-GLOBAL-FUNCTOID-NO-CMACRO
; compiling top level form:
; compiling DEFUN IR1-CONVERT-GLOBAL-FUNCTOID-NO-CMACRO:
; compiling top level form:
; recognizing DEFUN MUFFLE-WARNING-OR-DIE
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1tran.lisp
; in: DEFUN MUFFLE-WARNING-OR-DIE
; (SB!INT:BUG "no MUFFLE-WARNING restart")
; ==>
; "no MUFFLE-WARNING restart"
;
; note: deleting unreachable code
; compiling DEFUN MUFFLE-WARNING-OR-DIE:
; compiling top level form:
; recognizing DEFUN CAREFUL-EXPAND-MACRO
; compiling top level form:
; compiling DEFUN CAREFUL-EXPAND-MACRO:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1tran.lisp
; in: DEFUN CAREFUL-EXPAND-MACRO
; (FUNCALL SB-XC:*MACROEXPAND-HOOK* SB!C::FUN SB!KERNEL:FORM SB!C:*LEXENV*)
; --> 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 top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-PROGN-BODY
; compiling top level form:
; compiling DEFUN IR1-CONVERT-PROGN-BODY:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-COMBINATION
; compiling top level form:
; compiling DEFUN IR1-CONVERT-COMBINATION:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-COMBINATION-ARGS
; compiling top level form:
; compiling DEFUN IR1-CONVERT-COMBINATION-ARGS:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-SRCTRAN
; compiling top level form:
; compiling DEFUN IR1-CONVERT-SRCTRAN:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-MAYBE-PREDICATE
; compiling top level form:
; compiling DEFUN IR1-CONVERT-MAYBE-PREDICATE:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE
; compiling top level form:
; compiling DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-LOCAL-COMBINATION
; compiling top level form:
; compiling DEFUN IR1-CONVERT-LOCAL-COMBINATION:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-IN-BINDINGS
; compiling top level form:
; compiling DEFUN FIND-IN-BINDINGS:
; compiling top level form:
; recognizing DEFUN PROCESS-TYPE-DECL
; compiling top level form:
; compiling DEFUN PROCESS-TYPE-DECL:
; compiling top level form:
; recognizing DEFUN PROCESS-FTYPE-DECL
; compiling top level form:
; compiling DEFUN PROCESS-FTYPE-DECL:
; compiling top level form:
; recognizing DEFUN PROCESS-SPECIAL-DECL
; compiling top level form:
; compiling DEFUN PROCESS-SPECIAL-DECL:
; compiling top level form:
; recognizing DEFUN MAKE-NEW-INLINEP
; compiling top level form:
; compiling DEFUN MAKE-NEW-INLINEP:
; compiling top level form:
; recognizing DEFUN PROCESS-INLINE-DECL
; compiling top level form:
; compiling DEFUN PROCESS-INLINE-DECL:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1tran.lisp
; in: DEFUN PROCESS-INLINE-DECL
; (FIND SB!C::NAME SB!C::FVARS :KEY #'SB!C::LEAF-SOURCE-NAME :TEST #'EQUAL)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN FIND-IN-BINDINGS-OR-FBINDINGS
; compiling top level form:
; compiling DEFUN FIND-IN-BINDINGS-OR-FBINDINGS:
; compiling top level form:
; recognizing DEFUN PROCESS-IGNORE-DECL
; compiling top level form:
; compiling DEFUN PROCESS-IGNORE-DECL:
; compiling top level form:
; recognizing DEFUN PROCESS-DX-DECL
; compiling top level form:
; compiling DEFUN PROCESS-DX-DECL:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PROCESS-1-DECL
; compiling top level form:
; compiling DEFUN PROCESS-1-DECL:
; compiling top level form:
; recognizing DEFUN PROCESS-DECLS
; compiling top level form:
; compiling DEFUN PROCESS-DECLS:
; compiling top level form:
; recognizing DEFUN %PROCESSING-DECLS
; compiling top level form:
; compiling DEFUN %PROCESSING-DECLS:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1tran.lisp
; in: DEFUN %PROCESSING-DECLS
; (FUNCALL SB!C::FUN SB!C::CTRAN SB!C::LVAR)
; --> 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.
; (FUNCALL SB!C::FUN SB!C::VALUE-CTRAN SB!C::VALUE-LVAR)
; --> 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 top level form:
; compiling DEFMACRO PROCESSING-DECLS:
; compiling top level form:
; recognizing DEFUN SPECVAR-FOR-BINDING
; compiling top level form:
; compiling DEFUN SPECVAR-FOR-BINDING:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1tran.lisp
; in: DEFUN IR1-CONVERT-LOCAL-COMBINATION
; (SB!C::ASSURE-FUNCTIONAL-LIVE-P SB!C::FUNCTIONAL)
;
; caught STYLE-WARNING:
; undefined function: ASSURE-FUNCTIONAL-LIVE-P
; in: DEFUN REFERENCE-LEAF
; (SB!C::ASSURE-FUNCTIONAL-LIVE-P SB!C::LEAF)
;
; caught STYLE-WARNING:
; undefined function: ASSURE-FUNCTIONAL-LIVE-P
; in: DEFUN PROCESS-DX-DECL
; #'SB!C:COMPILER-NOTIFY
;
; caught STYLE-WARNING:
; undefined function: COMPILER-NOTIFY
; in: DEFUN PROCESS-INLINE-DECL
; (SB!C:COMPILER-NOTIFY "ignoring ~A declaration not at ~
; definition of local function:~% ~S"
; SB!C::SENSE
; SB!C::NAME)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-NOTIFY
; in: DEFUN PROCESS-FTYPE-DECL
; #'SB!C:COMPILER-NOTIFY
;
; caught STYLE-WARNING:
; undefined function: COMPILER-NOTIFY
; (SB!C::COMPILER-SPECIFIER-TYPE SB!C::SPEC)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-SPECIFIER-TYPE
; in: DEFUN PROCESS-TYPE-DECL
; (SB!C::COMPILER-SPECIFIER-TYPE (FIRST SB!C::DECL))
;
; caught STYLE-WARNING:
; undefined function: COMPILER-SPECIFIER-TYPE
; in: DEFUN PROCESS-1-DECL
; (SB!C::COMPILER-VALUES-SPECIFIER-TYPE
; (IF (SB!INT:SINGLETON-P SB!C::TYPES)
; (CAR SB!C::TYPES)
; (SB!IMPL::BACKQ-CONS 'VALUES SB!C::TYPES)))
;
; caught STYLE-WARNING:
; undefined function: COMPILER-VALUES-SPECIFIER-TYPE
; in: DEFUN IR1-CONVERT-VAR
; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START)
;
; caught STYLE-WARNING:
; undefined function: CTRAN-HOME-LAMBDA-OR-NULL
; in: DEFUN REFERENCE-CONSTANT
; (DEFUN SB!C::REFERENCE-CONSTANT
; (SB!C::START SB!C::NEXT SB!C::RESULT SB!C::VALUE)
; (DECLARE (TYPE SB!C::CTRAN SB!C::START SB!C::NEXT)
; (TYPE (OR SB!C::LVAR NULL) SB!C::RESULT)
; (INLINE SB!C::FIND-CONSTANT))
; (SB!C::IR1-ERROR-BAILOUT (SB!C::START SB!C::NEXT SB!C::RESULT SB!C::VALUE)
; (WHEN (SB!C::PRODUCING-FASL-FILE)
; (SB!C::MAYBE-EMIT-MAKE-LOAD-FORMS SB!C::VALUE))
; (LET* (# #)
; (PUSH SB!C::RES #)
; (SB!C::LINK-NODE-TO-PREVIOUS-CTRAN SB!C::RES
; SB!C::START) ..)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SB!C::REFERENCE-CONSTANT
; (SB!C::START SB!C::NEXT SB!C::RESULT SB!C::VALUE)
; (DECLARE (TYPE SB!C::CTRAN SB!C::START SB!C::NEXT)
; (TYPE (OR SB!C::LVAR NULL) SB!C::RESULT)
; (INLINE SB!C::FIND-CONSTANT))
; (BLOCK SB!C::REFERENCE-CONSTANT
; (SB!C::IR1-ERROR-BAILOUT
; (SB!C::START SB!C::NEXT SB!C::RESULT SB!C::VALUE)
; (WHEN # #)
; (LET* #
; #
; # ..))))
;
; caught STYLE-WARNING:
; undefined function: FIND-CONSTANT
; in: DEFUN IR1-CONVERT
; (SB!C::IR1-CONVERT-LAMBDA SB!C::OPNAME
; :DEBUG-NAME
; (SB!INT:DEBUG-NAMIFY "LAMBDA CAR " SB!C::OPNAME))
;
; caught STYLE-WARNING:
; undefined function: IR1-CONVERT-LAMBDA
; in: DEFUN IR1-TOPLEVEL
; (SB!C::IR1-CONVERT-LAMBDA-BODY SB!C::FORMS
; NIL
; :DEBUG-NAME
; (SB!INT:DEBUG-NAMIFY "top level form "
; SB!KERNEL:FORM))
;
; caught STYLE-WARNING:
; undefined function: IR1-CONVERT-LAMBDA-BODY
; in: DEFUN IR1-CONVERT
; (SB!C::IR1-CONVERT-STEP SB!C::START SB!C::NEXT SB!C::RESULT SB!KERNEL:FORM)
;
; caught STYLE-WARNING:
; undefined function: IR1-CONVERT-STEP
; in: DEFUN REFERENCE-LEAF
; (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL)
;
; caught STYLE-WARNING:
; undefined function: LAMBDA-COMPONENT
; in: DEFUN MAYBE-REANALYZE-FUNCTIONAL
; (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL)
;
; caught STYLE-WARNING:
; undefined function: LAMBDA-COMPONENT
; in: DEFUN INVALID-FREE-FUN-P
; (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL)
;
; caught STYLE-WARNING:
; undefined function: LAMBDA-COMPONENT
; in: DEFUN %PROCESSING-DECLS
; (SB!C::MAKE-CAST SB!C::VALUE-LVAR
; SB!C::RESULT-TYPE
; (SB!C::LEXENV-POLICY SB!C:*LEXENV*))
;
; caught STYLE-WARNING:
; undefined function: MAKE-CAST
; in: DEFUN REFERENCE-LEAF
; (SB!C::MAKE-CAST SB!C::REF-LVAR
; (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE TYPE)
; (SB!C::LEXENV-POLICY SB!C:*LEXENV*))
;
; caught STYLE-WARNING:
; undefined function: MAKE-CAST
; in: DEFUN IR1-TOPLEVEL
; (SB!C::MAKE-EMPTY-COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: MAKE-EMPTY-COMPONENT
; in: DEFUN PROCESS-SPECIAL-DECL
; (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :VARS (SB!C::NEW-VENV))
;
; caught STYLE-WARNING:
; undefined function: MAKE-LEXENV
; in: DEFUN PROCESS-FTYPE-DECL
; (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :TYPE-RESTRICTIONS (SB!C::RES))
;
; caught STYLE-WARNING:
; undefined function: MAKE-LEXENV
; in: DEFUN PROCESS-TYPE-DECL
; (SB!C::MAKE-LEXENV :DEFAULT
; SB!C::RES
; :TYPE-RESTRICTIONS
; (SB!C::RESTR)
; :VARS
; (SB!C::NEW-VARS))
;
; caught STYLE-WARNING:
; undefined function: MAKE-LEXENV
;
; caught STYLE-WARNING:
; 2 more uses of undefined function MAKE-LEXENV
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1tran.lisp
; in: DEFUN FIND-FREE-VAR
; (SB!C::NOTE-UNDEFINED-REFERENCE SB!C::NAME :VARIABLE)
;
; caught STYLE-WARNING:
; undefined function: NOTE-UNDEFINED-REFERENCE
; in: DEFUN FIND-FREE-REALLY-FUN
; (SB!C::NOTE-UNDEFINED-REFERENCE SB!C::NAME :FUNCTION)
;
; caught STYLE-WARNING:
; undefined function: NOTE-UNDEFINED-REFERENCE
; in: DEFUN USE-LVAR
; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR)
;
; caught STYLE-WARNING:
; undefined function: REOPTIMIZE-LVAR
; in: DEFUN IR1-CONVERT
; (SB!C::STEP-FORM-P SB!KERNEL:FORM)
;
; caught STYLE-WARNING:
; undefined function: STEP-FORM-P
; in: DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE
; (SB!C::VALIDATE-CALL-TYPE SB!C::NODE TYPE T)
;
; caught STYLE-WARNING:
; undefined function: VALIDATE-CALL-TYPE
;
; caught STYLE-WARNING:
; These functions are undefined:
; ASSURE-FUNCTIONAL-LIVE-P COMPILER-NOTIFY COMPILER-SPECIFIER-TYPE COMPILER-VALUES-SPECIFIER-TYPE CTRAN-HOME-LAMBDA-OR-NULL FIND-CONSTANT IR1-CONVERT-LAMBDA IR1-CONVERT-LAMBDA-BODY IR1-CONVERT-STEP LAMBDA-COMPONENT MAKE-CAST MAKE-EMPTY-COMPONENT MAKE-LEXENV NOTE-UNDEFINED-REFERENCE REOPTIMIZE-LVAR STEP-FORM-P VALIDATE-CALL-TYPE
;
; compilation unit finished
; caught 29 STYLE-WARNING conditions
; printed 8 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/ir1tran.lisp-obj-tmp written
; compilation finished in 0:00:04
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1tran-lambda.lisp" (written 06 OCT 2004 08:22:32 AM):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VARIFY-LAMBDA-ARG
; compiling top level form:
; compiling DEFUN VARIFY-LAMBDA-ARG:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-KEYWORD-FOR-ARG
; compiling top level form:
; compiling DEFUN MAKE-KEYWORD-FOR-ARG:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-LAMBDA-VARS
; compiling top level form:
; compiling DEFUN MAKE-LAMBDA-VARS:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-AUX-BINDINGS
; compiling top level form:
; compiling DEFUN IR1-CONVERT-AUX-BINDINGS:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-SPECIAL-BINDINGS
; compiling top level form:
; compiling DEFUN IR1-CONVERT-SPECIAL-BINDINGS:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-LAMBDA-BODY
; compiling top level form:
; compiling DEFUN IR1-CONVERT-LAMBDA-BODY:
; compiling top level form:
; recognizing DEFUN REGISTER-ENTRY-POINT
; compiling top level form:
; compiling DEFUN REGISTER-ENTRY-POINT:
; compiling top level form:
; recognizing DEFUN CONVERT-OPTIONAL-ENTRY
; compiling top level form:
; compiling DEFUN CONVERT-OPTIONAL-ENTRY:
; compiling top level form:
; recognizing DEFUN GENERATE-OPTIONAL-DEFAULT-ENTRY
; compiling top level form:
; compiling DEFUN GENERATE-OPTIONAL-DEFAULT-ENTRY:
; compiling top level form:
; recognizing DEFUN CONVERT-MORE-ENTRY
; compiling top level form:
; compiling DEFUN CONVERT-MORE-ENTRY:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-MORE
; compiling top level form:
; compiling DEFUN IR1-CONVERT-MORE:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-HAIRY-ARGS
; compiling top level form:
; compiling DEFUN IR1-CONVERT-HAIRY-ARGS:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-HAIRY-LAMBDA
; compiling top level form:
; compiling DEFUN IR1-CONVERT-HAIRY-LAMBDA:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-LAMBDA
; compiling top level form:
; compiling DEFUN IR1-CONVERT-LAMBDA:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-LAMBDALIKE
; compiling top level form:
; compiling DEFUN IR1-CONVERT-LAMBDALIKE:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-INLINE-LAMBDA
; compiling top level form:
; compiling DEFUN IR1-CONVERT-INLINE-LAMBDA:
; compiling top level form:
; recognizing DEFUN GET-DEFINED-FUN
; compiling top level form:
; compiling DEFUN GET-DEFINED-FUN => DEFINED-FUN-P FOUND:
; compiling top level form:
; recognizing DEFUN ASSERT-NEW-DEFINITION
; compiling top level form:
; compiling DEFUN ASSERT-NEW-DEFINITION:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-LAMBDA-FOR-DEFUN
; compiling top level form:
; compiling DEFUN IR1-CONVERT-LAMBDA-FOR-DEFUN:
; compiling top level form:
; recognizing DEFUN %COMPILER-DEFUN
; compiling top level form:
; compiling DEFUN %COMPILER-DEFUN:
; compiling top level form:
; recognizing DEFUN OPTIONAL-DISPATCH-ENTRY-POINT-FUN
; compiling top level form:
; compiling DEFUN OPTIONAL-DISPATCH-ENTRY-POINT-FUN:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1tran-lambda.lisp
; in: DEFUN %COMPILER-DEFUN
; (SB!C::COMPILER-MUMBLE "~&; recognizing DEFUN ~S~%" SB!C::NAME)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-MUMBLE
; in: DEFUN ASSERT-NEW-DEFINITION
; #'SB!C:COMPILER-NOTIFY
;
; caught STYLE-WARNING:
; undefined function: COMPILER-NOTIFY
; in: DEFUN IR1-CONVERT-LAMBDA-BODY
; (SB!C::CTRAN-STARTS-BLOCK SB!C::RESULT-CTRAN)
;
; caught STYLE-WARNING:
; undefined function: CTRAN-STARTS-BLOCK
; in: DEFUN IR1-CONVERT-SPECIAL-BINDINGS
; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT)
;
; caught STYLE-WARNING:
; undefined function: CTRAN-STARTS-BLOCK
; in: DEFUN IR1-CONVERT-LAMBDA-BODY
; (SB!C::LINK-BLOCKS BLOCK (SB!C::COMPONENT-TAIL SB!C::*CURRENT-COMPONENT*))
;
; caught STYLE-WARNING:
; undefined function: LINK-BLOCKS
; in: DEFUN IR1-CONVERT-INLINE-LAMBDA
; (SB!C::MAKE-LEXENV :DEFAULT
; (SB!C::PROCESS-DECLS SB!C::DECLS
; NIL
; NIL
; (SB!KERNEL:MAKE-NULL-LEXENV))
; :VARS
; (COPY-LIST SB!C::SYMBOL-MACROS)
; :FUNS
; (MAPCAR
; (LAMBDA (SB!C::X)
; (SB!IMPL::BACKQ-LIST* # 'SB!SYS:MACRO #))
; SB!C::MACROS) ..)
;
; caught STYLE-WARNING:
; undefined function: MAKE-LEXENV
; in: DEFUN IR1-CONVERT-LAMBDA-BODY
; (SB!C::MAKE-LEXENV :VARS (SB!C::NEW-VENV) :LAMBDA LAMBDA :CLEANUP NIL)
;
; caught STYLE-WARNING:
; undefined function: MAKE-LEXENV
; in: DEFUN IR1-CONVERT-SPECIAL-BINDINGS
; (SB!C::MAKE-LEXENV :CLEANUP SB!C::CLEANUP)
;
; caught STYLE-WARNING:
; undefined function: MAKE-LEXENV
; in: DEFUN IR1-CONVERT-LAMBDA-BODY
; (SB!C::NODE-BLOCK SB!C:BIND)
;
; caught STYLE-WARNING:
; undefined function: NODE-BLOCK
; in: DEFUN IR1-CONVERT-LAMBDA-FOR-DEFUN
; (SB!C::SUBSTITUTE-LEAF SB!C::FUN SB!C::VAR)
;
; caught STYLE-WARNING:
; undefined function: SUBSTITUTE-LEAF
; in: DEFUN GET-DEFINED-FUN
; (SB!C::SUBSTITUTE-LEAF SB!C::RES SB!C::FOUND)
;
; caught STYLE-WARNING:
; undefined function: SUBSTITUTE-LEAF
; in: DEFUN IR1-CONVERT-LAMBDALIKE
; (SB!C::SUBSTITUTE-LEAF-IF
; (LAMBDA (SB!C::REF)
; (SB!C:POLICY SB!C::REF (> SB!C::RECOGNIZE-SELF-CALLS 0)))
; SB!C::RES
; SB!C::DEFINED-FUN-RES)
;
; caught STYLE-WARNING:
; undefined function: SUBSTITUTE-LEAF-IF
;
; caught STYLE-WARNING:
; These functions are undefined:
; COMPILER-MUMBLE COMPILER-NOTIFY CTRAN-STARTS-BLOCK LINK-BLOCKS MAKE-LEXENV NODE-BLOCK SUBSTITUTE-LEAF SUBSTITUTE-LEAF-IF
;
; compilation unit finished
; caught 13 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/ir1tran-lambda.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1-translators.lisp" (written 20 NOV 2004 06:36:05 AM):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-PROGN
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR PROGN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-IF
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR IF:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-BLOCK
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR BLOCK:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-RETURN-FROM
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1-translators.lisp
; in: DEF-IR1-TRANSLATOR RETURN-FROM
; (SB!C:DEF-IR1-TRANSLATOR RETURN-FROM
; ((SB!C::NAME &OPTIONAL SB!C::VALUE) SB!C::START
; SB!C::NEXT SB!C::RESULT)
; "Return-From Block-Name Value-Form
; Evaluate the Value-Form, returning its values from the lexically enclosing
; BLOCK Block-Name. This is constrained to be used only within the dynamic
; extent of the BLOCK."
; (DECLARE (IGNORE SB!C::RESULT))
; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT)
; (LET* ((SB!C::FOUND #)
; (SB!C::EXIT-CTRAN #)
; (SB!C::VALUE-CTRAN #) ..)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK LET*
; ==>
; (LET* ((SB!C::NAME (CAR #)) (SB!C::VALUE (IF # # NIL)))
; (DECLARE (IGNORE SB!C::RESULT))
; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT)
; (LET* ((SB!C::FOUND #)
; (SB!C::EXIT-CTRAN #)
; (SB!C::VALUE-CTRAN #)
; (SB!C::VALUE-LVAR #)
; (SB!C::ENTRY #)
; (SB!C::EXIT #))
; (WHEN (SB!C::CTRAN-DELETED-P SB!C::EXIT-CTRAN)
; (THROW 'SB!C::LOCALL-ALREADY-LET-CONVERTED SB!C::EXIT-CTRAN))
; (PUSH SB!C::EXIT (SB!C::ENTRY-EXITS SB!C::ENTRY)) ..))
;
; caught STYLE-WARNING:
; declaring unknown variable RESULT to be ignored
; compiling DEF-IR1-TRANSLATOR RETURN-FROM:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PARSE-TAGBODY
; compiling top level form:
; compiling DEFUN PARSE-TAGBODY:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1-translators.lisp
; in: DEFUN PARSE-TAGBODY
; (POSITION-IF (COMPLEMENT #'LISTP) SB!C::CURRENT :START 1)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION-IF
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-TAGBODY
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR TAGBODY:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-GO
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR GO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-EVAL-WHEN
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR EVAL-WHEN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV
; compiling top level form:
; compiling DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV:
; compiling top level form:
; recognizing DEFUN MACROLET-DEFINITIONIZE-FUN
; compiling top level form:
; compiling DEFUN MACROLET-DEFINITIONIZE-FUN:
; compiling top level form:
; recognizing DEFUN FUNCALL-IN-MACROLET-LEXENV
; compiling top level form:
; compiling DEFUN FUNCALL-IN-MACROLET-LEXENV:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-MACROLET
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR MACROLET:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SYMBOL-MACROLET-DEFINITIONIZE-FUN
; compiling top level form:
; compiling DEFUN SYMBOL-MACROLET-DEFINITIONIZE-FUN:
; compiling top level form:
; recognizing DEFUN FUNCALL-IN-SYMBOL-MACROLET-LEXENV
; compiling top level form:
; compiling DEFUN FUNCALL-IN-SYMBOL-MACROLET-LEXENV:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-SYMBOL-MACROLET
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR SYMBOL-MACROLET:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EVAL-INFO-ARGS
; compiling top level form:
; compiling DEFUN EVAL-INFO-ARGS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-%PRIMITIVE
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR %PRIMITIVE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-QUOTE
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR QUOTE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FUN-NAME-LEAF
; compiling top level form:
; compiling DEFUN FUN-NAME-LEAF:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-FUNCTION
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR FUNCTION:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM FUNCALL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-%FUNCALL
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR %FUNCALL:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM FUNCALL:
; compiling top level form:
; compiling DEFTRANSFORM %COERCE-CALLABLE-TO-FUN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EXTRACT-LET-VARS
; compiling top level form:
; compiling DEFUN EXTRACT-LET-VARS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-LET
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR LET:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-LET*
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR LET*:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-TRANSLATE-LOCALLY
; compiling top level form:
; compiling DEFUN IR1-TRANSLATE-LOCALLY:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-LOCALLY
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR LOCALLY:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EXTRACT-FLET-VARS
; compiling top level form:
; compiling DEFUN EXTRACT-FLET-VARS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-FLET
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR FLET:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-LABELS
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR LABELS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN THE-IN-POLICY
; compiling top level form:
; compiling DEFUN THE-IN-POLICY:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-THE
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR THE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-TRULY-THE
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR TRULY-THE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-SETQ
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR SETQ:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SETQ-VAR
; compiling top level form:
; compiling DEFUN SETQ-VAR:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-THROW
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR THROW:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-%WITHIN-CLEANUP
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR %WITHIN-CLEANUP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-%ESCAPE-FUN
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR %ESCAPE-FUN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-%CLEANUP-FUN
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR %CLEANUP-FUN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-CATCH
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR CATCH:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-UNWIND-PROTECT
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR UNWIND-PROTECT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-MULTIPLE-VALUE-CALL
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR MULTIPLE-VALUE-CALL:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-MULTIPLE-VALUE-PROG1
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR MULTIPLE-VALUE-PROG1:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN REVERT-SOURCE-PATH
; compiling top level form:
; compiling DEFUN REVERT-SOURCE-PATH:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1-translators.lisp
; in: DEF-IR1-TRANSLATOR TRULY-THE
; (SB!C::COMPILER-VALUES-SPECIFIER-TYPE TYPE)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-VALUES-SPECIFIER-TYPE
; in: DEFUN THE-IN-POLICY
; (SB!C::COMPILER-VALUES-SPECIFIER-TYPE TYPE)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-VALUES-SPECIFIER-TYPE
; in: DEF-IR1-TRANSLATOR RETURN-FROM
; (SB!C::CTRAN-DELETED-P SB!C::EXIT-CTRAN)
;
; caught STYLE-WARNING:
; undefined function: CTRAN-DELETED-P
; in: DEF-IR1-TRANSLATOR SETQ
; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START)
;
; caught STYLE-WARNING:
; undefined function: CTRAN-HOME-LAMBDA-OR-NULL
; in: DEF-IR1-TRANSLATOR GO
; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START)
;
; caught STYLE-WARNING:
; undefined function: CTRAN-HOME-LAMBDA-OR-NULL
; in: DEF-IR1-TRANSLATOR RETURN-FROM
; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START)
;
; caught STYLE-WARNING:
; undefined function: CTRAN-HOME-LAMBDA-OR-NULL
; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT)
;
; caught STYLE-WARNING:
; undefined function: CTRAN-STARTS-BLOCK
; in: DEF-IR1-TRANSLATOR BLOCK
; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT)
;
; caught STYLE-WARNING:
; undefined function: CTRAN-STARTS-BLOCK
; in: DEF-IR1-TRANSLATOR IF
; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT)
;
; caught STYLE-WARNING:
; undefined function: CTRAN-STARTS-BLOCK
;
; caught STYLE-WARNING:
; 3 more uses of undefined function CTRAN-STARTS-BLOCK
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1-translators.lisp
; in: DEF-IR1-TRANSLATOR TRULY-THE
; (SB!C::DERIVE-NODE-TYPE SB!C::USE TYPE)
;
; caught STYLE-WARNING:
; undefined function: DERIVE-NODE-TYPE
; (SB!C::FIND-USES SB!C::RESULT)
;
; caught STYLE-WARNING:
; undefined function: FIND-USES
; in: DEFTRANSFORM %COERCE-CALLABLE-TO-FUN
; (SB!C:DEFTRANSFORM SB!KERNEL:%COERCE-CALLABLE-TO-FUN
; ((SB!C::THING) (FUNCTION) *)
; "optimize away possible call to FDEFINITION at runtime"
; 'SB!C::THING)
; --> SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM LAMBDA FUNCTION LET*
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL LET UNLESS COND IF PROGN
; ==>
; (SB!C::GIVE-UP-IR1-TRANSFORM)
;
; caught STYLE-WARNING:
; undefined function: GIVE-UP-IR1-TRANSFORM
; in: DEFTRANSFORM FUNCALL
; (SB!C:DEFTRANSFORM FUNCALL
; ((FUNCTION &REST SB!C::ARGS) * *)
; (LET ((SB!C::ARG-NAMES #))
; (SB!IMPL::BACKQ-LIST 'LAMBDA
; (SB!IMPL::BACKQ-CONS 'FUNCTION
; SB!C::ARG-NAMES)
; (SB!IMPL::BACKQ-LIST*
; 'SB!C::%FUNCALL
; #
; SB!C::ARG-NAMES))))
; --> SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM LAMBDA FUNCTION LET*
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL LET UNLESS COND IF PROGN
; ==>
; (SB!C::GIVE-UP-IR1-TRANSFORM)
;
; caught STYLE-WARNING:
; undefined function: GIVE-UP-IR1-TRANSFORM
; in: DEF-IR1-TRANSLATOR IF
; (SB!C::LINK-BLOCKS SB!C::START-BLOCK SB!C::THEN-BLOCK)
;
; caught STYLE-WARNING:
; undefined function: LINK-BLOCKS
; in: DEFTRANSFORM FUNCALL
; (SB!C::LVAR-TYPE FUNCTION)
;
; caught STYLE-WARNING:
; undefined function: LVAR-TYPE
; in: DEFUN THE-IN-POLICY
; (SB!C::MAKE-CAST SB!C::VALUE-LVAR TYPE SB!C:POLICY)
;
; caught STYLE-WARNING:
; undefined function: MAKE-CAST
; in: DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV
; (SB!C::MAKE-LEXENV SB!C::DEFINITIONIZE-KEYWORD SB!C::PROCESSED-DEFINITIONS)
;
; caught STYLE-WARNING:
; undefined function: MAKE-LEXENV
; in: DEF-IR1-TRANSLATOR TAGBODY
; (SB!C::MAKE-LEXENV :CLEANUP SB!C::CLEANUP :TAGS (SB!C::TAGS))
;
; caught STYLE-WARNING:
; undefined function: MAKE-LEXENV
; in: DEF-IR1-TRANSLATOR BLOCK
; (SB!C::MAKE-LEXENV :BLOCKS
; (LIST (CONS SB!C::NAME SB!C::ENV-ENTRY))
; :CLEANUP
; SB!C::CLEANUP)
;
; caught STYLE-WARNING:
; undefined function: MAKE-LEXENV
;
; caught STYLE-WARNING:
; 3 more uses of undefined function MAKE-LEXENV
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1-translators.lisp
; in: DEFUN FUNCALL-IN-MACROLET-LEXENV
; (SB!C::MAKE-RESTRICTED-LEXENV SB!C:*LEXENV*)
;
; caught STYLE-WARNING:
; undefined function: MAKE-RESTRICTED-LEXENV
; in: DEF-IR1-TRANSLATOR TAGBODY
; (SB!C::START-BLOCK SB!C::START)
;
; caught STYLE-WARNING:
; undefined function: START-BLOCK
; in: DEF-IR1-TRANSLATOR BLOCK
; (SB!C::START-BLOCK SB!C::START)
;
; caught STYLE-WARNING:
; undefined function: START-BLOCK
; in: DEF-IR1-TRANSLATOR LABELS
; (SB!C::SUBSTITUTE-LEAF SB!C::REAL-FUN (CDR SB!C::PLACEHOLDER-CONS))
;
; caught STYLE-WARNING:
; undefined function: SUBSTITUTE-LEAF
;
; caught STYLE-WARNING:
; These functions are undefined:
; COMPILER-VALUES-SPECIFIER-TYPE CTRAN-DELETED-P CTRAN-HOME-LAMBDA-OR-NULL CTRAN-STARTS-BLOCK DERIVE-NODE-TYPE FIND-USES GIVE-UP-IR1-TRANSFORM LINK-BLOCKS LVAR-TYPE MAKE-CAST MAKE-LEXENV MAKE-RESTRICTED-LEXENV START-BLOCK SUBSTITUTE-LEAF
;
; compilation unit finished
; caught 27 STYLE-WARNING conditions
; printed 2 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/ir1-translators.lisp-obj-tmp written
; compilation finished in 0:00:03
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1-step.lisp" (written 06 OCT 2004 08:22:32 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN STEP-FORM
; compiling top level form:
; compiling DEFUN STEP-FORM:
; compiling top level form:
; recognizing DEFUN STEP-VARIABLE
; compiling top level form:
; compiling DEFUN STEP-VARIABLE:
; compiling top level form:
; recognizing DEFUN STEP-VALUES
; compiling top level form:
; compiling DEFUN STEP-VALUES:
; compiling top level form:
; recognizing DEFUN INSERT-STEP-CONDITIONS
; compiling top level form:
; compiling DEFUN INSERT-STEP-CONDITIONS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-STEP
; compiling top level form:
; compiling DEFUN IR1-CONVERT-STEP:
; compiling top level form:
; recognizing DEFUN STEP-FORM-P
; compiling top level form:
; compiling DEFUN STEP-FORM-P:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1-step.lisp
; in: DEFUN IR1-CONVERT-STEP
; (SB!C::SOURCE-PATH-ORIGINAL-SOURCE SB!C::*CURRENT-PATH*)
;
; caught STYLE-WARNING:
; undefined function: SOURCE-PATH-ORIGINAL-SOURCE
;
; caught STYLE-WARNING:
; This function is undefined:
; SOURCE-PATH-ORIGINAL-SOURCE
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/ir1-step.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1util.lisp" (written 21 DEC 2004 04:52:09 AM):
; compiling top level form:
; recognizing DEFUN NODE-ENCLOSING-CLEANUP
; compiling top level form:
; compiling DEFUN NODE-ENCLOSING-CLEANUP:
; compiling top level form:
; recognizing DEFUN INSERT-CLEANUP-CODE
; compiling top level form:
; compiling DEFUN INSERT-CLEANUP-CODE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-USES
; compiling top level form:
; compiling DEFUN FIND-USES:
; compiling top level form:
; recognizing DEFUN PRINCIPAL-LVAR-USE
; compiling top level form:
; compiling DEFUN PRINCIPAL-LVAR-USE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %DELETE-LVAR-USE
; compiling top level form:
; compiling DEFUN %DELETE-LVAR-USE:
; compiling top level form:
; recognizing DEFUN DELETE-LVAR-USE
; compiling top level form:
; compiling DEFUN DELETE-LVAR-USE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ADD-LVAR-USE
; compiling top level form:
; compiling DEFUN ADD-LVAR-USE:
; compiling top level form:
; recognizing DEFUN IMMEDIATELY-USED-P
; compiling top level form:
; compiling DEFUN IMMEDIATELY-USED-P:
; compiling top level form:
; recognizing DEFUN SUBSTITUTE-LVAR
; compiling top level form:
; compiling DEFUN SUBSTITUTE-LVAR:
; compiling top level form:
; recognizing DEFUN SUBSTITUTE-LVAR-USES
; compiling top level form:
; compiling DEFUN SUBSTITUTE-LVAR-USES:
; compiling top level form:
; recognizing DEFUN CTRAN-STARTS-BLOCK
; compiling top level form:
; compiling DEFUN CTRAN-STARTS-BLOCK:
; compiling top level form:
; recognizing DEFUN ENSURE-BLOCK-START
; compiling top level form:
; compiling DEFUN ENSURE-BLOCK-START:
; compiling top level form:
; recognizing DEFUN START-BLOCK
; compiling top level form:
; compiling DEFUN START-BLOCK:
; compiling top level form:
; recognizing DEFUN FILTER-LVAR
; compiling top level form:
; compiling DEFUN FILTER-LVAR:
; compiling top level form:
; recognizing DEFUN DELETE-FILTER
; compiling top level form:
; compiling DEFUN DELETE-FILTER:
; compiling top level form:
; recognizing DEFUN INSERT-CAST-BEFORE
; compiling top level form:
; compiling DEFUN INSERT-CAST-BEFORE:
; compiling top level form:
; recognizing DEFUN NODE-HOME-LAMBDA
; compiling top level form:
; compiling DEFUN NODE-HOME-LAMBDA:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NODE-BLOCK
; compiling top level form:
; compiling DEFUN NODE-BLOCK:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NODE-COMPONENT
; compiling top level form:
; compiling DEFUN NODE-COMPONENT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NODE-PHYSENV
; compiling top level form:
; compiling DEFUN NODE-PHYSENV:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NODE-DEST
; compiling top level form:
; compiling DEFUN NODE-DEST:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NODE-STACK-ALLOCATE-P
; compiling top level form:
; compiling DEFUN NODE-STACK-ALLOCATE-P:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BLOCK-TO-BE-DELETED-P
; compiling top level form:
; compiling DEFUN BLOCK-TO-BE-DELETED-P:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NODE-TO-BE-DELETED-P
; compiling top level form:
; compiling DEFUN NODE-TO-BE-DELETED-P:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LAMBDA-BLOCK
; compiling top level form:
; compiling DEFUN LAMBDA-BLOCK:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LAMBDA-COMPONENT
; compiling top level form:
; compiling DEFUN LAMBDA-COMPONENT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BLOCK-START-NODE
; compiling top level form:
; compiling DEFUN BLOCK-START-NODE:
; compiling top level form:
; recognizing DEFUN BLOCK-START-CLEANUP
; compiling top level form:
; compiling DEFUN BLOCK-START-CLEANUP:
; compiling top level form:
; recognizing DEFUN BLOCK-END-CLEANUP
; compiling top level form:
; compiling DEFUN BLOCK-END-CLEANUP:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BLOCK-HOME-LAMBDA-OR-NULL
; compiling top level form:
; compiling DEFUN BLOCK-HOME-LAMBDA-OR-NULL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BLOCK-HOME-LAMBDA
; compiling top level form:
; compiling DEFUN BLOCK-HOME-LAMBDA:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BLOCK-PHYSENV
; compiling top level form:
; compiling DEFUN BLOCK-PHYSENV:
; compiling top level form:
; recognizing DEFUN SOURCE-PATH-TLF-NUMBER
; compiling top level form:
; compiling DEFUN SOURCE-PATH-TLF-NUMBER:
; compiling top level form:
; recognizing DEFUN SOURCE-PATH-ORIGINAL-SOURCE
; compiling top level form:
; compiling DEFUN SOURCE-PATH-ORIGINAL-SOURCE:
; compiling top level form:
; recognizing DEFUN SOURCE-PATH-FORM-NUMBER
; compiling top level form:
; compiling DEFUN SOURCE-PATH-FORM-NUMBER:
; compiling top level form:
; recognizing DEFUN SOURCE-PATH-FORMS
; compiling top level form:
; compiling DEFUN SOURCE-PATH-FORMS:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1util.lisp
; in: DEFUN SOURCE-PATH-FORMS
; (POSITION 'SB!C::ORIGINAL-SOURCE-START SB!C::PATH)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN NODE-SOURCE-FORM
; compiling top level form:
; compiling DEFUN NODE-SOURCE-FORM:
; compiling top level form:
; recognizing DEFUN LVAR-SOURCE
; compiling top level form:
; compiling DEFUN LVAR-SOURCE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LVAR-USE
; compiling top level form:
; compiling DEFUN LVAR-USE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LVAR-HAS-SINGLE-USE-P
; compiling top level form:
; compiling DEFUN LVAR-HAS-SINGLE-USE-P:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CTRAN-HOME-LAMBDA-OR-NULL
; compiling top level form:
; compiling DEFUN CTRAN-HOME-LAMBDA-OR-NULL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CTRAN-HOME-LAMBDA
; compiling top level form:
; compiling DEFUN CTRAN-HOME-LAMBDA:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CAST-SINGLE-VALUE-P
; compiling top level form:
; compiling DEFUN CAST-SINGLE-VALUE-P:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LVAR-SINGLE-VALUE-P
; compiling top level form:
; compiling DEFUN LVAR-SINGLE-VALUE-P:
; compiling top level form:
; recognizing DEFUN PRINCIPAL-LVAR-END
; compiling top level form:
; compiling DEFUN PRINCIPAL-LVAR-END:
; compiling top level form:
; recognizing DEFUN PRINCIPAL-LVAR-SINGLE-VALUIFY
; compiling top level form:
; compiling DEFUN PRINCIPAL-LVAR-SINGLE-VALUIFY:
; compiling top level form:
; recognizing DEFUN MAKE-LEXENV
; compiling top level form:
; compiling DEFUN MAKE-LEXENV:
; compiling top level form:
; recognizing DEFUN MAKE-RESTRICTED-LEXENV
; compiling top level form:
; compiling DEFUN MAKE-RESTRICTED-LEXENV:
; compiling top level form:
; recognizing DEFUN LINK-BLOCKS
; compiling top level form:
; compiling DEFUN LINK-BLOCKS:
; compiling top level form:
; recognizing DEFUN %LINK-BLOCKS
; compiling top level form:
; compiling DEFUN %LINK-BLOCKS:
; compiling top level form:
; recognizing DEFUN UNLINK-BLOCKS
; compiling top level form:
; compiling DEFUN UNLINK-BLOCKS:
; compiling top level form:
; recognizing DEFUN CHANGE-BLOCK-SUCCESSOR
; compiling top level form:
; compiling DEFUN CHANGE-BLOCK-SUCCESSOR:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN REMOVE-FROM-DFO
; compiling top level form:
; compiling DEFUN REMOVE-FROM-DFO:
; compiling top level form:
; recognizing DEFUN ADD-TO-DFO
; compiling top level form:
; compiling DEFUN ADD-TO-DFO:
; compiling top level form:
; recognizing DEFUN MAP-BLOCK-NLXES
; compiling top level form:
; compiling DEFUN MAP-BLOCK-NLXES:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1util.lisp
; in: DEFUN MAP-BLOCK-NLXES
; (FUNCALL SB!C::FUN SB!C::NLX-INFO)
; --> 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.
; [Last message occurs 2 times.]
; (FUNCALL SB!C::DX-CLEANUP-FUN SB!C::CLEANUP)
; --> 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 top level form:
; compiling top level form:
; recognizing DEFUN CLEAR-FLAGS
; compiling top level form:
; compiling DEFUN CLEAR-FLAGS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-EMPTY-COMPONENT
; compiling top level form:
; compiling DEFUN MAKE-EMPTY-COMPONENT:
; compiling top level form:
; recognizing DEFUN NODE-ENDS-BLOCK
; compiling top level form:
; compiling DEFUN NODE-ENDS-BLOCK:
; compiling top level form:
; recognizing DEFUN DELETE-LAMBDA-VAR
; compiling top level form:
; compiling DEFUN DELETE-LAMBDA-VAR:
; compiling top level form:
; recognizing DEFUN REOPTIMIZE-LAMBDA-VAR
; compiling top level form:
; compiling DEFUN REOPTIMIZE-LAMBDA-VAR:
; compiling top level form:
; recognizing DEFUN DELETE-FUNCTIONAL
; compiling top level form:
; compiling DEFUN DELETE-FUNCTIONAL:
; compiling top level form:
; recognizing DEFUN DELETE-LAMBDA
; compiling top level form:
; compiling DEFUN DELETE-LAMBDA:
; compiling top level form:
; recognizing DEFUN DELETE-OPTIONAL-DISPATCH
; compiling top level form:
; compiling DEFUN DELETE-OPTIONAL-DISPATCH:
; compiling top level form:
; recognizing DEFUN DELETE-REF
; compiling top level form:
; compiling DEFUN DELETE-REF:
; compiling top level form:
; recognizing DEFUN FLUSH-DEST
; compiling top level form:
; compiling DEFUN FLUSH-DEST:
; compiling top level form:
; recognizing DEFUN DELETE-DEST
; compiling top level form:
; compiling DEFUN DELETE-DEST:
; compiling top level form:
; recognizing DEFUN DELETE-BLOCK-LAZILY
; compiling top level form:
; compiling DEFUN DELETE-BLOCK-LAZILY:
; compiling top level form:
; recognizing DEFUN MARK-FOR-DELETION
; compiling top level form:
; compiling DEFUN MARK-FOR-DELETION:
; compiling top level form:
; recognizing DEFUN DELETE-BLOCK
; compiling top level form:
; compiling DEFUN DELETE-BLOCK:
; compiling top level form:
; recognizing DEFUN DELETE-RETURN
; compiling top level form:
; compiling DEFUN DELETE-RETURN:
; compiling top level form:
; recognizing DEFUN NOTE-UNREFERENCED-VARS
; compiling top level form:
; compiling DEFUN NOTE-UNREFERENCED-VARS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PRESENT-IN-FORM
; compiling top level form:
; compiling DEFUN PRESENT-IN-FORM:
; compiling top level form:
; recognizing DEFUN NOTE-BLOCK-DELETION
; compiling top level form:
; compiling DEFUN NOTE-BLOCK-DELETION:
; compiling top level form:
; recognizing DEFUN UNLINK-NODE
; compiling top level form:
; compiling DEFUN UNLINK-NODE:
; compiling top level form:
; recognizing DEFUN CTRAN-DELETED-P
; compiling top level form:
; compiling DEFUN CTRAN-DELETED-P:
; compiling top level form:
; recognizing DEFUN NODE-DELETED
; compiling top level form:
; compiling DEFUN NODE-DELETED:
; compiling top level form:
; recognizing DEFUN DELETE-COMPONENT
; compiling top level form:
; compiling DEFUN DELETE-COMPONENT:
; compiling top level form:
; recognizing DEFUN CLEAN-COMPONENT
; compiling top level form:
; compiling DEFUN CLEAN-COMPONENT:
; compiling top level form:
; recognizing DEFUN EXTRACT-FUN-ARGS
; compiling top level form:
; compiling DEFUN EXTRACT-FUN-ARGS:
; compiling top level form:
; recognizing DEFUN FLUSH-COMBINATION
; compiling top level form:
; compiling DEFUN FLUSH-COMBINATION:
; compiling top level form:
; recognizing DEFUN CHANGE-REF-LEAF
; compiling top level form:
; compiling DEFUN CHANGE-REF-LEAF:
; compiling top level form:
; recognizing DEFUN SUBSTITUTE-LEAF
; compiling top level form:
; compiling DEFUN SUBSTITUTE-LEAF:
; compiling top level form:
; recognizing DEFUN SUBSTITUTE-LEAF-IF
; compiling top level form:
; compiling DEFUN SUBSTITUTE-LEAF-IF:
; compiling top level form:
; recognizing DEFUN FIND-CONSTANT
; compiling top level form:
; compiling DEFUN FIND-CONSTANT:
; compiling top level form (SB-KERNEL:FIND-CLASSOID-CELL (QUOTE STANDARD-OBJECT)):
; compiling top level form:
; recognizing DEFUN CLOSURE-VAR-P
; compiling top level form:
; compiling DEFUN CLOSURE-VAR-P:
; compiling top level form:
; recognizing DEFUN FIND-NLX-INFO
; compiling top level form:
; compiling DEFUN FIND-NLX-INFO:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAIN-ENTRY
; compiling top level form:
; compiling DEFUN MAIN-ENTRY:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOOKS-LIKE-AN-MV-BIND
; compiling top level form:
; compiling DEFUN LOOKS-LIKE-AN-MV-BIND:
; compiling top level form:
; recognizing DEFUN XEP-P
; compiling top level form:
; compiling DEFUN XEP-P:
; compiling top level form:
; recognizing DEFUN LVAR-FUN-NAME
; compiling top level form:
; compiling DEFUN LVAR-FUN-NAME:
; compiling top level form:
; recognizing DEFUN COMBINATION-FUN-SOURCE-NAME
; compiling top level form:
; compiling DEFUN COMBINATION-FUN-SOURCE-NAME:
; compiling top level form:
; recognizing DEFUN LET-COMBINATION
; compiling top level form:
; compiling DEFUN LET-COMBINATION:
; compiling top level form:
; recognizing DEFUN LET-VAR-INITIAL-VALUE
; compiling top level form:
; compiling DEFUN LET-VAR-INITIAL-VALUE:
; compiling top level form:
; recognizing DEFUN COMBINATION-LAMBDA
; compiling top level form:
; compiling DEFUN COMBINATION-LAMBDA:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INLINE-EXPANSION-OK
; compiling top level form:
; compiling DEFUN INLINE-EXPANSION-OK:
; compiling top level form:
; recognizing DEFUN ASSURE-FUNCTIONAL-LIVE-P
; compiling top level form:
; compiling DEFUN ASSURE-FUNCTIONAL-LIVE-P:
; compiling top level form:
; recognizing DEFUN CALL-FULL-LIKE-P
; compiling top level form:
; compiling DEFUN CALL-FULL-LIKE-P:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CAREFUL-CALL
; compiling top level form:
; compiling DEFUN CAREFUL-CALL:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1util.lisp
; in: DEFUN CAREFUL-CALL
; (APPLY FUNCTION SB!C::ARGS)
; --> MULTIPLE-VALUE-CALL
; ==>
; (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 SYMBOL FUNCTION), not a FUNCTION.
; compiling top level form:
; recognizing DEFUN CAREFUL-SPECIFIER-TYPE
; compiling top level form:
; compiling DEFFROB SPECIFIER-TYPE:
; compiling top level form:
; recognizing DEFUN COMPILER-SPECIFIER-TYPE
; compiling top level form:
; compiling DEFFROB SPECIFIER-TYPE:
; compiling top level form:
; recognizing DEFUN IR1-TRANSFORM-SPECIFIER-TYPE
; compiling top level form:
; compiling DEFFROB SPECIFIER-TYPE:
; compiling top level form:
; recognizing DEFUN CAREFUL-VALUES-SPECIFIER-TYPE
; compiling top level form:
; compiling DEFFROB VALUES-SPECIFIER-TYPE:
; compiling top level form:
; recognizing DEFUN COMPILER-VALUES-SPECIFIER-TYPE
; compiling top level form:
; compiling DEFFROB VALUES-SPECIFIER-TYPE:
; compiling top level form:
; recognizing DEFUN IR1-TRANSFORM-VALUES-SPECIFIER-TYPE
; compiling top level form:
; compiling DEFFROB VALUES-SPECIFIER-TYPE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-KEYWORD-LVAR
; compiling top level form:
; compiling DEFUN FIND-KEYWORD-LVAR:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHECK-KEY-ARGS-CONSTANT
; compiling top level form:
; compiling DEFUN CHECK-KEY-ARGS-CONSTANT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHECK-TRANSFORM-KEYS
; compiling top level form:
; compiling DEFUN CHECK-TRANSFORM-KEYS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %EVENT
; compiling top level form:
; compiling DEFUN %EVENT:
; compiling top level form:
; recognizing DEFUN MAKE-CAST
; compiling top level form:
; compiling DEFUN MAKE-CAST:
; compiling top level form:
; recognizing DEFUN CAST-TYPE-CHECK
; compiling top level form:
; compiling DEFUN CAST-TYPE-CHECK:
; compiling top level form:
; recognizing DEFUN NOTE-SINGLE-VALUIFIED-LVAR
; compiling top level form:
; compiling DEFUN NOTE-SINGLE-VALUIFIED-LVAR:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1util.lisp
; in: DEFUN INLINE-EXPANSION-OK
; (SB!C:COMPILER-NOTIFY "*INLINE-EXPANSION-LIMIT* (~W) was exceeded, ~
; probably trying to~% ~
; inline a recursive function."
; SB!EXT:*INLINE-EXPANSION-LIMIT*)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-NOTIFY
; in: DEFUN NOTE-BLOCK-DELETION
; (SB!C:COMPILER-NOTIFY 'SB!EXT:CODE-DELETION-NOTE
; :FORMAT-CONTROL
; "deleting unreachable code"
; :FORMAT-ARGUMENTS
; NIL)
;
; caught STYLE-WARNING:
; undefined function: COMPILER-NOTIFY
; in: DEFUN DELETE-LAMBDA
; (SB!C:COMPILER-NOTIFY 'SB!EXT:CODE-DELETION-NOTE
; :FORMAT-CONTROL
; "deleting unused function~:[.~;~:*~% ~S~]"
; :FORMAT-ARGUMENTS
; (LIST (SB!C::LEAF-DEBUG-NAME SB!C::CLAMBDA)))
;
; caught STYLE-WARNING:
; undefined function: COMPILER-NOTIFY
;
; caught STYLE-WARNING:
; 1 more use of undefined function COMPILER-NOTIFY
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1util.lisp
; in: DEFUN CHECK-KEY-ARGS-CONSTANT
; (SB!C::CONSTANT-LVAR-P (FIRST SB!C::ARG))
;
; caught STYLE-WARNING:
; undefined function: CONSTANT-LVAR-P
; in: DEFUN CHANGE-REF-LEAF
; (SB!C::DERIVE-NODE-TYPE SB!C::REF SB!C::VLTYPE)
;
; caught STYLE-WARNING:
; undefined function: DERIVE-NODE-TYPE
; in: DEFUN NOTE-BLOCK-DELETION
; (SB!C::FIND-ORIGINAL-SOURCE SB!C::PATH)
;
; caught STYLE-WARNING:
; undefined function: FIND-ORIGINAL-SOURCE
; in: DEFUN NODE-SOURCE-FORM
; (SB!C::FIND-ORIGINAL-SOURCE SB!C::PATH)
;
; caught STYLE-WARNING:
; undefined function: FIND-ORIGINAL-SOURCE
; in: DEFUN EXTRACT-FUN-ARGS
; (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::ARG)
;
; caught STYLE-WARNING:
; undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE
; in: DEFUN FLUSH-DEST
; (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::LVAR)
;
; caught STYLE-WARNING:
; undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE
; in: DEFUN SUBSTITUTE-LVAR
; (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::NEW)
;
; caught STYLE-WARNING:
; undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE
; in: DEFFROB (BASIC CAREFUL COMPILER TRANSFORM)
; #'SB!C::GIVE-UP-IR1-TRANSFORM
;
; caught STYLE-WARNING:
; undefined function: GIVE-UP-IR1-TRANSFORM
; [Last message occurs 2 times.]
; in: DEFUN EXTRACT-FUN-ARGS
; (SB!C::GIVE-UP-IR1-TRANSFORM)
;
; caught STYLE-WARNING:
; undefined function: GIVE-UP-IR1-TRANSFORM
; in: DEFUN CAST-TYPE-CHECK
; (SB!C::IR1-OPTIMIZE-CAST SB!ALIEN:CAST T)
;
; caught STYLE-WARNING:
; undefined function: IR1-OPTIMIZE-CAST
; in: DEFUN FILTER-LVAR
; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*)
;
; caught STYLE-WARNING:
; undefined function: LOCALL-ANALYZE-COMPONENT
; in: DEFUN CHECK-TRANSFORM-KEYS
; (SB!C::LVAR-VALUE (FIRST SB!C::ARG))
;
; caught STYLE-WARNING:
; undefined function: LVAR-VALUE
; in: DEFUN FIND-KEYWORD-LVAR
; (SB!C::LVAR-VALUE (FIRST SB!C::ARG))
;
; caught STYLE-WARNING:
; undefined function: LVAR-VALUE
; in: DEFUN DELETE-REF
; (SB!C::MAYBE-CONVERT-TO-ASSIGNMENT SB!C::LEAF)
;
; caught STYLE-WARNING:
; undefined function: MAYBE-CONVERT-TO-ASSIGNMENT
; in: DEFUN DELETE-OPTIONAL-DISPATCH
; (SB!C::MAYBE-CONVERT-TO-ASSIGNMENT SB!C::FUN)
;
; caught STYLE-WARNING:
; undefined function: MAYBE-CONVERT-TO-ASSIGNMENT
; in: DEFUN DELETE-REF
; (SB!C::MAYBE-LET-CONVERT SB!C::LEAF)
;
; caught STYLE-WARNING:
; undefined function: MAYBE-LET-CONVERT
; in: DEFUN DELETE-OPTIONAL-DISPATCH
; (SB!C::MAYBE-LET-CONVERT SB!C::FUN)
;
; caught STYLE-WARNING:
; undefined function: MAYBE-LET-CONVERT
; in: DEFUN MAKE-CAST
; (SB!C::MAYBE-WEAKEN-CHECK TYPE SB!C:POLICY)
;
; caught STYLE-WARNING:
; undefined function: MAYBE-WEAKEN-CHECK
; in: DEFUN DELETE-FILTER
; (SB!C::MERGE-TAIL-SETS MERGE)
;
; caught STYLE-WARNING:
; undefined function: MERGE-TAIL-SETS
; in: DEFUN NOTE-SINGLE-VALUIFIED-LVAR
; (SB!C::REOPTIMIZE-COMPONENT (SB!C::NODE-COMPONENT SB!C::NODE) :MAYBE)
;
; caught STYLE-WARNING:
; undefined function: REOPTIMIZE-COMPONENT
; in: DEFUN FLUSH-DEST
; (SB!C::REOPTIMIZE-COMPONENT (SB!C::BLOCK-COMPONENT BLOCK) T)
;
; caught STYLE-WARNING:
; undefined function: REOPTIMIZE-COMPONENT
; in: DEFUN CHANGE-BLOCK-SUCCESSOR
; (SB!C::REOPTIMIZE-COMPONENT (SB!C::BLOCK-COMPONENT BLOCK) :MAYBE)
;
; caught STYLE-WARNING:
; undefined function: REOPTIMIZE-COMPONENT
; in: DEFUN INSERT-CAST-BEFORE
; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR)
;
; caught STYLE-WARNING:
; undefined function: REOPTIMIZE-LVAR
; in: DEFUN SUBSTITUTE-LVAR-USES
; (SB!C::REOPTIMIZE-LVAR SB!C::NEW)
;
; caught STYLE-WARNING:
; undefined function: REOPTIMIZE-LVAR
; in: DEFUN DELETE-LVAR-USE
; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR)
;
; caught STYLE-WARNING:
; undefined function: REOPTIMIZE-LVAR
;
; caught STYLE-WARNING:
; 5 more uses of undefined function REOPTIMIZE-LVAR
;
; caught STYLE-WARNING:
; These functions are undefined:
; COMPILER-NOTIFY CONSTANT-LVAR-P DERIVE-NODE-TYPE FIND-ORIGINAL-SOURCE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE GIVE-UP-IR1-TRANSFORM IR1-OPTIMIZE-CAST LOCALL-ANALYZE-COMPONENT LVAR-VALUE MAYBE-CONVERT-TO-ASSIGNMENT MAYBE-LET-CONVERT MAYBE-WEAKEN-CHECK MERGE-TAIL-SETS REOPTIMIZE-COMPONENT REOPTIMIZE-LVAR
;
; compilation unit finished
; caught 32 STYLE-WARNING conditions
; printed 6 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/ir1util.lisp-obj-tmp written
; compilation finished in 0:00:04
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1report.lisp" (written 29 OCT 2004 01:30:44 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-COMPILER-ERROR-CONTEXT
; compiling top level form:
; compiling DEFSTRUCT COMPILER-ERROR-CONTEXT:
; compiling top level form:
; compiling top level form:
; compiling DEFSTRUCT COMPILER-ERROR-CONTEXT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO DEFINE-SOURCE-CONTEXT:
; compiling top level form:
; compiling DEFMACRO DEF-SOURCE-CONTEXT:
; compiling top level form:
; compiling DEFINE-SOURCE-CONTEXT DEFSTRUCT:
; compiling top level form:
; compiling DEFINE-SOURCE-CONTEXT FUNCTION:
; compiling top level form:
; recognizing DEFUN SOURCE-FORM-CONTEXT
; compiling top level form:
; compiling DEFUN SOURCE-FORM-CONTEXT:
; compiling top level form:
; recognizing DEFUN FIND-ORIGINAL-SOURCE
; compiling top level form:
; compiling DEFUN FIND-ORIGINAL-SOURCE:
; compiling top level form:
; recognizing DEFUN STRINGIFY-FORM
; compiling top level form:
; compiling DEFUN STRINGIFY-FORM:
; compiling top level form:
; recognizing DEFUN FIND-ERROR-CONTEXT
; compiling top level form:
; compiling DEFUN FIND-ERROR-CONTEXT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NOTE-MESSAGE-REPEATS
; compiling top level form:
; compiling DEFUN NOTE-MESSAGE-REPEATS:
; compiling top level form:
; compiling DEFMACRO PRINT-COMPILER-MESSAGE:
; compiling top level form:
; recognizing DEFUN %PRINT-COMPILER-MESSAGE
; compiling top level form:
; compiling DEFUN %PRINT-COMPILER-MESSAGE:
; compiling top level form:
; recognizing DEFUN PRINT-COMPILER-CONDITION
; compiling top level form:
; compiling DEFUN PRINT-COMPILER-CONDITION:
; compiling top level form (SB-KERNEL:FIND-CLASSOID-CELL (QUOTE STYLE-WARNING)):
; compiling top level form (SB-KERNEL:FIND-CLASSOID-CELL (QUOTE WARNING)):
; compiling top level form (SB-KERNEL:FIND-CLASSOID-CELL (QUOTE ERROR)):
; compiling top level form (SB-KERNEL:FIND-CLASSOID-CELL (QUOTE SB!C:COMPILER-ERROR)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COMPILER-NOTIFY
; compiling top level form:
; compiling DEFUN COMPILER-NOTIFY:
; compiling top level form:
; recognizing DEFUN MAYBE-COMPILER-NOTIFY
; compiling top level form:
; compiling DEFUN MAYBE-COMPILER-NOTIFY:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COMPILER-MUMBLE
; compiling top level form:
; compiling DEFUN COMPILER-MUMBLE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-COMPONENT-NAME
; compiling top level form:
; compiling DEFUN FIND-COMPONENT-NAME:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COMPILER-ERROR-HANDLER
; compiling top level form:
; compiling DEFUN COMPILER-ERROR-HANDLER:
; compiling top level form:
; recognizing DEFUN COMPILER-WARNING-HANDLER
; compiling top level form:
; compiling DEFUN COMPILER-WARNING-HANDLER:
; compiling top level form:
; recognizing DEFUN COMPILER-STYLE-WARNING-HANDLER
; compiling top level form:
; compiling DEFUN COMPILER-STYLE-WARNING-HANDLER:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NOTE-UNDEFINED-REFERENCE
; compiling top level form:
; compiling DEFUN NOTE-UNDEFINED-REFERENCE:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1report.lisp
; in: DEFUN MAYBE-COMPILER-NOTIFY
; (SB!KERNEL:COERCE-TO-CONDITION (CAR REST)
; (CDR REST)
; 'SB!INT:SIMPLE-COMPILER-NOTE
; 'SB!C:MAYBE-COMPILER-NOTIFY)
;
; caught STYLE-WARNING:
; undefined function: COERCE-TO-CONDITION
; in: DEFUN COMPILER-NOTIFY
; (SB!KERNEL:COERCE-TO-CONDITION SB!C::DATUM
; SB!C::ARGS
; 'SB!INT:SIMPLE-COMPILER-NOTE
; 'SB!C:COMPILER-NOTIFY)
;
; caught STYLE-WARNING:
; undefined function: COERCE-TO-CONDITION
;
; caught STYLE-WARNING:
; This function is undefined:
; COERCE-TO-CONDITION
;
; compilation unit finished
; caught 3 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/ir1report.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1opt.lisp" (written 21 DEC 2004 04:52:09 AM):
; compiling top level form:
; recognizing DEFUN CONSTANT-LVAR-P
; compiling top level form:
; compiling DEFUN CONSTANT-LVAR-P:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LVAR-VALUE
; compiling top level form:
; compiling DEFUN LVAR-VALUE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LVAR-DERIVED-TYPE
; compiling top level form:
; compiling DEFUN LVAR-DERIVED-TYPE:
; compiling top level form:
; recognizing DEFUN %LVAR-DERIVED-TYPE
; compiling top level form:
; compiling DEFUN %LVAR-DERIVED-TYPE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LVAR-TYPE
; compiling top level form:
; compiling DEFUN LVAR-TYPE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LVAR-EXTERNALLY-CHECKABLE-TYPE
; compiling top level form:
; compiling DEFUN LVAR-EXTERNALLY-CHECKABLE-TYPE:
; compiling top level form:
; recognizing DEFUN %LVAR-%EXTERNALLY-CHECKABLE-TYPE
; compiling top level form:
; compiling DEFUN %LVAR-%EXTERNALLY-CHECKABLE-TYPE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE
; compiling top level form:
; compiling DEFUN FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN REOPTIMIZE-COMPONENT
; compiling top level form:
; compiling DEFUN REOPTIMIZE-COMPONENT:
; compiling top level form:
; recognizing DEFUN REOPTIMIZE-LVAR
; compiling top level form:
; compiling DEFUN REOPTIMIZE-LVAR:
; compiling top level form:
; recognizing DEFUN REOPTIMIZE-LVAR-USES
; compiling top level form:
; compiling DEFUN REOPTIMIZE-LVAR-USES:
; compiling top level form:
; recognizing DEFUN DERIVE-NODE-TYPE
; compiling top level form:
; compiling DEFUN DERIVE-NODE-TYPE:
; compiling top level form:
; recognizing DEFUN ASSERT-LVAR-TYPE
; compiling top level form:
; compiling DEFUN ASSERT-LVAR-TYPE:
; compiling top level form:
; recognizing DEFUN IR1-OPTIMIZE
; compiling top level form:
; compiling DEFUN IR1-OPTIMIZE:
; compiling top level form:
; recognizing DEFUN IR1-OPTIMIZE-BLOCK
; compiling top level form:
; compiling DEFUN IR1-OPTIMIZE-BLOCK:
; compiling top level form:
; recognizing DEFUN JOIN-SUCCESSOR-IF-POSSIBLE
; compiling top level form:
; compiling DEFUN JOIN-SUCCESSOR-IF-POSSIBLE:
; compiling top level form:
; recognizing DEFUN JOIN-BLOCKS
; compiling top level form:
; compiling DEFUN JOIN-BLOCKS:
; compiling top level form:
; recognizing DEFUN FLUSH-DEAD-CODE
; compiling top level form:
; compiling DEFUN FLUSH-DEAD-CODE:
; compiling top level form:
; recognizing DEFUN FIND-RESULT-TYPE
; compiling top level form:
; compiling DEFUN FIND-RESULT-TYPE:
; compiling top level form:
; recognizing DEFUN IR1-OPTIMIZE-RETURN
; compiling top level form:
; compiling DEFUN IR1-OPTIMIZE-RETURN:
; compiling top level form:
; recognizing DEFUN IR1-OPTIMIZE-IF
; compiling top level form:
; compiling DEFUN IR1-OPTIMIZE-IF:
; compiling top level form:
; recognizing DEFUN CONVERT-IF-IF
; compiling top level form:
; compiling DEFUN CONVERT-IF-IF:
; compiling top level form:
; recognizing DEFUN MAYBE-DELETE-EXIT
; compiling top level form:
; compiling DEFUN MAYBE-DELETE-EXIT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-OPTIMIZE-COMBINATION
; compiling top level form:
; compiling DEFUN IR1-OPTIMIZE-COMBINATION:
; compiling top level form:
; recognizing DEFUN MAYBE-TERMINATE-BLOCK
; compiling top level form:
; compiling DEFUN MAYBE-TERMINATE-BLOCK:
; compiling top level form:
; recognizing DEFUN RECOGNIZE-KNOWN-CALL
; compiling top level form:
; compiling DEFUN RECOGNIZE-KNOWN-CALL:
; compiling top level form:
; recognizing DEFUN VALIDATE-CALL-TYPE
; compiling top level form:
; compiling DEFUN VALIDATE-CALL-TYPE:
; compiling top level form:
; recognizing DEFUN PROPAGATE-FUN-CHANGE
; compiling top level form:
; compiling DEFUN PROPAGATE-FUN-CHANGE:
; compiling top level form:
; recognizing DEFUN RECORD-OPTIMIZATION-FAILURE
; compiling top level form:
; compiling DEFUN RECORD-OPTIMIZATION-FAILURE:
; compiling top level form:
; recognizing DEFUN IR1-TRANSFORM
; compiling top level form:
; compiling DEFUN IR1-TRANSFORM:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN GIVE-UP-IR1-TRANSFORM
; compiling top level form:
; compiling DEFUN GIVE-UP-IR1-TRANSFORM:
; compiling top level form:
; recognizing DEFUN ABORT-IR1-TRANSFORM
; compiling top level form:
; compiling DEFUN ABORT-IR1-TRANSFORM:
; compiling top level form:
; recognizing DEFUN DELAY-IR1-TRANSFORM
; compiling top level form:
; compiling DEFUN DELAY-IR1-TRANSFORM:
; compiling top level form:
; recognizing DEFUN RETRY-DELAYED-IR1-TRANSFORMS
; compiling top level form:
; compiling DEFUN RETRY-DELAYED-IR1-TRANSFORMS:
; compiling top level form:
; recognizing DEFUN TRANSFORM-CALL
; compiling top level form:
; compiling DEFUN TRANSFORM-CALL:
; compiling top level form:
; recognizing DEFUN CONSTANT-FOLD-CALL
; compiling top level form:
; compiling DEFUN CONSTANT-FOLD-CALL:
; compiling top level form:
; recognizing DEFUN PROPAGATE-TO-REFS
; compiling top level form:
; compiling DEFUN PROPAGATE-TO-REFS:
; compiling top level form:
; recognizing DEFUN MAYBE-INFER-ITERATION-VAR-TYPE
; compiling top level form:
; compiling DEFUN MAYBE-INFER-ITERATION-VAR-TYPE:
; compiling top level form:
; compiling DEFTRANSFORM +:
; compiling top level form:
; recognizing DEFUN PROPAGATE-FROM-SETS
; compiling top level form:
; compiling DEFUN PROPAGATE-FROM-SETS:
; compiling top level form:
; recognizing DEFUN IR1-OPTIMIZE-SET
; compiling top level form:
; compiling DEFUN IR1-OPTIMIZE-SET:
; compiling top level form:
; recognizing DEFUN CONSTANT-REFERENCE-P
; compiling top level form:
; compiling DEFUN CONSTANT-REFERENCE-P:
; compiling top level form:
; recognizing DEFUN SUBSTITUTE-SINGLE-USE-LVAR
; compiling top level form:
; compiling DEFUN SUBSTITUTE-SINGLE-USE-LVAR:
; compiling top level form:
; recognizing DEFUN DELETE-LET
; compiling top level form:
; compiling DEFUN DELETE-LET:
; compiling top level form:
; recognizing DEFUN PROPAGATE-LET-ARGS
; compiling top level form:
; compiling DEFUN PROPAGATE-LET-ARGS:
; compiling top level form:
; recognizing DEFUN PROPAGATE-LOCAL-CALL-ARGS
; compiling top level form:
; compiling DEFUN PROPAGATE-LOCAL-CALL-ARGS:
; compiling top level form:
; recognizing DEFUN IR1-OPTIMIZE-MV-COMBINATION
; compiling top level form:
; compiling DEFUN IR1-OPTIMIZE-MV-COMBINATION:
; compiling top level form:
; recognizing DEFUN IR1-OPTIMIZE-MV-BIND
; compiling top level form:
; compiling DEFUN IR1-OPTIMIZE-MV-BIND:
; compiling top level form:
; recognizing DEFUN IR1-OPTIMIZE-MV-CALL
; compiling top level form:
; compiling DEFUN IR1-OPTIMIZE-MV-CALL:
; compiling top level form:
; recognizing DEFUN CONVERT-MV-BIND-TO-LET
; compiling top level form:
; compiling DEFUN CONVERT-MV-BIND-TO-LET:
; compiling top level form:
; recognizing DEFUN VALUES-LIST-OPTIMIZER-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (VALUES-LIST OPTIMIZER):
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM VALUES:
; compiling top level form:
; recognizing DEFUN IR1-OPTIMIZE-CAST
; compiling top level form:
; compiling DEFUN IR1-OPTIMIZE-CAST:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1opt.lisp
; in: DEFUN IR1-OPTIMIZE-MV-COMBINATION
; (SB!C::CONVERT-CALL-IF-POSSIBLE SB!C::USE SB!C::NODE)
;
; caught STYLE-WARNING:
; undefined function: CONVERT-CALL-IF-POSSIBLE
; in: DEFUN PROPAGATE-FUN-CHANGE
; (SB!C::CONVERT-CALL-IF-POSSIBLE
; (SB!C::LVAR-USES (SB!C::BASIC-COMBINATION-FUN SB!C:CALL))
; SB!C:CALL)
;
; caught STYLE-WARNING:
; undefined function: CONVERT-CALL-IF-POSSIBLE
; in: DEFUN IR1-OPTIMIZE-MV-CALL
; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*)
;
; caught STYLE-WARNING:
; undefined function: LOCALL-ANALYZE-COMPONENT
; in: DEFUN TRANSFORM-CALL
; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*)
;
; caught STYLE-WARNING:
; undefined function: LOCALL-ANALYZE-COMPONENT
; in: DEFUN RECOGNIZE-KNOWN-CALL
; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*)
;
; caught STYLE-WARNING:
; undefined function: LOCALL-ANALYZE-COMPONENT
; in: DEFUN FIND-RESULT-TYPE
; (SB!C::MAYBE-CONVERT-TAIL-LOCAL-CALL SB!C::USE)
;
; caught STYLE-WARNING:
; undefined function: MAYBE-CONVERT-TAIL-LOCAL-CALL
; in: DEFUN IR1-OPTIMIZE-MV-COMBINATION
; (SB!C::MAYBE-LET-CONVERT (SB!C::COMBINATION-LAMBDA SB!C::NODE))
;
; caught STYLE-WARNING:
; undefined function: MAYBE-LET-CONVERT
; in: DEFUN PROPAGATE-FUN-CHANGE
; (SB!C::MAYBE-LET-CONVERT SB!C::FUN)
;
; caught STYLE-WARNING:
; undefined function: MAYBE-LET-CONVERT
; in: DEFUN IR1-OPTIMIZE-CAST
; (SB!C::MERGE-TAIL-SETS SB!C::USE)
;
; caught STYLE-WARNING:
; undefined function: MERGE-TAIL-SETS
; in: DEFUN CONVERT-MV-BIND-TO-LET
; (SB!C::PROPAGATE-TO-ARGS SB!C::USE SB!C::FUN)
;
; caught STYLE-WARNING:
; undefined function: PROPAGATE-TO-ARGS
; (SB!C::REOPTIMIZE-CALL SB!C::USE)
;
; caught STYLE-WARNING:
; undefined function: REOPTIMIZE-CALL
;
; caught STYLE-WARNING:
; These functions are undefined:
; CONVERT-CALL-IF-POSSIBLE LOCALL-ANALYZE-COMPONENT MAYBE-CONVERT-TAIL-LOCAL-CALL MAYBE-LET-CONVERT MERGE-TAIL-SETS PROPAGATE-TO-ARGS REOPTIMIZE-CALL
;
; compilation unit finished
; caught 12 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/ir1opt.lisp-obj-tmp written
; compilation finished in 0:00:04
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/loop.lisp" (written 13 OCT 2004 12:01:43 AM):
; compiling top level form:
; recognizing DEFUN FIND-DOMINATORS
; compiling top level form:
; compiling DEFUN FIND-DOMINATORS:
; compiling top level form:
; recognizing DEFUN DOMINATES-P
; compiling top level form:
; compiling DEFUN DOMINATES-P:
; compiling top level form:
; recognizing DEFUN LOOP-ANALYZE
; compiling top level form:
; compiling DEFUN LOOP-ANALYZE:
; compiling top level form:
; recognizing DEFUN FIND-LOOP-BLOCKS
; compiling top level form:
; compiling DEFUN FIND-LOOP-BLOCKS:
; compiling top level form:
; recognizing DEFUN FIND-BLOCKS-FROM-HERE
; compiling top level form:
; compiling DEFUN FIND-BLOCKS-FROM-HERE:
; compiling top level form:
; recognizing DEFUN NOTE-LOOP-HEAD
; compiling top level form:
; compiling DEFUN NOTE-LOOP-HEAD:
; compiling top level form:
; recognizing DEFUN FIND-SUPERIOR
; compiling top level form:
; compiling DEFUN FIND-SUPERIOR:
; compiling top level form:
; recognizing DEFUN FIND-STRANGE-LOOP-BLOCKS
; compiling top level form:
; compiling DEFUN FIND-STRANGE-LOOP-BLOCKS:
; compiling top level form:
; recognizing DEFUN FIND-STRANGE-LOOP-SEGMENTS
; compiling top level form:
; compiling DEFUN FIND-STRANGE-LOOP-SEGMENTS:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/loop.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir1final.lisp" (written 29 OCT 2004 01:30:44 PM):
; compiling top level form:
; recognizing DEFUN NOTE-FAILED-OPTIMIZATION
; compiling top level form:
; compiling DEFUN NOTE-FAILED-OPTIMIZATION:
; compiling top level form:
; recognizing DEFUN FINALIZE-XEP-DEFINITION
; compiling top level form:
; compiling DEFUN FINALIZE-XEP-DEFINITION => DEFINED-FUN-P GLOBAL-DEF:
; compiling top level form:
; recognizing DEFUN NOTE-ASSUMED-TYPES
; compiling top level form:
; compiling DEFUN NOTE-ASSUMED-TYPES:
; compiling top level form:
; recognizing DEFUN IR1-MERGE-CASTS
; compiling top level form:
; compiling DEFUN IR1-MERGE-CASTS:
; compiling top level form:
; recognizing DEFUN IR1-FINALIZE
; compiling top level form:
; compiling DEFUN IR1-FINALIZE:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/ir1final.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/array-tran.lisp" (written 31 OCT 2004 06:46:48 AM):
; compiling top level form:
; recognizing DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER-OR-GIVE-UP
; compiling top level form:
; compiling DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER-OR-GIVE-UP:
; compiling top level form:
; recognizing DEFUN EXTRACT-UPGRADED-ELEMENT-TYPE
; compiling top level form:
; compiling DEFUN EXTRACT-UPGRADED-ELEMENT-TYPE:
; compiling top level form:
; recognizing DEFUN EXTRACT-DECLARED-ELEMENT-TYPE
; compiling top level form:
; compiling DEFUN EXTRACT-DECLARED-ELEMENT-TYPE:
; compiling top level form:
; recognizing DEFUN ASSERT-NEW-VALUE-TYPE
; compiling top level form:
; compiling DEFUN ASSERT-NEW-VALUE-TYPE:
; compiling top level form:
; recognizing DEFUN ASSERT-ARRAY-COMPLEX
; compiling top level form:
; compiling DEFUN ASSERT-ARRAY-COMPLEX:
; compiling top level form:
; recognizing DEFUN UNSUPPLIED-OR-NIL
; compiling top level form:
; compiling DEFUN UNSUPPLIED-OR-NIL:
; compiling top level form:
; recognizing DEFUN ASSERT-ARRAY-RANK
; compiling top level form:
; compiling DEFUN ASSERT-ARRAY-RANK:
; compiling top level form:
; recognizing DEFUN ARRAY-IN-BOUNDS-P-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (ARRAY-IN-BOUNDS-P DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN AREF-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (AREF DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %ASET-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%ASET DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN HAIRY-DATA-VECTOR-REF-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (HAIRY-DATA-VECTOR-REF DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DATA-VECTOR-REF-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (DATA-VECTOR-REF DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DATA-VECTOR-SET-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (DATA-VECTOR-SET DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN HAIRY-DATA-VECTOR-SET-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (HAIRY-DATA-VECTOR-SET DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %WITH-ARRAY-DATA-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%WITH-ARRAY-DATA DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ARRAY-ROW-MAJOR-INDEX-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (ARRAY-ROW-MAJOR-INDEX DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ROW-MAJOR-AREF-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (ROW-MAJOR-AREF DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %SET-ROW-MAJOR-AREF-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%SET-ROW-MAJOR-AREF DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ARRAY-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (MAKE-ARRAY DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FILL-POINTER-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (FILL-POINTER DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %SET-FILL-POINTER-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%SET-FILL-POINTER DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VECTOR-PUSH-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (VECTOR-PUSH DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VECTOR-PUSH-EXTEND-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (VECTOR-PUSH-EXTEND DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VECTOR-POP-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (VECTOR-POP DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM VECTOR:
; compiling top level form:
; compiling DEFTRANSFORM MAKE-STRING:
; compiling top level form:
; compiling DEFTRANSFORM MAKE-ARRAY:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/array-tran.lisp
; in: DEFTRANSFORM MAKE-ARRAY
; (SB!C::GIVE-UP-IR1-TRANSFORM "ELEMENT-TYPE not found in *SAETP*: ~S"
; SB!C::ELTYPE)
; ==>
; "ELEMENT-TYPE not found in *SAETP*: ~S"
;
; note: deleting unreachable code
; (FIND-IF
; (LAMBDA (SB!C::SAETP)
; (SB!KERNEL:CSUBTYPEP SB!C::ELTYPE-TYPE (SB!VM:SAETP-CTYPE SB!C::SAETP)))
; SB!VM:*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES*)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION-IF
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; compiling DEFTRANSFORM MAKE-ARRAY:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/array-tran.lisp
; in: DEFTRANSFORM MAKE-ARRAY
; (FIND-IF
; (LAMBDA (SB!C::SAETP)
; (SB!KERNEL:CSUBTYPEP SB!C::ELTYPE-TYPE (SB!VM:SAETP-CTYPE SB!C::SAETP)))
; SB!VM:*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES*)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION-IF
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; compiling DEFTRANSFORM MAKE-ARRAY:
; compiling top level form:
; recognizing DEFUN ARRAY-TYPE-DIMENSIONS-OR-GIVE-UP
; compiling top level form:
; compiling DEFUN ARRAY-TYPE-DIMENSIONS-OR-GIVE-UP:
; compiling top level form:
; recognizing DEFUN CONSERVATIVE-ARRAY-TYPE-COMPLEXP
; compiling top level form:
; compiling DEFUN CONSERVATIVE-ARRAY-TYPE-COMPLEXP:
; compiling top level form:
; compiling DEFTRANSFORM ARRAY-RANK:
; compiling top level form:
; compiling DEFTRANSFORM ARRAY-DIMENSION:
; compiling top level form:
; compiling DEFTRANSFORM LENGTH:
; compiling top level form:
; compiling DEFTRANSFORM LENGTH:
; compiling top level form:
; compiling DEFTRANSFORM VECTOR-LENGTH:
; compiling top level form:
; compiling DEFTRANSFORM ARRAY-TOTAL-SIZE:
; compiling top level form:
; compiling DEFTRANSFORM ARRAY-HAS-FILL-POINTER-P:
; compiling top level form:
; compiling DEFTRANSFORM %CHECK-BOUND:
; compiling top level form:
; compiling DEF!MACRO WITH-ARRAY-DATA:
; compiling top level form:
; compiling DEF!MACRO WITH-ARRAY-DATA:
; compiling top level form:
; compiling DEF!MACRO %WITH-ARRAY-DATA-MACRO:
; compiling top level form:
; compiling DEF!MACRO %WITH-ARRAY-DATA-MACRO:
; compiling top level form:
; compiling DEFTRANSFORM %WITH-ARRAY-DATA:
; compiling top level form:
; compiling DEFINE-BIT-FROB SBIT:
; compiling top level form:
; compiling DEFINE-BIT-FROB SBIT:
; compiling top level form:
; compiling DEFINE-BIT-FROB BIT:
; compiling top level form:
; compiling DEFINE-BIT-FROB BIT:
; compiling top level form:
; compiling DEFINE-FROB SVREF:
; compiling top level form:
; compiling DEFINE-FROB SVREF:
; compiling top level form:
; compiling DEFINE-FROB SCHAR:
; compiling top level form:
; compiling DEFINE-FROB SCHAR:
; compiling top level form:
; compiling DEFINE-FROB CHAR:
; compiling top level form:
; compiling DEFINE-FROB CHAR:
; compiling top level form:
; compiling DEFTRANSFORM ARRAY-ROW-MAJOR-INDEX:
; compiling top level form:
; compiling DEFTRANSFORM AREF:
; compiling top level form:
; compiling DEFTRANSFORM %ASET:
; compiling top level form:
; compiling DEFTRANSFORM ROW-MAJOR-AREF:
; compiling top level form:
; compiling DEFTRANSFORM %SET-ROW-MAJOR-AREF:
; compiling top level form:
; compiling DEF BIT-AND:
; compiling top level form:
; compiling DEF BIT-AND:
; compiling top level form:
; compiling DEF BIT-IOR:
; compiling top level form:
; compiling DEF BIT-IOR:
; compiling top level form:
; compiling DEF BIT-XOR:
; compiling top level form:
; compiling DEF BIT-XOR:
; compiling top level form:
; compiling DEF BIT-EQV:
; compiling top level form:
; compiling DEF BIT-EQV:
; compiling top level form:
; compiling DEF BIT-NAND:
; compiling top level form:
; compiling DEF BIT-NAND:
; compiling top level form:
; compiling DEF BIT-NOR:
; compiling top level form:
; compiling DEF BIT-NOR:
; compiling top level form:
; compiling DEF BIT-ANDC1:
; compiling top level form:
; compiling DEF BIT-ANDC1:
; compiling top level form:
; compiling DEF BIT-ANDC2:
; compiling top level form:
; compiling DEF BIT-ANDC2:
; compiling top level form:
; compiling DEF BIT-ORC1:
; compiling top level form:
; compiling DEF BIT-ORC1:
; compiling top level form:
; compiling DEF BIT-ORC2:
; compiling top level form:
; compiling DEF BIT-ORC2:
; compiling top level form:
; compiling DEFTRANSFORM BIT-NOT:
; compiling top level form:
; compiling DEFTRANSFORM BIT-NOT:
; compiling top level form:
; recognizing DEFUN ARRAY-HEADER-P-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (ARRAY-HEADER-P DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; compilation unit finished
; printed 5 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/array-tran.lisp-obj-tmp written
; compilation finished in 0:00:03
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/seqtran.lisp" (written 02 NOV 2004 08:22:08 AM):
; compiling top level form:
; recognizing DEFUN MAPFOO-TRANSFORM
; compiling top level form:
; compiling DEFUN MAPFOO-TRANSFORM:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM MAPC:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM MAPCAR:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM MAPCAN:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM MAPL:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM MAPLIST:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM MAPCON:
; compiling top level form:
; compiling DEFTRANSFORM MAP:
; compiling top level form:
; recognizing DEFUN BUILD-SEQUENCE-ITERATOR
; compiling top level form:
; compiling DEFUN BUILD-SEQUENCE-ITERATOR:
; compiling top level form:
; compiling DEFTRANSFORM %MAP:
; compiling top level form:
; compiling DEFTRANSFORM MAP-INTO:
; compiling top level form:
; compiling DEFTRANSFORM ELT:
; compiling top level form:
; compiling DEFTRANSFORM ELT:
; compiling top level form:
; compiling DEFTRANSFORM %SETELT:
; compiling top level form:
; compiling DEFTRANSFORM %SETELT:
; compiling top level form:
; compiling DEFTRANSFORM %CHECK-VECTOR-SEQUENCE-BOUNDS:
; compiling top level form:
; compiling DEF MEMBER:
; compiling top level form:
; compiling DEF MEMQ:
; compiling top level form:
; compiling DEF DELETE:
; compiling top level form:
; compiling DEF ASSOC:
; compiling top level form:
; compiling DEF MEMBER:
; compiling top level form:
; compiling DEFTRANSFORM DELETE-IF:
; compiling top level form:
; compiling DEFTRANSFORM FILL:
; compiling top level form:
; recognizing DEFUN LVAR-FUN-IS
; compiling top level form:
; compiling DEFUN LVAR-FUN-IS:
; compiling top level form:
; recognizing DEFUN CONSTANT-VALUE-OR-LOSE
; compiling top level form:
; compiling DEFUN CONSTANT-VALUE-OR-LOSE:
; compiling top level form:
; compiling DEF STRING<:
; compiling top level form:
; compiling DEF STRING>:
; compiling top level form:
; compiling DEF STRING<=:
; compiling top level form:
; compiling DEF STRING>=:
; compiling top level form:
; compiling DEF STRING=:
; compiling top level form:
; compiling DEF STRING/=:
; compiling top level form:
; compiling DEF STRING<*:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/seqtran.lisp
; in: DEF (NAME LESSP EQUALP)
; 'SB!C::END2
;
; note: deleting unreachable code
; 'SB!C::END1
;
; note: deleting unreachable code
; 'CHAR>
;
; note: deleting unreachable code
; 'SB!C::END1
;
; note: deleting unreachable code
; compiling top level form:
; compiling DEF STRING<=*:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/seqtran.lisp
; in: DEF (NAME LESSP EQUALP)
; 'SB!C::END2
;
; note: deleting unreachable code
; 'SB!C::END1
;
; note: deleting unreachable code
; 'CHAR>
;
; note: deleting unreachable code
; compiling top level form:
; compiling DEF STRING>*:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/seqtran.lisp
; in: DEF (NAME LESSP EQUALP)
; 'SB!C::END1
;
; note: deleting unreachable code
; 'SB!C::END2
;
; note: deleting unreachable code
; 'CHAR<
;
; note: deleting unreachable code
; 'SB!C::END1
;
; note: deleting unreachable code
; compiling top level form:
; compiling DEF STRING>=*:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/seqtran.lisp
; in: DEF (NAME LESSP EQUALP)
; 'SB!C::END1
;
; note: deleting unreachable code
; 'SB!C::END2
;
; note: deleting unreachable code
; 'CHAR<
;
; note: deleting unreachable code
; compiling top level form:
; compiling DEF STRING=*:
; compiling top level form:
; compiling DEF STRING/=*:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM REPLACE:
; compiling top level form:
; compiling DEFTRANSFORM REPLACE:
; compiling top level form:
; compiling DEFTRANSFORM SEARCH:
; compiling top level form:
; recognizing DEFUN CAR-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (CAR DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CDR-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (CDR DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHECK-INLINEABILITY-OF-FIND-POSITION-IF
; compiling top level form:
; compiling DEFUN CHECK-INLINEABILITY-OF-FIND-POSITION-IF:
; compiling top level form:
; compiling DEF %FIND-POSITION-IF:
; compiling top level form:
; compiling DEF %FIND-POSITION-IF-NOT:
; compiling top level form:
; compiling DEFTRANSFORM %FIND-POSITION:
; compiling top level form:
; recognizing DEFUN %FIND-POSITION-OR-FIND-POSITION-IF-VECTOR-EXPANSION
; compiling top level form:
; compiling DEFUN %FIND-POSITION-OR-FIND-POSITION-IF-VECTOR-EXPANSION:
; compiling top level form:
; compiling DEF!MACRO %FIND-POSITION-VECTOR-MACRO:
; compiling top level form:
; compiling DEF!MACRO %FIND-POSITION-VECTOR-MACRO:
; compiling top level form:
; compiling DEF!MACRO %FIND-POSITION-IF-VECTOR-MACRO:
; compiling top level form:
; compiling DEF!MACRO %FIND-POSITION-IF-VECTOR-MACRO:
; compiling top level form:
; compiling DEF!MACRO %FIND-POSITION-IF-NOT-VECTOR-MACRO:
; compiling top level form:
; compiling DEF!MACRO %FIND-POSITION-IF-NOT-VECTOR-MACRO:
; compiling top level form:
; compiling DEFTRANSFORM %FIND-POSITION-IF:
; compiling top level form:
; compiling DEFTRANSFORM %FIND-POSITION-IF-NOT:
; compiling top level form:
; compiling DEFTRANSFORM %FIND-POSITION:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM EFFECTIVE-FIND-POSITION-TEST:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM EFFECTIVE-FIND-POSITION-KEY:
; compiling top level form:
; compiling DEFINE-FIND-POSITION FIND:
; compiling top level form:
; compiling DEFINE-FIND-POSITION POSITION:
; compiling top level form:
; compiling DEFINE-FIND-POSITION-IF FIND-IF:
; compiling top level form:
; compiling DEFINE-FIND-POSITION-IF POSITION-IF:
; compiling top level form:
; compiling DEFINE-FIND-POSITION-IF-NOT FIND-IF-NOT:
; compiling top level form:
; compiling DEFINE-FIND-POSITION-IF-NOT POSITION-IF-NOT:
; compiling top level form:
; compilation unit finished
; printed 14 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/seqtran.lisp-obj-tmp written
; compilation finished in 0:00:03
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/typetran.lisp" (written 02 NOV 2004 08:22:08 AM):
; compiling top level form:
; compiling DEFMACRO DEFINE-TYPE-PREDICATE:
; compiling top level form:
; recognizing DEFUN %DEFINE-TYPE-PREDICATE
; compiling top level form:
; compiling DEFUN %DEFINE-TYPE-PREDICATE:
; compiling top level form:
; compiling DEFTRANSFORM TYPEP:
; compiling top level form:
; recognizing DEFUN IR1-TRANSFORM-TYPE-PREDICATE
; compiling top level form:
; compiling DEFUN IR1-TRANSFORM-TYPE-PREDICATE:
; compiling top level form:
; compiling DEFTRANSFORM %TYPEP:
; compiling top level form:
; recognizing DEFUN FOLD-TYPE-PREDICATE
; compiling top level form:
; compiling DEFTRANSFORM FOLD-TYPE-PREDICATE:
; compiling top level form:
; compiling DEFTRANSFORM FIND-CLASSOID:
; compiling top level form:
; recognizing DEFUN !DEFINE-STANDARD-TYPE-PREDICATES
; compiling top level form:
; compiling DEFUN !DEFINE-STANDARD-TYPE-PREDICATES:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM ATOM:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM BASE-CHAR-P:
; compiling top level form:
; recognizing DEFUN TRANSFORM-NUMERIC-BOUND-TEST
; compiling top level form:
; compiling DEFUN TRANSFORM-NUMERIC-BOUND-TEST:
; compiling top level form:
; recognizing DEFUN SOURCE-TRANSFORM-NUMERIC-TYPEP
; compiling top level form:
; compiling DEFUN SOURCE-TRANSFORM-NUMERIC-TYPEP:
; compiling top level form:
; recognizing DEFUN SOURCE-TRANSFORM-HAIRY-TYPEP
; compiling top level form:
; compiling DEFUN SOURCE-TRANSFORM-HAIRY-TYPEP:
; compiling top level form:
; recognizing DEFUN SOURCE-TRANSFORM-NEGATION-TYPEP
; compiling top level form:
; compiling DEFUN SOURCE-TRANSFORM-NEGATION-TYPEP:
; compiling top level form:
; recognizing DEFUN SOURCE-TRANSFORM-UNION-TYPEP
; compiling top level form:
; compiling DEFUN SOURCE-TRANSFORM-UNION-TYPEP:
; compiling top level form:
; recognizing DEFUN SOURCE-TRANSFORM-INTERSECTION-TYPEP
; compiling top level form:
; compiling DEFUN SOURCE-TRANSFORM-INTERSECTION-TYPEP:
; compiling top level form:
; recognizing DEFUN SOURCE-TRANSFORM-CONS-TYPEP
; compiling top level form:
; compiling DEFUN SOURCE-TRANSFORM-CONS-TYPEP:
; compiling top level form:
; recognizing DEFUN SOURCE-TRANSFORM-CHARACTER-SET-TYPEP
; compiling top level form:
; compiling DEFUN SOURCE-TRANSFORM-CHARACTER-SET-TYPEP:
; compiling top level form:
; recognizing DEFUN FIND-SUPERTYPE-PREDICATE
; compiling top level form:
; compiling DEFUN FIND-SUPERTYPE-PREDICATE:
; compiling top level form:
; recognizing DEFUN TEST-ARRAY-DIMENSIONS
; compiling top level form:
; compiling DEFUN TEST-ARRAY-DIMENSIONS:
; compiling top level form:
; recognizing DEFUN SOURCE-TRANSFORM-ARRAY-TYPEP
; compiling top level form:
; compiling DEFUN SOURCE-TRANSFORM-ARRAY-TYPEP:
; compiling top level form:
; compiling DEFTRANSFORM %INSTANCE-TYPEP:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM TYPEP:
; compiling top level form:
; compiling DEFTRANSFORM COERCE:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/typetran.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/vm-typetran.lisp" (written 02 NOV 2004 08:22:09 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; in: COMMON-LISP:LAMBDA COMMON-LISP:NIL
; '(:OR)
;
; note: deleting unreachable code
; compiling top level form:
; compiling top level form:
; compiling top level form:
; in: COMMON-LISP:LAMBDA COMMON-LISP:NIL
; '(:AND)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; compiling top level form:
; compiling top level form:
; in: COMMON-LISP:LAMBDA COMMON-LISP:NIL
; '(:OR)
;
; note: deleting unreachable code
; compiling top level form:
; compiling top level form:
; in: COMMON-LISP:LAMBDA COMMON-LISP:NIL
; '(:AND)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compilation unit finished
; printed 7 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/vm-typetran.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/float-tran.lisp" (written 21 DEC 2004 04:52:09 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM FLOAT:
; compiling top level form:
; compiling DEFTRANSFORM FLOAT:
; compiling top level form:
; compiling DEFTRANSFORM FLOAT:
; compiling top level form:
; compiling DEFTRANSFORM %SINGLE-FLOAT:
; compiling top level form:
; compiling DEFTRANSFORM %DOUBLE-FLOAT:
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling DEFTRANSFORM RANDOM:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM FLOAT-SIGN:
; compiling top level form:
; compiling DEFTRANSFORM FLOAT-SIGN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM DECODE-FLOAT:
; compiling top level form:
; compiling DEFTRANSFORM DECODE-FLOAT:
; compiling top level form:
; compiling DEFTRANSFORM INTEGER-DECODE-FLOAT:
; compiling top level form:
; compiling DEFTRANSFORM INTEGER-DECODE-FLOAT:
; compiling top level form:
; compiling DEFTRANSFORM SCALE-FLOAT:
; compiling top level form:
; compiling DEFTRANSFORM SCALE-FLOAT:
; compiling top level form:
; recognizing DEFUN FLOAT-CONTAGION-ARG1
; compiling top level form:
; compiling DEFTRANSFORM FLOAT-CONTAGION-ARG1:
; compiling top level form:
; recognizing DEFUN FLOAT-CONTAGION-ARG2
; compiling top level form:
; compiling DEFTRANSFORM FLOAT-CONTAGION-ARG2:
; compiling top level form:
; compiling DOLIST (X (QUOTE #)):
; compiling DOLIST (X (QUOTE #)):
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling DOLIST (STUFF (QUOTE #)):
; recognizing DEFUN LOG-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (LOG DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF EXP:
; compiling top level form:
; compiling DEF EXP:
; compiling top level form:
; compiling DEF LOG:
; compiling top level form:
; compiling DEF LOG:
; compiling top level form:
; compiling DEF SQRT:
; compiling top level form:
; compiling DEF SQRT:
; compiling top level form:
; compiling DEF ASIN:
; compiling top level form:
; compiling DEF ASIN:
; compiling top level form:
; compiling DEF ACOS:
; compiling top level form:
; compiling DEF ACOS:
; compiling top level form:
; compiling DEF ATAN:
; compiling top level form:
; compiling DEF ATAN:
; compiling top level form:
; compiling DEF SINH:
; compiling top level form:
; compiling DEF SINH:
; compiling top level form:
; compiling DEF COSH:
; compiling top level form:
; compiling DEF COSH:
; compiling top level form:
; compiling DEF TANH:
; compiling top level form:
; compiling DEF TANH:
; compiling top level form:
; compiling DEF ASINH:
; compiling top level form:
; compiling DEF ASINH:
; compiling top level form:
; compiling DEF ACOSH:
; compiling top level form:
; compiling DEF ACOSH:
; compiling top level form:
; compiling DEF ATANH:
; compiling top level form:
; compiling DEF ATANH:
; compiling top level form:
; compiling DEF SIN:
; compiling top level form:
; compiling DEF SIN:
; compiling top level form:
; compiling DEF COS:
; compiling top level form:
; compiling DEF COS:
; compiling top level form:
; compiling DEF TAN:
; compiling top level form:
; compiling DEF TAN:
; compiling top level form:
; compiling DEFTRANSFORM ATAN:
; compiling top level form:
; compiling DEFTRANSFORM ATAN:
; compiling top level form:
; compiling DEFTRANSFORM EXPT:
; compiling top level form:
; compiling DEFTRANSFORM EXPT:
; compiling top level form:
; compiling DEFTRANSFORM EXPT:
; compiling top level form:
; compiling DEFTRANSFORM EXPT:
; compiling top level form:
; compiling DEFTRANSFORM LOG:
; compiling top level form:
; compiling DEFTRANSFORM ABS:
; compiling top level form:
; compiling DEFTRANSFORM ABS:
; compiling top level form:
; compiling DEFTRANSFORM PHASE:
; compiling top level form:
; compiling DEFTRANSFORM PHASE:
; compiling top level form:
; compiling DEFTRANSFORM PHASE:
; compiling top level form:
; recognizing DEFUN NUMERIC-TYPE-REAL-P
; compiling top level form:
; compiling DEFUN NUMERIC-TYPE-REAL-P:
; compiling top level form:
; recognizing DEFUN COERCE-NUMERIC-BOUND
; compiling top level form:
; compiling DEFUN COERCE-NUMERIC-BOUND:
; compiling top level form:
; compiling DEFTRANSFORM REALPART:
; compiling top level form:
; compiling DEFTRANSFORM IMAGPART:
; compiling top level form:
; recognizing DEFUN REALPART-DERIVE-TYPE-AUX
; compiling top level form:
; compiling DEFUN REALPART-DERIVE-TYPE-AUX:
; compiling top level form:
; recognizing DEFUN IMAGPART-DERIVE-TYPE-AUX
; compiling top level form:
; compiling DEFUN IMAGPART-DERIVE-TYPE-AUX:
; compiling top level form:
; recognizing DEFUN COMPLEX-DERIVE-TYPE-AUX-1
; compiling top level form:
; compiling DEFUN COMPLEX-DERIVE-TYPE-AUX-1:
; compiling top level form:
; recognizing DEFUN COMPLEX-DERIVE-TYPE-AUX-2
; compiling top level form:
; compiling DEFUN COMPLEX-DERIVE-TYPE-AUX-2:
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-FROBS TRUNCATE:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-FROBS ROUND:
; compiling top level form:
; compiling DEFTRANSFORM TRUNCATE:
; compiling top level form:
; compiling DEFTRANSFORM FLOOR:
; compiling top level form:
; compiling DEFTRANSFORM CEILING:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %UNARY-FTRUNCATE/SINGLE
; compiling top level form:
; compiling DEFUN %UNARY-FTRUNCATE/SINGLE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/float-tran.lisp
; in: DEFUN %UNARY-FTRUNCATE/SINGLE
; (- EXP SB!VM:SINGLE-FLOAT-BIAS)
;
; 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).
; (= EXP SB!VM:SINGLE-FLOAT-NORMAL-EXPONENT-MAX)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (<= SB!C::BIASED 0)
; --> IF
; ==>
; (> SB!C::BIASED 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; can't tell whether the first argument is a FLOAT
; (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X))
; --> IF
; ==>
; (< SB!C::BIASED (FLOAT-DIGITS SB!C::X))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; can't tell whether the first argument is a FLOAT
; (- (FLOAT-DIGITS SB!C::X) SB!C::BIASED)
;
; note: unable to
; optimize
; due to type uncertainty:
; can't tell whether the second argument is a FLOAT
;
; note: unable to
; optimize
; due to type uncertainty:
; can't tell whether the second argument is a (COMPLEX SINGLE-FLOAT)
;
; note: unable to
; optimize
; due to type uncertainty:
; can't tell whether the second argument is a (COMPLEX DOUBLE-FLOAT)
; (- EXP SB!VM:SINGLE-FLOAT-BIAS)
;
; 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.
; can't tell whether the result is a (VALUES FIXNUM &REST T)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; can't tell whether the result is a (VALUES FIXNUM &REST T)
; etc.
; (<= SB!C::BIASED 0)
; --> IF
; ==>
; (> SB!C::BIASED 0)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; can't tell whether the first argument is a FIXNUM
; unable to do inline fixnum comparison (cost 4) because:
; can't tell whether the first argument is a FIXNUM
; etc.
; (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X))
; --> IF
; ==>
; (< SB!C::BIASED (FLOAT-DIGITS SB!C::X))
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; can't tell whether the first argument is a FIXNUM
; unable to do inline fixnum comparison (cost 4) because:
; can't tell whether the first argument is a FIXNUM
; etc.
; (- (FLOAT-DIGITS SB!C::X) SB!C::BIASED)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; can't tell whether the second argument is a FIXNUM
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 5) because:
; can't tell whether the second argument is a (SIGNED-BYTE 32)
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (ASH 1 SB!C::FRAC-BITS)
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 4) because:
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T). ..
; (- (ASH 1 SB!C::FRAC-BITS) 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.
; (LOGANDC2 SB!SYS:BITS (- (ASH 1 SB!C::FRAC-BITS) 1))
; --> LOGAND
; ==>
; (LOGNOT (- (ASH 1 SB!C::FRAC-BITS) 1))
;
; note: forced to do full call
; unable to do inline (signed-byte 32) arithmetic (cost 1) because:
; The first argument is a (INTEGER -1), not a (SIGNED-BYTE 32).
; The result is a (VALUES (INTEGER * 0)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER -1), not a FIXNUM.
; The result is a (VALUES (INTEGER * 0)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; ==>
; (LOGAND SB!SYS:BITS (LOGNOT (- (ASH 1 SB!C::FRAC-BITS) 1)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The second argument is a (INTEGER * 0), not a FIXNUM.
; The result is a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER * 0), not a (SIGNED-BYTE 32).
; The result is a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) ..)
; (* SB!C::X 0.0)
;
; note: doing float to pointer coercion (cost 13) to "", for:
; the first result of inline float arithmetic
; compiling top level form:
; recognizing DEFUN %UNARY-FTRUNCATE/DOUBLE
; compiling top level form:
; compiling DEFUN %UNARY-FTRUNCATE/DOUBLE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/float-tran.lisp
; in: DEFUN %UNARY-FTRUNCATE/DOUBLE
; (- EXP SB!VM:DOUBLE-FLOAT-BIAS)
;
; 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).
; (= EXP SB!VM:DOUBLE-FLOAT-NORMAL-EXPONENT-MAX)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (<= SB!C::BIASED 0)
; --> IF
; ==>
; (> SB!C::BIASED 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; can't tell whether the first argument is a FLOAT
; (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X))
; --> IF
; ==>
; (< SB!C::BIASED (FLOAT-DIGITS SB!C::X))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; can't tell whether the first argument is a FLOAT
; (- (FLOAT-DIGITS SB!C::X) SB!C::BIASED)
;
; note: unable to
; optimize
; due to type uncertainty:
; can't tell whether the second argument is a FLOAT
;
; note: unable to
; optimize
; due to type uncertainty:
; can't tell whether the second argument is a (COMPLEX SINGLE-FLOAT)
;
; note: unable to
; optimize
; due to type uncertainty:
; can't tell whether the second argument is a (COMPLEX DOUBLE-FLOAT)
; (< SB!C::FRAC-BITS 32)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (- SB!C::FRAC-BITS 32)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (- EXP SB!VM:DOUBLE-FLOAT-BIAS)
;
; 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.
; can't tell whether the result is a (VALUES FIXNUM &REST T)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; can't tell whether the result is a (VALUES FIXNUM &REST T)
; etc.
; (<= SB!C::BIASED 0)
; --> IF
; ==>
; (> SB!C::BIASED 0)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; can't tell whether the first argument is a FIXNUM
; unable to do inline fixnum comparison (cost 4) because:
; can't tell whether the first argument is a FIXNUM
; etc.
; (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X))
; --> IF
; ==>
; (< SB!C::BIASED (FLOAT-DIGITS SB!C::X))
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; can't tell whether the first argument is a FIXNUM
; unable to do inline fixnum comparison (cost 4) because:
; can't tell whether the first argument is a FIXNUM
; etc.
; (- (FLOAT-DIGITS SB!C::X) SB!C::BIASED)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; can't tell whether the second argument is a FIXNUM
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 5) because:
; can't tell whether the second argument is a (SIGNED-BYTE 32)
; The result is a (VALUES NUMBER
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; etc.
; (< SB!C::FRAC-BITS 32)
;
; 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.
; (ASH 1 SB!C::FRAC-BITS)
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 4) because:
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T). ..
; (- (ASH 1 SB!C::FRAC-BITS) 1)
;
; note: forced to do full call
; unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; (- SB!C::FRAC-BITS 32)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a REAL, 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 REAL, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (ASH 1 (- SB!C::FRAC-BITS 32))
;
; note: forced to do full call
; unable to do inline ASH (cost 3) because:
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline ASH (cost 4) because:
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES UNSIGNED-BYTE
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST
; T). ..
; (- (ASH 1 (- SB!C::FRAC-BITS 32)) 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.
; (LOGANDC2 SB!C::HIGH (- (ASH 1 (- SB!C::FRAC-BITS 32)) 1))
; --> LOGAND
; ==>
; (LOGNOT (- (ASH 1 (- SB!C::FRAC-BITS 32)) 1))
;
; note: forced to do full call
; unable to do inline (signed-byte 32) arithmetic (cost 1) because:
; The first argument is a (INTEGER -1), not a (SIGNED-BYTE 32).
; The result is a (VALUES (INTEGER * 0)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER -1), not a FIXNUM.
; The result is a (VALUES (INTEGER * 0)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; ==>
; (LOGAND SB!C::HIGH (LOGNOT (- (ASH 1 #) 1)))
;
; note: forced to do static-fun Two-arg-and (cost 53)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The second argument is a (INTEGER * 0), not a FIXNUM.
; The result is a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER * 0), not a (SIGNED-BYTE 32).
; The result is a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) ..)
; (* SB!C::X 0.0d0)
;
; note: doing float to pointer coercion (cost 13) to "", for:
; the first result of inline float arithmetic
; (SETF SB!C::LOW (LOGANDC2 SB!C::LOW (- (ASH 1 SB!C::FRAC-BITS) 1)))
; ==>
; (SETQ SB!C::LOW (LOGANDC2 SB!C::LOW (- (ASH 1 SB!C::FRAC-BITS) 1)))
;
; note: doing unsigned word to integer coercion (cost 20) to LOW
; compiling top level form:
; compiling DEF SINGLE-FLOAT:
; compiling top level form:
; compiling DEF DOUBLE-FLOAT:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/float-tran.lisp
; in: DEFUN %UNARY-FTRUNCATE/DOUBLE
; (THE SB!KERNEL:DOUBLE-FLOAT-EXPONENT (- EXP SB!VM:DOUBLE-FLOAT-BIAS))
;
; caught STYLE-WARNING:
; undefined type: DOUBLE-FLOAT-EXPONENT
; in: DEFUN %UNARY-FTRUNCATE/SINGLE
; (THE SB!KERNEL:SINGLE-FLOAT-EXPONENT (- EXP SB!VM:SINGLE-FLOAT-BIAS))
;
; caught STYLE-WARNING:
; undefined type: SINGLE-FLOAT-EXPONENT
;
; caught STYLE-WARNING:
; These types are undefined:
; DOUBLE-FLOAT-EXPONENT SINGLE-FLOAT-EXPONENT
;
; compilation unit finished
; caught 3 STYLE-WARNING conditions
; printed 49 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/float-tran.lisp-obj-tmp written
; compilation finished in 0:00:03
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/saptran.lisp" (written 09 SEP 2004 02:10:14 PM):
; compiling top level form:
; compiling DEFTRANSFORM FOREIGN-SYMBOL-ADDRESS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF SAP<:
; compiling top level form:
; compiling DEF SAP<=:
; compiling top level form:
; compiling DEF SAP=:
; compiling top level form:
; compiling DEF SAP>=:
; compiling top level form:
; compiling DEF SAP>:
; compiling top level form:
; compiling DEFTRANSFORM SAP+:
; compiling top level form:
; compiling DEF SAP-REF-8:
; compiling top level form:
; compiling DEF %SET-SAP-REF-8:
; compiling top level form:
; compiling DEF SIGNED-SAP-REF-8:
; compiling top level form:
; compiling DEF %SET-SIGNED-SAP-REF-8:
; compiling top level form:
; compiling DEF SAP-REF-16:
; compiling top level form:
; compiling DEF %SET-SAP-REF-16:
; compiling top level form:
; compiling DEF SIGNED-SAP-REF-16:
; compiling top level form:
; compiling DEF %SET-SIGNED-SAP-REF-16:
; compiling top level form:
; compiling DEF SAP-REF-32:
; compiling top level form:
; compiling DEF %SET-SAP-REF-32:
; compiling top level form:
; compiling DEF SIGNED-SAP-REF-32:
; compiling top level form:
; compiling DEF %SET-SIGNED-SAP-REF-32:
; compiling top level form:
; compiling DEF SAP-REF-64:
; compiling top level form:
; compiling DEF %SET-SAP-REF-64:
; compiling top level form:
; compiling DEF SIGNED-SAP-REF-64:
; compiling top level form:
; compiling DEF %SET-SIGNED-SAP-REF-64:
; compiling top level form:
; compiling DEF SAP-REF-SAP:
; compiling top level form:
; compiling DEF %SET-SAP-REF-SAP:
; compiling top level form:
; compiling DEF SAP-REF-SINGLE:
; compiling top level form:
; compiling DEF %SET-SAP-REF-SINGLE:
; compiling top level form:
; compiling DEF SAP-REF-DOUBLE:
; compiling top level form:
; compiling DEF %SET-SAP-REF-DOUBLE:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/saptran.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/srctran.lisp" (written 21 DEC 2004 04:52:09 AM):
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM NOT:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM NULL:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM ENDP:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM IDENTITY:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM VALUES:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM CONSTANTLY:
; compiling top level form:
; compiling DEFTRANSFORM COMPLEMENT:
; compiling top level form:
; recognizing DEFUN SOURCE-TRANSFORM-CXR
; compiling top level form:
; compiling DEFUN SOURCE-TRANSFORM-CXR:
; compiling top level form:
; compiling top level form:
; compiling LOOP FOR:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM FIRST:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM REST:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM SECOND:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM THIRD:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM FOURTH:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM FIFTH:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM SIXTH:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM SEVENTH:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM EIGHTH:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM NINTH:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM TENTH:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM RPLACA:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM RPLACD:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM NTH:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM NTHCDR:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM PLUSP:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM MINUSP:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM ZEROP:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM 1+:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM 1-:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM ODDP:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM EVENP:
; compiling top level form:
; compiling DEFFROB TRUNCATE:
; compiling top level form:
; compiling DEFFROB ROUND:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM LOGTEST:
; compiling top level form:
; compiling DEFTRANSFORM LOGBITP:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM BYTE:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM BYTE-SIZE:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM BYTE-POSITION:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM LDB-TEST:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM NUMERATOR:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM DENOMINATOR:
; compiling top level form:
; recognizing DEFUN SIGNED-ZERO->=
; compiling top level form:
; compiling DEF SIGNED-ZERO->=:
; compiling top level form:
; recognizing DEFUN SIGNED-ZERO->
; compiling top level form:
; compiling DEF SIGNED-ZERO->:
; compiling top level form:
; recognizing DEFUN SIGNED-ZERO-=
; compiling top level form:
; compiling DEF SIGNED-ZERO-=:
; compiling top level form:
; recognizing DEFUN SIGNED-ZERO-<
; compiling top level form:
; compiling DEF SIGNED-ZERO-<:
; compiling top level form:
; recognizing DEFUN SIGNED-ZERO-<=
; compiling top level form:
; compiling DEF SIGNED-ZERO-<=:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MAKE-INTERVAL
; compiling top level form:
; compiling DEFSTRUCT INTERVAL:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-INTERVAL
; compiling top level form:
; compiling DEFUN MAKE-INTERVAL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SET-BOUND
; compiling top level form:
; compiling DEFUN SET-BOUND:
; compiling top level form:
; recognizing DEFUN BOUND-FUNC
; compiling top level form:
(can't portably mask float traps, proceeding anyway)
; compiling DEFUN BOUND-FUNC:
; compiling top level form:
; compiling DEFMACRO BOUND-BINOP:
; compiling top level form:
; recognizing DEFUN NUMERIC-TYPE->INTERVAL
; compiling top level form:
; compiling DEFUN NUMERIC-TYPE->INTERVAL:
; compiling top level form:
; recognizing DEFUN TYPE-APPROXIMATE-INTERVAL
; compiling top level form:
; compiling DEFUN TYPE-APPROXIMATE-INTERVAL:
; compiling top level form:
; recognizing DEFUN COPY-INTERVAL-LIMIT
; compiling top level form:
; compiling DEFUN COPY-INTERVAL-LIMIT:
; compiling top level form:
; recognizing DEFUN COPY-INTERVAL
; compiling top level form:
; compiling DEFUN COPY-INTERVAL:
; compiling top level form:
; recognizing DEFUN INTERVAL-SPLIT
; compiling top level form:
; compiling DEFUN INTERVAL-SPLIT:
; compiling top level form:
; recognizing DEFUN INTERVAL-CLOSURE
; compiling top level form:
; compiling DEFUN INTERVAL-CLOSURE:
; compiling top level form:
; recognizing DEFUN INTERVAL-RANGE-INFO
; compiling top level form:
; compiling DEFUN INTERVAL-RANGE-INFO:
; compiling top level form:
; recognizing DEFUN INTERVAL-BOUNDED-P
; compiling top level form:
; compiling DEFUN INTERVAL-BOUNDED-P:
; compiling top level form:
; recognizing DEFUN INTERVAL-CONTAINS-P
; compiling top level form:
; compiling DEFUN INTERVAL-CONTAINS-P:
; compiling top level form:
; recognizing DEFUN INTERVAL-INTERSECT-P
; compiling top level form:
; compiling DEFUN INTERVAL-INTERSECT-P:
; compiling top level form:
; recognizing DEFUN INTERVAL-ADJACENT-P
; compiling top level form:
; compiling DEFUN INTERVAL-ADJACENT-P:
; compiling top level form:
; recognizing DEFUN INTERVAL-INTERSECTION/DIFFERENCE
; compiling top level form:
; compiling DEFUN INTERVAL-INTERSECTION/DIFFERENCE:
; compiling top level form:
; recognizing DEFUN INTERVAL-MERGE-PAIR
; compiling top level form:
; compiling DEFUN INTERVAL-MERGE-PAIR:
; compiling top level form:
; recognizing DEFUN INTERVAL-APPROXIMATE-UNION
; compiling top level form:
; compiling DEFUN INTERVAL-APPROXIMATE-UNION:
; compiling top level form:
; recognizing DEFUN INTERVAL-NEG
; compiling top level form:
; compiling DEFUN INTERVAL-NEG:
; compiling top level form:
; recognizing DEFUN INTERVAL-ADD
; compiling top level form:
(can't portably mask float traps, proceeding anyway)
(can't portably mask float traps, proceeding anyway)
; compiling DEFUN INTERVAL-ADD:
; compiling top level form:
; recognizing DEFUN INTERVAL-SUB
; compiling top level form:
(can't portably mask float traps, proceeding anyway)
(can't portably mask float traps, proceeding anyway)
; compiling DEFUN INTERVAL-SUB:
; compiling top level form:
; recognizing DEFUN INTERVAL-MUL
; compiling top level form:
(can't portably mask float traps, proceeding anyway)
; compiling DEFUN INTERVAL-MUL:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/srctran.lisp
; in: DEFUN INTERVAL-MUL
; (SB!INT:BUG "excluded case in INTERVAL-MUL")
; ==>
; "excluded case in INTERVAL-MUL"
;
; note: deleting unreachable code
; compiling top level form:
; recognizing DEFUN INTERVAL-DIV
; compiling top level form:
(can't portably mask float traps, proceeding anyway)
; compiling DEFUN INTERVAL-DIV:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/srctran.lisp
; in: DEFUN INTERVAL-DIV
; (SB!INT:BUG "excluded case in INTERVAL-DIV")
; ==>
; "excluded case in INTERVAL-DIV"
;
; note: deleting unreachable code
; compiling top level form:
; recognizing DEFUN INTERVAL-FUNC
; compiling top level form:
; compiling DEFUN INTERVAL-FUNC:
; compiling top level form:
; recognizing DEFUN INTERVAL-<
; compiling top level form:
; compiling DEFUN INTERVAL-<:
; compiling top level form:
; recognizing DEFUN INTERVAL->=
; compiling top level form:
; compiling DEFUN INTERVAL->=:
; compiling top level form:
; recognizing DEFUN INTERVAL-ABS
; compiling top level form:
; compiling DEFUN INTERVAL-ABS:
; compiling top level form:
; recognizing DEFUN INTERVAL-SQR
; compiling top level form:
; compiling DEFUN INTERVAL-SQR:
; compiling top level form:
; recognizing DEFUN DERIVE-INTEGER-TYPE-AUX
; compiling top level form:
; compiling DEFUN DERIVE-INTEGER-TYPE-AUX:
; compiling top level form:
; recognizing DEFUN DERIVE-INTEGER-TYPE
; compiling top level form:
; compiling DEFUN DERIVE-INTEGER-TYPE:
; compiling top level form:
; recognizing DEFUN FLATTEN-LIST
; compiling top level form:
; compiling DEFUN FLATTEN-LIST:
; compiling top level form:
; recognizing DEFUN PREPARE-ARG-FOR-DERIVE-TYPE
; compiling top level form:
; compiling DEFUN PREPARE-ARG-FOR-DERIVE-TYPE:
; compiling top level form:
; recognizing DEFUN CONVERT-NUMERIC-TYPE
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO)):
; compiling DEFUN CONVERT-NUMERIC-TYPE:
; compiling top level form:
; recognizing DEFUN CONVERT-BACK-NUMERIC-TYPE
; compiling top level form:
; compiling DEFUN CONVERT-BACK-NUMERIC-TYPE:
; compiling top level form:
; recognizing DEFUN CONVERT-BACK-NUMERIC-TYPE-LIST
; compiling top level form:
; compiling DEFUN CONVERT-BACK-NUMERIC-TYPE-LIST:
; compiling top level form:
; recognizing DEFUN MAKE-CANONICAL-UNION-TYPE
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :DOUBLE-FLOAT-NEGATIVE-ZERO)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :DOUBLE-FLOAT-NEGATIVE-ZERO)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO)):
; compiling DEFUN MAKE-CANONICAL-UNION-TYPE:
; compiling top level form:
; recognizing DEFUN CONVERT-MEMBER-TYPE
; compiling top level form:
; compiling DEFUN CONVERT-MEMBER-TYPE:
; compiling top level form:
; recognizing DEFUN ONE-ARG-DERIVE-TYPE
; compiling top level form:
(can't portably mask float traps, proceeding anyway)
; compiling DEFUN ONE-ARG-DERIVE-TYPE:
; compiling top level form:
; recognizing DEFUN TWO-ARG-DERIVE-TYPE
; compiling top level form:
(can't portably mask float traps, proceeding anyway)
; compiling DEFUN TWO-ARG-DERIVE-TYPE:
; compiling top level form:
; recognizing DEFUN +-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (+ DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN --DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (- DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN *-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (* DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN /-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (/ DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ASH-DERIVE-TYPE-AUX
; compiling top level form:
; compiling DEFUN ASH-DERIVE-TYPE-AUX:
; compiling top level form:
; recognizing DEFUN ASH-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (ASH DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %NEGATE-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%NEGATE DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOGNOT-DERIVE-TYPE-AUX
; compiling top level form:
; compiling DEFUN LOGNOT-DERIVE-TYPE-AUX:
; compiling top level form:
; recognizing DEFUN LOGNOT-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (LOGNOT DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ABS-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (ABS DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TRUNCATE-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (TRUNCATE DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NUMERIC-RANGE-INFO
; compiling top level form:
; compiling DEFUN NUMERIC-RANGE-INFO:
; compiling top level form:
; recognizing DEFUN INTEGER-TRUNCATE-DERIVE-TYPE
; compiling top level form:
; compiling DEFUN INTEGER-TRUNCATE-DERIVE-TYPE:
; compiling top level form:
; recognizing DEFUN INTEGER-REM-DERIVE-TYPE
; compiling top level form:
; compiling DEFUN INTEGER-REM-DERIVE-TYPE:
; compiling top level form:
; recognizing DEFUN RANDOM-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (RANDOM DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INTEGER-TYPE-LENGTH
; compiling top level form:
; compiling DEFUN INTEGER-TYPE-LENGTH:
; compiling top level form:
; recognizing DEFUN LOGAND-DERIVE-TYPE-AUX
; compiling top level form:
; compiling DEFUN LOGAND-DERIVE-TYPE-AUX:
; compiling top level form:
; recognizing DEFUN LOGIOR-DERIVE-TYPE-AUX
; compiling top level form:
; compiling DEFUN LOGIOR-DERIVE-TYPE-AUX:
; compiling top level form:
; recognizing DEFUN LOGXOR-DERIVE-TYPE-AUX
; compiling top level form:
; compiling DEFUN LOGXOR-DERIVE-TYPE-AUX:
; compiling top level form:
; recognizing DEFUN LOGAND-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFFROB LOGAND:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOGIOR-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFFROB LOGIOR:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOGXOR-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFFROB LOGXOR:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOGEQV-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (LOGEQV DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOGNAND-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (LOGNAND DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOGNOR-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (LOGNOR DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOGANDC1-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (LOGANDC1 DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOGANDC2-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (LOGANDC2 DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOGORC1-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (LOGORC1 DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOGORC2-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (LOGORC2 DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INTEGER-LENGTH-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (INTEGER-LENGTH DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ISQRT-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (ISQRT DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CODE-CHAR-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (CODE-CHAR DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALUES-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (VALUES DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SIGNUM-DERIVE-TYPE-AUX
; compiling top level form:
; compiling DEFUN SIGNUM-DERIVE-TYPE-AUX:
; compiling top level form:
; recognizing DEFUN SIGNUM-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (SIGNUM DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM LDB:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM DPB:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM MASK-FIELD:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM DEPOSIT-FIELD:
; compiling top level form:
; recognizing DEFUN %LDB-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%LDB DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MASK-FIELD-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%MASK-FIELD DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %DEPOSIT-FIELD-DERIVE-TYPE-AUX
; compiling top level form:
; compiling DEFUN %DEPOSIT-FIELD-DERIVE-TYPE-AUX:
; compiling top level form:
; recognizing DEFUN %DPB-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%DPB DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %DEPOSIT-FIELD-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%DEPOSIT-FIELD DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM %LDB:
; compiling top level form:
; compiling DEFTRANSFORM %MASK-FIELD:
; compiling top level form:
; compiling DEFTRANSFORM %DPB:
; compiling top level form:
; compiling DEFTRANSFORM %DPB:
; compiling top level form:
; compiling DEFTRANSFORM %DEPOSIT-FIELD:
; compiling top level form:
; compiling DEFTRANSFORM %DEPOSIT-FIELD:
; compiling top level form:
; recognizing DEFUN MASK-SIGNED-FIELD-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (MASK-SIGNED-FIELD DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-MODULAR-FUN-TYPE-DERIVER
; compiling top level form:
; compiling DEFUN MAKE-MODULAR-FUN-TYPE-DERIVER:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/srctran.lisp
; in: DEFUN MAKE-MODULAR-FUN-TYPE-DERIVER
; (FUNCALL SB!C::FUN SB!C:CALL)
; --> 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 NULL), not a FUNCTION.
; compiling top level form:
; recognizing DEFUN CUT-TO-WIDTH
; compiling top level form:
; compiling DEFUN CUT-TO-WIDTH:
; compiling top level form:
; recognizing DEFUN LOGAND-OPTIMIZER-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (LOGAND OPTIMIZER):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MASK-SIGNED-FIELD-OPTIMIZER-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (MASK-SIGNED-FIELD OPTIMIZER):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COMMUTATIVE-ARG-SWAP
; compiling top level form:
; compiling DEFTRANSFORM COMMUTATIVE-ARG-SWAP:
; compiling top level form:
; compiling DOLIST (X (QUOTE #)):
; compiling DEFTRANSFORM BOOLE:
; compiling top level form:
; compiling DEFTRANSFORM *:
; compiling top level form:
; compiling DEFTRANSFORM FLOOR:
; compiling top level form:
; compiling DEFTRANSFORM MOD:
; compiling top level form:
; compiling DEFTRANSFORM TRUNCATE:
; compiling top level form:
; compiling DEFTRANSFORM REM:
; compiling top level form:
; compiling DEF ASH:
; compiling top level form:
; compiling DEF LOGAND:
; compiling top level form:
; compiling DEF LOGAND:
; compiling top level form:
; compiling DEF LOGIOR:
; compiling top level form:
; compiling DEF LOGIOR:
; compiling top level form:
; compiling DEF LOGXOR:
; compiling top level form:
; compiling DEF LOGXOR:
; compiling top level form:
; compiling DEFTRANSFORM LOGAND:
; compiling top level form:
; compiling DEFTRANSFORM MASK-SIGNED-FIELD:
; compiling top level form:
; compiling DEFTRANSFORM -:
; compiling top level form:
; compiling DEFTRANSFORM *:
; compiling top level form:
; recognizing DEFUN NOT-MORE-CONTAGIOUS
; compiling top level form:
; compiling DEFUN NOT-MORE-CONTAGIOUS:
; compiling top level form:
; compiling DEFTRANSFORM +:
; compiling top level form:
; compiling DEFTRANSFORM -:
; compiling top level form:
; compiling DEF *:
; compiling top level form:
; compiling DEF /:
; compiling top level form:
; compiling DEF EXPT:
; compiling top level form:
; compiling DEFTRANSFORM EXPT:
; compiling top level form:
; compiling DEF ASH:
; compiling top level form:
; compiling DEF /:
; compiling top level form:
; compiling DEF TRUNCATE:
; compiling top level form:
; compiling DEF ROUND:
; compiling top level form:
; compiling DEF FLOOR:
; compiling top level form:
; compiling DEF CEILING:
; compiling top level form:
; compiling DEFTRANSFORM CHAR-EQUAL:
; compiling top level form:
; compiling DEFTRANSFORM CHAR-UPCASE:
; compiling top level form:
; compiling DEFTRANSFORM CHAR-DOWNCASE:
; compiling top level form:
; recognizing DEFUN SAME-LEAF-REF-P
; compiling top level form:
; compiling DEFUN SAME-LEAF-REF-P:
; compiling top level form:
; recognizing DEFUN SIMPLE-EQUALITY-TRANSFORM
; compiling top level form:
; compiling DEFTRANSFORM SIMPLE-EQUALITY-TRANSFORM:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM EQL:
; compiling top level form:
; compiling DEFTRANSFORM EQUAL:
; compiling top level form:
; compiling DEFTRANSFORM =:
; compiling top level form:
; recognizing DEFUN NUMERIC-TYPE-OR-LOSE
; compiling top level form:
; compiling DEFUN NUMERIC-TYPE-OR-LOSE:
; compiling top level form:
; compiling DEF <:
; compiling top level form:
; compiling DEF >:
; compiling top level form:
; compiling DEF <=:
; compiling top level form:
; compiling DEF >=:
; compiling top level form:
; recognizing DEFUN IR1-TRANSFORM-CHAR<
; compiling top level form:
; compiling DEFUN IR1-TRANSFORM-CHAR<:
; compiling top level form:
; compiling DEFTRANSFORM CHAR<:
; compiling top level form:
; compiling DEFTRANSFORM CHAR>:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MULTI-COMPARE
; compiling top level form:
; compiling DEFUN MULTI-COMPARE:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM =:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM <:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM >:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM <=:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM >=:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM CHAR=:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM CHAR<:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM CHAR>:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM CHAR<=:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM CHAR>=:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM CHAR-EQUAL:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM CHAR-LESSP:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM CHAR-GREATERP:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM CHAR-NOT-GREATERP:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM CHAR-NOT-LESSP:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MULTI-NOT-EQUAL
; compiling top level form:
; compiling DEFUN MULTI-NOT-EQUAL:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM /=:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM CHAR/=:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM CHAR-NOT-EQUAL:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM MAX:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM MIN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ASSOCIATE-ARGS
; compiling top level form:
; compiling DEFUN ASSOCIATE-ARGS:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/srctran.lisp
; in: DEFUN ASSOCIATE-ARGS
; (DEFUN SB!C::ASSOCIATE-ARGS (FUNCTION SB!C::FIRST-ARG SB!C::MORE-ARGS)
; (LET ((SB!C::NEXT #) (SB!C::ARG #))
; (IF (NULL SB!C::NEXT)
; (SB!IMPL::BACKQ-LIST FUNCTION SB!C::FIRST-ARG SB!C::ARG)
; (SB!C::ASSOCIATE-ARGS FUNCTION # SB!C::NEXT))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SB!C::ASSOCIATE-ARGS
; (FUNCTION SB!C::FIRST-ARG SB!C::MORE-ARGS)
; (BLOCK SB!C::ASSOCIATE-ARGS
; (LET (# #)
; (IF # # #))))
;
; note: type assertion too complex to check:
; (VALUES &OPTIONAL LIST &REST T).
; compiling top level form:
; recognizing DEFUN SOURCE-TRANSFORM-TRANSITIVE
; compiling top level form:
; compiling DEFUN SOURCE-TRANSFORM-TRANSITIVE:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM +:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM *:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM LOGIOR:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM LOGXOR:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM LOGAND:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM LOGEQV:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM GCD:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM LCM:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SOURCE-TRANSFORM-INTRANSITIVE
; compiling top level form:
; compiling DEFUN SOURCE-TRANSFORM-INTRANSITIVE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/srctran.lisp
; in: DEFUN SOURCE-TRANSFORM-INTRANSITIVE
; (DEFUN SB!C::SOURCE-TRANSFORM-INTRANSITIVE
; (FUNCTION SB!C::ARGS SB!C::INVERSE)
; (CASE (LENGTH SB!C::ARGS)
; ((0 2) (VALUES NIL T))
; (1 (SB!IMPL::BACKQ-APPEND SB!C::INVERSE #))
; (T (SB!C::ASSOCIATE-ARGS FUNCTION # #))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SB!C::SOURCE-TRANSFORM-INTRANSITIVE
; (FUNCTION SB!C::ARGS SB!C::INVERSE)
; (BLOCK SB!C::SOURCE-TRANSFORM-INTRANSITIVE
; (CASE (LENGTH SB!C::ARGS) (# #) (1 #) (T #))))
;
; note: type assertion too complex to check:
; (VALUES LIST &OPTIONAL (MEMBER T NIL)).
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM -:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM /:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM APPLY:
; compiling top level form:
; recognizing DEFUN CHECK-FORMAT-ARGS
; compiling top level form:
; compiling DEFUN CHECK-FORMAT-ARGS:
; compiling top level form:
; recognizing DEFUN FORMAT-OPTIMIZER-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (FORMAT OPTIMIZER):
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM FORMAT:
; compiling top level form:
; compiling DEFTRANSFORM FORMAT:
; compiling top level form:
; compiling DEFTRANSFORM FORMAT:
; compiling top level form:
; recognizing DEFUN ERROR-OPTIMIZER-OPTIMIZER
; compiling top level form:
; compiling DEF ERROR:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN WARN-OPTIMIZER-OPTIMIZER
; compiling top level form:
; compiling DEF WARN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN STYLE-WARN-OPTIMIZER-OPTIMIZER
; compiling top level form:
; compiling DEF STYLE-WARN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COMPILER-ABORT-OPTIMIZER-OPTIMIZER
; compiling top level form:
; compiling DEF COMPILER-ABORT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COMPILER-ERROR-OPTIMIZER-OPTIMIZER
; compiling top level form:
; compiling DEF COMPILER-ERROR:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COMPILER-WARN-OPTIMIZER-OPTIMIZER
; compiling top level form:
; compiling DEF COMPILER-WARN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COMPILER-STYLE-WARN-OPTIMIZER-OPTIMIZER
; compiling top level form:
; compiling DEF COMPILER-STYLE-WARN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COMPILER-NOTIFY-OPTIMIZER-OPTIMIZER
; compiling top level form:
; compiling DEF COMPILER-NOTIFY:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAYBE-COMPILER-NOTIFY-OPTIMIZER-OPTIMIZER
; compiling top level form:
; compiling DEF MAYBE-COMPILER-NOTIFY:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BUG-OPTIMIZER-OPTIMIZER
; compiling top level form:
; compiling DEF BUG:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CERROR-OPTIMIZER-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (CERROR OPTIMIZER):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COERCE-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (COERCE DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COMPILE-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (COMPILE DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ARRAY-ELEMENT-TYPE-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (ARRAY-ELEMENT-TYPE DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM SB!IMPL::SORT-VECTOR:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/srctran.lisp
; in: DEFOPTIMIZER (CERROR OPTIMIZER)
; (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING SB!C::Y SB!C::ARGS)
;
; caught STYLE-WARNING:
; undefined function: SB!FORMAT:%COMPILER-WALK-FORMAT-STRING
; in: DEFUN CHECK-FORMAT-ARGS
; (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING STRING SB!C::ARGS)
;
; caught STYLE-WARNING:
; undefined function: SB!FORMAT:%COMPILER-WALK-FORMAT-STRING
; in: DEFUN INTERVAL-MUL
; (SB!EXT:FLOAT-INFINITY-P SB!C::Y)
;
; caught STYLE-WARNING:
; undefined function: FLOAT-INFINITY-P
; in: DEFUN BOUND-FUNC
; (SB!EXT:FLOAT-INFINITY-P SB!C::Y)
;
; caught STYLE-WARNING:
; undefined function: FLOAT-INFINITY-P
; in: DEFUN TWO-ARG-DERIVE-TYPE
; (SB!EXT:FLOAT-NAN-P SB!C::RESULT)
;
; caught STYLE-WARNING:
; undefined function: FLOAT-NAN-P
;
; caught STYLE-WARNING:
; These functions are undefined:
; SB!FORMAT:%COMPILER-WALK-FORMAT-STRING FLOAT-INFINITY-P FLOAT-NAN-P
;
; compilation unit finished
; caught 6 STYLE-WARNING conditions
; printed 5 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/srctran.lisp-obj-tmp written
; compilation finished in 0:00:06
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/vm-tran.lisp" (written 21 DEC 2004 04:52:10 AM):
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM SHORT-FLOAT-P:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM LONG-FLOAT-P:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM COMPILED-FUNCTION-P:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM CHAR-INT:
; compiling top level form:
; compiling DEFTRANSFORM ABS:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM %INSTANCE-LAYOUT:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM %SET-INSTANCE-LAYOUT:
; compiling top level form:
; compiling DEFTRANSFORM HAIRY-DATA-VECTOR-REF:
; compiling top level form:
; compiling DEFTRANSFORM HAIRY-DATA-VECTOR-REF:
; compiling top level form:
; compiling DEFTRANSFORM DATA-VECTOR-REF:
; compiling top level form:
; compiling DEFTRANSFORM HAIRY-DATA-VECTOR-SET:
; compiling top level form:
; compiling DEFTRANSFORM HAIRY-DATA-VECTOR-SET:
; compiling top level form:
; compiling DEFTRANSFORM DATA-VECTOR-SET:
; compiling top level form:
; recognizing DEFUN %DATA-VECTOR-AND-INDEX-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%DATA-VECTOR-AND-INDEX DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM %DATA-VECTOR-AND-INDEX:
; compiling top level form:
; compiling DEF BIT-AND:
; compiling top level form:
; compiling DEF BIT-IOR:
; compiling top level form:
; compiling DEF BIT-XOR:
; compiling top level form:
; compiling DEF BIT-EQV:
; compiling top level form:
; compiling DEF BIT-NAND:
; compiling top level form:
; compiling DEF BIT-NOR:
; compiling top level form:
; compiling DEF BIT-ANDC1:
; compiling top level form:
; compiling DEF BIT-ANDC2:
; compiling top level form:
; compiling DEF BIT-ORC1:
; compiling top level form:
; compiling DEF BIT-ORC2:
; compiling top level form:
; compiling DEFTRANSFORM BIT-NOT:
; compiling top level form:
; compiling DEFTRANSFORM BIT-VECTOR-=:
; compiling top level form:
; compiling DEFTRANSFORM COUNT:
; compiling top level form:
; compiling DEFTRANSFORM FILL:
; compiling top level form:
; compiling DEFTRANSFORM FILL:
; compiling top level form:
; compiling DEFTRANSFORM %BYTE-BLT:
; compiling top level form:
; compiling DEFTRANSFORM EQL:
; compiling top level form:
; compiling DEFTRANSFORM EQL:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; in: COMMON-LISP:LAMBDA COMMON-LISP:NIL
; '(:OR)
;
; note: deleting unreachable code
; '(:AND)
;
; note: deleting unreachable code
; compiling top level form:
; compiling DEF SB!VM::ASH-LEFT-SMOD30:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF SB!VM::ASH-LEFT-MOD32:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM WORD-LOGICAL-NOT:
; compiling top level form:
; compiling DEFTRANSFORM WORD-LOGICAL-AND:
; compiling top level form:
; compiling DEFTRANSFORM WORD-LOGICAL-NAND:
; compiling top level form:
; compiling DEFTRANSFORM WORD-LOGICAL-OR:
; compiling top level form:
; compiling DEFTRANSFORM WORD-LOGICAL-NOR:
; compiling top level form:
; compiling DEFTRANSFORM WORD-LOGICAL-XOR:
; compiling top level form:
; compiling DEFTRANSFORM WORD-LOGICAL-EQV:
; compiling top level form:
; compiling DEFTRANSFORM WORD-LOGICAL-ORC1:
; compiling top level form:
; compiling DEFTRANSFORM WORD-LOGICAL-ORC2:
; compiling top level form:
; compiling DEFTRANSFORM WORD-LOGICAL-ANDC1:
; compiling top level form:
; compiling DEFTRANSFORM WORD-LOGICAL-ANDC2:
; compiling top level form:
; recognizing DEFUN UB32-STRENGTH-REDUCE-CONSTANT-MULTIPLY
; compiling top level form:
; compiling DEFUN UB32-STRENGTH-REDUCE-CONSTANT-MULTIPLY:
; compiling top level form:
; compilation unit finished
; printed 2 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/vm-tran.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/locall.lisp" (written 20 NOV 2004 06:36:05 AM):
; compiling top level form:
; recognizing DEFUN PROPAGATE-TO-ARGS
; compiling top level form:
; compiling DEFUN PROPAGATE-TO-ARGS:
; compiling top level form:
; recognizing DEFUN RECOGNIZE-DYNAMIC-EXTENT-LVARS
; compiling top level form:
; compiling DEFUN RECOGNIZE-DYNAMIC-EXTENT-LVARS:
; compiling top level form:
; recognizing DEFUN MERGE-TAIL-SETS
; compiling top level form:
; compiling DEFUN MERGE-TAIL-SETS:
; compiling top level form:
; recognizing DEFUN CONVERT-CALL
; compiling top level form:
; compiling DEFUN CONVERT-CALL:
; compiling top level form:
; recognizing DEFUN MAKE-XEP-LAMBDA-EXPRESSION
; compiling top level form:
; compiling DEFUN MAKE-XEP-LAMBDA-EXPRESSION:
; compiling top level form:
; recognizing DEFUN MAKE-XEP
; compiling top level form:
; compiling DEFUN MAKE-XEP:
; compiling top level form:
; recognizing DEFUN REFERENCE-ENTRY-POINT
; compiling top level form:
; compiling DEFUN REFERENCE-ENTRY-POINT:
; compiling top level form:
; recognizing DEFUN LOCALL-ANALYZE-FUN-1
; compiling top level form:
; compiling DEFUN LOCALL-ANALYZE-FUN-1:
; compiling top level form:
; recognizing DEFUN LOCALL-ANALYZE-COMPONENT
; compiling top level form:
; compiling DEFUN LOCALL-ANALYZE-COMPONENT:
; compiling top level form:
; recognizing DEFUN LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE
; compiling top level form:
; compiling DEFUN LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE:
; compiling top level form:
; recognizing DEFUN MAYBE-EXPAND-LOCAL-INLINE
; compiling top level form:
; compiling DEFUN MAYBE-EXPAND-LOCAL-INLINE:
; compiling top level form:
; recognizing DEFUN CONVERT-CALL-IF-POSSIBLE
; compiling top level form:
; compiling DEFUN CONVERT-CALL-IF-POSSIBLE:
; compiling top level form:
; recognizing DEFUN CONVERT-MV-CALL
; compiling top level form:
; compiling DEFUN CONVERT-MV-CALL:
; compiling top level form:
; recognizing DEFUN CONVERT-LAMBDA-CALL
; compiling top level form:
; compiling DEFUN CONVERT-LAMBDA-CALL:
; compiling top level form:
; recognizing DEFUN CONVERT-HAIRY-CALL
; compiling top level form:
; compiling DEFUN CONVERT-HAIRY-CALL:
; compiling top level form:
; recognizing DEFUN CONVERT-HAIRY-FUN-ENTRY
; compiling top level form:
; compiling DEFUN CONVERT-HAIRY-FUN-ENTRY:
; compiling top level form:
; recognizing DEFUN CONVERT-MORE-CALL
; compiling top level form:
; compiling DEFUN CONVERT-MORE-CALL:
; compiling top level form:
; recognizing DEFUN INSERT-LET-BODY
; compiling top level form:
; compiling DEFUN INSERT-LET-BODY:
; compiling top level form:
; recognizing DEFUN DEPART-FROM-TAIL-SET
; compiling top level form:
; compiling DEFUN DEPART-FROM-TAIL-SET:
; compiling top level form:
; recognizing DEFUN MERGE-LETS
; compiling top level form:
; compiling DEFUN MERGE-LETS:
; compiling top level form:
; recognizing DEFUN MOVE-RETURN-USES
; compiling top level form:
; compiling DEFUN MOVE-RETURN-USES:
; compiling top level form:
; recognizing DEFUN UNCONVERT-TAIL-CALLS
; compiling top level form:
; compiling DEFUN UNCONVERT-TAIL-CALLS:
; compiling top level form:
; recognizing DEFUN MOVE-RETURN-STUFF
; compiling top level form:
; compiling DEFUN MOVE-RETURN-STUFF:
; compiling top level form:
; recognizing DEFUN LET-CONVERT
; compiling top level form:
; compiling DEFUN LET-CONVERT:
; compiling top level form:
; recognizing DEFUN REOPTIMIZE-CALL
; compiling top level form:
; compiling DEFUN REOPTIMIZE-CALL:
; compiling top level form:
; recognizing DEFUN DECLARATIONS-SUPPRESS-LET-CONVERSION-P
; compiling top level form:
; compiling DEFUN DECLARATIONS-SUPPRESS-LET-CONVERSION-P:
; compiling top level form:
; recognizing DEFUN OK-INITIAL-CONVERT-P
; compiling top level form:
; compiling DEFUN OK-INITIAL-CONVERT-P:
; compiling top level form:
; recognizing DEFUN MAYBE-LET-CONVERT
; compiling top level form:
; compiling DEFUN MAYBE-LET-CONVERT:
; compiling top level form:
; recognizing DEFUN ONLY-HARMLESS-CLEANUPS
; compiling top level form:
; compiling DEFUN ONLY-HARMLESS-CLEANUPS:
; compiling top level form:
; recognizing DEFUN MAYBE-CONVERT-TAIL-LOCAL-CALL
; compiling top level form:
; compiling DEFUN MAYBE-CONVERT-TAIL-LOCAL-CALL:
; compiling top level form:
; recognizing DEFUN MAYBE-CONVERT-TO-ASSIGNMENT
; compiling top level form:
; compiling DEFUN MAYBE-CONVERT-TO-ASSIGNMENT:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/locall.lisp
; in: DEFUN INSERT-LET-BODY
; (SB!C::JOIN-COMPONENTS SB!C:COMPONENT SB!C::CLAMBDA-COMPONENT)
;
; caught STYLE-WARNING:
; undefined function: JOIN-COMPONENTS
;
; caught STYLE-WARNING:
; This function is undefined:
; JOIN-COMPONENTS
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/locall.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/dfo.lisp" (written 10 MAY 2004 05:03:00 PM):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-DFO
; compiling top level form:
; compiling DEFUN FIND-DFO:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN JOIN-COMPONENTS
; compiling top level form:
; compiling DEFUN JOIN-COMPONENTS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-DFO-AUX
; compiling top level form:
; compiling DEFUN FIND-DFO-AUX:
; compiling top level form:
; recognizing DEFUN SCAVENGE-HOME-DEPENDENCY-GRAPH
; compiling top level form:
; compiling DEFUN SCAVENGE-HOME-DEPENDENCY-GRAPH:
; compiling top level form:
; recognizing DEFUN FIND-INITIAL-DFO-AUX
; compiling top level form:
; compiling DEFUN FIND-INITIAL-DFO-AUX:
; compiling top level form:
; recognizing DEFUN FIND-REFERENCE-FUNS
; compiling top level form:
; compiling DEFUN FIND-REFERENCE-FUNS:
; compiling top level form:
; recognizing DEFUN DFO-SCAVENGE-DEPENDENCY-GRAPH
; compiling top level form:
; compiling DEFUN DFO-SCAVENGE-DEPENDENCY-GRAPH:
; compiling top level form:
; recognizing DEFUN HAS-XEP-OR-NLX
; compiling top level form:
; compiling DEFUN HAS-XEP-OR-NLX:
; compiling top level form:
; recognizing DEFUN SEPARATE-TOPLEVELISH-COMPONENTS
; compiling top level form:
; compiling DEFUN SEPARATE-TOPLEVELISH-COMPONENTS:
; compiling top level form:
; recognizing DEFUN COMPONENT-NAME-FROM-FUNCTIONAL-DEBUG-NAME
; compiling top level form:
; compiling DEFUN COMPONENT-NAME-FROM-FUNCTIONAL-DEBUG-NAME:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/dfo.lisp
; in: DEFUN COMPONENT-NAME-FROM-FUNCTIONAL-DEBUG-NAME
; (THE SIMPLE-STRING
; (IF (STRINGP SB!C::LEAF-DEBUG-NAME)
; SB!C::LEAF-DEBUG-NAME
; (SB!INT:DEBUG-NAMIFY "function " SB!C::LEAF-DEBUG-NAME)))
;
; note: type assertion too complex to check:
; (VALUES SIMPLE-STRING &REST T).
; compiling top level form:
; recognizing DEFUN FIND-INITIAL-DFO
; compiling top level form:
; compiling DEFUN FIND-INITIAL-DFO:
; compiling top level form:
; recognizing DEFUN MERGE-1-TOPLEVEL-LAMBDA
; compiling top level form:
; compiling DEFUN MERGE-1-TOPLEVEL-LAMBDA:
; compiling top level form:
; recognizing DEFUN MERGE-TOPLEVEL-LAMBDAS
; compiling top level form:
; compiling DEFUN MERGE-TOPLEVEL-LAMBDAS:
; compiling top level form:
; compilation unit finished
; printed 1 note
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/dfo.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/checkgen.lisp" (written 27 MAY 2004 06:06:48 PM):
; compiling top level form:
; recognizing DEFUN FUN-GUESSED-COST
; compiling top level form:
; compiling DEFUN FUN-GUESSED-COST:
; compiling top level form:
; recognizing DEFUN TYPE-TEST-COST
; compiling top level form:
; compiling DEFUN TYPE-TEST-COST:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN WEAKEN-TYPE-CACHE-LOOKUP
; compiling top level form:
; compiling DEFUN-CACHED (WEAKEN-TYPE :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; recognizing DEFUN WEAKEN-TYPE-CACHE-ENTER
; compiling top level form:
; compiling DEFUN-CACHED (WEAKEN-TYPE :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; recognizing DEFUN WEAKEN-TYPE-CACHE-CLEAR
; compiling top level form:
; compiling DEFUN-CACHED (WEAKEN-TYPE :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN WEAKEN-TYPE
; compiling top level form:
; compiling DEFUN-CACHED (WEAKEN-TYPE :HASH-BITS 8 :HASH-FUNCTION (LAMBDA # #)):
; compiling top level form:
; recognizing DEFUN WEAKEN-VALUES-TYPE
; compiling top level form:
; compiling DEFUN WEAKEN-VALUES-TYPE:
; compiling top level form:
; recognizing DEFUN MAYBE-WEAKEN-CHECK
; compiling top level form:
; compiling DEFUN MAYBE-WEAKEN-CHECK:
; compiling top level form:
; recognizing DEFUN NO-FUN-VALUES-TYPES
; compiling top level form:
; compiling DEFUN NO-FUN-VALUES-TYPES:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAYBE-NEGATE-CHECK
; compiling top level form:
; compiling DEFUN MAYBE-NEGATE-CHECK:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/checkgen.lisp
; in: DEFUN MAYBE-NEGATE-CHECK
; (FIND-IF #'FIRST SB!C::HAIRY-RES)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION-IF
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN CAST-CHECK-TYPES
; compiling top level form:
; compiling DEFUN CAST-CHECK-TYPES:
; compiling top level form:
; recognizing DEFUN CAST-EXTERNALLY-CHECKABLE-P
; compiling top level form:
; compiling DEFUN CAST-EXTERNALLY-CHECKABLE-P:
; compiling top level form:
; recognizing DEFUN PROBABLE-TYPE-CHECK-P
; compiling top level form:
; compiling DEFUN PROBABLE-TYPE-CHECK-P:
; compiling top level form:
; recognizing DEFUN MAKE-TYPE-CHECK-FORM
; compiling top level form:
; compiling DEFUN MAKE-TYPE-CHECK-FORM:
; compiling top level form:
; recognizing DEFUN CONVERT-TYPE-CHECK
; compiling top level form:
; compiling DEFUN CONVERT-TYPE-CHECK:
; compiling top level form:
; recognizing DEFUN CAST-CHECK-USES
; compiling top level form:
; compiling DEFUN CAST-CHECK-USES:
; compiling top level form:
; recognizing DEFUN GENERATE-TYPE-CHECKS
; compiling top level form:
; compiling DEFUN GENERATE-TYPE-CHECKS:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/checkgen.lisp
; in: DEFUN MAYBE-NEGATE-CHECK
; #'SB!C::TYPE-CHECK-TEMPLATE
;
; caught STYLE-WARNING:
; undefined function: TYPE-CHECK-TEMPLATE
; in: DEFUN TYPE-TEST-COST
; (SB!C::TYPE-CHECK-TEMPLATE TYPE)
;
; caught STYLE-WARNING:
; undefined function: TYPE-CHECK-TEMPLATE
;
; caught STYLE-WARNING:
; This function is undefined:
; TYPE-CHECK-TEMPLATE
;
; compilation unit finished
; caught 3 STYLE-WARNING conditions
; printed 2 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/checkgen.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/constraint.lisp" (written 31 OCT 2004 06:46:48 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-CONSTRAINT
; compiling top level form:
; compiling DEFSTRUCT CONSTRAINT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-CONSTRAINT
; compiling top level form:
; compiling DEFUN FIND-CONSTRAINT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN OK-REF-LAMBDA-VAR
; compiling top level form:
; compiling DEFUN OK-REF-LAMBDA-VAR:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN OK-LVAR-LAMBDA-VAR
; compiling top level form:
; compiling DEFUN OK-LVAR-LAMBDA-VAR:
; compiling top level form:
; recognizing DEFUN ADD-TEST-CONSTRAINT
; compiling top level form:
; compiling DEFUN ADD-TEST-CONSTRAINT:
; compiling top level form:
; recognizing DEFUN ADD-COMPLEMENT-CONSTRAINTS
; compiling top level form:
; compiling DEFUN ADD-COMPLEMENT-CONSTRAINTS:
; compiling top level form:
; recognizing DEFUN ADD-TEST-CONSTRAINTS
; compiling top level form:
; compiling DEFUN OK-LVAR-LAMBDA-VAR:
; compiling top level form:
; recognizing DEFUN FIND-TEST-CONSTRAINTS
; compiling top level form:
; compiling DEFUN FIND-TEST-CONSTRAINTS:
; compiling top level form:
; recognizing DEFUN INTEGER-TYPE-P
; compiling top level form:
; compiling DEFUN INTEGER-TYPE-P:
; compiling top level form:
; recognizing DEFUN CONSTRAIN-INTEGER-TYPE
; compiling top level form:
; compiling DEFUN CONSTRAIN-INTEGER-TYPE:
; compiling top level form:
; recognizing DEFUN FLOAT-TYPE-P
; compiling top level form:
; compiling DEFUN FLOAT-TYPE-P:
; compiling top level form:
; recognizing DEFUN CONSTRAIN-FLOAT-TYPE
; compiling top level form:
; compiling DEFUN CONSTRAIN-FLOAT-TYPE:
; compiling top level form:
; recognizing DEFUN CONSTRAIN-REF-TYPE
; compiling top level form:
; compiling DEFUN CONSTRAIN-REF-TYPE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CONSTRAINT-PROPAGATE-IN-BLOCK
; compiling top level form:
; compiling DEFUN CONSTRAINT-PROPAGATE-IN-BLOCK:
; compiling top level form:
; recognizing DEFUN COMPUTE-BLOCK-OUT
; compiling top level form:
; compiling DEFUN COMPUTE-BLOCK-OUT:
; compiling top level form:
; recognizing DEFUN FIND-BLOCK-TYPE-CONSTRAINTS
; compiling top level form:
; compiling DEFUN FIND-BLOCK-TYPE-CONSTRAINTS:
; compiling top level form:
; recognizing DEFUN FLOW-PROPAGATE-CONSTRAINTS
; compiling top level form:
; compiling DEFUN FLOW-PROPAGATE-CONSTRAINTS:
; compiling top level form:
; recognizing DEFUN USE-RESULT-CONSTRAINTS
; compiling top level form:
; compiling DEFUN USE-RESULT-CONSTRAINTS:
; compiling top level form:
; recognizing DEFUN INIT-VAR-CONSTRAINTS
; compiling top level form:
; compiling DEFUN INIT-VAR-CONSTRAINTS:
; compiling top level form:
; recognizing DEFUN COMPONENT-N-BLOCKS
; compiling top level form:
; compiling DEFUN COMPONENT-N-BLOCKS:
; compiling top level form:
; recognizing DEFUN CONSTRAINT-PROPAGATE
; compiling top level form:
; compiling DEFUN CONSTRAINT-PROPAGATE:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/constraint.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/physenvanal.lisp" (written 13 SEP 2004 07:40:29 AM):
; compiling top level form:
; recognizing DEFUN PHYSENV-ANALYZE
; compiling top level form:
; compiling DEFUN PHYSENV-ANALYZE:
; compiling top level form:
; recognizing DEFUN PRE-PHYSENV-ANALYZE-TOPLEVEL
; compiling top level form:
; compiling DEFUN PRE-PHYSENV-ANALYZE-TOPLEVEL:
; compiling top level form:
; recognizing DEFUN PREALLOCATE-PHYSENVS-FOR-TOPLEVELISH-LAMBDAS
; compiling top level form:
; compiling DEFUN PREALLOCATE-PHYSENVS-FOR-TOPLEVELISH-LAMBDAS:
; compiling top level form:
; recognizing DEFUN GET-LAMBDA-PHYSENV
; compiling top level form:
; compiling DEFUN GET-LAMBDA-PHYSENV:
; compiling top level form:
; recognizing DEFUN REINIT-LAMBDA-PHYSENV
; compiling top level form:
; compiling DEFUN REINIT-LAMBDA-PHYSENV:
; compiling top level form:
; recognizing DEFUN GET-NODE-PHYSENV
; compiling top level form:
; compiling DEFUN GET-NODE-PHYSENV:
; compiling top level form:
; recognizing DEFUN %ADD-LAMBDA-VARS-TO-CLOSURES
; compiling top level form:
; compiling DEFUN %ADD-LAMBDA-VARS-TO-CLOSURES:
; compiling top level form:
; recognizing DEFUN ADD-LAMBDA-VARS-AND-LET-VARS-TO-CLOSURES
; compiling top level form:
; compiling DEFUN ADD-LAMBDA-VARS-AND-LET-VARS-TO-CLOSURES:
; compiling top level form:
; recognizing DEFUN CLOSE-OVER
; compiling top level form:
; compiling DEFUN CLOSE-OVER:
; compiling top level form:
; recognizing DEFUN INSERT-NLX-ENTRY-STUB
; compiling top level form:
; compiling DEFUN INSERT-NLX-ENTRY-STUB:
; compiling top level form:
; recognizing DEFUN NOTE-NON-LOCAL-EXIT
; compiling top level form:
; compiling DEFUN NOTE-NON-LOCAL-EXIT:
; compiling top level form:
; recognizing DEFUN FIND-NON-LOCAL-EXITS
; compiling top level form:
; compiling DEFUN FIND-NON-LOCAL-EXITS:
; compiling top level form:
; recognizing DEFUN RECHECK-DYNAMIC-EXTENT-LVARS
; compiling top level form:
; compiling DEFUN RECHECK-DYNAMIC-EXTENT-LVARS:
; compiling top level form:
; recognizing DEFUN EMIT-CLEANUPS
; compiling top level form:
; compiling DEFUN EMIT-CLEANUPS:
; compiling top level form:
; recognizing DEFUN FIND-CLEANUP-POINTS
; compiling top level form:
; compiling DEFUN FIND-CLEANUP-POINTS:
; compiling top level form:
; recognizing DEFUN TAIL-ANNOTATE
; compiling top level form:
; compiling DEFUN TAIL-ANNOTATE:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/physenvanal.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/tn.lisp" (written 17 NOV 2002 02:56:58 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO DO-PACKED-TNS:
; compiling top level form:
; recognizing DEFUN SET-IR2-PHYSENV-LIVE-TNS
; compiling top level form:
; compiling DEFUN SET-IR2-PHYSENV-LIVE-TNS:
; compiling top level form:
; recognizing DEFUN SET-IR2-PHYSENV-DEBUG-LIVE-TNS
; compiling top level form:
; compiling DEFUN SET-IR2-PHYSENV-DEBUG-LIVE-TNS:
; compiling top level form:
; recognizing DEFUN SET-IR2-COMPONENT-ALIAS-TNS
; compiling top level form:
; compiling DEFUN SET-IR2-COMPONENT-ALIAS-TNS:
; compiling top level form:
; recognizing DEFUN SET-IR2-COMPONENT-NORMAL-TNS
; compiling top level form:
; compiling DEFUN SET-IR2-COMPONENT-NORMAL-TNS:
; compiling top level form:
; recognizing DEFUN SET-IR2-COMPONENT-RESTRICTED-TNS
; compiling top level form:
; compiling DEFUN SET-IR2-COMPONENT-RESTRICTED-TNS:
; compiling top level form:
; recognizing DEFUN SET-IR2-COMPONENT-WIRED-TNS
; compiling top level form:
; compiling DEFUN SET-IR2-COMPONENT-WIRED-TNS:
; compiling top level form:
; recognizing DEFUN DELETE-UNREFERENCED-TNS
; compiling top level form:
; compiling DEFUN DELETE-UNREFERENCED-TNS:
; compiling top level form:
; recognizing DEFUN MAKE-NORMAL-TN
; compiling top level form:
; compiling DEFUN MAKE-NORMAL-TN:
; compiling top level form:
; recognizing DEFUN MAKE-REPRESENTATION-TN
; compiling top level form:
; compiling DEFUN MAKE-REPRESENTATION-TN:
; compiling top level form:
; recognizing DEFUN MAKE-WIRED-TN
; compiling top level form:
; compiling DEFUN MAKE-WIRED-TN:
; compiling top level form:
; recognizing DEFUN MAKE-RESTRICTED-TN
; compiling top level form:
; compiling DEFUN MAKE-RESTRICTED-TN:
; compiling top level form:
; recognizing DEFUN PHYSENV-LIVE-TN
; compiling top level form:
; compiling DEFUN PHYSENV-LIVE-TN:
; compiling top level form:
; recognizing DEFUN PHYSENV-DEBUG-LIVE-TN
; compiling top level form:
; compiling DEFUN PHYSENV-DEBUG-LIVE-TN:
; compiling top level form:
; recognizing DEFUN COMPONENT-LIVE-TN
; compiling top level form:
; compiling DEFUN COMPONENT-LIVE-TN:
; compiling top level form:
; recognizing DEFUN SPECIFY-SAVE-TN
; compiling top level form:
; compiling DEFUN SPECIFY-SAVE-TN:
; compiling top level form:
; recognizing DEFUN MAKE-CONSTANT-TN
; compiling top level form:
; compiling DEFUN MAKE-CONSTANT-TN:
; compiling top level form:
; recognizing DEFUN MAKE-LOAD-TIME-VALUE-TN
; compiling top level form:
; compiling DEFUN MAKE-LOAD-TIME-VALUE-TN:
; compiling top level form:
; recognizing DEFUN MAKE-ALIAS-TN
; compiling top level form:
; compiling DEFUN MAKE-ALIAS-TN:
; compiling top level form:
; recognizing DEFUN MAKE-LOAD-TIME-CONSTANT-TN
; compiling top level form:
; compiling DEFUN MAKE-LOAD-TIME-CONSTANT-TN:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/tn.lisp
; in: DEFUN MAKE-LOAD-TIME-CONSTANT-TN
; (AREF SB!C::CONSTANTS SB!C::I)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling top level form:
; recognizing DEFUN REFERENCE-TN
; compiling top level form:
; compiling DEFUN REFERENCE-TN:
; compiling top level form:
; recognizing DEFUN REFERENCE-TN-LIST
; compiling top level form:
; compiling DEFUN REFERENCE-TN-LIST:
; compiling top level form:
; recognizing DEFUN DELETE-TN-REF
; compiling top level form:
; compiling DEFUN DELETE-TN-REF:
; compiling top level form:
; recognizing DEFUN CHANGE-TN-REF-TN
; compiling top level form:
; compiling DEFUN CHANGE-TN-REF-TN:
; compiling top level form:
; recognizing DEFUN EMIT-MOVE-TEMPLATE
; compiling top level form:
; compiling DEFUN EMIT-MOVE-TEMPLATE:
; compiling top level form:
; recognizing DEFUN EMIT-LOAD-TEMPLATE
; compiling top level form:
; compiling DEFUN EMIT-LOAD-TEMPLATE:
; compiling top level form:
; recognizing DEFUN EMIT-MOVE-ARG-TEMPLATE
; compiling top level form:
; compiling DEFUN EMIT-MOVE-ARG-TEMPLATE:
; compiling top level form:
; recognizing DEFUN EMIT-CONTEXT-TEMPLATE
; compiling top level form:
; compiling DEFUN EMIT-CONTEXT-TEMPLATE:
; compiling top level form:
; recognizing DEFUN BLOCK-LABEL
; compiling top level form:
; compiling DEFUN BLOCK-LABEL:
; compiling top level form:
; recognizing DEFUN DROP-THRU-P
; compiling top level form:
; compiling DEFUN DROP-THRU-P:
; compiling top level form:
; recognizing DEFUN INSERT-VOP-SEQUENCE
; compiling top level form:
; compiling DEFUN INSERT-VOP-SEQUENCE:
; compiling top level form:
; recognizing DEFUN DELETE-VOP
; compiling top level form:
; compiling DEFUN DELETE-VOP:
; compiling top level form:
; recognizing DEFUN MAKE-N-TNS
; compiling top level form:
; compiling DEFUN MAKE-N-TNS:
; compiling top level form:
; recognizing DEFUN LOCATION=
; compiling top level form:
; compiling DEFUN LOCATION=:
; compiling top level form:
; recognizing DEFUN TN-VALUE
; compiling top level form:
; compiling DEFUN TN-VALUE:
; compiling top level form:
; recognizing DEFUN FORCE-TN-TO-STACK
; compiling top level form:
; compiling DEFUN FORCE-TN-TO-STACK:
; compiling top level form:
; compilation unit finished
; printed 1 note
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/tn.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/life.lisp" (written 28 NOV 2002 07:00:55 AM):
; compiling top level form:
; recognizing DEFUN ADD-GLOBAL-CONFLICT
; compiling top level form:
; compiling DEFUN ADD-GLOBAL-CONFLICT:
; compiling top level form:
; recognizing DEFUN INSERT-BLOCK-GLOBAL-CONFLICT
; compiling top level form:
; compiling DEFUN INSERT-BLOCK-GLOBAL-CONFLICT:
; compiling top level form:
; recognizing DEFUN RESET-CURRENT-CONFLICT
; compiling top level form:
; compiling DEFUN RESET-CURRENT-CONFLICT:
; compiling top level form:
; recognizing DEFUN CONVERT-TO-GLOBAL
; compiling top level form:
; compiling DEFUN CONVERT-TO-GLOBAL:
; compiling top level form:
; recognizing DEFUN FIND-LOCAL-REFERENCES
; compiling top level form:
; compiling DEFUN FIND-LOCAL-REFERENCES:
; compiling top level form:
; recognizing DEFUN INIT-GLOBAL-CONFLICT-KIND
; compiling top level form:
; compiling DEFUN INIT-GLOBAL-CONFLICT-KIND:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SPLIT-IR2-BLOCKS
; compiling top level form:
; compiling DEFUN SPLIT-IR2-BLOCKS:
; compiling top level form:
; recognizing DEFUN CLEAR-LIFETIME-INFO
; compiling top level form:
; compiling DEFUN CLEAR-LIFETIME-INFO:
; compiling top level form:
; recognizing DEFUN COALESCE-MORE-LTN-NUMBERS
; compiling top level form:
; compiling DEFUN COALESCE-MORE-LTN-NUMBERS:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/life.lisp
; in: DEFUN COALESCE-MORE-LTN-NUMBERS
; (SB!C::FIND-IN #'SB!C::GLOBAL-CONFLICTS-NEXT-BLOCKWISE
; SB!C:TN
; (SB!C::IR2-BLOCK-GLOBAL-TNS BLOCK)
; :KEY
; #'SB!C::GLOBAL-CONFLICTS-TN)
;
; note: deleting unreachable code
; [Last message occurs 2 times.]
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LIFETIME-PRE-PASS
; compiling top level form:
; compiling DEFUN LIFETIME-PRE-PASS:
; compiling top level form:
; recognizing DEFUN SETUP-ENVIRONMENT-TN-CONFLICT
; compiling top level form:
; compiling DEFUN SETUP-ENVIRONMENT-TN-CONFLICT:
; compiling top level form:
; recognizing DEFUN SETUP-ENVIRONMENT-TN-CONFLICTS
; compiling top level form:
; compiling DEFUN SETUP-ENVIRONMENT-TN-CONFLICTS:
; compiling top level form:
; recognizing DEFUN SETUP-ENVIRONMENT-LIVE-CONFLICTS
; compiling top level form:
; compiling DEFUN SETUP-ENVIRONMENT-LIVE-CONFLICTS:
; compiling top level form:
; recognizing DEFUN CONVERT-TO-ENVIRONMENT-TN
; compiling top level form:
; compiling DEFUN CONVERT-TO-ENVIRONMENT-TN:
; compiling top level form:
; recognizing DEFUN PROPAGATE-LIVE-TNS
; compiling top level form:
; compiling DEFUN PROPAGATE-LIVE-TNS:
; compiling top level form:
; recognizing DEFUN LIFETIME-FLOW-ANALYSIS
; compiling top level form:
; compiling DEFUN LIFETIME-FLOW-ANALYSIS:
; compiling top level form:
; recognizing DEFUN NOTE-CONFLICTS
; compiling top level form:
; compiling DEFUN NOTE-CONFLICTS:
; compiling top level form:
; recognizing DEFUN COMPUTE-SAVE-SET
; compiling top level form:
; compiling DEFUN COMPUTE-SAVE-SET:
; compiling top level form:
; recognizing DEFUN SAVED-AFTER-READ
; compiling top level form:
; compiling DEFUN SAVED-AFTER-READ:
; compiling top level form:
; recognizing DEFUN MAKE-DEBUG-ENVIRONMENT-TNS-LIVE
; compiling top level form:
; compiling DEFUN MAKE-DEBUG-ENVIRONMENT-TNS-LIVE:
; compiling top level form:
; recognizing DEFUN COMPUTE-INITIAL-CONFLICTS
; compiling top level form:
; compiling DEFUN COMPUTE-INITIAL-CONFLICTS:
; compiling top level form:
; recognizing DEFUN CONFLICTIZE-SAVE-P-VOP
; compiling top level form:
; compiling DEFUN CONFLICTIZE-SAVE-P-VOP:
; compiling top level form:
; compiling DEFMACRO FROB-MORE-TNS:
; compiling top level form:
; compiling DEFMACRO SCAN-VOP-REFS:
; compiling top level form:
; compiling DEFMACRO ENSURE-RESULTS-LIVE:
; compiling top level form:
; recognizing DEFUN CONFLICT-ANALYZE-1-BLOCK
; compiling top level form:
; compiling DEFUN CONFLICT-ANALYZE-1-BLOCK:
; compiling top level form:
; recognizing DEFUN LIFETIME-POST-PASS
; compiling top level form:
; compiling DEFUN LIFETIME-POST-PASS:
; compiling top level form:
; recognizing DEFUN MERGE-ALIAS-BLOCK-CONFLICTS
; compiling top level form:
; compiling DEFUN MERGE-ALIAS-BLOCK-CONFLICTS:
; compiling top level form:
; recognizing DEFUN CHANGE-GLOBAL-CONFLICTS-TN
; compiling top level form:
; compiling DEFUN CHANGE-GLOBAL-CONFLICTS-TN:
; compiling top level form:
; recognizing DEFUN ENSURE-GLOBAL-TN
; compiling top level form:
; compiling DEFUN ENSURE-GLOBAL-TN:
; compiling top level form:
; recognizing DEFUN MERGE-ALIAS-CONFLICTS
; compiling top level form:
; compiling DEFUN MERGE-ALIAS-CONFLICTS:
; compiling top level form:
; recognizing DEFUN LIFETIME-ANALYZE
; compiling top level form:
; compiling DEFUN LIFETIME-ANALYZE:
; compiling top level form:
; recognizing DEFUN TNS-CONFLICT-LOCAL-GLOBAL
; compiling top level form:
; compiling DEFUN TNS-CONFLICT-LOCAL-GLOBAL:
; compiling top level form:
; recognizing DEFUN TNS-CONFLICT-GLOBAL-GLOBAL
; compiling top level form:
; compiling DEFUN TNS-CONFLICT-GLOBAL-GLOBAL:
; compiling top level form:
; recognizing DEFUN TNS-CONFLICT
; compiling top level form:
; compiling DEFUN TNS-CONFLICT:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/life.lisp
; in: DEFUN SPLIT-IR2-BLOCKS
; (SB!C::ADD-TO-EMIT-ORDER SB!C::NEW SB!C::2BLOCK)
;
; caught STYLE-WARNING:
; undefined function: ADD-TO-EMIT-ORDER
;
; caught STYLE-WARNING:
; This function is undefined:
; ADD-TO-EMIT-ORDER
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; printed 2 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/life.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/debug-info.lisp" (written 27 SEP 2004 02:57:33 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE T)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!KERNEL:INSTANCE)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE STRUCTURE-OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!SYS:STRUCTURE!OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-COMPILED-DEBUG-FUN
; compiling top level form:
; compiling DEF!STRUCT (COMPILED-DEBUG-FUN (:INCLUDE DEBUG-FUN)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!C::DEBUG-FUN)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-DEBUG-SOURCE
; compiling top level form:
; compiling DEF!STRUCT (DEBUG-SOURCE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-DEBUG-INFO
; compiling top level form:
; compiling DEF!STRUCT DEBUG-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-COMPILED-DEBUG-INFO
; compiling top level form:
; compiling DEF!STRUCT (COMPILED-DEBUG-INFO (:INCLUDE DEBUG-INFO)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!C::DEBUG-INFO)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/debug-info.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/debug-dump.lisp" (written 29 JUN 2004 02:13:46 PM):
; compiling top level form:
; compiling DEFTYPE BYTE-BUFFER:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTYPE LOCATION-KIND:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-LOCATION-INFO
; compiling top level form:
; compiling DEFSTRUCT LOCATION-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NOTE-DEBUG-LOCATION
; compiling top level form:
; compiling DEFUN NOTE-DEBUG-LOCATION:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR2-BLOCK-PHYSENV
; compiling top level form:
; compiling DEFUN IR2-BLOCK-PHYSENV:
; compiling top level form:
; recognizing DEFUN COMPUTE-LIVE-VARS
; compiling top level form:
; compiling DEFUN COMPUTE-LIVE-VARS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DUMP-1-LOCATION
; compiling top level form:
; compiling DEFUN DUMP-1-LOCATION:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/debug-dump.lisp
; in: DEFUN DUMP-1-LOCATION
; (SB!C::POSITION-OR-LOSE SB!C::KIND SB!C::*COMPILED-CODE-LOCATION-KINDS*)
; --> OR LET POSITION NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN DUMP-LOCATION-FROM-INFO
; compiling top level form:
; compiling DEFUN DUMP-LOCATION-FROM-INFO:
; compiling top level form:
; recognizing DEFUN FIND-TLF-NUMBER
; compiling top level form:
; compiling DEFUN FIND-TLF-NUMBER:
; compiling top level form:
; recognizing DEFUN DUMP-BLOCK-LOCATIONS
; compiling top level form:
; compiling DEFUN DUMP-BLOCK-LOCATIONS:
; compiling top level form:
; recognizing DEFUN DUMP-BLOCK-SUCCESSORS
; compiling top level form:
; compiling DEFUN DUMP-BLOCK-SUCCESSORS:
; compiling top level form:
; recognizing DEFUN COMPUTE-DEBUG-BLOCKS
; compiling top level form:
; compiling DEFUN COMPUTE-DEBUG-BLOCKS:
; compiling top level form:
; recognizing DEFUN DEBUG-SOURCE-FOR-INFO
; compiling top level form:
; compiling DEFUN DEBUG-SOURCE-FOR-INFO:
; compiling top level form:
; recognizing DEFUN COERCE-TO-SMALLEST-ELTYPE
; compiling top level form:
; compiling DEFUN COERCE-TO-SMALLEST-ELTYPE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/debug-dump.lisp
; in: DEFUN COERCE-TO-SMALLEST-ELTYPE
; (SB!INT:DOVECTOR (SB!C::I SB!C::SEQ) (SB!C::FROB SB!C::I))
; --> LET DO BLOCK LET TAGBODY TAGBODY LET AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling top level form:
; recognizing DEFUN TN-SC-OFFSET
; compiling top level form:
; compiling DEFUN TN-SC-OFFSET:
; compiling top level form:
; recognizing DEFUN DUMP-1-VAR
; compiling top level form:
; compiling DEFUN DUMP-1-VAR:
; compiling top level form:
; recognizing DEFUN COMPUTE-VARS
; compiling top level form:
; compiling DEFUN COMPUTE-VARS:
; compiling top level form:
; recognizing DEFUN COMPUTE-MINIMAL-VARS
; compiling top level form:
; compiling DEFUN COMPUTE-MINIMAL-VARS:
; compiling top level form:
; recognizing DEFUN DEBUG-LOCATION-FOR
; compiling top level form:
; compiling DEFUN DEBUG-LOCATION-FOR:
; compiling top level form:
; recognizing DEFUN COMPUTE-ARGS
; compiling top level form:
; compiling DEFUN COMPUTE-ARGS:
; compiling top level form:
; recognizing DEFUN COMPUTE-DEBUG-RETURNS
; compiling top level form:
; compiling DEFUN COMPUTE-DEBUG-RETURNS:
; compiling top level form:
; recognizing DEFUN DFUN-FROM-FUN
; compiling top level form:
; compiling DEFUN DFUN-FROM-FUN:
; compiling top level form:
; recognizing DEFUN COMPUTE-1-DEBUG-FUN
; compiling top level form:
; compiling DEFUN COMPUTE-1-DEBUG-FUN:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/debug-dump.lisp
; in: DEFUN COMPUTE-1-DEBUG-FUN
; (MAX SB!C::ACTUAL-LEVEL 2)
; --> LET
; ==>
; SB!C::ACTUAL-LEVEL
;
; note: deleting unreachable code
; compiling top level form:
; recognizing DEFUN COMPUTE-DEBUG-FUN-MAP
; compiling top level form:
; compiling DEFUN COMPUTE-DEBUG-FUN-MAP:
; compiling top level form:
; recognizing DEFUN DEBUG-INFO-FOR-COMPONENT
; compiling top level form:
; compiling DEFUN DEBUG-INFO-FOR-COMPONENT:
; compiling top level form:
; recognizing DEFUN WRITE-PACKED-BIT-VECTOR
; compiling top level form:
; compiling DEFUN WRITE-PACKED-BIT-VECTOR:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/debug-dump.lisp
; in: DEFUN COMPUTE-DEBUG-BLOCKS
; (SB!C::LABEL-ELSEWHERE-P (SB!C::LOCATION-INFO-LABEL SB!C::LOC))
;
; caught STYLE-WARNING:
; undefined function: LABEL-ELSEWHERE-P
;
; caught STYLE-WARNING:
; This function is undefined:
; LABEL-ELSEWHERE-P
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; printed 4 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/debug-dump.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/utils.lisp" (written 06 APR 2004 01:16:36 AM):
; compiling top level form:
; recognizing DEFUN FIXNUMIZE
; compiling top level form:
; compiling DEFUN FIXNUMIZE:
; compiling top level form:
; recognizing DEFUN STATIC-SYMBOL-P
; compiling top level form:
; compiling DEFUN STATIC-SYMBOL-P:
; compiling top level form:
; recognizing DEFUN STATIC-SYMBOL-OFFSET
; compiling top level form:
; compiling DEFUN STATIC-SYMBOL-OFFSET:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/utils.lisp
; in: DEFUN STATIC-SYMBOL-OFFSET
; (POSITION SYMBOL SB!VM:*STATIC-SYMBOLS*)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN OFFSET-STATIC-SYMBOL
; compiling top level form:
; compiling DEFUN OFFSET-STATIC-SYMBOL:
; compiling top level form:
; recognizing DEFUN STATIC-FUN-OFFSET
; compiling top level form:
; compiling DEFUN STATIC-FUN-OFFSET:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/utils.lisp
; in: DEFUN STATIC-FUN-OFFSET
; (POSITION SB!VM::NAME SB!VM:*STATIC-FUNS*)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO WITH-ADJUSTABLE-VECTOR:
; compiling top level form:
; compilation unit finished
; printed 4 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/utils.lisp-obj-tmp written
; compilation finished in 0:00:01
creating directory: obj/from-host/src/assembly/
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/assembly/assemfile.lisp" (written 15 MAR 2004 04:55:07 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ASSEMBLE-FILE
; compiling top level form:
; compiling DEFUN ASSEMBLE-FILE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-REG-SPEC
; compiling top level form:
; compiling DEFSTRUCT REG-SPEC:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; recognizing DEFUN REG-SPEC-SC
; compiling top level form:
; compiling DEFUN REG-SPEC-SC:
; compiling top level form:
; recognizing DEFUN PARSE-REG-SPEC
; compiling top level form:
; compiling DEFUN PARSE-REG-SPEC:
; compiling top level form:
; recognizing DEFUN EMIT-ASSEMBLE
; compiling top level form:
; compiling DEFUN EMIT-ASSEMBLE:
; compiling top level form:
; recognizing DEFUN ARG-OR-RES-SPEC
; compiling top level form:
; compiling DEFUN ARG-OR-RES-SPEC:
; compiling top level form:
; recognizing DEFUN EMIT-VOP
; compiling top level form:
; compiling DEFUN EMIT-VOP:
; compiling top level form:
; compiling DEF!MACRO DEFINE-ASSEMBLY-ROUTINE:
; compiling top level form:
; compiling DEF!MACRO DEFINE-ASSEMBLY-ROUTINE:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/assembly/assemfile.lisp
; in: DEFUN ASSEMBLE-FILE
; (SB!C::INIT-ASSEMBLER)
;
; caught STYLE-WARNING:
; undefined function: INIT-ASSEMBLER
;
; caught STYLE-WARNING:
; This function is undefined:
; INIT-ASSEMBLER
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/assembly/assemfile.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/late-vmdef.lisp" (written 21 OCT 2000 01:30:34 AM):
; compiling top level form:
; recognizing DEFUN NOTE-THIS-LOCATION
; compiling top level form:
; compiling DEFUN NOTE-THIS-LOCATION:
; compiling top level form:
; recognizing DEFUN NOTE-NEXT-INSTRUCTION
; compiling top level form:
; compiling DEFUN NOTE-NEXT-INSTRUCTION:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/late-vmdef.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/fixup.lisp" (written 20 DEC 2003 01:08:10 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-FIXUP
; compiling top level form:
; compiling DEFSTRUCT FIXUP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-FIXUP-NOTE
; compiling top level form:
; compiling DEFSTRUCT FIXUP-NOTE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NOTE-FIXUP
; compiling top level form:
; compiling DEFUN NOTE-FIXUP:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/fixup.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp" (written 27 JUL 2004 07:56:35 PM):
; compiling top level form:
; compiling top level form:
; compiling DEFTYPE REG:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN OFFSET-NEXT
; compiling top level form:
; compiling DEFUN OFFSET-NEXT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PRINT-REG-WITH-WIDTH
; compiling top level form:
; in: LAMBDA NIL
; (AREF
; (ECASE SB!VM::WIDTH
; (:BYTE SB!VM::*BYTE-REG-NAMES*)
; (:WORD SB!VM::*WORD-REG-NAMES*)
; (:DWORD SB!VM::*DWORD-REG-NAMES*))
; SB!VM::VALUE)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling DEFUN PRINT-REG-WITH-WIDTH:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFUN PRINT-REG-WITH-WIDTH
; (AREF
; (ECASE SB!VM::WIDTH
; (:BYTE SB!VM::*BYTE-REG-NAMES*)
; (:WORD SB!VM::*WORD-REG-NAMES*)
; (:DWORD SB!VM::*DWORD-REG-NAMES*))
; SB!VM::VALUE)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling top level form:
; recognizing DEFUN PRINT-REG
; compiling top level form:
; compiling DEFUN PRINT-REG:
; compiling top level form:
; recognizing DEFUN PRINT-WORD-REG
; compiling top level form:
; compiling DEFUN PRINT-WORD-REG:
; compiling top level form:
; recognizing DEFUN PRINT-BYTE-REG
; compiling top level form:
; compiling DEFUN PRINT-BYTE-REG:
; compiling top level form:
; recognizing DEFUN PRINT-ADDR-REG
; compiling top level form:
; compiling DEFUN PRINT-ADDR-REG:
; compiling top level form:
; recognizing DEFUN PRINT-REG/MEM
; compiling top level form:
; compiling DEFUN PRINT-REG/MEM:
; compiling top level form:
; recognizing DEFUN PRINT-SIZED-REG/MEM
; compiling top level form:
; compiling DEFUN PRINT-SIZED-REG/MEM:
; compiling top level form:
; recognizing DEFUN PRINT-BYTE-REG/MEM
; compiling top level form:
; compiling DEFUN PRINT-BYTE-REG/MEM:
; compiling top level form:
; recognizing DEFUN PRINT-WORD-REG/MEM
; compiling top level form:
; compiling DEFUN PRINT-WORD-REG/MEM:
; compiling top level form:
; recognizing DEFUN PRINT-LABEL
; compiling top level form:
; compiling DEFUN PRINT-LABEL:
; compiling top level form:
; recognizing DEFUN PREFILTER-REG/MEM
; compiling top level form:
; compiling DEFUN PREFILTER-REG/MEM:
; compiling top level form:
; recognizing DEFUN PREFILTER-WIDTH
; compiling top level form:
; compiling DEFUN PREFILTER-WIDTH:
; compiling top level form:
; recognizing DEFUN READ-ADDRESS
; compiling top level form:
; compiling DEFUN READ-ADDRESS:
; compiling top level form:
; recognizing DEFUN WIDTH-BITS
; compiling top level form:
; compiling DEFUN WIDTH-BITS:
; compiling top level form:
; compiling top level form:
; compiling SB!DISASSEM:DEFINE-ARG-TYPE DISPLACEMENT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling SB!DISASSEM:DEFINE-ARG-TYPE ACCUM:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling SB!DISASSEM:DEFINE-ARG-TYPE WORD-ACCUM:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling SB!DISASSEM:DEFINE-ARG-TYPE IMM-DATA:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DATA:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-BYTE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DWORD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling SB!DISASSEM:DEFINE-ARG-TYPE IMM-WORD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-WORD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling SB!DISASSEM:DEFINE-ARG-TYPE IMM-WORD-16:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PRINT-FP-REG
; compiling top level form:
; compiling DEFUN PRINT-FP-REG:
; compiling top level form:
; recognizing DEFUN PREFILTER-FP-REG
; compiling top level form:
; compiling DEFUN PREFILTER-FP-REG:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling SB!DISASSEM:DEFINE-ARG-TYPE WIDTH:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPARAMETER *CONDITION-NAME-VEC*:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CONDITIONAL-OPCODE
; compiling top level form:
; compiling DEFUN CONDITIONAL-OPCODE:
; compiling top level form:
; recognizing DEFUN SWAP-IF
; compiling top level form:
; compiling SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (NEAR-COND-JUMP 16):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (NEAR-JUMP 8 :DEFAULT-PRINTER (QUOTE #)):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EMIT-WORD
; compiling top level form:
; compiling DEFINE-BITFIELD-EMITTER EMIT-WORD:
; compiling top level form:
; recognizing DEFUN EMIT-DWORD
; compiling top level form:
; compiling DEFINE-BITFIELD-EMITTER EMIT-DWORD:
; compiling top level form:
; recognizing DEFUN EMIT-BYTE-WITH-REG
; compiling top level form:
; compiling DEFINE-BITFIELD-EMITTER EMIT-BYTE-WITH-REG:
; compiling top level form:
; recognizing DEFUN EMIT-MOD-REG-R/M-BYTE
; compiling top level form:
; compiling DEFINE-BITFIELD-EMITTER EMIT-MOD-REG-R/M-BYTE:
; compiling top level form:
; recognizing DEFUN EMIT-SIB-BYTE
; compiling top level form:
; compiling DEFINE-BITFIELD-EMITTER EMIT-SIB-BYTE:
; compiling top level form:
; recognizing DEFUN EMIT-ABSOLUTE-FIXUP
; compiling top level form:
; compiling DEFUN EMIT-ABSOLUTE-FIXUP:
; compiling top level form:
; recognizing DEFUN EMIT-RELATIVE-FIXUP
; compiling top level form:
; compiling DEFUN EMIT-RELATIVE-FIXUP:
; compiling top level form:
; recognizing DEFUN REG-TN-ENCODING
; compiling top level form:
; compiling DEFUN REG-TN-ENCODING:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-EA
; compiling top level form:
; compiling DEFSTRUCT EA:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; recognizing DEFUN EMIT-EA
; compiling top level form:
; compiling DEFUN EMIT-EA:
; compiling top level form:
; recognizing DEFUN FP-REG-TN-P
; compiling top level form:
; compiling DEFUN FP-REG-TN-P:
; compiling top level form:
; recognizing DEFUN EMIT-FP-OP
; compiling top level form:
; compiling DEFUN EMIT-FP-OP:
; compiling top level form:
; recognizing DEFUN BYTE-REG-P
; compiling top level form:
; compiling DEFUN BYTE-REG-P:
; compiling top level form:
; recognizing DEFUN BYTE-EA-P
; compiling top level form:
; compiling DEFUN BYTE-EA-P:
; compiling top level form:
; recognizing DEFUN WORD-REG-P
; compiling top level form:
; compiling DEFUN WORD-REG-P:
; compiling top level form:
; recognizing DEFUN WORD-EA-P
; compiling top level form:
; compiling DEFUN WORD-EA-P:
; compiling top level form:
; recognizing DEFUN DWORD-REG-P
; compiling top level form:
; compiling DEFUN DWORD-REG-P:
; compiling top level form:
; recognizing DEFUN DWORD-EA-P
; compiling top level form:
; compiling DEFUN DWORD-EA-P:
; compiling top level form:
; recognizing DEFUN REGISTER-P
; compiling top level form:
; compiling DEFUN REGISTER-P:
; compiling top level form:
; recognizing DEFUN ACCUMULATOR-P
; compiling top level form:
; compiling DEFUN ACCUMULATOR-P:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAYBE-EMIT-OPERAND-SIZE-PREFIX
; compiling top level form:
; compiling DEFUN MAYBE-EMIT-OPERAND-SIZE-PREFIX:
; compiling top level form:
; recognizing DEFUN OPERAND-SIZE
; compiling top level form:
; compiling DEFUN OPERAND-SIZE:
; compiling top level form:
; recognizing DEFUN MATCHING-OPERAND-SIZE
; compiling top level form:
; compiling DEFUN MATCHING-OPERAND-SIZE:
; compiling top level form:
; recognizing DEFUN EMIT-SIZED-IMMEDIATE
; compiling top level form:
; compiling DEFUN EMIT-SIZED-IMMEDIATE:
; compiling top level form:
; recognizing DEFUN MOV-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION MOV:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--MOV[(REG ((OP 11) (IMM NIL TYPE 'IMM-DATA)) '(NAME TAB REG , IMM))]-REG-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION MOV:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--MOV[(REG ((OP 11) (IMM NIL TYPE 'IMM-DATA)) '(NAME TAB REG , IMM))]-REG-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION MOV:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION MOV
; (SB!ASSEM:DEFINE-INSTRUCTION SB!VM::MOV
; (SB!ASSEM:SEGMENT SB!VM::DST SB!VM::SRC)
; (:PRINTER SB!VM::REG
; ((SB!VM::OP 11)
; (SB!VM::IMM NIL
; :TYPE
; 'SB!VM::IMM-DATA))
; '(:NAME :TAB
; SB!VM::REG
; ", "
; SB!VM::IMM))
; (:PRINTER SB!VM::SIMPLE-DIR ..))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK FLET BLOCK FUNCALL 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 top level form:
; recognizing DEFUN |CACHED-FUN--MOV[(SIMPLE-DIR ((OP 40) (IMM NIL TYPE 'IMM-ADDR))
(BACKQ-LIST 'NAME 'TAB (SWAP-IF 'DIR 'ACCUM , '([ IMM ]))))]-SIMPLE-DIR-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION MOV:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION MOV
; (SB!ASSEM:DEFINE-INSTRUCTION SB!VM::MOV
; (SB!ASSEM:SEGMENT SB!VM::DST SB!VM::SRC)
; (:PRINTER SB!VM::REG
; ((SB!VM::OP 11)
; (SB!VM::IMM NIL
; :TYPE
; 'SB!VM::IMM-DATA))
; '(:NAME :TAB
; SB!VM::REG
; ", "
; SB!VM::IMM))
; (:PRINTER SB!VM::SIMPLE-DIR ..))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MACROLET FLET BLOCK FUNCALL
; --> 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.
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MACROLET FLET LET* COND IF COND IF
; --> PROGN PROGN SB!DISASSEM::LOCAL-CALL-ARG-PRINTER BLOCK FUNCALL
; --> 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 top level form:
; recognizing DEFUN |CACHED-FUN--MOV[(SIMPLE-DIR ((OP 40) (IMM NIL TYPE 'IMM-ADDR))
(BACKQ-LIST 'NAME 'TAB (SWAP-IF 'DIR 'ACCUM , '([ IMM ]))))]-SIMPLE-DIR-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION MOV:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--MOV[(REG-REG/MEM-DIR ((OP 34)))]-REG-REG/MEM-DIR-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION MOV:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--MOV[(REG-REG/MEM-DIR ((OP 34)))]-REG-REG/MEM-DIR-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION MOV:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--MOV[(REG/MEM-IMM ((OP '(99 0))))]-REG/MEM-IMM-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION MOV:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--MOV[(REG/MEM-IMM ((OP '(99 0))))]-REG/MEM-IMM-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION MOV:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION MOV
; (SB!ASSEM:DEFINE-INSTRUCTION SB!VM::MOV
; (SB!ASSEM:SEGMENT SB!VM::DST SB!VM::SRC)
; (:PRINTER SB!VM::REG
; ((SB!VM::OP 11)
; (SB!VM::IMM NIL
; :TYPE
; 'SB!VM::IMM-DATA))
; '(:NAME :TAB
; SB!VM::REG
; ", "
; SB!VM::IMM))
; (:PRINTER SB!VM::SIMPLE-DIR ..))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK FLET BLOCK FUNCALL 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 top level form:
; compiling top level form:
; recognizing DEFUN EMIT-MOVE-WITH-EXTENSION
; compiling top level form:
; compiling DEFUN EMIT-MOVE-WITH-EXTENSION:
; compiling top level form:
; recognizing DEFUN MOVSX-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION MOVSX:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--MOVSX[(EXT-REG-REG/MEM ((OP 95) (REG NIL TYPE 'WORD-REG)))]-EXT-REG-REG/MEM-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION MOVSX:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--MOVSX[(EXT-REG-REG/MEM ((OP 95) (REG NIL TYPE 'WORD-REG)))]-EXT-REG-REG/MEM-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION MOVSX:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MOVZX-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION MOVZX:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PUSH-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION PUSH:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--PUSH[(REG-NO-WIDTH ((OP 10)))]-REG-NO-WIDTH-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION PUSH:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--PUSH[(REG/MEM ((OP '(127 6)) (WIDTH 1)))]-REG/MEM-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION PUSH:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--PUSH[(BYTE ((OP 106) (IMM NIL TYPE 'SIGNED-IMM-BYTE)) '(NAME TAB IMM))]-BYTE-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION PUSH:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--PUSH[(BYTE ((OP 106) (IMM NIL TYPE 'SIGNED-IMM-BYTE)) '(NAME TAB IMM))]-BYTE-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION PUSH:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION PUSH
; (SB!ASSEM:DEFINE-INSTRUCTION PUSH
; (SB!ASSEM:SEGMENT SB!VM::SRC)
; (:PRINTER SB!VM::REG-NO-WIDTH ((SB!VM::OP 10)))
; (:PRINTER SB!VM::REG/MEM
; ((SB!VM::OP '#) (SB!VM::WIDTH 1)))
; (:PRINTER SB-XC:BYTE
; ((SB!VM::OP 106)
; (SB!VM::IMM NIL
; :TYPE
; 'SB!VM::SIGNED-IMM-BYTE))
; '(:NAME :TAB SB!VM::IMM))
; (:PRINTER SB-XC:BYTE ..))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK FLET BLOCK FUNCALL 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 top level form:
; recognizing DEFUN |CACHED-FUN--PUSH[(BYTE ((OP 104) (IMM NIL TYPE 'IMM-WORD)) '(NAME TAB IMM))]-BYTE-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION PUSH:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--PUSH[(BYTE ((OP 104) (IMM NIL TYPE 'IMM-WORD)) '(NAME TAB IMM))]-BYTE-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION PUSH:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION PUSH
; (SB!ASSEM:DEFINE-INSTRUCTION PUSH
; (SB!ASSEM:SEGMENT SB!VM::SRC)
; (:PRINTER SB!VM::REG-NO-WIDTH ((SB!VM::OP 10)))
; (:PRINTER SB!VM::REG/MEM
; ((SB!VM::OP '#) (SB!VM::WIDTH 1)))
; (:PRINTER SB-XC:BYTE
; ((SB!VM::OP 106)
; (SB!VM::IMM NIL
; :TYPE
; 'SB!VM::SIGNED-IMM-BYTE))
; '(:NAME :TAB SB!VM::IMM))
; (:PRINTER SB-XC:BYTE ..))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK FLET BLOCK FUNCALL 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 top level form:
; compiling top level form:
; recognizing DEFUN PUSHA-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION PUSHA:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--PUSHA[(BYTE ((OP 96)))]-BYTE-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION PUSHA:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN POP-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION POP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN POPA-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION POPA:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN XCHG-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION XCHG:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--XCHG[(REG-NO-WIDTH ((OP 18)) '(NAME TAB ACCUM , REG))]-REG-NO-WIDTH-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION XCHG:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION XCHG
; (SB!ASSEM:DEFINE-INSTRUCTION SB!VM::XCHG
; (SB!ASSEM:SEGMENT SB!VM::OPERAND1
; SB!VM::OPERAND2)
; (:PRINTER SB!VM::REG-NO-WIDTH
; ((SB!VM::OP 18))
; '(:NAME :TAB
; SB!VM::ACCUM
; ", "
; SB!VM::REG))
; (:PRINTER SB!VM::REG-REG/MEM ((SB!VM::OP 67)))
; (:EMITTER
; (LET (#) ..)))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MACROLET FLET BLOCK FUNCALL
; --> 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 top level form:
; recognizing DEFUN |CACHED-FUN--XCHG[(REG-REG/MEM ((OP 67)))]-REG-REG/MEM-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION XCHG:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LEA-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION LEA:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CMPXCHG-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION CMPXCHG:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--CMPXCHG[(EXT-REG-REG/MEM ((OP 88)) '(NAME TAB REG/MEM , REG))]-EXT-REG-REG/MEM-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION CMPXCHG:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FS-SEGMENT-PREFIX-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FS-SEGMENT-PREFIX:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CLC-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION CLC:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CLD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION CLD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CLI-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION CLI:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CMC-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION CMC:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LAHF-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION LAHF:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN POPF-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION POPF:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PUSHF-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION PUSHF:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SAHF-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION SAHF:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN STC-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION STC:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN STD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION STD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN STI-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION STI:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EMIT-RANDOM-ARITH-INST
; compiling top level form:
; compiling DEFUN EMIT-RANDOM-ARITH-INST:
; compiling top level form:
; recognizing DEFUN ARITH-INST-PRINTER-LIST
; recognizing DEFUN ADD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION ADD:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--ADD[(ACCUM-IMM ((OP 2)))]-ACCUM-IMM-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION ADD:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION ADD
; (SB!ASSEM:DEFINE-INSTRUCTION SB!VM::ADD
; (SB!ASSEM:SEGMENT SB!VM::DST SB!VM::SRC)
; (:PRINTER-LIST
; (SB!VM::ARITH-INST-PRINTER-LIST 0))
; (:EMITTER
; (SB!VM::EMIT-RANDOM-ARITH-INST "ADD"
; SB!ASSEM:SEGMENT
; SB!VM::DST
; SB!VM::SRC
; 0)))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MACROLET FLET BLOCK FUNCALL
; --> 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 top level form:
; recognizing DEFUN |CACHED-FUN--ADD[(ACCUM-IMM ((OP 2)))]-ACCUM-IMM-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION ADD:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION ADD
; (SB!ASSEM:DEFINE-INSTRUCTION SB!VM::ADD
; (SB!ASSEM:SEGMENT SB!VM::DST SB!VM::SRC)
; (:PRINTER-LIST
; (SB!VM::ARITH-INST-PRINTER-LIST 0))
; (:EMITTER
; (SB!VM::EMIT-RANDOM-ARITH-INST "ADD"
; SB!ASSEM:SEGMENT
; SB!VM::DST
; SB!VM::SRC
; 0)))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK FLET BLOCK FUNCALL 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 top level form:
; recognizing DEFUN |CACHED-FUN--ADD[(REG/MEM-IMM ((OP (65 0)) (IMM NIL TYPE SIGNED-IMM-BYTE)))]-REG/MEM-IMM-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION ADD:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION ADD
; (SB!ASSEM:DEFINE-INSTRUCTION SB!VM::ADD
; (SB!ASSEM:SEGMENT SB!VM::DST SB!VM::SRC)
; (:PRINTER-LIST
; (SB!VM::ARITH-INST-PRINTER-LIST 0))
; (:EMITTER
; (SB!VM::EMIT-RANDOM-ARITH-INST "ADD"
; SB!ASSEM:SEGMENT
; SB!VM::DST
; SB!VM::SRC
; 0)))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK FLET BLOCK FUNCALL 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 top level form:
; compiling top level form:
; recognizing DEFUN ADC-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION ADC:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SUB-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION SUB:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SBB-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION SBB:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CMP-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION CMP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INC-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION INC:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DEC-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION DEC:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NEG-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION NEG:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN AAA-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION AAA:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN AAS-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION AAS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DAA-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION DAA:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DAS-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION DAS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MUL-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION MUL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--MUL[(ACCUM-REG/MEM ((OP '(123 4))))]-ACCUM-REG/MEM-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION MUL:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION MUL
; (SB!ASSEM:DEFINE-INSTRUCTION SB!VM::MUL
; (SB!ASSEM:SEGMENT SB!VM::DST SB!VM::SRC)
; (:PRINTER SB!VM::ACCUM-REG/MEM ((SB!VM::OP '#)))
; (:EMITTER
; (LET (#)
; (SB!INT:AVER #)
; (SB!VM::MAYBE-EMIT-OPERAND-SIZE-PREFIX
; SB!ASSEM:SEGMENT
; SB!VM::SIZE)
; (SB!ASSEM:EMIT-BYTE SB!ASSEM:SEGMENT #)
; (SB!VM::EMIT-EA SB!ASSEM:SEGMENT
; SB!VM::SRC ..))))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MACROLET FLET BLOCK FUNCALL
; --> 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 top level form:
; compiling top level form:
; recognizing DEFUN IMUL-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION IMUL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--IMUL[(EXT-REG-REG/MEM ((OP 87)))]-EXT-REG-REG/MEM-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION IMUL:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--IMUL[(REG-REG/MEM ((OP 52) (WIDTH 1) (IMM NIL TYPE 'SIGNED-IMM-WORD))
'(NAME TAB REG , REG/MEM ...))]-REG-REG/MEM-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION IMUL:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--IMUL[(REG-REG/MEM ((OP 52) (WIDTH 1) (IMM NIL TYPE 'SIGNED-IMM-WORD))
'(NAME TAB REG , REG/MEM ...))]-REG-REG/MEM-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION IMUL:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION IMUL
; (SB!ASSEM:DEFINE-INSTRUCTION SB!VM::IMUL
; (SB!ASSEM:SEGMENT SB!VM::DST
; &OPTIONAL
; SB!VM::SRC1
; SB!VM::SRC2)
; (:PRINTER SB!VM::ACCUM-REG/MEM ((SB!VM::OP '#)))
; (:PRINTER SB!VM::EXT-REG-REG/MEM
; ((SB!VM::OP 87)))
; (:PRINTER SB!VM::REG-REG/MEM
; ((SB!VM::OP 52) (SB!VM::WIDTH 1)
; (SB!VM::IMM NIL
; :TYPE ..))))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK FLET BLOCK FUNCALL 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 top level form:
; recognizing DEFUN |CACHED-FUN--IMUL[(REG-REG/MEM ((OP 53) (WIDTH 1) (IMM NIL TYPE 'SIGNED-IMM-BYTE))
'(NAME TAB REG , REG/MEM ...))]-REG-REG/MEM-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION IMUL:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--IMUL[(REG-REG/MEM ((OP 53) (WIDTH 1) (IMM NIL TYPE 'SIGNED-IMM-BYTE))
'(NAME TAB REG , REG/MEM ...))]-REG-REG/MEM-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION IMUL:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION IMUL
; (SB!ASSEM:DEFINE-INSTRUCTION SB!VM::IMUL
; (SB!ASSEM:SEGMENT SB!VM::DST
; &OPTIONAL
; SB!VM::SRC1
; SB!VM::SRC2)
; (:PRINTER SB!VM::ACCUM-REG/MEM ((SB!VM::OP '#)))
; (:PRINTER SB!VM::EXT-REG-REG/MEM
; ((SB!VM::OP 87)))
; (:PRINTER SB!VM::REG-REG/MEM
; ((SB!VM::OP 52) (SB!VM::WIDTH 1)
; (SB!VM::IMM NIL
; :TYPE ..))))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK FLET BLOCK FUNCALL 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 top level form:
; compiling top level form:
; recognizing DEFUN DIV-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION DIV:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IDIV-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION IDIV:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN AAD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION AAD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN AAM-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION AAM:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CBW-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION CBW:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CWDE-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION CWDE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CWD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION CWD:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CDQ-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION CDQ:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN XADD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION XADD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EMIT-SHIFT-INST
; compiling top level form:
; compiling DEFUN EMIT-SHIFT-INST:
; compiling top level form:
; recognizing DEFUN SHIFT-INST-PRINTER-LIST
; recognizing DEFUN ROL-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION ROL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--ROL[(REG/MEM ((OP (104 0))) (NAME TAB REG/MEM , 1))]-REG/MEM-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION ROL:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--ROL[(REG/MEM ((OP (105 0))) (NAME TAB REG/MEM , 'CL))]-REG/MEM-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION ROL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ROR-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION ROR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN RCL-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION RCL:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN RCR-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION RCR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SHL-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION SHL:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SHR-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION SHR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SAR-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION SAR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EMIT-DOUBLE-SHIFT
; compiling top level form:
; compiling DEFUN EMIT-DOUBLE-SHIFT:
; compiling top level form:
; recognizing DEFUN DOUBLE-SHIFT-INST-PRINTER-LIST
; recognizing DEFUN SHLD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION SHLD:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--SHLD[(EXT-REG-REG/MEM ((OP 165)) (NAME TAB REG/MEM , 'CL))]-EXT-REG-REG/MEM-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION SHLD:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SHRD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION SHRD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN AND-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION AND:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TEST-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION TEST:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN OR-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION OR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN XOR-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION XOR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NOT-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION NOT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CMPS-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION CMPS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--CMPS[(STRING-OP ((OP 83)))]-STRING-OP-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION CMPS:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION CMPS
; (SB!ASSEM:DEFINE-INSTRUCTION SB!VM::CMPS
; (SB!ASSEM:SEGMENT SB!VM::SIZE)
; (:PRINTER SB!VM::STRING-OP ((SB!VM::OP 83)))
; (:EMITTER
; (SB!VM::MAYBE-EMIT-OPERAND-SIZE-PREFIX
; SB!ASSEM:SEGMENT
; SB!VM::SIZE)
; (SB!ASSEM:EMIT-BYTE SB!ASSEM:SEGMENT
; (IF # 166 167))))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MACROLET FLET BLOCK FUNCALL
; --> 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 top level form:
; recognizing DEFUN |CACHED-FUN--CMPS[(STRING-OP ((OP 83)))]-STRING-OP-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION CMPS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INS-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION INS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LODS-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION LODS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MOVS-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION MOVS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN OUTS-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION OUTS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SCAS-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION SCAS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN STOS-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION STOS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN XLAT-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION XLAT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN REP-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION REP:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN REPE-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION REPE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN REPNE-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION REPNE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BSF-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION BSF:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BSR-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION BSR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EMIT-BIT-TEST-AND-MUMBLE
; compiling top level form:
; compiling DEFUN EMIT-BIT-TEST-AND-MUMBLE:
; compiling top level form:
; recognizing DEFUN BIT-TEST-INST-PRINTER-LIST
; recognizing DEFUN BT-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION BT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--BT[(EXT-REG/MEM-IMM
((OP (93 4)) (REG/MEM NIL TYPE WORD-REG/MEM) (IMM NIL TYPE IMM-DATA)
(WIDTH 0)))]-EXT-REG/MEM-IMM-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION BT:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--BT[(EXT-REG/MEM-IMM
((OP (93 4)) (REG/MEM NIL TYPE WORD-REG/MEM) (IMM NIL TYPE IMM-DATA)
(WIDTH 0)))]-EXT-REG/MEM-IMM-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION BT:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION BT
; (SB!ASSEM:DEFINE-INSTRUCTION SB!VM::BT
; (SB!ASSEM:SEGMENT SB!VM::SRC SB!INT:INDEX)
; (:PRINTER-LIST
; (SB!VM::BIT-TEST-INST-PRINTER-LIST 4))
; (:EMITTER
; (SB!VM::EMIT-BIT-TEST-AND-MUMBLE
; SB!ASSEM:SEGMENT
; SB!VM::SRC
; SB!INT:INDEX
; 4)))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK FLET BLOCK FUNCALL 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 top level form:
; compiling top level form:
; recognizing DEFUN BTC-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION BTC:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BTR-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION BTR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BTS-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION BTS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CALL-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION CALL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--CALL[(NEAR-JUMP ((OP 232)))]-NEAR-JUMP-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION CALL:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION CALL
; (SB!ASSEM:DEFINE-INSTRUCTION SB!C:CALL
; (SB!ASSEM:SEGMENT SB!VM::WHERE)
; (:PRINTER SB!VM::NEAR-JUMP ((SB!VM::OP 232)))
; (:PRINTER SB!VM::REG/MEM
; ((SB!VM::OP '#) (SB!VM::WIDTH 1)))
; (:EMITTER
; (TYPECASE SB!VM::WHERE
; (SB!ASSEM:LABEL # #)
; (SB!C:FIXUP # #)
; (T # #))))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MACROLET FLET BLOCK FUNCALL
; --> 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 top level form:
; recognizing DEFUN |CACHED-FUN--LABELLER-CALL[(NEAR-JUMP ((OP 232)))]|
; compiling top level form:
; compiling DEFINE-INSTRUCTION CALL:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--CALL[(NEAR-JUMP ((OP 232)))]-NEAR-JUMP-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION CALL:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION CALL
; (SB!ASSEM:DEFINE-INSTRUCTION SB!C:CALL
; (SB!ASSEM:SEGMENT SB!VM::WHERE)
; (:PRINTER SB!VM::NEAR-JUMP ((SB!VM::OP 232)))
; (:PRINTER SB!VM::REG/MEM
; ((SB!VM::OP '#) (SB!VM::WIDTH 1)))
; (:EMITTER
; (TYPECASE SB!VM::WHERE
; (SB!ASSEM:LABEL # #)
; (SB!C:FIXUP # #)
; (T # #))))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK FLET BLOCK FUNCALL 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 top level form:
; compiling top level form:
; recognizing DEFUN EMIT-BYTE-DISPLACEMENT-BACKPATCH
; compiling top level form:
; compiling DEFUN EMIT-BYTE-DISPLACEMENT-BACKPATCH:
; compiling top level form:
; recognizing DEFUN JMP-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION JMP:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--JMP[(SHORT-COND-JUMP ((OP 7)) '('J CC TAB LABEL))]-SHORT-COND-JUMP-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION JMP:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION JMP
; (SB!ASSEM:DEFINE-INSTRUCTION SB!VM::JMP
; (SB!ASSEM:SEGMENT COND &OPTIONAL SB!VM::WHERE)
; (:PRINTER SB!VM::SHORT-COND-JUMP
; ((SB!VM::OP 7))
; '('SB!VM::J SB!VM::CC :TAB
; SB!ASSEM:LABEL))
; (:PRINTER SB!VM::NEAR-COND-JUMP
; NIL
; '('SB!VM::J SB!VM::CC :TAB
; SB!ASSEM:LABEL))
; (:PRINTER SB!VM::SHORT-JUMP ((SB!VM::OP 11)))
; (:PRINTER SB!VM::NEAR-JUMP ((SB!VM::OP 233))) ..)
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MACROLET FLET BLOCK FUNCALL
; --> 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.
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MACROLET FLET LET*
; --> SB!DISASSEM::LOCAL-PRINC AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--LABELLER-JMP[(SHORT-COND-JUMP ((OP 7)) '('J CC TAB LABEL))]|
; compiling top level form:
; compiling DEFINE-INSTRUCTION JMP:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--JMP[(NEAR-COND-JUMP NIL '('J CC TAB LABEL))]-NEAR-COND-JUMP-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION JMP:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION JMP
; (SB!ASSEM:DEFINE-INSTRUCTION SB!VM::JMP
; (SB!ASSEM:SEGMENT COND &OPTIONAL SB!VM::WHERE)
; (:PRINTER SB!VM::SHORT-COND-JUMP
; ((SB!VM::OP 7))
; '('SB!VM::J SB!VM::CC :TAB
; SB!ASSEM:LABEL))
; (:PRINTER SB!VM::NEAR-COND-JUMP
; NIL
; '('SB!VM::J SB!VM::CC :TAB
; SB!ASSEM:LABEL))
; (:PRINTER SB!VM::SHORT-JUMP ((SB!VM::OP 11)))
; (:PRINTER SB!VM::NEAR-JUMP ((SB!VM::OP 233))) ..)
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MACROLET FLET BLOCK FUNCALL
; --> 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.
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MACROLET FLET LET*
; --> SB!DISASSEM::LOCAL-PRINC AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--LABELLER-JMP[(NEAR-COND-JUMP NIL '('J CC TAB LABEL))]|
; compiling top level form:
; compiling DEFINE-INSTRUCTION JMP:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--JMP[(NEAR-COND-JUMP NIL '('J CC TAB LABEL))]-NEAR-COND-JUMP-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION JMP:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION JMP
; (SB!ASSEM:DEFINE-INSTRUCTION SB!VM::JMP
; (SB!ASSEM:SEGMENT COND &OPTIONAL SB!VM::WHERE)
; (:PRINTER SB!VM::SHORT-COND-JUMP
; ((SB!VM::OP 7))
; '('SB!VM::J SB!VM::CC :TAB
; SB!ASSEM:LABEL))
; (:PRINTER SB!VM::NEAR-COND-JUMP
; NIL
; '('SB!VM::J SB!VM::CC :TAB
; SB!ASSEM:LABEL))
; (:PRINTER SB!VM::SHORT-JUMP ((SB!VM::OP 11)))
; (:PRINTER SB!VM::NEAR-JUMP ((SB!VM::OP 233))) ..)
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK FLET BLOCK FUNCALL 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 top level form:
; recognizing DEFUN |CACHED-FUN--JMP[(SHORT-JUMP ((OP 11)))]-SHORT-JUMP-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION JMP:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION JMP
; (SB!ASSEM:DEFINE-INSTRUCTION SB!VM::JMP
; (SB!ASSEM:SEGMENT COND &OPTIONAL SB!VM::WHERE)
; (:PRINTER SB!VM::SHORT-COND-JUMP
; ((SB!VM::OP 7))
; '('SB!VM::J SB!VM::CC :TAB
; SB!ASSEM:LABEL))
; (:PRINTER SB!VM::NEAR-COND-JUMP
; NIL
; '('SB!VM::J SB!VM::CC :TAB
; SB!ASSEM:LABEL))
; (:PRINTER SB!VM::SHORT-JUMP ((SB!VM::OP 11)))
; (:PRINTER SB!VM::NEAR-JUMP ((SB!VM::OP 233))) ..)
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MACROLET FLET BLOCK FUNCALL
; --> 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 top level form:
; recognizing DEFUN |CACHED-FUN--LABELLER-JMP[(SHORT-JUMP ((OP 11)))]|
; compiling top level form:
; compiling DEFINE-INSTRUCTION JMP:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN JMP-SHORT-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION JMP-SHORT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN RET-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION RET:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--RET[(BYTE ((OP 194) (IMM NIL TYPE 'IMM-WORD-16)) '(NAME TAB IMM))]-BYTE-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION RET:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION RET
; (SB!ASSEM:DEFINE-INSTRUCTION SB!VM::RET
; (SB!ASSEM:SEGMENT &OPTIONAL SB!VM::STACK-DELTA)
; (:PRINTER SB-XC:BYTE ((SB!VM::OP 195)))
; (:PRINTER SB-XC:BYTE
; ((SB!VM::OP 194)
; (SB!VM::IMM NIL
; :TYPE
; 'SB!VM::IMM-WORD-16))
; '(:NAME :TAB SB!VM::IMM))
; (:EMITTER (COND (SB!VM::STACK-DELTA # #) (T #))))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK FLET BLOCK FUNCALL 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 top level form:
; compiling top level form:
; recognizing DEFUN JECXZ-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION JECXZ:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOOP-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION LOOP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOOPZ-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION LOOPZ:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOOPNZ-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION LOOPNZ:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CMOV-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION CMOV:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--CMOV[(COND-MOVE NIL)]-COND-MOVE-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION CMOV:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION CMOV
; (SB!ASSEM:DEFINE-INSTRUCTION SB!VM::CMOV
; (SB!ASSEM:SEGMENT COND SB!VM::DST SB!VM::SRC)
; (:PRINTER SB!VM::COND-MOVE NIL)
; (:EMITTER
; (SB!INT:AVER (SB!VM::REGISTER-P SB!VM::DST))
; (LET (#)
; (SB!INT:AVER #)
; (SB!VM::MAYBE-EMIT-OPERAND-SIZE-PREFIX
; SB!ASSEM:SEGMENT
; SB!VM::SIZE))
; (SB!ASSEM:EMIT-BYTE SB!ASSEM:SEGMENT 15)
; (SB!ASSEM:EMIT-BYTE SB!ASSEM:SEGMENT ..)))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MACROLET FLET LET*
; --> SB!DISASSEM::LOCAL-PRINC AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--CMOV[(COND-MOVE NIL)]-COND-MOVE-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION CMOV:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SET-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION SET:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--SET[(COND-SET NIL)]-COND-SET-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION SET:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFINE-INSTRUCTION SET
; (SB!ASSEM:DEFINE-INSTRUCTION SET
; (SB!ASSEM:SEGMENT SB!VM::DST COND)
; (:PRINTER SB!VM::COND-SET NIL)
; (:EMITTER
; (SB!ASSEM:EMIT-BYTE SB!ASSEM:SEGMENT 15)
; (SB!ASSEM:EMIT-BYTE SB!ASSEM:SEGMENT
; (SB-XC:DPB # # 144))
; (SB!VM::EMIT-EA SB!ASSEM:SEGMENT SB!VM::DST 0)))
; --> PROGN PROGN PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MACROLET FLET LET*
; --> SB!DISASSEM::LOCAL-PRINC AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ENTER-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION ENTER:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--ENTER[(ENTER-FORMAT ((OP 200)))]-ENTER-FORMAT-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION ENTER:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LEAVE-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION LEAVE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PREFETCHNTA-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION PREFETCHNTA:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--PREFETCHNTA[(PREFETCH ((OP 24) (REG 0)))]-PREFETCH-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION PREFETCHNTA:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--PREFETCHNTA[(PREFETCH ((OP 24) (REG 0)))]-PREFETCH-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION PREFETCHNTA:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PREFETCHT0-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION PREFETCHT0:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PREFETCHT1-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION PREFETCHT1:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PREFETCHT2-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION PREFETCHT2:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SNARF-ERROR-JUNK
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFUN SNARF-ERROR-JUNK
; (LET* ((LENGTH (SB!SYS:SAP-REF-8 SB!VM::SAP SB!VM::OFFSET))
; (VECTOR (MAKE-ARRAY LENGTH :ELEMENT-TYPE '#)))
; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!VM::SAP)
; (TYPE (UNSIGNED-BYTE 8) LENGTH)
; (TYPE (SIMPLE-ARRAY # #) VECTOR))
; (COND (SB!VM::LENGTH-ONLY (VALUES 0 # NIL NIL))
; (T (SB!KERNEL:COPY-FROM-SYSTEM-AREA SB!VM::SAP # VECTOR # #)
; (SB!INT:COLLECT # # #))))
;
; note: deleting unreachable code
; (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX)
; --> LET COND IF COND IF COND IF PROGN PROG1 LET INCF LET* +
; ==>
; SB!INT:INDEX
;
; note: deleting unreachable code
; --> LET COND IF COND IF COND IF PROGN PROG1 LET LOGIOR LOGIOR LOGIOR LOGIOR
; --> AREF
; ==>
; VECTOR
;
; note: deleting unreachable code
; --> LET COND IF COND IF PROGN PROG1 LET INCF LET* +
; ==>
; SB!INT:INDEX
;
; note: deleting unreachable code
; --> LET COND IF COND IF PROGN PROG1 LET LOGIOR AREF
; ==>
; VECTOR
;
; note: deleting unreachable code
; --> LET COND IF PROGN INCF LET* +
; ==>
; SB!INT:INDEX
;
; note: deleting unreachable code
; --> LET COND IF COND IF COND IF PROGN PROG1 LET INCF LET* +
; ==>
; SB!INT:INDEX
;
; note: deleting unreachable code
; --> LET COND IF COND IF COND IF PROGN PROG1 LET LOGIOR LOGIOR LOGIOR LOGIOR
; --> AREF
; ==>
; VECTOR
;
; note: deleting unreachable code
; --> LET COND IF COND IF PROGN PROG1 LET INCF LET* +
; ==>
; SB!INT:INDEX
;
; note: deleting unreachable code
; --> LET COND IF COND IF PROGN PROG1 LET LOGIOR AREF
; ==>
; VECTOR
;
; note: deleting unreachable code
; --> LET COND IF PROGN INCF LET* +
; ==>
; SB!INT:INDEX
;
; note: deleting unreachable code
; (- SB!INT:INDEX SB!VM::OLD-INDEX)
; ==>
; SB!INT:INDEX
;
; note: deleting unreachable code
; (LET ((SB!VM::OLD-INDEX SB!INT:INDEX))
; (SB!VM::SC-OFFSETS (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX))
; (SB!VM::LENGTHS (- SB!INT:INDEX SB!VM::OLD-INDEX)))
;
; note: deleting unreachable code
; [Last message occurs 2 times.]
; (>= SB!INT:INDEX LENGTH)
; --> IF <
; ==>
; SB!INT:INDEX
;
; note: deleting unreachable code
; (VALUES SB!VM::ERROR-NUMBER (1+ LENGTH) (SB!VM::SC-OFFSETS) (SB!VM::LENGTHS))
; ==>
; SB!VM::ERROR-NUMBER
;
; note: deleting unreachable code
; (LET* ((SB!INT:INDEX 0)
; (SB!VM::ERROR-NUMBER (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX)))
; (SB!VM::LENGTHS SB!INT:INDEX)
; (LOOP (WHEN (>= SB!INT:INDEX LENGTH) (RETURN))
; (LET (#)
; (SB!VM::SC-OFFSETS #)
; (SB!VM::LENGTHS #)))
; (VALUES SB!VM::ERROR-NUMBER
; (1+ LENGTH)
; (SB!VM::SC-OFFSETS)
; (SB!VM::LENGTHS)))
;
; note: deleting unreachable code
; [Last message occurs 4 times.]
; (SB!KERNEL:COPY-FROM-SYSTEM-AREA SB!VM::SAP
; (* SB!VM:N-BYTE-BITS (1+ SB!VM::OFFSET))
; VECTOR
; (* SB!VM:N-WORD-BITS
; SB!VM:VECTOR-DATA-OFFSET)
; (* LENGTH SB!VM:N-BYTE-BITS))
; ==>
; SB!VM::SAP
;
; note: deleting unreachable code
; (1+ LENGTH)
; --> +
; ==>
; LENGTH
;
; note: deleting unreachable code
; (LET* ((LENGTH (SB!SYS:SAP-REF-8 SB!VM::SAP SB!VM::OFFSET))
; (VECTOR (MAKE-ARRAY LENGTH :ELEMENT-TYPE '#)))
; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!VM::SAP)
; (TYPE (UNSIGNED-BYTE 8) LENGTH)
; (TYPE (SIMPLE-ARRAY # #) VECTOR))
; (COND (SB!VM::LENGTH-ONLY (VALUES 0 # NIL NIL))
; (T (SB!KERNEL:COPY-FROM-SYSTEM-AREA SB!VM::SAP # VECTOR # #)
; (SB!INT:COLLECT # # #))))
;
; note: deleting unreachable code
; [Last message occurs 2 times.]
; compiling DEFUN SNARF-ERROR-JUNK:
; compiling top level form:
; recognizing DEFUN BREAK-CONTROL
; compiling top level form:
; compiling DEFUN BREAK-CONTROL:
; compiling top level form:
; recognizing DEFUN BREAK-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION BREAK:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--BREAK[(BYTE-IMM ((OP 204)) '(NAME TAB CODE) CONTROL #'BREAK-CONTROL)]-BYTE-IMM-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION BREAK:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INT-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION INT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INTO-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION INTO:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BOUND-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION BOUND:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IRET-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION IRET:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN HLT-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION HLT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NOP-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION NOP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN WAIT-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION WAIT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOCK-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION LOCK:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BYTE-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION BYTE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN WORD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION WORD:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DWORD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION DWORD:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EMIT-HEADER-DATA
; compiling top level form:
; compiling DEFUN EMIT-HEADER-DATA:
; compiling top level form:
; recognizing DEFUN SIMPLE-FUN-HEADER-WORD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION SIMPLE-FUN-HEADER-WORD:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LRA-HEADER-WORD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION LRA-HEADER-WORD:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FLD:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--FLD[(FLOATING-POINT ((OP '(1 0))))]-FLOATING-POINT-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION FLD:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--FLD[(FLOATING-POINT ((OP '(1 0))))]-FLOATING-POINT-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION FLD:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLDD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FLDD:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--FLDD[(FLOATING-POINT-FP ((OP '(1 0))))]-FLOATING-POINT-FP-PRINTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION FLDD:
; compiling top level form:
; recognizing DEFUN |CACHED-FUN--FLDD[(FLOATING-POINT-FP ((OP '(1 0))))]-FLOATING-POINT-FP-PREFILTER|
; compiling top level form:
; compiling DEFINE-INSTRUCTION FLDD:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLDL-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FLDL:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FST-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FST:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FSTD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FSTD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FADD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FADD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FADDD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FADDD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FADD-STI-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FADD-STI:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FADDP-STI-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FADDP-STI:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FSUB-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FSUB:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FSUBR-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FSUBR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FSUBD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FSUBD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FSUBRD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FSUBRD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FSUB-STI-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FSUB-STI:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FSUBP-STI-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FSUBP-STI:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FSUBR-STI-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FSUBR-STI:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FSUBRP-STI-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FSUBRP-STI:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FMUL-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FMUL:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FMULD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FMULD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FMUL-STI-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FMUL-STI:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FDIV-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FDIV:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FDIVR-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FDIVR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FDIVD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FDIVD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FDIVRD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FDIVRD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FDIV-STI-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FDIV-STI:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FDIVR-STI-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FDIVR-STI:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FXCH-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FXCH:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FILD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FILD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FILDL-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FILDL:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIST-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FIST:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FISTP-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FISTP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FISTPL-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FISTPL:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FSTP-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FSTP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FSTPD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FSTPD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FSTPL-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FSTPL:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FDECSTP-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FDECSTP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FINCSTP-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FINCSTP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FFREE-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FFREE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FABS-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FABS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FCHS-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FCHS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FRNDINT-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FRNDINT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FNINIT-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FNINIT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FNSTSW-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FNSTSW:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLDCW-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FLDCW:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FNSTCW-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FNSTCW:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FSTENV-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FSTENV:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLDENV-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FLDENV:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FSAVE-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FSAVE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FRSTOR-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FRSTOR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FNCLEX-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FNCLEX:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FCOM-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FCOM:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FCOMD-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FCOMD:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FCOMPP-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FCOMPP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FUCOM-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FUCOM:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FTST-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FTST:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FSQRT-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FSQRT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FSCALE-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FSCALE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FXTRACT-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FXTRACT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FSIN-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FSIN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FCOS-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FCOS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FPREM1-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FPREM1:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FPREM-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FPREM:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FXAM-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FXAM:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FYL2X-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FYL2X:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FYL2XP1-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FYL2XP1:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN F2XM1-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION F2XM1:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FPTAN-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FPTAN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FPATAN-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FPATAN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLDZ-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FLDZ:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLD1-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FLD1:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLDPI-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FLDPI:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLDL2T-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FLDL2T:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLDL2E-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FLDL2E:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLDLG2-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FLDLG2:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FLDLN2-INST-EMITTER
; compiling top level form:
; compiling DEFINE-INSTRUCTION FLDLN2:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFUN BREAK-CONTROL
; (SB!VM::BYTE-IMM-CODE SB!VM::CHUNK SB!VM::DSTATE)
;
; caught STYLE-WARNING:
; undefined function: BYTE-IMM-CODE
; in: DEFUN EMIT-HEADER-DATA
; (SB!C:COMPONENT-HEADER-LENGTH)
;
; caught STYLE-WARNING:
; undefined function: COMPONENT-HEADER-LENGTH
; in: DEFUN EMIT-ABSOLUTE-FIXUP
; (SB!C:COMPONENT-HEADER-LENGTH)
;
; caught STYLE-WARNING:
; undefined function: COMPONENT-HEADER-LENGTH
; in: DEFUN SNARF-ERROR-JUNK
; (SB!KERNEL:COPY-FROM-SYSTEM-AREA SB!VM::SAP
; (* SB!VM:N-BYTE-BITS (1+ SB!VM::OFFSET))
; VECTOR
; (* SB!VM:N-WORD-BITS
; SB!VM:VECTOR-DATA-OFFSET)
; (* LENGTH SB!VM:N-BYTE-BITS))
;
; caught STYLE-WARNING:
; undefined function: COPY-FROM-SYSTEM-AREA
; in: DEFUN BREAK-CONTROL
; (SB!DISASSEM:HANDLE-BREAK-ARGS #'SB!VM::SNARF-ERROR-JUNK STREAM SB!VM::DSTATE)
;
; caught STYLE-WARNING:
; undefined function: SB!DISASSEM:HANDLE-BREAK-ARGS
; in: LAMBDA NIL
; (SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!VM::VALUE NIL SB!VM::DSTATE)
;
; caught STYLE-WARNING:
; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: SB!DISASSEM:DEFINE-ARG-TYPE DISPLACEMENT
; (SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!VM::VALUE NIL SB!VM::DSTATE)
;
; caught STYLE-WARNING:
; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE
; in: DEFUN BREAK-CONTROL
; (SB!DISASSEM:NOTE SB!VM::X SB!VM::DSTATE)
;
; caught STYLE-WARNING:
; undefined function: SB!DISASSEM:NOTE
; in: LAMBDA NIL
; (SB!VM::PRINT-MEM-ACCESS SB!VM::VALUE STREAM T SB!VM::DSTATE)
;
; caught STYLE-WARNING:
; undefined function: PRINT-MEM-ACCESS
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFUN PRINT-REG/MEM
; (SB!VM::PRINT-MEM-ACCESS SB!VM::VALUE STREAM NIL SB!VM::DSTATE)
;
; caught STYLE-WARNING:
; undefined function: PRINT-MEM-ACCESS
; in: LAMBDA NIL
; (SB!VM::PRINT-MEM-ACCESS SB!VM::VALUE STREAM NIL SB!VM::DSTATE)
;
; caught STYLE-WARNING:
; undefined function: PRINT-MEM-ACCESS
;
; caught STYLE-WARNING:
; 5 more uses of undefined function PRINT-MEM-ACCESS
; in: LAMBDA NIL
; (SB!DISASSEM:READ-SUFFIX (SB!VM::WIDTH-BITS SB!VM::*DEFAULT-ADDRESS-SIZE*)
; SB!VM::DSTATE)
;
; caught STYLE-WARNING:
; undefined function: SB!DISASSEM:READ-SUFFIX
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/insts.lisp
; in: DEFUN PREFILTER-REG/MEM
; (SB!DISASSEM:READ-SUFFIX 8 SB!VM::DSTATE)
;
; caught STYLE-WARNING:
; undefined function: SB!DISASSEM:READ-SUFFIX
; in: LAMBDA NIL
; (SB!DISASSEM:READ-SUFFIX 8 SB!VM::DSTATE)
;
; caught STYLE-WARNING:
; undefined function: SB!DISASSEM:READ-SUFFIX
;
; caught STYLE-WARNING:
; 7 more uses of undefined function SB!DISASSEM:READ-SUFFIX
;
; caught STYLE-WARNING:
; These functions are undefined:
; BYTE-IMM-CODE COMPONENT-HEADER-LENGTH COPY-FROM-SYSTEM-AREA SB!DISASSEM:HANDLE-BREAK-ARGS SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!DISASSEM:NOTE PRINT-MEM-ACCESS SB!DISASSEM:READ-SUFFIX
;
; compilation unit finished
; caught 17 STYLE-WARNING conditions
; printed 52 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/insts.lisp-obj-tmp written
; compilation finished in 0:00:20
STYLE-WARNING: redefining OFFSET-NEXT in DEFUN
STYLE-WARNING: redefining PRINT-REG-WITH-WIDTH in DEFUN
STYLE-WARNING: redefining PRINT-REG in DEFUN
STYLE-WARNING: redefining PRINT-WORD-REG in DEFUN
STYLE-WARNING: redefining PRINT-BYTE-REG in DEFUN
STYLE-WARNING: redefining PRINT-ADDR-REG in DEFUN
STYLE-WARNING: redefining PRINT-REG/MEM in DEFUN
STYLE-WARNING: redefining PRINT-SIZED-REG/MEM in DEFUN
STYLE-WARNING: redefining PRINT-BYTE-REG/MEM in DEFUN
STYLE-WARNING: redefining PRINT-WORD-REG/MEM in DEFUN
STYLE-WARNING: redefining PRINT-LABEL in DEFUN
STYLE-WARNING: redefining PREFILTER-REG/MEM in DEFUN
STYLE-WARNING: redefining PREFILTER-WIDTH in DEFUN
STYLE-WARNING: redefining READ-ADDRESS in DEFUN
STYLE-WARNING: redefining WIDTH-BITS in DEFUN
STYLE-WARNING: redefining PRINT-FP-REG in DEFUN
STYLE-WARNING: redefining PREFILTER-FP-REG in DEFUN
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/macros.lisp" (written 13 SEP 2004 07:40:31 AM):
; compiling top level form:
; compiling DEFMACRO WITH-TN@FP-TOP:
; compiling top level form:
; compiling DEFMACRO WITH-EMPTY-TN@FP-TOP:
; compiling top level form:
; compiling DEFMACRO MOVE:
; compiling top level form:
; compiling DEFMACRO MAKE-EA-FOR-OBJECT-SLOT:
; compiling top level form:
; compiling DEFMACRO LOADW:
; compiling top level form:
; compiling DEFMACRO STOREW:
; compiling top level form:
; compiling DEFMACRO PUSHW:
; compiling top level form:
; compiling DEFMACRO POPW:
; compiling top level form:
; compiling DEFMACRO LOAD-SYMBOL:
; compiling top level form:
; compiling DEFMACRO LOAD-SYMBOL-VALUE:
; compiling top level form:
; compiling DEFMACRO STORE-SYMBOL-VALUE:
; compiling top level form:
; compiling DEFMACRO LOAD-TL-SYMBOL-VALUE:
; compiling top level form:
; compiling DEFMACRO STORE-TL-SYMBOL-VALUE:
; compiling top level form:
; compiling DEFMACRO LOAD-TYPE:
; compiling top level form:
; recognizing DEFUN ALLOCATION-DYNAMIC-EXTENT
; compiling top level form:
; compiling DEFUN ALLOCATION-DYNAMIC-EXTENT:
; compiling top level form:
; recognizing DEFUN ALLOCATION-NOTINLINE
; compiling top level form:
; compiling DEFUN ALLOCATION-NOTINLINE:
; compiling top level form:
; recognizing DEFUN ALLOCATION-INLINE
; compiling top level form:
; compiling DEFUN ALLOCATION-INLINE:
; compiling top level form:
; recognizing DEFUN ALLOCATION
; compiling top level form:
; compiling DEFUN ALLOCATION:
; compiling top level form:
; compiling DEFMACRO WITH-FIXED-ALLOCATION:
; compiling top level form:
; recognizing DEFUN EMIT-ERROR-BREAK
; compiling top level form:
; compiling DEFUN EMIT-ERROR-BREAK:
; compiling top level form:
; compiling DEFMACRO ERROR-CALL:
; compiling top level form:
; compiling DEFMACRO GENERATE-ERROR-CODE:
; compiling top level form:
; compiling DEFMACRO MAYBE-PSEUDO-ATOMIC:
; compiling top level form:
; compiling DEFMACRO PSEUDO-ATOMIC:
; compiling top level form:
; compiling DEFMACRO DEFINE-FULL-REFFER:
; compiling top level form:
; compiling DEFMACRO DEFINE-FULL-SETTER:
; compiling top level form:
; compiling DEFMACRO WITH-PINNED-OBJECTS:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/macros.lisp-obj-tmp written
; compilation finished in 0:00:00
STYLE-WARNING: redefining EMIT-ERROR-BREAK in DEFUN
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/early-type-vops.lisp" (written 29 OCT 2004 01:30:49 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CANONICALIZE-HEADERS
; compiling top level form:
; compiling DEFUN CANONICALIZE-HEADERS:
; compiling top level form:
; compiling DEFMACRO TEST-TYPE:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/early-type-vops.lisp-obj-tmp written
; compilation finished in 0:00:00
creating directory: obj/from-host/src/assembly/target/
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/assembly/target/support.lisp" (written 02 AUG 2004 02:29:30 PM):
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-GENERATE-CALL-SEQUENCE
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE GENERATE-CALL-SEQUENCE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-GENERATE-RETURN-SEQUENCE
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE GENERATE-RETURN-SEQUENCE:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/assembly/target/support.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/move.lisp" (written 29 OCT 2004 01:30:55 PM):
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-IMMEDIATE 1):
; recognizing DEFUN LOAD-IMMEDIATE
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-IMMEDIATE 1):
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-NUMBER 1):
; recognizing DEFUN LOAD-NUMBER
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-NUMBER 1):
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-CHARACTER 1):
; recognizing DEFUN LOAD-CHARACTER
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-CHARACTER 1):
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-SYSTEM-AREA-POINTER 1):
; recognizing DEFUN LOAD-SYSTEM-AREA-POINTER
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-SYSTEM-AREA-POINTER 1):
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-CONSTANT 5):
; recognizing DEFUN LOAD-CONSTANT
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-CONSTANT 5):
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-STACK 5):
; recognizing DEFUN LOAD-STACK
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-STACK 5):
; compiling top level form:
; compiling DEFINE-MOVE-FUN (STORE-STACK 5):
; recognizing DEFUN STORE-STACK
; compiling top level form:
; compiling DEFINE-MOVE-FUN (STORE-STACK 5):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE:
; compiling DEFINE-MOVE-VOP MOVE:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-ARG):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-ARG:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (ILLEGAL-MOVE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-TO-WORD/FIXNUM):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-TO-WORD/FIXNUM:
; compiling DEFINE-MOVE-VOP MOVE-TO-WORD/FIXNUM:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-TO-WORD-C):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-TO-WORD-C:
; compiling DEFINE-MOVE-VOP MOVE-TO-WORD-C:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-TO-WORD/INTEGER):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-TO-WORD/INTEGER:
; compiling DEFINE-MOVE-VOP MOVE-TO-WORD/INTEGER:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-FROM-WORD/FIXNUM):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-FROM-WORD/FIXNUM:
; compiling DEFINE-MOVE-VOP MOVE-FROM-WORD/FIXNUM:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-FROM-SIGNED):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-FROM-SIGNED:
; compiling DEFINE-MOVE-VOP MOVE-FROM-SIGNED:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-FROM-UNSIGNED):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-FROM-UNSIGNED:
; compiling DEFINE-MOVE-VOP MOVE-FROM-UNSIGNED:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (WORD-MOVE):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP WORD-MOVE:
; compiling DEFINE-MOVE-VOP WORD-MOVE:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-WORD-ARG):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-WORD-ARG:
; compiling DEFINE-MOVE-VOP MOVE-ARG:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/move.lisp-obj-tmp written
; compilation finished in 0:00:03
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/float.lisp" (written 15 JUN 2004 03:54:07 PM):
; compiling top level form:
; recognizing DEFUN EA-FOR-SF-DESC
; compiling top level form:
; compiling DEFUN EA-FOR-SF-DESC:
; compiling top level form:
; recognizing DEFUN EA-FOR-DF-DESC
; compiling top level form:
; compiling DEFUN EA-FOR-DF-DESC:
; compiling top level form:
; recognizing DEFUN EA-FOR-CSF-REAL-DESC
; compiling top level form:
; compiling DEFUN EA-FOR-CSF-REAL-DESC:
; compiling top level form:
; recognizing DEFUN EA-FOR-CSF-IMAG-DESC
; compiling top level form:
; compiling DEFUN EA-FOR-CSF-IMAG-DESC:
; compiling top level form:
; recognizing DEFUN EA-FOR-CDF-REAL-DESC
; compiling top level form:
; compiling DEFUN EA-FOR-CDF-REAL-DESC:
; compiling top level form:
; recognizing DEFUN EA-FOR-CDF-IMAG-DESC
; compiling top level form:
; compiling DEFUN EA-FOR-CDF-IMAG-DESC:
; compiling top level form:
; recognizing DEFUN EA-FOR-SF-STACK
; compiling top level form:
; compiling DEFUN EA-FOR-SF-STACK:
; compiling top level form:
; recognizing DEFUN EA-FOR-DF-STACK
; compiling top level form:
; compiling DEFUN EA-FOR-DF-STACK:
; compiling top level form:
; recognizing DEFUN MAYBE-FP-WAIT
; compiling top level form:
; compiling DEFUN MAYBE-FP-WAIT:
; compiling top level form:
; recognizing DEFUN EA-FOR-CSF-REAL-STACK
; compiling top level form:
; compiling DEFUN EA-FOR-CSF-REAL-STACK:
; compiling top level form:
; recognizing DEFUN EA-FOR-CSF-IMAG-STACK
; compiling top level form:
; compiling DEFUN EA-FOR-CSF-IMAG-STACK:
; compiling top level form:
; recognizing DEFUN EA-FOR-CDF-REAL-STACK
; compiling top level form:
; compiling DEFUN EA-FOR-CDF-REAL-STACK:
; compiling top level form:
; recognizing DEFUN EA-FOR-CDF-IMAG-STACK
; compiling top level form:
; compiling DEFUN EA-FOR-CDF-IMAG-STACK:
; compiling top level form:
; recognizing DEFUN COPY-FP-REG-TO-FR0
; compiling top level form:
; compiling DEFUN COPY-FP-REG-TO-FR0:
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-SINGLE 2):
; recognizing DEFUN LOAD-SINGLE
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-SINGLE 2):
; compiling top level form:
; compiling DEFINE-MOVE-FUN (STORE-SINGLE 2):
; recognizing DEFUN STORE-SINGLE
; compiling top level form:
; compiling DEFINE-MOVE-FUN (STORE-SINGLE 2):
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-DOUBLE 2):
; recognizing DEFUN LOAD-DOUBLE
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-DOUBLE 2):
; compiling top level form:
; compiling DEFINE-MOVE-FUN (STORE-DOUBLE 2):
; recognizing DEFUN STORE-DOUBLE
; compiling top level form:
; compiling DEFINE-MOVE-FUN (STORE-DOUBLE 2):
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-FP-CONSTANT 2):
; recognizing DEFUN LOAD-FP-CONSTANT
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-FP-CONSTANT 2):
; compiling top level form:
; recognizing DEFUN COMPLEX-SINGLE-REG-REAL-TN
; compiling top level form:
; compiling DEFUN COMPLEX-SINGLE-REG-REAL-TN:
; compiling top level form:
; recognizing DEFUN COMPLEX-SINGLE-REG-IMAG-TN
; compiling top level form:
; compiling DEFUN COMPLEX-SINGLE-REG-IMAG-TN:
; compiling top level form:
; recognizing DEFUN COMPLEX-DOUBLE-REG-REAL-TN
; compiling top level form:
; compiling DEFUN COMPLEX-DOUBLE-REG-REAL-TN:
; compiling top level form:
; recognizing DEFUN COMPLEX-DOUBLE-REG-IMAG-TN
; compiling top level form:
; compiling DEFUN COMPLEX-DOUBLE-REG-IMAG-TN:
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-COMPLEX-SINGLE 2):
; recognizing DEFUN LOAD-COMPLEX-SINGLE
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-COMPLEX-SINGLE 2):
; compiling top level form:
; compiling DEFINE-MOVE-FUN (STORE-COMPLEX-SINGLE 2):
; recognizing DEFUN STORE-COMPLEX-SINGLE
; compiling top level form:
; compiling DEFINE-MOVE-FUN (STORE-COMPLEX-SINGLE 2):
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-COMPLEX-DOUBLE 2):
; recognizing DEFUN LOAD-COMPLEX-DOUBLE
; compiling top level form:
; compiling DEFINE-MOVE-FUN (LOAD-COMPLEX-DOUBLE 2):
; compiling top level form:
; compiling DEFINE-MOVE-FUN (STORE-COMPLEX-DOUBLE 2):
; recognizing DEFUN STORE-COMPLEX-DOUBLE
; compiling top level form:
; compiling DEFINE-MOVE-FUN (STORE-COMPLEX-DOUBLE 2):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FLOAT-MOVE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SINGLE-MOVE FLOAT-MOVE):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP SINGLE-MOVE:
; compiling DEFINE-MOVE-VOP SINGLE-MOVE:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DOUBLE-MOVE FLOAT-MOVE):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP DOUBLE-MOVE:
; compiling DEFINE-MOVE-VOP DOUBLE-MOVE:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (COMPLEX-FLOAT-MOVE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (COMPLEX-SINGLE-MOVE COMPLEX-FLOAT-MOVE):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP COMPLEX-SINGLE-MOVE:
; compiling DEFINE-MOVE-VOP COMPLEX-SINGLE-MOVE:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (COMPLEX-DOUBLE-MOVE COMPLEX-FLOAT-MOVE):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP COMPLEX-DOUBLE-MOVE:
; compiling DEFINE-MOVE-VOP COMPLEX-DOUBLE-MOVE:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-FROM-SINGLE):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-FROM-SINGLE:
; compiling DEFINE-MOVE-VOP MOVE-FROM-SINGLE:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-FROM-DOUBLE):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-FROM-DOUBLE:
; compiling DEFINE-MOVE-VOP MOVE-FROM-DOUBLE:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-FROM-FP-CONSTANT):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-FROM-FP-CONSTANT:
; compiling DEFINE-MOVE-VOP MOVE-FROM-FP-CONSTANT:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-TO-SINGLE):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-TO-SINGLE:
; compiling DEFINE-MOVE-VOP MOVE-TO-SINGLE:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-TO-DOUBLE):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-TO-DOUBLE:
; compiling DEFINE-MOVE-VOP MOVE-TO-DOUBLE:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-FROM-COMPLEX-SINGLE):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-SINGLE:
; compiling DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-SINGLE:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-FROM-COMPLEX-DOUBLE):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-DOUBLE:
; compiling DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-DOUBLE:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling MACROLET ((FROB # #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling MACROLET ((FROB # #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling DEFINE-MOVE-VOP MOVE-ARG:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (=/FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (=/SINGLE-FLOAT =/FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (=/DOUBLE-FLOAT =/FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SINGLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (>DOUBLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FLOAT-TEST):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (=0/SINGLE-FLOAT FLOAT-TEST):
; compiling DEFINE-VOP (=0/SINGLE-FLOAT FLOAT-TEST):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (=0/DOUBLE-FLOAT FLOAT-TEST):
; compiling DEFINE-VOP (=0/DOUBLE-FLOAT FLOAT-TEST):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (<0/SINGLE-FLOAT FLOAT-TEST):
; compiling DEFINE-VOP (<0/SINGLE-FLOAT FLOAT-TEST):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (<0/DOUBLE-FLOAT FLOAT-TEST):
; compiling DEFINE-VOP (<0/DOUBLE-FLOAT FLOAT-TEST):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (>0/SINGLE-FLOAT FLOAT-TEST):
; compiling DEFINE-VOP (>0/SINGLE-FLOAT FLOAT-TEST):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (>0/DOUBLE-FLOAT FLOAT-TEST):
; compiling DEFINE-VOP (>0/DOUBLE-FLOAT FLOAT-TEST):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MAKE-SINGLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MAKE-DOUBLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SINGLE-FLOAT-BITS):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DOUBLE-FLOAT-HIGH-BITS):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DOUBLE-FLOAT-LOW-BITS):
; compiling top level form:
; compiling top level form:
; compiling SB-XC:DEFTYPE FLOAT-MODES:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FLOATING-POINT-MODES):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SET-FLOATING-POINT-MODES):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling PROGN (MACROLET (#) (FROB FSIN-QUICK %SIN-QUICK FSIN) (FROB FCOS-QUICK %COS-QUICK FCOS) (FROB FSQRT %SQRT FSQRT)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling PROGN (MACROLET (#) (FROB FSIN-QUICK %SIN-QUICK FSIN) (FROB FCOS-QUICK %COS-QUICK FCOS) (FROB FSQRT %SQRT FSQRT)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling PROGN (MACROLET (#) (FROB FSIN-QUICK %SIN-QUICK FSIN) (FROB FCOS-QUICK %COS-QUICK FCOS) (FROB FSQRT %SQRT FSQRT)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FTAN-QUICK):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling PROGN (MACROLET (#) (FROB FSIN-QUICK %SIN-QUICK FSIN) (FROB FCOS-QUICK %COS-QUICK FCOS) (FROB FSQRT %SQRT FSQRT)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling PROGN (MACROLET (#) (FROB FSIN-QUICK %SIN-QUICK FSIN) (FROB FCOS-QUICK %COS-QUICK FCOS) (FROB FSQRT %SQRT FSQRT)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FTAN):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FEXP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FEXPM1):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FLOG):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FLOG10):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FPOW):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FSCALEN):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FSCALE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FLOG1P):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FLOG1P-PENTIUM):
; compiling DEFINE-VOP (FLOG1P-PENTIUM):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FLOGB):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FATAN):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FATAN2):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MAKE-COMPLEX-SINGLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MAKE-COMPLEX-DOUBLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (COMPLEX-FLOAT-VALUE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (REALPART/COMPLEX-SINGLE-FLOAT COMPLEX-FLOAT-VALUE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (REALPART/COMPLEX-DOUBLE-FLOAT COMPLEX-FLOAT-VALUE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (IMAGPART/COMPLEX-SINGLE-FLOAT COMPLEX-FLOAT-VALUE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (IMAGPART/COMPLEX-DOUBLE-FLOAT COMPLEX-FLOAT-VALUE):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DOUBLE-FLOAT-REG-BIAS):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SINGLE-FLOAT-REG-BIAS):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/float.lisp-obj-tmp written
; compilation finished in 0:00:19
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/sap.lisp" (written 07 JUN 2003 05:52:04 PM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-TO-SAP):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-TO-SAP:
; compiling DEFINE-MOVE-VOP MOVE-TO-SAP:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-FROM-SAP):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-FROM-SAP:
; compiling DEFINE-MOVE-VOP MOVE-FROM-SAP:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SAP-MOVE):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP SAP-MOVE:
; compiling DEFINE-MOVE-VOP SAP-MOVE:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-SAP-ARG):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-SAP-ARG:
; compiling DEFINE-MOVE-VOP MOVE-ARG:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SAP-INT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (INT-SAP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (POINTER+):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (POINTER-):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-8:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-8:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-8:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-8:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-8:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-8:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-8:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-8:
; compiling DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-8:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-8:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-8:
; compiling DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-8:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-16:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-16:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-16:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-16:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-16:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-16:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-16:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-16:
; compiling DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-16:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-16:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-16:
; compiling DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-16:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-32:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-32:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-32:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-32:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-32:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-32:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-32:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-32:
; compiling DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-32:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-32:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-32:
; compiling DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-32:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-SAP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-SAP:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-SAP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-SAP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-SAP:
; compiling DEF-SYSTEM-REF-AND-SET SAP-REF-SAP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SAP-REF-DOUBLE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SAP-REF-DOUBLE-C):
; compiling DEFINE-VOP (SAP-REF-DOUBLE-C):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (%SET-SAP-REF-DOUBLE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (%SET-SAP-REF-DOUBLE-C):
; compiling DEFINE-VOP (%SET-SAP-REF-DOUBLE-C):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SAP-REF-SINGLE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SAP-REF-SINGLE-C):
; compiling DEFINE-VOP (SAP-REF-SINGLE-C):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (%SET-SAP-REF-SINGLE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (%SET-SAP-REF-SINGLE-C):
; compiling DEFINE-VOP (%SET-SAP-REF-SINGLE-C):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SAP-REF-LONG):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SAP-REF-LONG-C):
; compiling DEFINE-VOP (SAP-REF-LONG-C):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (VECTOR-SAP):
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM SAP-REF-64:
; compiling top level form:
; compiling DEFTRANSFORM SIGNED-SAP-REF-64:
; compiling top level form:
; compiling DEFTRANSFORM %SET-SAP-REF-64:
; compiling top level form:
; compiling DEFTRANSFORM %SET-SIGNED-SAP-REF-64:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/sap.lisp-obj-tmp written
; compilation finished in 0:00:08
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/system.lisp" (written 04 APR 2003 04:46:23 PM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (LOWTAG-OF):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (WIDETAG-OF):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FUN-SUBTYPE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SET-FUN-SUBTYPE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (GET-HEADER-DATA):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (GET-CLOSURE-LENGTH):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SET-HEADER-DATA):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MAKE-FIXNUM):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MAKE-OTHER-IMMEDIATE-TYPE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DYNAMIC-SPACE-FREE-POINTER):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (BINDING-STACK-POINTER-SAP):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SET-BINDING-STACK-POINTER-SAP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CONTROL-STACK-POINTER-SAP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CODE-INSTRUCTIONS):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (COMPUTE-FUN):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (%SIMPLE-FUN-SELF):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM %CLOSURE-FUN:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM %FUNCALLABLE-INSTANCE-FUN:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (%SET-FUN-SELF):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM (SETF %FUNCALLABLE-INSTANCE-FUN):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SB!UNIX::RECEIVE-PENDING-INTERRUPT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (HALT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FLOAT-WAIT):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/system.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/char.lisp" (written 02 NOV 2004 08:22:10 AM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-TO-CHARACTER):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-TO-CHARACTER:
; compiling DEFINE-MOVE-VOP MOVE-TO-CHARACTER:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-FROM-CHARACTER):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-FROM-CHARACTER:
; compiling DEFINE-MOVE-VOP MOVE-FROM-CHARACTER:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CHARACTER-MOVE):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP CHARACTER-MOVE:
; compiling DEFINE-MOVE-VOP CHARACTER-MOVE:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-CHARACTER-ARG):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MOVE-VOP MOVE-CHARACTER-ARG:
; compiling DEFINE-MOVE-VOP MOVE-ARG:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CHAR-CODE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CODE-CHAR):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CHARACTER-COMPARE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CHARACTER-COMPARE/C):
; compiling DEFINE-VOP (CHARACTER-COMPARE/C):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-CHAR=/CHARACTER/C CHARACTER-COMPARE/C):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-CHAR/CHARACTER/C CHARACTER-COMPARE/C):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/char.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/memory.lisp" (written 29 OCT 2004 01:30:55 PM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CELL-REF):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CELL-SET):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CELL-SETF):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CELL-SETF-FUN):
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO DEFINE-CELL-ACCESSORS:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CELL-XADD):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SLOT-REF):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SLOT-SET):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SLOT-SET-CONDITIONAL):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SLOT-XADD):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/memory.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/static-fn.lisp" (written 05 MAY 2003 04:09:15 PM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN STATIC-FUN-TEMPLATE-NAME
; compiling top level form:
; compiling DEFUN STATIC-FUN-TEMPLATE-NAME:
; compiling top level form:
; recognizing DEFUN MOVES
; compiling top level form:
; compiling DEFUN MOVES:
; compiling top level form:
; recognizing DEFUN STATIC-FUN-TEMPLATE-VOP
; compiling top level form:
; compiling DEFUN STATIC-FUN-TEMPLATE-VOP:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO DEFINE-STATIC-FUN:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/static-fn.lisp
; in:
; MACROLET ((FROB (NUM-ARGS NUM-RES)
; (STATIC-FUN-TEMPLATE-VOP (EVAL NUM-ARGS) (EVAL NUM-RES))))
; (SB!VM::FROB 2 1)
; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET*
; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET
; ==>
; (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1)
;
; caught STYLE-WARNING:
; undefined function: DEFAULT-UNKNOWN-VALUES
; (SB!VM::FROB 1 1)
; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET*
; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET
; ==>
; (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1)
;
; caught STYLE-WARNING:
; undefined function: DEFAULT-UNKNOWN-VALUES
; (SB!VM::FROB 0 1)
; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET*
; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET
; ==>
; (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1)
;
; caught STYLE-WARNING:
; undefined function: DEFAULT-UNKNOWN-VALUES
;
; caught STYLE-WARNING:
; 1 more use of undefined function DEFAULT-UNKNOWN-VALUES
;
; caught STYLE-WARNING:
; This function is undefined:
; DEFAULT-UNKNOWN-VALUES
;
; compilation unit finished
; caught 5 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/static-fn.lisp-obj-tmp written
; compilation finished in 0:00:02
STYLE-WARNING: redefining STATIC-FUN-TEMPLATE-NAME in DEFUN
STYLE-WARNING: redefining MOVES in DEFUN
STYLE-WARNING: redefining STATIC-FUN-TEMPLATE-VOP in DEFUN
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/arith.lisp" (written 21 DEC 2004 04:52:13 AM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-NEGATE/FIXNUM FIXNUM-UNOP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-NEGATE/SIGNED SIGNED-UNOP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-LOGNOT/FIXNUM FIXNUM-UNOP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-LOGNOT/SIGNED SIGNED-UNOP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-FIXNUM-BINOP-C FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-UNSIGNED-BINOP-C FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-SIGNED-BINOP-C FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP -:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP -:
; compiling DEFINE-BINOP -:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP -:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP -:
; compiling DEFINE-BINOP -:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP -:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP -:
; compiling DEFINE-BINOP -:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP LOGAND:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP LOGAND:
; compiling DEFINE-BINOP LOGAND:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP LOGAND:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP LOGAND:
; compiling DEFINE-BINOP LOGAND:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP LOGAND:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP LOGAND:
; compiling DEFINE-BINOP LOGAND:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP LOGIOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP LOGIOR:
; compiling DEFINE-BINOP LOGIOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP LOGIOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP LOGIOR:
; compiling DEFINE-BINOP LOGIOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP LOGIOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP LOGIOR:
; compiling DEFINE-BINOP LOGIOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP LOGXOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP LOGXOR:
; compiling DEFINE-BINOP LOGXOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP LOGXOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP LOGXOR:
; compiling DEFINE-BINOP LOGXOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP LOGXOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-BINOP LOGXOR:
; compiling DEFINE-BINOP LOGXOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-+/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-+-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP):
; compiling DEFINE-VOP (FAST-+-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-+/SIGNED=>SIGNED FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-LOGAND/SIGNED-UNSIGNED=>UNSIGNED FAST-LOGAND/UNSIGNED=>UNSIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-LOGAND-C/SIGNED-UNSIGNED=>UNSIGNED FAST-LOGAND-C/UNSIGNED=>UNSIGNED):
; compiling DEFINE-VOP (FAST-LOGAND-C/SIGNED-UNSIGNED=>UNSIGNED FAST-LOGAND-C/UNSIGNED=>UNSIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-LOGAND/UNSIGNED-SIGNED=>UNSIGNED FAST-LOGAND/UNSIGNED=>UNSIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-+-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP):
; compiling DEFINE-VOP (FAST-+-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-+/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-+-C/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP):
; compiling DEFINE-VOP (FAST-+-C/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-*/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-*-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP):
; compiling DEFINE-VOP (FAST-*-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-*/SIGNED=>SIGNED FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-*-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP):
; compiling DEFINE-VOP (FAST-*-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-*/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-TRUNCATE/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-TRUNCATE-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP):
; compiling DEFINE-VOP (FAST-TRUNCATE-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-TRUNCATE/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-TRUNCATE-C/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP):
; compiling DEFINE-VOP (FAST-TRUNCATE-C/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-TRUNCATE/SIGNED=>SIGNED FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-TRUNCATE-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP):
; compiling DEFINE-VOP (FAST-TRUNCATE-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-ASH-C/FIXNUM=>FIXNUM):
; compiling DEFINE-VOP (FAST-ASH-C/FIXNUM=>FIXNUM):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-ASH-LEFT/FIXNUM=>FIXNUM):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-ASH-C/SIGNED=>SIGNED):
; compiling DEFINE-VOP (FAST-ASH-C/SIGNED=>SIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-ASH-C/UNSIGNED=>UNSIGNED):
; compiling DEFINE-VOP (FAST-ASH-C/UNSIGNED=>UNSIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-ASH-LEFT/SIGNED=>SIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-ASH-LEFT/UNSIGNED=>UNSIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-ASH/SIGNED=>SIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-ASH/UNSIGNED=>UNSIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %LEA-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%LEA DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %LEA
; compiling top level form:
; compiling DEFUN %LEA:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (%LEA/UNSIGNED=>UNSIGNED):
; compiling DEFINE-VOP (%LEA/UNSIGNED=>UNSIGNED):
; compiling DEFINE-VOP (%LEA/UNSIGNED=>UNSIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (%LEA/SIGNED=>SIGNED):
; compiling DEFINE-VOP (%LEA/SIGNED=>SIGNED):
; compiling DEFINE-VOP (%LEA/SIGNED=>SIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (%LEA/FIXNUM=>FIXNUM):
; compiling DEFINE-VOP (%LEA/FIXNUM=>FIXNUM):
; compiling DEFINE-VOP (%LEA/FIXNUM=>FIXNUM):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-CMOV-ASH/UNSIGNED=>UNSIGNED):
; compiling DEFINE-VOP (FAST-CMOV-ASH/UNSIGNED=>UNSIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SIGNED-BYTE-32-LEN):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (UNSIGNED-BYTE-32-LEN):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (UNSIGNED-BYTE-32-COUNT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-CONDITIONAL-C/FIXNUM FAST-CONDITIONAL/FIXNUM):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-CONDITIONAL-C/SIGNED FAST-CONDITIONAL/SIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-CONDITIONAL-C/UNSIGNED FAST-CONDITIONAL/UNSIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-CONDITIONAL-VOP <:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-CONDITIONAL-VOP <:
; compiling DEFINE-CONDITIONAL-VOP <:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-CONDITIONAL-VOP <:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-CONDITIONAL-VOP <:
; compiling DEFINE-CONDITIONAL-VOP <:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-CONDITIONAL-VOP <:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-CONDITIONAL-VOP <:
; compiling DEFINE-CONDITIONAL-VOP <:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-CONDITIONAL-VOP >:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-CONDITIONAL-VOP >:
; compiling DEFINE-CONDITIONAL-VOP >:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-CONDITIONAL-VOP >:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-CONDITIONAL-VOP >:
; compiling DEFINE-CONDITIONAL-VOP >:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-CONDITIONAL-VOP >:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-CONDITIONAL-VOP >:
; compiling DEFINE-CONDITIONAL-VOP >:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-IF-EQL/SIGNED FAST-CONDITIONAL/SIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-IF-EQL-C/SIGNED FAST-CONDITIONAL-C/SIGNED):
; compiling DEFINE-VOP (FAST-IF-EQL-C/SIGNED FAST-CONDITIONAL-C/SIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-IF-EQL/UNSIGNED FAST-CONDITIONAL/UNSIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-IF-EQL-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED):
; compiling DEFINE-VOP (FAST-IF-EQL-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-EQL/FIXNUM FAST-CONDITIONAL):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (GENERIC-EQL/FIXNUM FAST-EQL/FIXNUM):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-EQL-C/FIXNUM FAST-CONDITIONAL/FIXNUM):
; compiling DEFINE-VOP (FAST-EQL-C/FIXNUM FAST-CONDITIONAL/FIXNUM):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (GENERIC-EQL-C/FIXNUM FAST-EQL-C/FIXNUM):
; compiling DEFINE-VOP (GENERIC-EQL-C/FIXNUM FAST-EQL-C/FIXNUM):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MERGE-BITS):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SHIFT-TOWARDS-START SHIFT-TOWARDS-SOMEPLACE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SHIFT-TOWARDS-END SHIFT-TOWARDS-SOMEPLACE):
; compiling top level form:
; compiling top level form:
; in: LAMBDA (#:WHOLE6100 #:ENVIRONMENT6101)
; (LET ((SB!VM::FUN32 (INTERN #))
; (SB!VM::VOPU (INTERN #))
; (SB!VM::VOPCU (INTERN #))
; (SB!VM::VOPF (INTERN #))
; (SB!VM::VOPCF (INTERN #))
; (SB!VM::VOP32U (INTERN #))
; (SB!VM::VOP32F (INTERN #))
; (SB!VM::VOP32CU (INTERN #))
; (SB!VM::VOP32CF (INTERN #))
; (SB!VM::SFUN30 (INTERN #))
; ...)
; (SB!IMPL::BACKQ-LIST* 'PROGN ..))
;
; caught STYLE-WARNING:
; The variable VOP32CF is defined but never used.
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF +:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF +:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF -:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF -:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-ASH-LEFT-MOD32-C/UNSIGNED=>UNSIGNED FAST-ASH-C/UNSIGNED=>UNSIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM ASH-LEFT-MOD32:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-ASH-LEFT-SMOD30-C/FIXNUM=>FIXNUM FAST-ASH-C/FIXNUM=>FIXNUM):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM ASH-LEFT-SMOD30:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-MODULAR-FUN-OPTIMIZER %LEA:
; compiling top level form:
; compiling DEFINE-MODULAR-FUN-OPTIMIZER %LEA:
; compiling top level form:
; recognizing DEFUN SB!VM::%LEA-MOD32
; compiling top level form:
; compiling DEFUN SB!VM::%LEA-MOD32:
; compiling top level form:
; recognizing DEFUN SB!VM::%LEA-SMOD30
; compiling top level form:
; compiling DEFUN SB!VM::%LEA-SMOD30:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (%LEA-MOD32/UNSIGNED=>UNSIGNED %LEA/UNSIGNED=>UNSIGNED):
; compiling DEFINE-VOP (%LEA-MOD32/UNSIGNED=>UNSIGNED %LEA/UNSIGNED=>UNSIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (%LEA-SMOD30/FIXNUM=>FIXNUM %LEA/FIXNUM=>FIXNUM):
; compiling DEFINE-VOP (%LEA-SMOD30/FIXNUM=>FIXNUM %LEA/FIXNUM=>FIXNUM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (LOGNOT-MOD32/UNSIGNED=>UNSIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-LOGXOR-MOD32-C/UNSIGNED=>UNSIGNED FAST-LOGXOR-C/UNSIGNED=>UNSIGNED):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-LOGXOR-MOD32-C/FIXNUM=>FIXNUM FAST-LOGXOR-C/FIXNUM=>FIXNUM):
; compiling top level form:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM LOGEQV:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM LOGANDC1:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM LOGANDC2:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM LOGORC1:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM LOGORC2:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM LOGNOR:
; compiling top level form:
; compiling DEFINE-SOURCE-TRANSFORM LOGNAND:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-REFFER BIGNUM-REF:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-REFFER BIGNUM-REF:
; compiling DEFINE-FULL-REFFER BIGNUM-REF:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-SETTER BIGNUM-SET:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-SETTER BIGNUM-SET:
; compiling DEFINE-FULL-SETTER BIGNUM-SET:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DIGIT-0-OR-PLUS):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (ADD-W/CARRY):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SUB-W/BORROW):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (BIGNUM-MULT-AND-ADD-3-ARG):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (BIGNUM-MULT-AND-ADD-4-ARG):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (BIGNUM-MULT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FIXNUM-TO-DIGIT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (BIGNUM-FLOOR):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SIGNIFY-DIGIT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DIGIT-ASHR):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DIGIT-LSHR DIGIT-ASHR):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DIGIT-ASHL DIGIT-ASHR):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (RANDOM-MT19937):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MASK-RESULT
; compiling top level form:
; compiling DEFUN MASK-RESULT:
; compiling top level form:
; recognizing DEFUN BASIC-DECOMPOSE-MULTIPLICATION
; compiling top level form:
; compiling DEFUN BASIC-DECOMPOSE-MULTIPLICATION:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/arith.lisp
; in: DEFUN BASIC-DECOMPOSE-MULTIPLICATION
; (AREF SB!C::CONDENSED 0)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SB!C::CONDENSED 1)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (DECF (AREF SB!C::CONDENSED 1) SB!C::TMP)
; --> LET* - AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; --> LET* SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SB!C::CONDENSED 0)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (INCF (AREF SB!C::CONDENSED 1) SB!C::R0)
; --> LET* + AREF LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; --> LET* SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SB!C::CONDENSED 0)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (SETF (AREF SB!C::CONDENSED 0) 0)
; --> SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling top level form:
; recognizing DEFUN DECOMPOSE-MULTIPLICATION
; compiling top level form:
; compiling DEFUN DECOMPOSE-MULTIPLICATION:
; compiling top level form:
; recognizing DEFUN OPTIMIZE-MULTIPLY
; compiling top level form:
; compiling DEFUN OPTIMIZE-MULTIPLY:
; compiling top level form:
; recognizing DEFUN *-TRANSFORMER
; compiling top level form:
; compiling DEFUN *-TRANSFORMER:
; compiling top level form:
; compiling DEFTRANSFORM *:
; compiling top level form:
; compiling DEFTRANSFORM SB!VM::*-MOD32:
; compiling top level form:
; compiling DEFTRANSFORM *:
; compiling top level form:
; compiling DEFTRANSFORM SB!VM::*-SMOD30:
; compiling top level form:
; compilation unit finished
; caught 1 STYLE-WARNING condition
; printed 9 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/arith.lisp-obj-tmp written
; compilation finished in 0:00:18
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/subprim.lisp" (written 01 NOV 2001 10:53:28 PM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (LENGTH/LIST):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FAST-LENGTH/LIST):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/subprim.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/debug.lisp" (written 11 OCT 2001 04:05:26 PM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DEBUG-CUR-SP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DEBUG-CUR-FP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (READ-CONTROL-STACK):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (READ-CONTROL-STACK-C):
; compiling DEFINE-VOP (READ-CONTROL-STACK-C):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (WRITE-CONTROL-STACK):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (WRITE-CONTROL-STACK-C):
; compiling DEFINE-VOP (WRITE-CONTROL-STACK-C):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CODE-FROM-MUMBLE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MAKE-LISP-OBJ):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (GET-LISP-OBJ-ADDRESS):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FUN-WORD-OFFSET):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/debug.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/early-aliencomp.lisp" (written 15 FEB 2002 06:10:02 PM):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/early-aliencomp.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/c-call.lisp" (written 01 NOV 2004 07:43:40 AM):
; compiling top level form:
; recognizing DEFUN MY-MAKE-WIRED-TN
; compiling top level form:
; compiling DEFUN MY-MAKE-WIRED-TN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-ARG-STATE
; compiling top level form:
; compiling DEFSTRUCT ARG-STATE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INTEGER-ARG-TN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (INTEGER :ARG-TN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SYSTEM-AREA-POINTER-ARG-TN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ARG-TN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DOUBLE-FLOAT-ARG-TN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :ARG-TN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SINGLE-FLOAT-ARG-TN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :ARG-TN):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-RESULT-STATE
; compiling top level form:
; compiling DEFSTRUCT RESULT-STATE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN RESULT-REG-OFFSET
; compiling top level form:
; compiling DEFUN RESULT-REG-OFFSET:
; compiling top level form:
; recognizing DEFUN INTEGER-RESULT-TN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (INTEGER :RESULT-TN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SYSTEM-AREA-POINTER-RESULT-TN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :RESULT-TN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DOUBLE-FLOAT-RESULT-TN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :RESULT-TN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SINGLE-FLOAT-RESULT-TN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :RESULT-TN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALUES-RESULT-TN-METHOD
; compiling top level form:
; compiling DEFINE-ALIEN-TYPE-METHOD (VALUES :RESULT-TN):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-MAKE-CALL-OUT-TNS
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE MAKE-CALL-OUT-TNS:
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM %ALIEN-FUNCALL:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FOREIGN-SYMBOL-ADDRESS):
; compiling DEFINE-VOP (FOREIGN-SYMBOL-ADDRESS):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CALL-OUT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (ALLOC-NUMBER-STACK-SPACE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DEALLOC-NUMBER-STACK-SPACE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (ALLOC-ALIEN-STACK-SPACE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DEALLOC-ALIEN-STACK-SPACE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (PUSH-WORD-ON-C-STACK):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (POP-WORDS-FROM-C-STACK):
; compiling DEFINE-VOP (POP-WORDS-FROM-C-STACK):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/c-call.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/cell.lisp" (written 29 OCT 2004 01:30:55 PM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SLOT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SET-SLOT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SYMBOL-VALUE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (LOCKED-SYMBOL-GLOBAL-VALUE-ADD):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (BOUNDP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SYMBOL-HASH):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SAFE-FDEFN-FUN):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SET-FDEFN-FUN):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FDEFN-MAKUNBOUND):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (BIND):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (UNBIND):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (UNBIND-TO-HERE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-REFFER CLOSURE-INDEX-REF:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-REFFER CLOSURE-INDEX-REF:
; compiling DEFINE-FULL-REFFER CLOSURE-INDEX-REF:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-SETTER SET-FUNCALLABLE-INSTANCE-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-SETTER SET-FUNCALLABLE-INSTANCE-INFO:
; compiling DEFINE-FULL-SETTER SET-FUNCALLABLE-INSTANCE-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-REFFER FUNCALLABLE-INSTANCE-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-REFFER FUNCALLABLE-INSTANCE-INFO:
; compiling DEFINE-FULL-REFFER FUNCALLABLE-INSTANCE-INFO:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (INSTANCE-LENGTH):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (INSTANCE-REF SLOT-REF):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (INSTANCE-SET SLOT-SET):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-REFFER INSTANCE-INDEX-REF:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-REFFER INSTANCE-INDEX-REF:
; compiling DEFINE-FULL-REFFER INSTANCE-INDEX-REF:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-SETTER INSTANCE-INDEX-SET:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-SETTER INSTANCE-INDEX-SET:
; compiling DEFINE-FULL-SETTER INSTANCE-INDEX-SET:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (INSTANCE-SET-CONDITIONAL):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-REFFER CODE-HEADER-REF:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-REFFER CODE-HEADER-REF:
; compiling DEFINE-FULL-REFFER CODE-HEADER-REF:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-SETTER CODE-HEADER-SET:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-SETTER CODE-HEADER-SET:
; compiling DEFINE-FULL-SETTER CODE-HEADER-SET:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/cell.lisp-obj-tmp written
; compilation finished in 0:00:04
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/values.lisp" (written 01 MAY 2004 01:22:39 PM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (RESET-STACK-POINTER):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (%%NIP-VALUES):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (PUSH-VALUES):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (VALUES-LIST):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (%MORE-ARG-VALUES):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/values.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/alloc.lisp" (written 13 SEP 2004 07:40:31 AM):
; compiling top level form:
; recognizing DEFUN LIST-STACK-ALLOCATE-RESULT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (LIST STACK-ALLOCATE-RESULT):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LIST*-STACK-ALLOCATE-RESULT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (LIST* STACK-ALLOCATE-RESULT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (LIST-OR-LIST*):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (ALLOCATE-CODE-OBJECT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MAKE-FDEFN):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MAKE-CLOSURE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MAKE-VALUE-CELL):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MAKE-UNBOUND-MARKER):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FIXED-ALLOC):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (VAR-ALLOC):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/alloc.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/call.lisp" (written 13 SEP 2004 07:40:31 AM):
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-STANDARD-ARG-LOCATION
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE STANDARD-ARG-LOCATION:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-MAKE-RETURN-PC-PASSING-LOCATION
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE MAKE-RETURN-PC-PASSING-LOCATION:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-MAKE-OLD-FP-PASSING-LOCATION
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE MAKE-OLD-FP-PASSING-LOCATION:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-MAKE-OLD-FP-SAVE-LOCATION
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE MAKE-OLD-FP-SAVE-LOCATION:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-MAKE-RETURN-PC-SAVE-LOCATION
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE MAKE-RETURN-PC-SAVE-LOCATION:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-MAKE-ARG-COUNT-LOCATION
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE MAKE-ARG-COUNT-LOCATION:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-MAKE-NFP-TN
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE MAKE-NFP-TN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-MAKE-STACK-POINTER-TN
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE MAKE-STACK-POINTER-TN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-MAKE-NUMBER-STACK-POINTER-TN
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE MAKE-NUMBER-STACK-POINTER-TN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-MAKE-UNKNOWN-VALUES-LOCATIONS
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE MAKE-UNKNOWN-VALUES-LOCATIONS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-SELECT-COMPONENT-FORMAT
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE SELECT-COMPONENT-FORMAT:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CURRENT-FP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (COMPUTE-OLD-NFP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (XEP-ALLOCATE-FRAME):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (ALLOCATE-FRAME):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (ALLOCATE-FULL-CALL-FRAME):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DEFAULT-UNKNOWN-VALUES
; compiling top level form:
; compiling DEFUN DEFAULT-UNKNOWN-VALUES:
; compiling top level form:
; recognizing DEFUN RECEIVE-UNKNOWN-VALUES
; compiling top level form:
; compiling DEFUN RECEIVE-UNKNOWN-VALUES:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CALL-LOCAL):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MULTIPLE-CALL-LOCAL UNKNOWN-VALUES-RECEIVER):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (KNOWN-CALL-LOCAL):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (KNOWN-RETURN):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-CALL CALL:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-CALL CALL-NAMED:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-CALL MULTIPLE-CALL:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-CALL MULTIPLE-CALL-NAMED:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-CALL TAIL-CALL:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-CALL TAIL-CALL-NAMED:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-CALL CALL-VARIABLE:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-CALL MULTIPLE-CALL-VARIABLE:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (TAIL-CALL-VARIABLE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (RETURN-SINGLE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (RETURN):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (RETURN-MULTIPLE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SETUP-ENVIRONMENT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SETUP-CLOSURE-ENVIRONMENT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (COPY-MORE-ARG):
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/call.lisp
; in: DEFINE-VOP (COPY-MORE-ARG)
; (SB!ASSEM:INST SB!VM::TEST SB!VM::ECX-TN SB!VM::ECX-TN)
; --> SB!VM::TEST-INST-EMITTER
; ==>
; SB!VM::ECX-TN
;
; note: deleting unreachable code
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MORE-ARG):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MORE-ARG-C):
; compiling DEFINE-VOP (MORE-ARG-C):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %LISTIFY-REST-ARGS-STACK-ALLOCATE-RESULT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%LISTIFY-REST-ARGS STACK-ALLOCATE-RESULT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (LISTIFY-REST-ARGS):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MORE-ARG-CONTEXT):
; compiling DEFINE-VOP (MORE-ARG-CONTEXT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (VERIFY-ARG-COUNT):
; compiling DEFINE-VOP (VERIFY-ARG-COUNT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF ARG-COUNT-ERROR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF TYPE-CHECK-ERROR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF LAYOUT-INVALID-ERROR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF ODD-KEY-ARGS-ERROR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF UNKNOWN-KEY-ARG-ERROR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF NIL-FUN-RETURNED-ERROR:
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/call.lisp
; in: DEFINE-VOP (KNOWN-CALL-LOCAL)
; (SB!C:CALLEE-RETURN-PC-TN SB!VM::CALLEE)
;
; caught STYLE-WARNING:
; undefined function: CALLEE-RETURN-PC-TN
; in: DEFINE-VOP (MULTIPLE-CALL-LOCAL UNKNOWN-VALUES-RECEIVER)
; (SB!C:CALLEE-RETURN-PC-TN SB!VM::CALLEE)
;
; caught STYLE-WARNING:
; undefined function: CALLEE-RETURN-PC-TN
; in: DEFINE-VOP (CALL-LOCAL)
; (SB!C:CALLEE-RETURN-PC-TN SB!VM::CALLEE)
;
; caught STYLE-WARNING:
; undefined function: CALLEE-RETURN-PC-TN
; in: DEFINE-VOP (COPY-MORE-ARG)
; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK)
;
; caught STYLE-WARNING:
; undefined function: SB-ALLOCATED-SIZE
; in: DEFINE-VOP (ALLOCATE-FRAME)
; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK)
;
; caught STYLE-WARNING:
; undefined function: SB-ALLOCATED-SIZE
; in: DEFINE-VOP (XEP-ALLOCATE-FRAME)
; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK)
;
; caught STYLE-WARNING:
; undefined function: SB-ALLOCATED-SIZE
;
; caught STYLE-WARNING:
; These functions are undefined:
; CALLEE-RETURN-PC-TN SB-ALLOCATED-SIZE
;
; compilation unit finished
; caught 7 STYLE-WARNING conditions
; printed 1 note
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/call.lisp-obj-tmp written
; compilation finished in 0:00:06
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/nlx.lisp" (written 02 APR 2003 01:15:20 PM):
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-MAKE-NLX-SP-TN
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE MAKE-NLX-SP-TN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-MAKE-NLX-ENTRY-ARG-START-LOCATION
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE MAKE-NLX-ENTRY-ARG-START-LOCATION:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CATCH-BLOCK-EA
; compiling top level form:
; compiling DEFUN CATCH-BLOCK-EA:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SAVE-DYNAMIC-STATE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (RESTORE-DYNAMIC-STATE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CURRENT-STACK-POINTER):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CURRENT-BINDING-POINTER):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MAKE-UNWIND-BLOCK):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MAKE-CATCH-BLOCK):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SET-UNWIND-PROTECT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (UNLINK-CATCH-BLOCK):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (UNLINK-UNWIND-PROTECT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (NLX-ENTRY):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (NLX-ENTRY-MULTIPLE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (UWP-ENTRY):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/nlx.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/late-nlx.lisp" (written 07 MAR 2003 01:15:26 PM):
; compiling top level form:
; recognizing DEFUN IMPL-OF-VM-SUPPORT-ROUTINE-MAKE-DYNAMIC-STATE-TNS
; compiling top level form:
; compiling !DEF-VM-SUPPORT-ROUTINE MAKE-DYNAMIC-STATE-TNS:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/late-nlx.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/show.lisp" (written 11 OCT 2001 04:05:26 PM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (PRINT):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/show.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/array.lisp" (written 02 NOV 2004 08:22:10 AM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MAKE-ARRAY-HEADER):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-REFFER %ARRAY-DIMENSION:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-REFFER %ARRAY-DIMENSION:
; compiling DEFINE-FULL-REFFER %ARRAY-DIMENSION:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-SETTER %SET-ARRAY-DIMENSION:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-SETTER %SET-ARRAY-DIMENSION:
; compiling DEFINE-FULL-SETTER %SET-ARRAY-DIMENSION:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (ARRAY-RANK-VOP):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CHECK-BOUND):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-VECTOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-VECTOR:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-VECTOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-VECTOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-VECTOR:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-VECTOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-32:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-32:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-32:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-32:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-32:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-32:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-30:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-30:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-30:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-30:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-30:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-30:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-29:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-29:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-29:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-29:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-29:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-29:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-32:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-32:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-32:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-32:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-32:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-32:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-31:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-31:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-31:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-31:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-31:
; compiling DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-31:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-BIT-VECTOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-BIT-VECTOR:
; compiling DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-BIT-VECTOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-BIT-VECTOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-BIT-VECTOR:
; compiling DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-BIT-VECTOR:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-2:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-2:
; compiling DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-2:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-2:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-2:
; compiling DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-2:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-4:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-4:
; compiling DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-4:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-4:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-4:
; compiling DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-4:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-SINGLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-REF-C/SIMPLE-ARRAY-SINGLE-FLOAT):
; compiling DEFINE-VOP (DATA-VECTOR-REF-C/SIMPLE-ARRAY-SINGLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-SINGLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-SET-C/SIMPLE-ARRAY-SINGLE-FLOAT):
; compiling DEFINE-VOP (DATA-VECTOR-SET-C/SIMPLE-ARRAY-SINGLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-DOUBLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-REF-C/SIMPLE-ARRAY-DOUBLE-FLOAT):
; compiling DEFINE-VOP (DATA-VECTOR-REF-C/SIMPLE-ARRAY-DOUBLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-DOUBLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-SET-C/SIMPLE-ARRAY-DOUBLE-FLOAT):
; compiling DEFINE-VOP (DATA-VECTOR-SET-C/SIMPLE-ARRAY-DOUBLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-REF-C/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT):
; compiling DEFINE-VOP (DATA-VECTOR-REF-C/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-SET-C/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT):
; compiling DEFINE-VOP (DATA-VECTOR-SET-C/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-REF-C/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT):
; compiling DEFINE-VOP (DATA-VECTOR-REF-C/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-SET-C/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT):
; compiling DEFINE-VOP (DATA-VECTOR-SET-C/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-7:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-7:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-7:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-7:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-7:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-7:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-8:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-8:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-8:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-8:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-8:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-8:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-15:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-15:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-15:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-15:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-15:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-15:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-16:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-16:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-16:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-16:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-16:
; compiling DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-16:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-BASE-STRING):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-REF-C/SIMPLE-BASE-STRING):
; compiling DEFINE-VOP (DATA-VECTOR-REF-C/SIMPLE-BASE-STRING):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-BASE-STRING):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-SET-C/SIMPLE-BASE-STRING):
; compiling DEFINE-VOP (DATA-VECTOR-SET-C/SIMPLE-BASE-STRING):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-REFFER DATA-VECTOR-REF/SIMPLE-CHARACTER-STRING:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-REFFER DATA-VECTOR-REF/SIMPLE-CHARACTER-STRING:
; compiling DEFINE-FULL-REFFER DATA-VECTOR-REF/SIMPLE-CHARACTER-STRING:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-SETTER DATA-VECTOR-REF/SIMPLE-CHARACTER-STRING:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-SETTER DATA-VECTOR-REF/SIMPLE-CHARACTER-STRING:
; compiling DEFINE-FULL-SETTER DATA-VECTOR-REF/SIMPLE-CHARACTER-STRING:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-SIGNED-BYTE-8):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-REF-C/SIMPLE-ARRAY-SIGNED-BYTE-8):
; compiling DEFINE-VOP (DATA-VECTOR-REF-C/SIMPLE-ARRAY-SIGNED-BYTE-8):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-SIGNED-BYTE-8):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-SET-C/SIMPLE-ARRAY-SIGNED-BYTE-8):
; compiling DEFINE-VOP (DATA-VECTOR-SET-C/SIMPLE-ARRAY-SIGNED-BYTE-8):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-SIGNED-BYTE-16):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-REF-C/SIMPLE-ARRAY-SIGNED-BYTE-16):
; compiling DEFINE-VOP (DATA-VECTOR-REF-C/SIMPLE-ARRAY-SIGNED-BYTE-16):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-SIGNED-BYTE-16):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-SET-C/SIMPLE-ARRAY-SIGNED-BYTE-16):
; compiling DEFINE-VOP (DATA-VECTOR-SET-C/SIMPLE-ARRAY-SIGNED-BYTE-16):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (RAW-REF-SINGLE-C DATA-VECTOR-REF-C/SIMPLE-ARRAY-SINGLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (RAW-SET-SINGLE-C DATA-VECTOR-SET-C/SIMPLE-ARRAY-SINGLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (RAW-REF-DOUBLE-C DATA-VECTOR-REF-C/SIMPLE-ARRAY-DOUBLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (RAW-SET-DOUBLE-C DATA-VECTOR-SET-C/SIMPLE-ARRAY-DOUBLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (RAW-REF-COMPLEX-SINGLE-C DATA-VECTOR-REF-C/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (RAW-SET-COMPLEX-SINGLE-C DATA-VECTOR-SET-C/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (RAW-REF-COMPLEX-DOUBLE-C DATA-VECTOR-REF-C/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (RAW-SET-COMPLEX-DOUBLE-C DATA-VECTOR-SET-C/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-REFFER RAW-BITS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-REFFER RAW-BITS:
; compiling DEFINE-FULL-REFFER RAW-BITS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-SETTER SET-RAW-BITS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-FULL-SETTER SET-RAW-BITS:
; compiling DEFINE-FULL-SETTER SET-RAW-BITS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/array.lisp-obj-tmp written
; compilation finished in 0:00:16
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/array.lisp" (written 27 MAY 2003 06:17:28 PM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-NIL):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/array.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/pred.lisp" (written 29 OCT 2004 01:30:56 PM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (BRANCH):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (IF-EQ):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/pred.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/target/type-vops.lisp" (written 27 JUL 2004 07:56:35 PM):
; compiling top level form:
; recognizing DEFUN GENERATE-FIXNUM-TEST
; compiling top level form:
; compiling DEFUN GENERATE-FIXNUM-TEST:
; compiling top level form:
; recognizing DEFUN %TEST-FIXNUM
; compiling top level form:
; compiling DEFUN %TEST-FIXNUM:
; compiling top level form:
; recognizing DEFUN %TEST-FIXNUM-AND-HEADERS
; compiling top level form:
; compiling DEFUN %TEST-FIXNUM-AND-HEADERS:
; compiling top level form:
; recognizing DEFUN %TEST-IMMEDIATE
; compiling top level form:
; compiling DEFUN %TEST-IMMEDIATE:
; compiling top level form:
; recognizing DEFUN %TEST-LOWTAG
; compiling top level form:
; compiling DEFUN %TEST-LOWTAG:
; compiling top level form:
; recognizing DEFUN %TEST-HEADERS
; compiling top level form:
; compiling DEFUN %TEST-HEADERS:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COST-TO-TEST-TYPES
; compiling top level form:
; compiling DEFUN COST-TO-TEST-TYPES:
; compiling top level form:
; compiling DEFMACRO !DEFINE-TYPE-VOPS:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (FIXNUMP/UNSIGNED-BYTE-32 SIMPLE-TYPE-PREDICATE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SIGNED-BYTE-32-P TYPE-PREDICATE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CHECK-SIGNED-BYTE-32 CHECK-TYPE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (UNSIGNED-BYTE-32-P TYPE-PREDICATE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CHECK-UNSIGNED-BYTE-32 CHECK-TYPE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (SYMBOLP TYPE-PREDICATE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CHECK-SYMBOL CHECK-TYPE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CONSP TYPE-PREDICATE):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (CHECK-CONS CHECK-TYPE):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/target/type-vops.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/late-type-vops.lisp" (written 02 NOV 2004 08:22:09 AM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS FIXNUMP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS FIXNUMP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS FUNCTIONP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS FUNCTIONP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS LISTP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS LISTP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS %INSTANCEP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS %INSTANCEP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS BIGNUMP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS BIGNUMP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS RATIOP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS RATIOP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS COMPLEXP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS COMPLEXP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS COMPLEX-RATIONAL-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS COMPLEX-RATIONAL-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS COMPLEX-FLOAT-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS COMPLEX-FLOAT-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS COMPLEX-SINGLE-FLOAT-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS COMPLEX-SINGLE-FLOAT-P:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS COMPLEX-DOUBLE-FLOAT-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS COMPLEX-DOUBLE-FLOAT-P:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS SINGLE-FLOAT-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS SINGLE-FLOAT-P:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS DOUBLE-FLOAT-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS DOUBLE-FLOAT-P:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS SIMPLE-STRING-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS SIMPLE-STRING-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-SIMPLE-ARRAY-TYPE-VOPS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS CHARACTERP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS CHARACTERP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS SYSTEM-AREA-POINTER-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS SYSTEM-AREA-POINTER-P:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS WEAK-POINTER-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS WEAK-POINTER-P:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS CODE-COMPONENT-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS LRA-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS FDEFN-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS FUNCALLABLE-INSTANCE-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS ARRAY-HEADER-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS STRINGP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS STRINGP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS BASE-STRING-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS BASE-STRING-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS BIT-VECTOR-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS BIT-VECTOR-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS VECTOR-NIL-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS VECTOR-NIL-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS CHARACTER-STRING-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS CHARACTER-STRING-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS VECTORP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS VECTORP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS COMPLEX-VECTOR-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS COMPLEX-VECTOR-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS SIMPLE-ARRAY-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS SIMPLE-ARRAY-P:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS ARRAYP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS ARRAYP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS NUMBERP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS NUMBERP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS RATIONALP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS RATIONALP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS INTEGERP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS INTEGERP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS FLOATP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS FLOATP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS REALP:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling !DEFINE-TYPE-VOPS REALP:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/late-type-vops.lisp-obj-tmp written
; compilation finished in 0:00:14
creating directory: obj/from-host/src/compiler/assembly/
creating directory: obj/from-host/src/compiler/assembly/target/
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/assembly/target/assem-rtns.lisp" (written 27 SEP 2004 02:57:33 PM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-ASSEMBLY-ROUTINE (THROW (:RETURN-STYLE :NONE)):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-ASSEMBLY-ROUTINE (UNWIND (:RETURN-STYLE :NONE) (:TRANSLATE %CONTINUE-UNWIND) (:POLICY :FAST-SAFE)):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/assembly/target/assem-rtns.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/assembly/target/array.lisp" (written 11 OCT 2001 04:05:25 PM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-ASSEMBLY-ROUTINE (ALLOCATE-VECTOR (:POLICY :FAST-SAFE) (:TRANSLATE ALLOCATE-VECTOR) (:ARG-TYPES POSITIVE-FIXNUM POSITIVE-FIXNUM POSITIVE-FIXNUM)):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/assembly/target/array.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/assembly/target/arith.lisp" (written 01 NOV 2001 10:53:28 PM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-GENERIC-ARITH-ROUTINE (+ 10):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-GENERIC-ARITH-ROUTINE (- 10):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-GENERIC-ARITH-ROUTINE (* 30):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-ASSEMBLY-ROUTINE (GENERIC-NEGATE (:COST 10) (:RETURN-STYLE :FULL-CALL) (:POLICY :SAFE) (:TRANSLATE %NEGATE) ...):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-COND-ASSEM-RTN GENERIC-<:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-COND-ASSEM-RTN GENERIC->:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-ASSEMBLY-ROUTINE (GENERIC-EQL (:COST 10) (:RETURN-STYLE :FULL-CALL) (:POLICY :SAFE) (:TRANSLATE EQL) ...):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-ASSEMBLY-ROUTINE (GENERIC-= (:COST 10) (:RETURN-STYLE :FULL-CALL) (:POLICY :SAFE) (:TRANSLATE =) ...):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/assembly/target/arith.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/assembly/target/alloc.lisp" (written 11 OCT 2001 12:44:30 AM):
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/assembly/target/alloc.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/pseudo-vops.lisp" (written 21 OCT 2000 01:30:34 AM):
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (NOTE-ENVIRONMENT-START):
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form:
; compiling DEFINE-VOP (MOVE-OPERAND):
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/pseudo-vops.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/aliencomp.lisp" (written 21 DEC 2004 04:52:08 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM SLOT:
; compiling top level form:
; compiling DEFTRANSFORM %SET-SLOT:
; compiling top level form:
; compiling DEFTRANSFORM %SLOT-ADDR:
; compiling top level form:
; recognizing DEFUN FIND-SLOT-OFFSET-AND-TYPE
; compiling top level form:
; compiling DEFUN FIND-SLOT-OFFSET-AND-TYPE:
; compiling top level form:
; compiling DEFTRANSFORM SLOT:
; compiling top level form:
; compiling DEFTRANSFORM %SET-SLOT:
; compiling top level form:
; recognizing DEFUN %SLOT-ADDR-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%SLOT-ADDR DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM %SLOT-ADDR:
; compiling top level form:
; recognizing DEFUN FIND-DEREF-ALIEN-TYPE
; compiling top level form:
; compiling DEFUN FIND-DEREF-ALIEN-TYPE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/aliencomp.lisp
; in: DEFUN FIND-DEREF-ALIEN-TYPE
; (SB!C::GIVE-UP-IR1-TRANSFORM)
;
; note: deleting unreachable code
; compiling top level form:
; recognizing DEFUN FIND-DEREF-ELEMENT-TYPE
; compiling top level form:
; compiling DEFUN FIND-DEREF-ELEMENT-TYPE:
; compiling top level form:
; recognizing DEFUN COMPUTE-DEREF-GUTS
; compiling top level form:
; compiling DEFUN COMPUTE-DEREF-GUTS:
; compiling top level form:
; compiling DEFTRANSFORM DEREF:
; compiling top level form:
; compiling DEFTRANSFORM %SET-DEREF:
; compiling top level form:
; recognizing DEFUN %DEREF-ADDR-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%DEREF-ADDR DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM %DEREF-ADDR:
; compiling top level form:
; recognizing DEFUN HEAP-ALIEN-SAP-AND-TYPE
; compiling top level form:
; compiling DEFUN HEAP-ALIEN-SAP-AND-TYPE:
; compiling top level form:
; compiling DEFTRANSFORM %HEAP-ALIEN:
; compiling top level form:
; compiling DEFTRANSFORM %SET-HEAP-ALIEN:
; compiling top level form:
; recognizing DEFUN %HEAP-ALIEN-ADDR-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%HEAP-ALIEN-ADDR DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM %HEAP-ALIEN-ADDR:
; compiling top level form:
; compiling DEFTRANSFORM MAKE-LOCAL-ALIEN:
; compiling top level form:
; compiling DEFTRANSFORM NOTE-LOCAL-ALIEN-TYPE:
; compiling top level form:
; compiling DEFTRANSFORM LOCAL-ALIEN:
; compiling top level form:
; compiling DEFTRANSFORM %LOCAL-ALIEN-FORCED-TO-MEMORY-P:
; compiling top level form:
; compiling DEFTRANSFORM %SET-LOCAL-ALIEN:
; compiling top level form:
; recognizing DEFUN %LOCAL-ALIEN-ADDR-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%LOCAL-ALIEN-ADDR DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM %LOCAL-ALIEN-ADDR:
; compiling top level form:
; compiling DEFTRANSFORM DISPOSE-LOCAL-ALIEN:
; compiling top level form:
; recognizing DEFUN %CAST-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%CAST DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM %CAST:
; compiling top level form:
; compiling DEFTRANSFORM ALIEN-SAP:
; compiling top level form:
; recognizing DEFUN %SAP-ALIEN-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%SAP-ALIEN DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; compiling DEFTRANSFORM %SAP-ALIEN:
; compiling top level form:
; compiling DEFTRANSFORM EXTRACT-ALIEN-VALUE:
; compiling top level form:
; recognizing DEFUN COUNT-LOW-ORDER-ZEROS
; compiling top level form:
; compiling DEFUN COUNT-LOW-ORDER-ZEROS:
; compiling top level form:
; compiling DEFTRANSFORM /:
; compiling top level form:
; compiling DEFTRANSFORM ASH:
; compiling top level form:
; compiling DEFTRANSFORM ALIEN-FUNCALL:
; compiling top level form:
; compiling DEFTRANSFORM ALIEN-FUNCALL:
; compiling top level form:
; recognizing DEFUN %ALIEN-FUNCALL-DERIVE-TYPE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%ALIEN-FUNCALL DERIVE-TYPE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %ALIEN-FUNCALL-LTN-ANNOTATE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%ALIEN-FUNCALL LTN-ANNOTATE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %ALIEN-FUNCALL-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%ALIEN-FUNCALL IR2-CONVERT):
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/aliencomp.lisp
; in: DEFOPTIMIZER (%ALIEN-FUNCALL LTN-ANNOTATE)
; (SB!C::ANNOTATE-ORDINARY-LVAR FUNCTION)
;
; caught STYLE-WARNING:
; undefined function: ANNOTATE-ORDINARY-LVAR
; in: DEFOPTIMIZER (%ALIEN-FUNCALL IR2-CONVERT)
; (SB!C::LVAR-TN SB!C:CALL BLOCK SB!C::ARG)
;
; caught STYLE-WARNING:
; undefined function: LVAR-TN
; (SB!C::MOVE-LVAR-RESULT SB!C:CALL BLOCK SB!C::RESULT-TNS SB!C::LVAR)
;
; caught STYLE-WARNING:
; undefined function: MOVE-LVAR-RESULT
;
; caught STYLE-WARNING:
; These functions are undefined:
; ANNOTATE-ORDINARY-LVAR LVAR-TN MOVE-LVAR-RESULT
;
; compilation unit finished
; caught 4 STYLE-WARNING conditions
; printed 1 note
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/aliencomp.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/ltv.lisp" (written 15 SEP 2003 11:21:38 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-LOAD-TIME-VALUE
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR LOAD-TIME-VALUE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %LOAD-TIME-VALUE-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%LOAD-TIME-VALUE IR2-CONVERT):
; compiling top level form:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ltv.lisp
; in: DEF-IR1-TRANSLATOR LOAD-TIME-VALUE
; (SB!KERNEL:MAKE-VALUE-CELL SB!C::VALUE)
;
; caught STYLE-WARNING:
; undefined function: MAKE-VALUE-CELL
; in: DEFOPTIMIZER (%LOAD-TIME-VALUE IR2-CONVERT)
; (SB!C::MOVE-LVAR-RESULT SB!C::NODE BLOCK (LIST SB!C:TN) SB!C::LVAR)
;
; caught STYLE-WARNING:
; undefined function: MOVE-LVAR-RESULT
;
; caught STYLE-WARNING:
; These functions are undefined:
; MAKE-VALUE-CELL MOVE-LVAR-RESULT
;
; compilation unit finished
; caught 3 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/ltv.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/gtn.lisp" (written 29 OCT 2004 01:30:44 PM):
; compiling top level form:
; recognizing DEFUN GTN-ANALYZE
; compiling top level form:
; compiling DEFUN GTN-ANALYZE:
; compiling top level form:
; recognizing DEFUN ASSIGN-LAMBDA-VAR-TNS
; compiling top level form:
; compiling DEFUN ASSIGN-LAMBDA-VAR-TNS:
; compiling top level form:
; recognizing DEFUN ASSIGN-IR2-PHYSENV
; compiling top level form:
; compiling DEFUN ASSIGN-IR2-PHYSENV:
; compiling top level form:
; recognizing DEFUN HAS-FULL-CALL-USE
; compiling top level form:
; compiling DEFUN HAS-FULL-CALL-USE:
; compiling top level form:
; recognizing DEFUN USE-STANDARD-RETURNS
; compiling top level form:
; compiling DEFUN USE-STANDARD-RETURNS:
; compiling top level form:
; recognizing DEFUN RETURN-VALUE-EFFICIENCY-NOTE
; compiling top level form:
; compiling DEFUN RETURN-VALUE-EFFICIENCY-NOTE:
; compiling top level form:
; recognizing DEFUN RETURN-INFO-FOR-SET
; compiling top level form:
; compiling DEFUN RETURN-INFO-FOR-SET:
; compiling top level form:
; recognizing DEFUN ASSIGN-RETURN-LOCATIONS
; compiling top level form:
; compiling DEFUN ASSIGN-RETURN-LOCATIONS:
; compiling top level form:
; recognizing DEFUN ASSIGN-IR2-NLX-INFO
; compiling top level form:
; compiling DEFUN ASSIGN-IR2-NLX-INFO:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/gtn.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/ltn.lisp" (written 13 SEP 2004 07:40:29 AM):
; compiling top level form:
; recognizing DEFUN NODE-LTN-POLICY
; compiling top level form:
; compiling DEFUN NODE-LTN-POLICY:
; compiling top level form:
; recognizing DEFUN LTN-POLICY-SAFE-P
; compiling top level form:
; compiling DEFUN LTN-POLICY-SAFE-P:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LVAR-PTYPE
; compiling top level form:
; compiling DEFUN LVAR-PTYPE:
; compiling top level form:
; recognizing DEFUN LEGAL-IMMEDIATE-CONSTANT-P
; compiling top level form:
; compiling DEFUN LEGAL-IMMEDIATE-CONSTANT-P:
; compiling top level form:
; recognizing DEFUN LVAR-DELAYED-LEAF
; compiling top level form:
; compiling DEFUN LVAR-DELAYED-LEAF:
; compiling top level form:
; recognizing DEFUN ANNOTATE-1-VALUE-LVAR
; compiling top level form:
; compiling DEFUN ANNOTATE-1-VALUE-LVAR:
; compiling top level form:
; recognizing DEFUN ANNOTATE-ORDINARY-LVAR
; compiling top level form:
; compiling DEFUN ANNOTATE-ORDINARY-LVAR:
; compiling top level form:
; recognizing DEFUN ANNOTATE-FUN-LVAR
; compiling top level form:
; compiling DEFUN ANNOTATE-FUN-LVAR:
; compiling top level form:
; recognizing DEFUN FLUSH-FULL-CALL-TAIL-TRANSFER
; compiling top level form:
; compiling DEFUN FLUSH-FULL-CALL-TAIL-TRANSFER:
; compiling top level form:
; recognizing DEFUN LTN-DEFAULT-CALL
; compiling top level form:
; compiling DEFUN LTN-DEFAULT-CALL:
; compiling top level form:
; recognizing DEFUN ANNOTATE-UNKNOWN-VALUES-LVAR
; compiling top level form:
; compiling DEFUN ANNOTATE-UNKNOWN-VALUES-LVAR:
; compiling top level form:
; recognizing DEFUN ANNOTATE-FIXED-VALUES-LVAR
; compiling top level form:
; compiling DEFUN ANNOTATE-FIXED-VALUES-LVAR:
; compiling top level form:
; recognizing DEFUN LTN-ANALYZE-RETURN
; compiling top level form:
; compiling DEFUN LTN-ANALYZE-RETURN:
; compiling top level form:
; recognizing DEFUN LTN-ANALYZE-MV-BIND
; compiling top level form:
; compiling DEFUN LTN-ANALYZE-MV-BIND:
; compiling top level form:
; recognizing DEFUN LTN-ANALYZE-MV-CALL
; compiling top level form:
; compiling DEFUN LTN-ANALYZE-MV-CALL:
; compiling top level form:
; recognizing DEFUN LTN-ANALYZE-LOCAL-CALL
; compiling top level form:
; compiling DEFUN LTN-ANALYZE-LOCAL-CALL:
; compiling top level form:
; recognizing DEFUN SET-TAIL-LOCAL-CALL-SUCCESSOR
; compiling top level form:
; compiling DEFUN SET-TAIL-LOCAL-CALL-SUCCESSOR:
; compiling top level form:
; recognizing DEFUN LTN-ANALYZE-SET
; compiling top level form:
; compiling DEFUN LTN-ANALYZE-SET:
; compiling top level form:
; recognizing DEFUN LTN-ANALYZE-IF
; compiling top level form:
; compiling DEFUN LTN-ANALYZE-IF:
; compiling top level form:
; recognizing DEFUN LTN-ANALYZE-EXIT
; compiling top level form:
; compiling DEFUN LTN-ANALYZE-EXIT:
; compiling top level form:
; recognizing DEFUN %UNWIND-PROTECT-LTN-ANNOTATE-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%UNWIND-PROTECT LTN-ANNOTATE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN OPERAND-RESTRICTION-OK
; compiling top level form:
; compiling DEFUN OPERAND-RESTRICTION-OK:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ltn.lisp
; in: DEFUN OPERAND-RESTRICTION-OK
; (FUNCALL (SECOND SB!C::RESTR) (SB!C::LVAR-VALUE SB!C::LVAR))
; --> 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.
; (FUNCALL (SECOND SB!C::RESTR) (SB!C:TN-VALUE SB!C:TN))
; --> 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 top level form:
; recognizing DEFUN TEMPLATE-ARGS-OK
; compiling top level form:
; compiling DEFUN TEMPLATE-ARGS-OK:
; compiling top level form:
; recognizing DEFUN TEMPLATE-RESULTS-OK
; compiling top level form:
; compiling DEFUN TEMPLATE-RESULTS-OK:
; compiling top level form:
; recognizing DEFUN IS-OK-TEMPLATE-USE
; compiling top level form:
; compiling DEFUN IS-OK-TEMPLATE-USE:
; compiling top level form:
; recognizing DEFUN FIND-TEMPLATE
; compiling top level form:
; compiling DEFUN FIND-TEMPLATE:
; compiling top level form:
; recognizing DEFUN FIND-TEMPLATE-FOR-LTN-POLICY
; compiling top level form:
; compiling DEFUN FIND-TEMPLATE-FOR-LTN-POLICY:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN STRANGE-TEMPLATE-FAILURE
; compiling top level form:
; compiling DEFUN STRANGE-TEMPLATE-FAILURE:
; compiling top level form:
; recognizing DEFUN NOTE-REJECTED-TEMPLATES
; compiling top level form:
; compiling DEFUN NOTE-REJECTED-TEMPLATES:
; compiling top level form:
; recognizing DEFUN LTN-ANALYZE-KNOWN-CALL
; compiling top level form:
; compiling DEFUN LTN-ANALYZE-KNOWN-CALL:
; compiling top level form:
; recognizing DEFUN LTN-ANALYZE-CAST
; compiling top level form:
; compiling DEFUN LTN-ANALYZE-CAST:
; compiling top level form:
; recognizing DEFUN LTN-ANNOTATE-CASTS
; compiling top level form:
; compiling DEFUN LTN-ANNOTATE-CASTS:
; compiling top level form:
; recognizing DEFUN LTN-ANNOTATE-CAST
; compiling top level form:
; compiling DEFUN LTN-ANNOTATE-CAST:
; compiling top level form:
; recognizing DEFUN LTN-ANALYZE-BLOCK
; compiling top level form:
; compiling DEFUN LTN-ANALYZE-BLOCK:
; compiling top level form:
; recognizing DEFUN LTN-ANALYZE
; compiling top level form:
; compiling DEFUN LTN-ANALYZE:
; compiling top level form:
; recognizing DEFUN LTN-ANALYZE-BELATED-BLOCK
; compiling top level form:
; compiling DEFUN LTN-ANALYZE-BELATED-BLOCK:
; compiling top level form:
; compilation unit finished
; printed 2 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/ltn.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/stack.lisp" (written 13 SEP 2004 07:40:29 AM):
; compiling top level form:
; recognizing DEFUN FIND-PUSHED-LVARS
; compiling top level form:
; compiling DEFUN FIND-PUSHED-LVARS:
; compiling top level form:
; recognizing DEFUN NLE-BLOCK-NLX-INFO
; compiling top level form:
; compiling DEFUN NLE-BLOCK-NLX-INFO:
; compiling top level form:
; recognizing DEFUN NLE-BLOCK-ENTRY-BLOCK
; compiling top level form:
; compiling DEFUN NLE-BLOCK-ENTRY-BLOCK:
; compiling top level form:
; recognizing DEFUN MERGE-UVL-LIVE-SETS
; compiling top level form:
; compiling DEFUN MERGE-UVL-LIVE-SETS:
; compiling top level form:
; recognizing DEFUN UPDATE-UVL-LIVE-SETS
; compiling top level form:
; compiling DEFUN UPDATE-UVL-LIVE-SETS:
; compiling top level form:
; recognizing DEFUN ORDER-BLOCK-UVL-SETS
; compiling top level form:
; compiling DEFUN ORDER-BLOCK-UVL-SETS:
; compiling top level form:
; recognizing DEFUN ORDER-UVL-SETS
; compiling top level form:
; compiling DEFUN ORDER-UVL-SETS:
; compiling top level form:
; recognizing DEFUN DISCARD-UNUSED-VALUES
; compiling top level form:
; compiling DEFUN DISCARD-UNUSED-VALUES:
; compiling top level form:
; recognizing DEFUN FIND-PUSHING-BLOCKS
; compiling top level form:
; compiling DEFUN FIND-PUSHING-BLOCKS:
; compiling top level form:
; recognizing DEFUN STACK-ANALYZE
; compiling top level form:
; compiling DEFUN STACK-ANALYZE:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/stack.lisp
; in: DEFUN DISCARD-UNUSED-VALUES
; (SB!C::ADD-TO-EMIT-ORDER SB!C::2BLOCK (SB!C::BLOCK-INFO SB!C::BLOCK1))
;
; caught STYLE-WARNING:
; undefined function: ADD-TO-EMIT-ORDER
;
; caught STYLE-WARNING:
; This function is undefined:
; ADD-TO-EMIT-ORDER
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/stack.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/control.lisp" (written 15 SEP 2003 11:21:38 AM):
; compiling top level form:
; recognizing DEFUN ADD-TO-EMIT-ORDER
; compiling top level form:
; compiling DEFUN ADD-TO-EMIT-ORDER:
; compiling top level form:
; recognizing DEFUN FIND-ROTATED-LOOP-HEAD
; compiling top level form:
; compiling DEFUN FIND-ROTATED-LOOP-HEAD:
; compiling top level form:
; recognizing DEFUN CONTROL-ANALYZE-BLOCK
; compiling top level form:
; compiling DEFUN CONTROL-ANALYZE-BLOCK:
; compiling top level form:
; recognizing DEFUN CONTROL-ANALYZE-1-FUN
; compiling top level form:
; compiling DEFUN CONTROL-ANALYZE-1-FUN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CONTROL-ANALYZE
; compiling top level form:
; compiling DEFUN CONTROL-ANALYZE:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/control.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/entry.lisp" (written 16 NOV 2003 06:40:18 PM):
; compiling top level form:
; recognizing DEFUN ENTRY-ANALYZE
; compiling top level form:
; compiling DEFUN ENTRY-ANALYZE:
; compiling top level form:
; recognizing DEFUN COMPUTE-ENTRY-INFO
; compiling top level form:
; compiling DEFUN COMPUTE-ENTRY-INFO:
; compiling top level form:
; recognizing DEFUN REPLACE-TOPLEVEL-XEPS
; compiling top level form:
; compiling DEFUN REPLACE-TOPLEVEL-XEPS:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/entry.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir2tran.lisp" (written 13 SEP 2004 03:23:44 PM):
; compiling top level form:
; recognizing DEFUN EMIT-MOVE
; compiling top level form:
; compiling DEFUN EMIT-MOVE:
; compiling top level form:
; recognizing DEFUN TYPE-CHECK-TEMPLATE
; compiling top level form:
; compiling DEFUN TYPE-CHECK-TEMPLATE:
; compiling top level form:
; recognizing DEFUN EMIT-TYPE-CHECK
; compiling top level form:
; compiling DEFUN EMIT-TYPE-CHECK:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DO-MAKE-VALUE-CELL
; compiling top level form:
; compiling DEFUN DO-MAKE-VALUE-CELL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FIND-IN-PHYSENV
; compiling top level form:
; compiling DEFUN FIND-IN-PHYSENV:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/ir2tran.lisp
; in: DEFUN FIND-IN-PHYSENV
; (DEFUN SB!C::FIND-IN-PHYSENV (SB!C::THING SB!C::PHYSENV)
; (OR (CDR (ASSOC SB!C::THING #))
; (ETYPECASE SB!C::THING (SB!C::LAMBDA-VAR # #) (SB!C::NLX-INFO # #))
; (SB!INT:BUG "~@<~2I~_~S ~_not found in ~_~S~:>"
; SB!C::THING
; SB!C::PHYSENV)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SB!C::FIND-IN-PHYSENV
; (SB!C::THING SB!C::PHYSENV)
; (BLOCK SB!C::FIND-IN-PHYSENV
; (OR (CDR #)
; (ETYPECASE SB!C::THING # #)
; (SB!INT:BUG "~@<~2I~_~S ~_not found in ~_~S~:>"
; SB!C::THING
; SB!C::PHYSENV))))
;
; note: type assertion too complex to check:
; (VALUES TN &REST T).
; compiling top level form:
; recognizing DEFUN CONSTANT-TN
; compiling top level form:
; compiling DEFUN CONSTANT-TN:
; compiling top level form:
; recognizing DEFUN LEAF-TN
; compiling top level form:
; compiling DEFUN LEAF-TN:
; compiling top level form:
; recognizing DEFUN EMIT-CONSTANT
; compiling top level form:
; compiling DEFUN EMIT-CONSTANT:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-REF
; compiling top level form:
; compiling DEFUN IR2-CONVERT-REF:
; compiling top level form:
; recognizing DEFUN ASSERTIONS-ON-IR2-CONVERTED-CLAMBDA
; compiling top level form:
; compiling DEFUN ASSERTIONS-ON-IR2-CONVERTED-CLAMBDA:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-CLOSURE
; compiling top level form:
; compiling DEFUN IR2-CONVERT-CLOSURE:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-SET
; compiling top level form:
; compiling DEFUN IR2-CONVERT-SET:
; compiling top level form:
; recognizing DEFUN LVAR-TN
; compiling top level form:
; compiling DEFUN LVAR-TN:
; compiling top level form:
; recognizing DEFUN LVAR-TNS
; compiling top level form:
; compiling DEFUN LVAR-TNS:
; compiling top level form:
; recognizing DEFUN LVAR-RESULT-TNS
; compiling top level form:
; compiling DEFUN LVAR-RESULT-TNS:
; compiling top level form:
; recognizing DEFUN MAKE-STANDARD-VALUE-TNS
; compiling top level form:
; compiling DEFUN MAKE-STANDARD-VALUE-TNS:
; compiling top level form:
; recognizing DEFUN STANDARD-RESULT-TNS
; compiling top level form:
; compiling DEFUN STANDARD-RESULT-TNS:
; compiling top level form:
; recognizing DEFUN MOVE-RESULTS-COERCED
; compiling top level form:
; compiling DEFUN MOVE-RESULTS-COERCED:
; compiling top level form:
; recognizing DEFUN MOVE-RESULTS-CHECKED
; compiling top level form:
; compiling DEFUN MOVE-RESULTS-CHECKED:
; compiling top level form:
; recognizing DEFUN MOVE-LVAR-RESULT
; compiling top level form:
; compiling DEFUN MOVE-LVAR-RESULT:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-CAST
; compiling top level form:
; compiling DEFUN IR2-CONVERT-CAST:
; compiling top level form:
; recognizing DEFUN REFERENCE-ARGS
; compiling top level form:
; compiling DEFUN REFERENCE-ARGS:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-CONDITIONAL
; compiling top level form:
; compiling DEFUN IR2-CONVERT-CONDITIONAL:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-IF
; compiling top level form:
; compiling DEFUN IR2-CONVERT-IF:
; compiling top level form:
; recognizing DEFUN FIND-TEMPLATE-RESULT-TYPES
; compiling top level form:
; compiling DEFUN FIND-TEMPLATE-RESULT-TYPES:
; compiling top level form:
; recognizing DEFUN MAKE-TEMPLATE-RESULT-TNS
; compiling top level form:
; compiling DEFUN MAKE-TEMPLATE-RESULT-TNS:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-TEMPLATE
; compiling top level form:
; compiling DEFUN IR2-CONVERT-TEMPLATE:
; compiling top level form:
; recognizing DEFUN %%PRIMITIVE-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%%PRIMITIVE IR2-CONVERT):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-LET
; compiling top level form:
; compiling DEFUN IR2-CONVERT-LET:
; compiling top level form:
; recognizing DEFUN EMIT-PSETQ-MOVES
; compiling top level form:
; compiling DEFUN EMIT-PSETQ-MOVES:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-TAIL-LOCAL-CALL
; compiling top level form:
; compiling DEFUN IR2-CONVERT-TAIL-LOCAL-CALL:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-ASSIGNMENT
; compiling top level form:
; compiling DEFUN IR2-CONVERT-ASSIGNMENT:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-LOCAL-CALL-ARGS
; compiling top level form:
; compiling DEFUN IR2-CONVERT-LOCAL-CALL-ARGS:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-LOCAL-KNOWN-CALL
; compiling top level form:
; compiling DEFUN IR2-CONVERT-LOCAL-KNOWN-CALL:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-LOCAL-UNKNOWN-CALL
; compiling top level form:
; compiling DEFUN IR2-CONVERT-LOCAL-UNKNOWN-CALL:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-LOCAL-CALL
; compiling top level form:
; compiling DEFUN IR2-CONVERT-LOCAL-CALL:
; compiling top level form:
; recognizing DEFUN FUN-LVAR-TN
; compiling top level form:
; compiling DEFUN FUN-LVAR-TN:
; compiling top level form:
; recognizing DEFUN MOVE-TAIL-FULL-CALL-ARGS
; compiling top level form:
; compiling DEFUN MOVE-TAIL-FULL-CALL-ARGS:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-TAIL-FULL-CALL
; compiling top level form:
; compiling DEFUN IR2-CONVERT-TAIL-FULL-CALL:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-FULL-CALL-ARGS
; compiling top level form:
; compiling DEFUN IR2-CONVERT-FULL-CALL-ARGS:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-FIXED-FULL-CALL
; compiling top level form:
; compiling DEFUN IR2-CONVERT-FIXED-FULL-CALL:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-MULTIPLE-FULL-CALL
; compiling top level form:
; compiling DEFUN IR2-CONVERT-MULTIPLE-FULL-CALL:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PONDER-FULL-CALL
; compiling top level form:
; compiling DEFUN PONDER-FULL-CALL:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-FULL-CALL
; compiling top level form:
; compiling DEFUN IR2-CONVERT-FULL-CALL:
; compiling top level form:
; recognizing DEFUN INIT-XEP-ENVIRONMENT
; compiling top level form:
; compiling DEFUN INIT-XEP-ENVIRONMENT:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-BIND
; compiling top level form:
; compiling DEFUN IR2-CONVERT-BIND:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-RETURN
; compiling top level form:
; compiling DEFUN IR2-CONVERT-RETURN:
; compiling top level form:
; recognizing DEFUN %CALLER-FRAME-AND-PC-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%CALLER-FRAME-AND-PC IR2-CONVERT):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-MV-BIND
; compiling top level form:
; compiling DEFUN IR2-CONVERT-MV-BIND:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-MV-CALL
; compiling top level form:
; compiling DEFUN IR2-CONVERT-MV-CALL:
; compiling top level form:
; recognizing DEFUN %POP-VALUES-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%POP-VALUES IR2-CONVERT):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %NIP-VALUES-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%NIP-VALUES IR2-CONVERT):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALUES-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (VALUES IR2-CONVERT):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALUES-LIST-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (VALUES-LIST IR2-CONVERT):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MORE-ARG-VALUES-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%MORE-ARG-VALUES IR2-CONVERT):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %SPECIAL-BIND-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%SPECIAL-BIND IR2-CONVERT):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %SPECIAL-UNBIND-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%SPECIAL-UNBIND IR2-CONVERT):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR1-CONVERT-PROGV
; compiling top level form:
; compiling DEF-IR1-TRANSLATOR PROGV:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-EXIT
; compiling top level form:
; compiling DEFUN IR2-CONVERT-EXIT:
; compiling top level form:
; recognizing DEFUN %CLEANUP-POINT-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%CLEANUP-POINT IR2-CONVERT):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %LEXICAL-EXIT-BREAKUP-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%LEXICAL-EXIT-BREAKUP IR2-CONVERT):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-THROW
; compiling top level form:
; compiling DEFUN IR2-CONVERT-THROW:
; compiling top level form:
; recognizing DEFUN EMIT-NLX-START
; compiling top level form:
; compiling DEFUN EMIT-NLX-START:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-ENTRY
; compiling top level form:
; compiling DEFUN IR2-CONVERT-ENTRY:
; compiling top level form:
; recognizing DEFUN %CATCH-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%CATCH IR2-CONVERT):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %UNWIND-PROTECT-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%UNWIND-PROTECT IR2-CONVERT):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %NLX-ENTRY-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEFOPTIMIZER (%NLX-ENTRY IR2-CONVERT):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LIST-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEF LIST:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LIST*-IR2-CONVERT-OPTIMIZER
; compiling top level form:
; compiling DEF LIST*:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT
; compiling top level form:
; compiling DEFUN IR2-CONVERT:
; compiling top level form:
; recognizing DEFUN FINISH-IR2-BLOCK
; compiling top level form:
; compiling DEFUN FINISH-IR2-BLOCK:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-BLOCK
; compiling top level form:
; compiling DEFUN IR2-CONVERT-BLOCK:
; compiling top level form:
; compilation unit finished
; printed 1 note
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/ir2tran.lisp-obj-tmp written
; compilation finished in 0:00:06
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/vm-ir2tran.lisp" (written 15 SEP 2003 11:21:38 AM):
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-REFFER
; compiling top level form:
; compiling DEFOPTIMIZER IR2-CONVERT-REFFER:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-SETTER
; compiling top level form:
; compiling DEFOPTIMIZER IR2-CONVERT-SETTER:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-SETFER
; compiling top level form:
; compiling DEFOPTIMIZER IR2-CONVERT-SETFER:
; compiling top level form:
; recognizing DEFUN DO-INITS
; compiling top level form:
; compiling DEFUN DO-INITS:
; compiling top level form:
; recognizing DEFUN DO-FIXED-ALLOC
; compiling top level form:
; compiling DEFUN DO-FIXED-ALLOC:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-FIXED-ALLOCATION
; compiling top level form:
; compiling DEFOPTIMIZER IR2-CONVERT-FIXED-ALLOCATION:
; compiling top level form:
; recognizing DEFUN IR2-CONVERT-VARIABLE-ALLOCATION
; compiling top level form:
; compiling DEFOPTIMIZER IR2-CONVERT-VARIABLE-ALLOCATION:
; compiling top level form:
; compiling LET ((FUN-INFO #)):
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/vm-ir2tran.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/copyprop.lisp" (written 17 NOV 2003 12:47:09 PM):
; compiling top level form:
; recognizing DEFUN TN-IS-COPY-OF
; compiling top level form:
; compiling DEFUN TN-IS-COPY-OF:
; compiling top level form:
; recognizing DEFUN INIT-COPY-SETS
; compiling top level form:
; compiling DEFUN INIT-COPY-SETS:
; compiling top level form:
; recognizing DEFUN COPY-FLOW-ANALYSIS
; compiling top level form:
; compiling DEFUN COPY-FLOW-ANALYSIS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN OK-COPY-REF
; compiling top level form:
; compiling DEFUN OK-COPY-REF:
; compiling top level form:
; recognizing DEFUN PROPAGATE-COPIES
; compiling top level form:
; compiling DEFUN PROPAGATE-COPIES:
; compiling top level form:
; recognizing DEFUN COPY-PROPAGATE
; compiling top level form:
; compiling DEFUN COPY-PROPAGATE:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/copyprop.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/represent.lisp" (written 29 OCT 2004 01:30:45 PM):
; compiling top level form:
; recognizing DEFUN GET-OPERAND-INFO
; compiling top level form:
; compiling DEFUN GET-OPERAND-INFO:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/represent.lisp
; in: DEFUN GET-OPERAND-INFO
; (SB!C::POSITION-IN #'SB!C:TN-REF-ACROSS SB!C::REF SB!C::REFS)
;
; note: deleting unreachable code
; [Last message occurs 3 times.]
; compiling top level form:
; recognizing DEFUN LISTIFY-RESTRICTIONS
; compiling top level form:
; compiling DEFUN LISTIFY-RESTRICTIONS:
; compiling top level form:
; recognizing DEFUN BAD-COSTS-ERROR
; compiling top level form:
; compiling DEFUN BAD-COSTS-ERROR:
; compiling top level form:
; recognizing DEFUN BAD-COERCE-ERROR
; compiling top level form:
; compiling DEFUN BAD-COERCE-ERROR:
; compiling top level form:
; recognizing DEFUN BAD-MOVE-ARG-ERROR
; compiling top level form:
; compiling DEFUN BAD-MOVE-ARG-ERROR:
; compiling top level form:
; recognizing DEFUN CHECK-MOVE-FUN-CONSISTENCY
; compiling top level form:
; compiling DEFUN CHECK-MOVE-FUN-CONSISTENCY:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ADD-REPRESENTATION-COSTS
; compiling top level form:
; compiling DEFUN ADD-REPRESENTATION-COSTS:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/represent.lisp
; in: DEFUN ADD-REPRESENTATION-COSTS
; (FIND (SB!C::VOP-INFO-NAME SB!INT:INFO) SB!C::*IGNORE-COST-VOPS*)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN SELECT-TN-REPRESENTATION
; compiling top level form:
; compiling DEFUN SELECT-TN-REPRESENTATION:
; compiling top level form:
; recognizing DEFUN NOTE-NUMBER-STACK-TN
; compiling top level form:
; compiling DEFUN NOTE-NUMBER-STACK-TN:
; compiling top level form:
; recognizing DEFUN GET-OPERAND-NAME
; compiling top level form:
; compiling DEFUN GET-OPERAND-NAME:
; compiling top level form:
; recognizing DEFUN MAYBE-EMIT-COERCE-EFFICIENCY-NOTE
; compiling top level form:
; compiling DEFUN MAYBE-EMIT-COERCE-EFFICIENCY-NOTE:
; compiling top level form:
; recognizing DEFUN FIND-MOVE-VOP
; compiling top level form:
; compiling DEFUN FIND-MOVE-VOP:
; compiling top level form:
; recognizing DEFUN EMIT-COERCE-VOP
; compiling top level form:
; compiling DEFUN EMIT-COERCE-VOP:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COERCE-SOME-OPERANDS
; compiling top level form:
; compiling DEFUN COERCE-SOME-OPERANDS:
; compiling top level form:
; recognizing DEFUN COERCE-VOP-OPERANDS
; compiling top level form:
; compiling DEFUN COERCE-VOP-OPERANDS:
; compiling top level form:
; recognizing DEFUN EMIT-ARG-MOVES
; compiling top level form:
; compiling DEFUN EMIT-ARG-MOVES:
; compiling top level form:
; recognizing DEFUN EMIT-MOVES-AND-COERCIONS
; compiling top level form:
; compiling DEFUN EMIT-MOVES-AND-COERCIONS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NOTE-IF-NUMBER-STACK
; compiling top level form:
; compiling DEFUN NOTE-IF-NUMBER-STACK:
; compiling top level form:
; recognizing DEFUN SELECT-REPRESENTATIONS
; compiling top level form:
; compiling DEFUN SELECT-REPRESENTATIONS:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/represent.lisp
; in: DEFUN NOTE-IF-NUMBER-STACK
; (SB!C:TN-SC SB!C:TN)
; --> TRULY-THE SB-KERNEL:%INSTANCE-REF THE
; ==>
; SB!C:TN
;
; note: deleting unreachable code
; [Last message occurs 3 times.]
; compiling top level form:
; compilation unit finished
; printed 8 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/represent.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/pack.lisp" (written 29 OCT 2004 01:30:45 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN OFFSET-CONFLICTS-IN-SB
; compiling top level form:
; compiling DEFUN OFFSET-CONFLICTS-IN-SB:
; compiling top level form:
; recognizing DEFUN CONFLICTS-IN-SC
; compiling top level form:
; compiling DEFUN CONFLICTS-IN-SC:
; compiling top level form:
; recognizing DEFUN ADD-LOCATION-CONFLICTS
; compiling top level form:
; compiling DEFUN ADD-LOCATION-CONFLICTS:
; compiling top level form:
; recognizing DEFUN FIND-LOCATION-USAGE
; compiling top level form:
; compiling DEFUN FIND-LOCATION-USAGE:
; compiling top level form:
; recognizing DEFUN IR2-BLOCK-COUNT
; compiling top level form:
; compiling DEFUN IR2-BLOCK-COUNT:
; compiling top level form:
; recognizing DEFUN INIT-SB-VECTORS
; compiling top level form:
; compiling DEFUN INIT-SB-VECTORS:
; compiling top level form:
; recognizing DEFUN GROW-SC
; compiling top level form:
; compiling DEFUN GROW-SC:
; compiling top level form:
; recognizing DEFUN NO-LOAD-FUN-ERROR
; compiling top level form:
; compiling DEFUN NO-LOAD-FUN-ERROR:
; compiling top level form:
; recognizing DEFUN FAILED-TO-PACK-ERROR
; compiling top level form:
; compiling DEFUN FAILED-TO-PACK-ERROR:
; compiling top level form:
; recognizing DEFUN DESCRIBE-TN-USE
; compiling top level form:
; compiling DEFUN DESCRIBE-TN-USE:
; compiling top level form:
; recognizing DEFUN FAILED-TO-PACK-LOAD-TN-ERROR
; compiling top level form:
; compiling DEFUN FAILED-TO-PACK-LOAD-TN-ERROR:
; compiling top level form:
; recognizing DEFUN NO-LOAD-SCS-ALLOWED-BY-PRIMITIVE-TYPE-ERROR
; compiling top level form:
; compiling DEFUN NO-LOAD-SCS-ALLOWED-BY-PRIMITIVE-TYPE-ERROR:
; compiling top level form:
; recognizing DEFUN NOTE-SPILLED-TN
; compiling top level form:
; compiling DEFUN NOTE-SPILLED-TN:
; compiling top level form:
; recognizing DEFUN PACK-SAVE-TN
; compiling top level form:
; compiling DEFUN PACK-SAVE-TN:
; compiling top level form:
; recognizing DEFUN EMIT-OPERAND-LOAD
; compiling top level form:
; compiling DEFUN EMIT-OPERAND-LOAD:
; compiling top level form:
; recognizing DEFUN REVERSE-FIND-VOP
; compiling top level form:
; compiling DEFUN REVERSE-FIND-VOP:
; compiling top level form:
; recognizing DEFUN SAVE-COMPLEX-WRITER-TN
; compiling top level form:
; compiling DEFUN SAVE-COMPLEX-WRITER-TN:
; compiling top level form:
; recognizing DEFUN FIND-SINGLE-WRITER
; compiling top level form:
; compiling DEFUN FIND-SINGLE-WRITER:
; compiling top level form:
; recognizing DEFUN SAVE-SINGLE-WRITER-TN
; compiling top level form:
; compiling DEFUN SAVE-SINGLE-WRITER-TN:
; compiling top level form:
; recognizing DEFUN RESTORE-SINGLE-WRITER-TN
; compiling top level form:
; compiling DEFUN RESTORE-SINGLE-WRITER-TN:
; compiling top level form:
; recognizing DEFUN BASIC-SAVE-TN
; compiling top level form:
; compiling DEFUN BASIC-SAVE-TN:
; compiling top level form:
; recognizing DEFUN EMIT-SAVES
; compiling top level form:
; compiling DEFUN EMIT-SAVES:
; compiling top level form:
; recognizing DEFUN SAVE-IF-NECESSARY
; compiling top level form:
; compiling DEFUN SAVE-IF-NECESSARY:
; compiling top level form:
; recognizing DEFUN RESTORE-TN
; compiling top level form:
; compiling DEFUN RESTORE-TN:
; compiling top level form:
; recognizing DEFUN OPTIMIZED-EMIT-SAVES-BLOCK
; compiling top level form:
; compiling DEFUN OPTIMIZED-EMIT-SAVES-BLOCK:
; compiling top level form:
; recognizing DEFUN OPTIMIZED-EMIT-SAVES
; compiling top level form:
; compiling DEFUN OPTIMIZED-EMIT-SAVES:
; compiling top level form:
; recognizing DEFUN ASSIGN-TN-COSTS
; compiling top level form:
; compiling DEFUN ASSIGN-TN-COSTS:
; compiling top level form:
; recognizing DEFUN ASSIGN-TN-DEPTHS
; compiling top level form:
; compiling DEFUN ASSIGN-TN-DEPTHS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN INIT-LIVE-TNS
; compiling top level form:
; compiling DEFUN INIT-LIVE-TNS:
; compiling top level form:
; recognizing DEFUN COMPUTE-LIVE-TNS
; compiling top level form:
; compiling DEFUN COMPUTE-LIVE-TNS:
; compiling top level form:
; recognizing DEFUN LOAD-TN-OFFSET-CONFLICTS-IN-SB
; compiling top level form:
; compiling DEFUN LOAD-TN-OFFSET-CONFLICTS-IN-SB:
; compiling top level form:
; recognizing DEFUN LOAD-TN-CONFLICTS-IN-SC
; compiling top level form:
; compiling DEFUN LOAD-TN-CONFLICTS-IN-SC:
; compiling top level form:
; recognizing DEFUN FIND-LOAD-TN-TARGET
; compiling top level form:
; compiling DEFUN FIND-LOAD-TN-TARGET:
; compiling top level form:
; recognizing DEFUN SELECT-LOAD-TN-LOCATION
; compiling top level form:
; compiling DEFUN SELECT-LOAD-TN-LOCATION:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN UNPACK-TN
; compiling top level form:
; compiling DEFUN UNPACK-TN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN UNPACK-FOR-LOAD-TN
; compiling top level form:
; compiling DEFUN UNPACK-FOR-LOAD-TN:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/pack.lisp
; in: DEFUN UNPACK-FOR-LOAD-TN
; (SB!C::FIND-IN #'SB!C::TN-NEXT SB!C::VICTIM SB!C::NORMAL-TNS)
;
; note: deleting unreachable code
; [Last message occurs 3 times.]
; (SB!C::FIND-IN #'SB!C::TN-NEXT SB!C::CONF SB!C::NORMAL-TNS)
;
; note: deleting unreachable code
; [Last message occurs 3 times.]
; compiling top level form:
; recognizing DEFUN PACK-LOAD-TN
; compiling top level form:
; compiling DEFUN PACK-LOAD-TN:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHECK-OPERAND-RESTRICTIONS
; compiling top level form:
; compiling DEFUN CHECK-OPERAND-RESTRICTIONS:
; compiling top level form:
; recognizing DEFUN PACK-LOAD-TNS
; compiling top level form:
; compiling DEFUN PACK-LOAD-TNS:
; compiling top level form:
; recognizing DEFUN TARGET-IF-DESIRABLE
; compiling top level form:
; compiling DEFUN TARGET-IF-DESIRABLE:
; compiling top level form:
; recognizing DEFUN CHECK-OK-TARGET
; compiling top level form:
; compiling DEFUN CHECK-OK-TARGET:
; compiling top level form:
; recognizing DEFUN FIND-OK-TARGET-OFFSET
; compiling top level form:
; compiling DEFUN FIND-OK-TARGET-OFFSET:
; compiling top level form:
; recognizing DEFUN SELECT-LOCATION
; compiling top level form:
; compiling DEFUN SELECT-LOCATION:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/pack.lisp
; in: DEFUN SELECT-LOCATION
; (MEMBER SB!C::OFFSET (SB!C::SC-RESERVE-LOCATIONS SB!C:SC))
;
; note: deleting unreachable code
; [Last message occurs 2 times.]
; compiling top level form:
; recognizing DEFUN ORIGINAL-TN
; compiling top level form:
; compiling DEFUN ORIGINAL-TN:
; compiling top level form:
; recognizing DEFUN PACK-TN
; compiling top level form:
; compiling DEFUN PACK-TN:
; compiling top level form:
; recognizing DEFUN PACK-WIRED-TN
; compiling top level form:
; compiling DEFUN PACK-WIRED-TN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CLEAN-UP-PACK-STRUCTURES
; compiling top level form:
; compiling DEFUN CLEAN-UP-PACK-STRUCTURES:
; compiling top level form:
; recognizing DEFUN PACK
; compiling top level form:
; compiling DEFUN PACK:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/pack.lisp
; in: DEFUN DESCRIBE-TN-USE
; (SB!C::PRINT-TN-GUTS SB!C:TN STREAM)
;
; caught STYLE-WARNING:
; undefined function: PRINT-TN-GUTS
;
; caught STYLE-WARNING:
; This function is undefined:
; PRINT-TN-GUTS
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; printed 8 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/pack.lisp-obj-tmp written
; compilation finished in 0:00:05
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/codegen.lisp" (written 20 DEC 2003 01:08:10 PM):
; compiling top level form:
; recognizing DEFUN COMPONENT-HEADER-LENGTH
; compiling top level form:
; compiling DEFUN COMPONENT-HEADER-LENGTH:
; compiling top level form:
; recognizing DEFUN SB-ALLOCATED-SIZE
; compiling top level form:
; compiling DEFUN SB-ALLOCATED-SIZE:
; compiling top level form:
; recognizing DEFUN CURRENT-NFP-TN
; compiling top level form:
; compiling DEFUN CURRENT-NFP-TN:
; compiling top level form:
; recognizing DEFUN CALLEE-NFP-TN
; compiling top level form:
; compiling DEFUN CALLEE-NFP-TN:
; compiling top level form:
; recognizing DEFUN CALLEE-RETURN-PC-TN
; compiling top level form:
; compiling DEFUN CALLEE-RETURN-PC-TN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TRACE-INSTRUCTION
; compiling top level form:
; compiling DEFUN TRACE-INSTRUCTION:
; compiling top level form:
; recognizing DEFUN DEFAULT-SEGMENT-RUN-SCHEDULER
; compiling top level form:
; compiling DEFUN DEFAULT-SEGMENT-RUN-SCHEDULER:
; compiling top level form:
; recognizing DEFUN DEFAULT-SEGMENT-INST-HOOK
; compiling top level form:
; compiling DEFUN DEFAULT-SEGMENT-INST-HOOK:
; compiling top level form:
; recognizing DEFUN INIT-ASSEMBLER
; compiling top level form:
; compiling DEFUN INIT-ASSEMBLER:
; compiling top level form:
; recognizing DEFUN GENERATE-CODE
; compiling top level form:
; compiling DEFUN GENERATE-CODE:
; compiling top level form:
; recognizing DEFUN EMIT-LABEL-ELSEWHERE
; compiling top level form:
; compiling DEFUN EMIT-LABEL-ELSEWHERE:
; compiling top level form:
; recognizing DEFUN LABEL-ELSEWHERE-P
; compiling top level form:
; compiling DEFUN LABEL-ELSEWHERE-P:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/codegen.lisp
; in: DEFUN TRACE-INSTRUCTION
; (SB!C::PRINT-VOP SB!C::VOP)
;
; caught STYLE-WARNING:
; undefined function: PRINT-VOP
;
; caught STYLE-WARNING:
; This function is undefined:
; PRINT-VOP
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/codegen.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/debug.lisp" (written 13 SEP 2004 07:40:29 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BARF
; compiling top level form:
; compiling DEFUN BARF:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BURP
; compiling top level form:
; compiling DEFUN BURP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHECK-NODE-REACHED
; compiling top level form:
; compiling DEFUN CHECK-NODE-REACHED:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHECK-IR1-CONSISTENCY
; compiling top level form:
; compiling DEFUN CHECK-IR1-CONSISTENCY:
; compiling top level form:
; recognizing DEFUN OBSERVE-FUNCTIONAL
; compiling top level form:
; compiling DEFUN OBSERVE-FUNCTIONAL:
; compiling top level form:
; recognizing DEFUN CHECK-FUN-REACHED
; compiling top level form:
; compiling DEFUN CHECK-FUN-REACHED:
; compiling top level form:
; recognizing DEFUN CHECK-FUN-STUFF
; compiling top level form:
; compiling DEFUN CHECK-FUN-STUFF:
; compiling top level form:
; recognizing DEFUN CHECK-FUN-CONSISTENCY
; compiling top level form:
; compiling DEFUN CHECK-FUN-CONSISTENCY:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHECK-BLOCK-CONSISTENCY
; compiling top level form:
; compiling DEFUN CHECK-BLOCK-CONSISTENCY:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CHECK-BLOCK-SUCCESSORS
; compiling top level form:
; compiling DEFUN CHECK-BLOCK-SUCCESSORS:
; compiling top level form:
; recognizing DEFUN CHECK-DEST
; compiling top level form:
; compiling DEFUN CHECK-DEST:
; compiling top level form:
; recognizing DEFUN CHECK-NODE-CONSISTENCY
; compiling top level form:
; compiling DEFUN CHECK-NODE-CONSISTENCY:
; compiling top level form:
; recognizing DEFUN CHECK-TN-REFS
; compiling top level form:
; compiling DEFUN CHECK-TN-REFS:
; compiling top level form:
; recognizing DEFUN CHECK-VOP-REFS
; compiling top level form:
; compiling DEFUN CHECK-VOP-REFS:
; compiling top level form:
; recognizing DEFUN CHECK-IR2-BLOCK-CONSISTENCY
; compiling top level form:
; compiling DEFUN CHECK-IR2-BLOCK-CONSISTENCY:
; compiling top level form:
; recognizing DEFUN CHECK-IR2-CONSISTENCY
; compiling top level form:
; compiling DEFUN CHECK-IR2-CONSISTENCY:
; compiling top level form:
; recognizing DEFUN PRE-PACK-TN-STATS
; compiling top level form:
; compiling DEFUN PRE-PACK-TN-STATS:
; compiling top level form:
; recognizing DEFUN CHECK-MORE-TN-ENTRY
; compiling top level form:
; compiling DEFUN CHECK-MORE-TN-ENTRY:
; compiling top level form:
; recognizing DEFUN CHECK-TN-CONFLICTS
; compiling top level form:
; compiling DEFUN CHECK-TN-CONFLICTS:
; compiling top level form:
; recognizing DEFUN CHECK-BLOCK-CONFLICTS
; compiling top level form:
; compiling DEFUN CHECK-BLOCK-CONFLICTS:
; compiling top level form:
; recognizing DEFUN CHECK-ENVIRONMENT-LIFETIMES
; compiling top level form:
; compiling DEFUN CHECK-ENVIRONMENT-LIFETIMES:
; compiling top level form:
; recognizing DEFUN CHECK-LIFE-CONSISTENCY
; compiling top level form:
; compiling DEFUN CHECK-LIFE-CONSISTENCY:
; compiling top level form:
; recognizing DEFUN CHECK-PACK-CONSISTENCY
; compiling top level form:
; compiling DEFUN CHECK-PACK-CONSISTENCY:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CONT-NUM
; compiling top level form:
; compiling DEF *CONTINUATION-NUMBER*:
; compiling top level form:
; recognizing DEFUN NUM-CONT
; compiling top level form:
; compiling DEF *CONTINUATION-NUMBER*:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TN-ID
; compiling top level form:
; compiling DEF *TN-ID*:
; compiling top level form:
; recognizing DEFUN ID-TN
; compiling top level form:
; compiling DEF *TN-ID*:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LABEL-ID
; compiling top level form:
; compiling DEF *LABEL-ID*:
; compiling top level form:
; recognizing DEFUN ID-LABEL
; compiling top level form:
; compiling DEF *LABEL-ID*:
; compiling top level form:
; recognizing DEFUN PRINT-LEAF
; compiling top level form:
; compiling DEFUN PRINT-LEAF:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BLOCK-OR-LOSE
; compiling top level form:
; compiling DEFUN BLOCK-OR-LOSE:
; compiling top level form:
; recognizing DEFUN PRINT-CONTINUATION
; compiling top level form:
; compiling DEFUN PRINT-CONTINUATION:
; compiling top level form:
; recognizing DEFUN PRINT-CTRAN
; compiling top level form:
; compiling DEFUN PRINT-CTRAN:
; compiling top level form:
; recognizing DEFUN PRINT-LVAR
; compiling top level form:
; compiling DEFUN PRINT-LVAR:
; compiling top level form:
; recognizing DEFUN PRINT-LVAR-STACK
; compiling top level form:
; compiling DEFUN PRINT-LVAR-STACK:
; compiling top level form:
; recognizing DEFUN PRINT-NODES
; compiling top level form:
; compiling DEFUN PRINT-NODES:
; compiling top level form:
; recognizing DEFUN PRINT-TN-GUTS
; compiling top level form:
; compiling DEFUN PRINT-TN-GUTS:
; compiling top level form:
; recognizing DEFUN PRINT-OPERANDS
; compiling top level form:
; compiling DEFUN PRINT-OPERANDS:
; compiling top level form:
; recognizing DEFUN PRINT-VOP
; compiling top level form:
; compiling DEFUN PRINT-VOP:
; compiling top level form:
; recognizing DEFUN PRINT-IR2-BLOCK
; compiling top level form:
; compiling DEFUN PRINT-IR2-BLOCK:
; compiling top level form:
; recognizing DEFUN PRINT-VOPS
; compiling top level form:
; compiling DEFUN PRINT-VOPS:
; compiling top level form:
; recognizing DEFUN PRINT-IR2-BLOCKS
; compiling top level form:
; compiling DEFUN PRINT-IR2-BLOCKS:
; compiling top level form:
; recognizing DEFUN PRINT-BLOCKS
; compiling top level form:
; compiling DEFUN PRINT-BLOCKS:
; compiling top level form:
; recognizing DEFUN PRINT-ALL-BLOCKS
; compiling top level form:
; compiling DEFUN PRINT-ALL-BLOCKS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ADD-ALWAYS-LIVE-TNS
; compiling top level form:
; compiling DEFUN ADD-ALWAYS-LIVE-TNS:
; compiling top level form:
; recognizing DEFUN ADD-ALL-LOCAL-TNS
; compiling top level form:
; compiling DEFUN ADD-ALL-LOCAL-TNS:
; compiling top level form:
; recognizing DEFUN LISTIFY-CONFLICTS-TABLE
; compiling top level form:
; compiling DEFUN LISTIFY-CONFLICTS-TABLE:
; compiling top level form:
; recognizing DEFUN LIST-CONFLICTS
; compiling top level form:
; compiling DEFUN LIST-CONFLICTS:
; compiling top level form:
; recognizing DEFUN NTH-VOP
; compiling top level form:
; compiling DEFUN NTH-VOP:
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/debug.lisp
; in: DEFUN PRINT-CONTINUATION
; (DEFUN SB!C::PRINT-CONTINUATION (SB!C::CONT)
; (DECLARE (TYPE SB!C::CONTINUATION SB!C::CONT))
; (FORMAT T " c~D" (SB!C::CONT-NUM SB!C::CONT))
; (VALUES))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> LOCALLY SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF
; --> TYPEP
; ==>
; (SB-KERNEL:%TYPEP #:G1989 'SB!C::CONTINUATION)
;
; caught STYLE-WARNING:
; undefined type: CONTINUATION
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> LOCALLY SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF
; ==>
; (TYPEP #:G1989 'SB!C::CONTINUATION)
;
; caught STYLE-WARNING:
; undefined type: CONTINUATION
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA SB!C::PRINT-CONTINUATION
; (SB!C::CONT)
; (DECLARE (TYPE SB!C::CONTINUATION SB!C::CONT))
; (BLOCK SB!C::PRINT-CONTINUATION
; (FORMAT T " c~D" (SB!C::CONT-NUM SB!C::CONT))
; (VALUES)))
;
; caught STYLE-WARNING:
; undefined type: CONTINUATION
;
; caught STYLE-WARNING:
; 1 more use of undefined type CONTINUATION
;
; caught STYLE-WARNING:
; This type is undefined:
; CONTINUATION
;
; compilation unit finished
; caught 5 STYLE-WARNING conditions
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/debug.lisp-obj-tmp written
; compilation finished in 0:00:04
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/format-time.lisp" (written 06 APR 2001 03:02:09 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VALID-DESTINATION-P
; compiling top level form:
; compiling DEFUN VALID-DESTINATION-P:
; compiling top level form:
; recognizing DEFUN FORMAT-UNIVERSAL-TIME
; compiling top level form:
; compiling DEFUN FORMAT-UNIVERSAL-TIME:
; compiling top level form:
; recognizing DEFUN TIMEZONE-NAME
; compiling top level form:
; compiling DEFUN TIMEZONE-NAME:
; compiling top level form:
; recognizing DEFUN FORMAT-DECODED-TIME
; compiling top level form:
; compiling DEFUN FORMAT-DECODED-TIME:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/format-time.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/error.lisp" (written 11 NOV 2004 12:54:33 PM):
; compiling top level form:
; recognizing DEFUN STYLE-WARN
; compiling top level form:
; compiling DEFUN STYLE-WARN:
; compiling top level form:
; recognizing DEFUN COERCE-TO-CONDITION
; compiling top level form:
; compiling DEFUN COERCE-TO-CONDITION:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-CONDITION LAYOUT-INVALID:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-CONDITION CASE-FAILURE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-CONDITION COMPILED-PROGRAM-ERROR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-CONDITION CONTROL-STACK-EXHAUSTED:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/error.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/macroexpand.lisp" (written 17 JUL 2003 10:14:30 AM):
; compiling top level form:
; recognizing DEFUN SB-XC:SPECIAL-OPERATOR-P
; compiling top level form:
; compiling DEFUN SB-XC:SPECIAL-OPERATOR-P:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SB-XC:MACROEXPAND-1
; compiling top level form:
; compiling DEFUN SB-XC:MACROEXPAND-1:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/macroexpand.lisp
; in: DEFUN SB-XC:MACROEXPAND-1
; (FUNCALL SB-XC:*MACROEXPAND-HOOK*
; SB!IMPL::DEF
; SB!KERNEL:FORM
; (SB!KERNEL:COERCE-TO-LEXENV SB!IMPL::ENV))
; --> 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 top level form:
; recognizing DEFUN SB-XC:MACROEXPAND
; compiling top level form:
; compiling DEFUN SB-XC:MACROEXPAND:
; compiling top level form:
; compilation unit finished
; printed 1 note
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/macroexpand.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/late-extensions.lisp" (written 22 OCT 2002 03:26:11 PM):
; compiling top level form:
; recognizing DEFUN LIST-WITH-LENGTH-P
; compiling top level form:
; compiling DEFUN LIST-WITH-LENGTH-P:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/late-extensions.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/parse-defmacro-errors.lisp" (written 07 MAR 2002 02:00:12 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO !PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR:
; compiling top level form:
; recognizing DEFUN %PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR
; compiling top level form:
; compiling DEFUN %PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/parse-defmacro-errors.lisp
; in: DEFUN %PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR
; (PPRINT-LOGICAL-BLOCK (STREAM NIL) (FUNCALL SB!KERNEL::FUN STREAM))
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET LET IF CATCH BLOCK
; --> SB-C::%WITHIN-CLEANUP LET SB-PRETTY::MAKE-PRETTY-STREAM
; ==>
; STREAM
;
; note: deleting unreachable code
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-CONDITION DEFMACRO-BOGUS-SUBLIST-ERROR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-CONDITION ARG-COUNT-ERROR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-CONDITION DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR:
; compiling top level form:
; compilation unit finished
; printed 1 note
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/parse-defmacro-errors.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/cl-specials.lisp" (written 30 MAY 2003 12:44:11 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/cl-specials.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/late-proclaim.lisp" (written 30 MAY 2003 12:44:11 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling !COLD-INIT-FORMS (MAPCAR (FUNCTION SB-XC:PROCLAIM) *QUEUED-PROCLAIMS*):
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/late-proclaim.lisp-obj-tmp written
; compilation finished in 0:00:00
STYLE-WARNING: new FTYPE proclamation
#
for CLASSOID-NAME does not match old FTYPE proclamation
#
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/defboot.lisp" (written 29 OCT 2004 01:30:43 PM):
; compiling top level form:
; compiling DEFMACRO-MUNDANELY IN-PACKAGE:
; compiling top level form:
; recognizing DEFUN LIST-OF-SYMBOLS-P
; compiling top level form:
; compiling DEFUN LIST-OF-SYMBOLS-P:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY MULTIPLE-VALUE-BIND:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY MULTIPLE-VALUE-SETQ:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY MULTIPLE-VALUE-LIST:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY COND:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY WHEN:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY UNLESS:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY AND:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY OR:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY PROG*:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY PROG1:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY PROG2:
; compiling top level form:
; recognizing DEFUN INLINE-FUN-NAME-P
; compiling top level form:
; compiling DEFUN INLINE-FUN-NAME-P:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY DEFUN:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY DEFVAR:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY DEFPARAMETER:
; compiling top level form:
; recognizing DEFUN %COMPILER-DEFVAR
; compiling top level form:
; compiling DEFUN %COMPILER-DEFVAR:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY DO:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY DO*:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY DOTIMES:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY DOLIST:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY WITH-CONDITION-RESTARTS:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY RESTART-BIND:
; compiling top level form:
; recognizing DEFUN MUNGE-RESTART-CASE-EXPRESSION
; compiling top level form:
; compiling DEFUN MUNGE-RESTART-CASE-EXPRESSION:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY RESTART-CASE:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY WITH-SIMPLE-RESTART:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY HANDLER-BIND:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY HANDLER-CASE:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY RETURN:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY PSETQ:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY LAMBDA:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY NAMED-LAMBDA:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY LAMBDA-WITH-LEXENV:
; compiling top level form:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/defboot.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/destructuring-bind.lisp" (written 11 JUN 2003 07:53:59 AM):
; compiling top level form:
; compiling DEFMACRO-MUNDANELY DESTRUCTURING-BIND:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/destructuring-bind.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/early-setf.lisp" (written 21 DEC 2004 04:52:05 AM):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SB-XC:GET-SETF-EXPANSION
; compiling top level form:
; compiling DEFUN SB-XC:GET-SETF-EXPANSION:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/early-setf.lisp
; in: DEFUN SB-XC:GET-SETF-EXPANSION
; (FUNCALL SB!IMPL::TEMP
; SB!KERNEL:FORM
; (SB!KERNEL:COERCE-TO-LEXENV SB!IMPL::ENVIRONMENT))
; --> 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 NULL), not a FUNCTION.
; compiling top level form:
; compiling top level form:
; recognizing DEFUN GET-SETF-METHOD
; compiling top level form:
; compiling DEFUN GET-SETF-METHOD:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EXPAND-OR-GET-SETF-INVERSE
; compiling top level form:
; compiling DEFUN EXPAND-OR-GET-SETF-INVERSE:
; compiling top level form:
; recognizing DEFUN GET-SETF-METHOD-INVERSE
; compiling top level form:
; compiling DEFUN GET-SETF-METHOD-INVERSE:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY SETF:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY SHIFTF:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY PUSH:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY PUSHNEW:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY POP:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY REMF:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY INCF:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY DECF:
; compiling top level form:
; compiling DEF!MACRO SB-XC:DEFINE-MODIFY-MACRO:
; compiling top level form:
; compiling DEF!MACRO SB-XC:DEFINE-MODIFY-MACRO:
; compiling top level form:
; recognizing DEFUN ASSIGN-SETF-MACRO
; compiling top level form:
; compiling DEFUN ASSIGN-SETF-MACRO:
; compiling top level form:
; compiling DEF!MACRO SB-XC:DEFSETF:
; compiling top level form:
; compiling DEF!MACRO SB-XC:DEFSETF:
; compiling top level form:
; recognizing DEFUN %DEFSETF
; compiling top level form:
; compiling DEFUN %DEFSETF:
; compiling top level form:
; compiling DEF!MACRO SB-XC:DEFINE-SETF-EXPANDER:
; compiling top level form:
; compiling DEF!MACRO SB-XC:DEFINE-SETF-EXPANDER:
; compiling top level form:
; compiling SB-XC:DEFINE-SETF-EXPANDER GETF:
; compiling top level form:
; compiling SB-XC:DEFINE-SETF-EXPANDER GET:
; compiling top level form:
; compiling SB-XC:DEFINE-SETF-EXPANDER GETHASH:
; compiling top level form:
; compiling SB-XC:DEFINE-SETF-EXPANDER LOGBITP:
; compiling top level form:
; compiling SB-XC:DEFINE-SETF-EXPANDER APPLY:
; compiling top level form:
; compiling SB-XC:DEFINE-SETF-EXPANDER LDB:
; compiling top level form:
; compiling SB-XC:DEFINE-SETF-EXPANDER MASK-FIELD:
; compiling top level form:
; compiling SB-XC:DEFINE-SETF-EXPANDER THE:
; compiling top level form:
; compilation unit finished
; printed 1 note
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/early-setf.lisp-obj-tmp written
; compilation finished in 0:00:01
STYLE-WARNING: redefining ASSIGN-SETF-MACRO in DEFUN
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/macros.lisp" (written 20 NOV 2004 09:58:36 AM):
; compiling top level form:
; compiling DEFMACRO-MUNDANELY ASSERT:
; compiling top level form:
; recognizing DEFUN ASSERT-PROMPT
; compiling top level form:
; compiling DEFUN ASSERT-PROMPT:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY CHECK-TYPE:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY DEFINE-SYMBOL-MACRO:
; compiling top level form:
; recognizing DEFUN SB!C::%DEFINE-SYMBOL-MACRO
; compiling top level form:
; compiling DEFUN SB!C::%DEFINE-SYMBOL-MACRO:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY DEFINE-COMPILER-MACRO:
; compiling top level form:
; recognizing DEFUN SB!C::%DEFINE-COMPILER-MACRO
; compiling top level form:
; compiling DEF (:LOAD-TOPLEVEL :EXECUTE):
; compiling top level form:
; recognizing DEFUN SB!C::%DEFINE-COMPILER-MACRO
; recognizing DEFUN CASE-BODY
; compiling top level form:
; compiling DEFUN CASE-BODY:
; compiling top level form:
; recognizing DEFUN CASE-BODY-AUX
; compiling top level form:
; compiling DEFUN CASE-BODY-AUX:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY CASE:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY CCASE:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY ECASE:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY TYPECASE:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY CTYPECASE:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY ETYPECASE:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY WITH-OPEN-STREAM:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY WITH-OPEN-FILE:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY WITH-INPUT-FROM-STRING:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY WITH-OUTPUT-TO-STRING:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY NTH-VALUE:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY DECLAIM:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY PRINT-UNREADABLE-OBJECT:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY IGNORE-ERRORS:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/macros.lisp-obj-tmp written
; compilation finished in 0:00:01
STYLE-WARNING: redefining SB!C::%DEFINE-COMPILER-MACRO in DEFUN
STYLE-WARNING: redefining CASE-BODY in DEFUN
STYLE-WARNING: redefining CASE-BODY-AUX in DEFUN
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/loop.lisp" (written 20 NOV 2004 06:36:05 AM):
; compiling top level form:
; compiling SB!INT:DEFMACRO-MUNDANELY WITH-LOOP-LIST-COLLECTION-HEAD:
; compiling top level form:
; compiling SB!INT:DEFMACRO-MUNDANELY LOOP-COLLECT-RPLACD:
; compiling top level form:
; compiling SB!INT:DEFMACRO-MUNDANELY LOOP-COLLECT-ANSWER:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-LOOP-MINIMAX-INTERNAL
; compiling top level form:
; compiling DEFSTRUCT LOOP-MINIMAX:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-LOOP-MINIMAX
; compiling top level form:
; compiling DEFUN MAKE-LOOP-MINIMAX:
; compiling top level form:
; recognizing DEFUN LOOP-NOTE-MINIMAX-OPERATION
; compiling top level form:
; compiling DEFUN LOOP-NOTE-MINIMAX-OPERATION:
; compiling top level form:
; compiling SB!INT:DEFMACRO-MUNDANELY WITH-MINIMAX-VALUE:
; compiling top level form:
; compiling SB!INT:DEFMACRO-MUNDANELY LOOP-ACCUMULATE-MINIMAX-VALUE:
; compiling top level form:
; recognizing DEFUN LOOP-TEQUAL
; compiling top level form:
; compiling DEFUN LOOP-TEQUAL:
; compiling top level form:
; recognizing DEFUN LOOP-TASSOC
; compiling top level form:
; compiling DEFUN LOOP-TASSOC:
; compiling top level form:
; recognizing DEFUN LOOP-TMEMBER
; compiling top level form:
; compiling DEFUN LOOP-TMEMBER:
; compiling top level form:
; recognizing DEFUN LOOP-LOOKUP-KEYWORD
; compiling top level form:
; compiling DEFUN LOOP-LOOKUP-KEYWORD:
; compiling top level form:
; compiling SB!INT:DEFMACRO-MUNDANELY LOOP-STORE-TABLE-DATA:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-LOOP-UNIVERSE
; compiling top level form:
; compiling DEFSTRUCT LOOP-UNIVERSE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling SB!INT:DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-STANDARD-LOOP-UNIVERSE
; compiling top level form:
; compiling DEFUN MAKE-STANDARD-LOOP-UNIVERSE:
; compiling top level form:
; recognizing DEFUN LOOP-MAKE-PSETQ
; compiling top level form:
; compiling DEFUN LOOP-MAKE-PSETQ:
; compiling top level form:
; recognizing DEFUN LOOP-MAKE-DESETQ
; compiling top level form:
; compiling DEFUN LOOP-MAKE-DESETQ:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling SB!INT:DEFMACRO-MUNDANELY LOOP-REALLY-DESETQ:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOOP-CONSTANT-FOLD-IF-POSSIBLE
; compiling top level form:
; compiling DEFUN LOOP-CONSTANT-FOLD-IF-POSSIBLE:
; compiling top level form:
; recognizing DEFUN LOOP-CONSTANTP
; compiling top level form:
; compiling DEFUN LOOP-CONSTANTP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOOP-CODE-DUPLICATION-THRESHOLD
; compiling top level form:
; compiling DEFUN LOOP-CODE-DUPLICATION-THRESHOLD:
; compiling top level form:
; compiling SB!INT:DEFMACRO-MUNDANELY LOOP-BODY:
; compiling top level form:
; recognizing DEFUN DUPLICATABLE-CODE-P
; compiling top level form:
; compiling DEFUN DUPLICATABLE-CODE-P:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DESTRUCTURING-SIZE
; compiling top level form:
; compiling DEFUN DESTRUCTURING-SIZE:
; compiling top level form:
; recognizing DEFUN ESTIMATE-CODE-SIZE
; compiling top level form:
; compiling DEFUN ESTIMATE-CODE-SIZE:
; compiling top level form:
; recognizing DEFUN ESTIMATE-CODE-SIZE-1
; compiling top level form:
; compiling DEFUN ESTIMATE-CODE-SIZE-1:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/loop.lisp
; in: DEFUN ESTIMATE-CODE-SIZE-1
; (FUNCALL SB!LOOP::TEM SB!LOOP::X SB!LOOP::ENV)
; --> 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 top level form:
; recognizing DEFUN LOOP-CONTEXT
; compiling top level form:
; compiling DEFUN LOOP-CONTEXT:
; compiling top level form:
; recognizing DEFUN LOOP-ERROR
; compiling top level form:
; compiling DEFUN LOOP-ERROR:
; compiling top level form:
; recognizing DEFUN LOOP-WARN
; compiling top level form:
; compiling DEFUN LOOP-WARN:
; compiling top level form:
; recognizing DEFUN LOOP-CHECK-DATA-TYPE
; compiling top level form:
; compiling DEFUN LOOP-CHECK-DATA-TYPE:
; compiling top level form:
; recognizing DEFUN SUBST-GENSYMS-FOR-NIL
; compiling top level form:
; compiling DEFUN SUBST-GENSYMS-FOR-NIL:
; compiling top level form:
; compiling SB!INT:DEFMACRO-MUNDANELY LOOP-DESTRUCTURING-BIND:
; compiling top level form:
; recognizing DEFUN LOOP-BUILD-DESTRUCTURING-BINDINGS
; compiling top level form:
; compiling DEFUN LOOP-BUILD-DESTRUCTURING-BINDINGS:
; compiling top level form:
; recognizing DEFUN LOOP-TRANSLATE
; compiling top level form:
; compiling DEFUN LOOP-TRANSLATE:
; compiling top level form:
; recognizing DEFUN LOOP-ITERATION-DRIVER
; compiling top level form:
; compiling DEFUN LOOP-ITERATION-DRIVER:
; compiling top level form:
; recognizing DEFUN LOOP-POP-SOURCE
; compiling top level form:
; compiling DEFUN LOOP-POP-SOURCE:
; compiling top level form:
; recognizing DEFUN LOOP-GET-FORM
; compiling top level form:
; compiling DEFUN LOOP-GET-FORM:
; compiling top level form:
; recognizing DEFUN LOOP-GET-COMPOUND-FORM
; compiling top level form:
; compiling DEFUN LOOP-GET-COMPOUND-FORM:
; compiling top level form:
; recognizing DEFUN LOOP-GET-PROGN
; compiling top level form:
; compiling DEFUN LOOP-GET-PROGN:
; compiling top level form:
; recognizing DEFUN LOOP-CONSTRUCT-RETURN
; compiling top level form:
; compiling DEFUN LOOP-CONSTRUCT-RETURN:
; compiling top level form:
; recognizing DEFUN LOOP-PSEUDO-BODY
; compiling top level form:
; compiling DEFUN LOOP-PSEUDO-BODY:
; compiling top level form:
; recognizing DEFUN LOOP-EMIT-BODY
; compiling top level form:
; compiling DEFUN LOOP-EMIT-BODY:
; compiling top level form:
; recognizing DEFUN LOOP-EMIT-FINAL-VALUE
; compiling top level form:
; compiling DEFUN LOOP-EMIT-FINAL-VALUE:
; compiling top level form:
; recognizing DEFUN LOOP-DISALLOW-CONDITIONAL
; compiling top level form:
; compiling DEFUN LOOP-DISALLOW-CONDITIONAL:
; compiling top level form:
; recognizing DEFUN LOOP-DISALLOW-ANONYMOUS-COLLECTORS
; compiling top level form:
; compiling DEFUN LOOP-DISALLOW-ANONYMOUS-COLLECTORS:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/loop.lisp
; in: DEFUN LOOP-DISALLOW-ANONYMOUS-COLLECTORS
; (FIND-IF-NOT 'SB!LOOP::LOOP-COLLECTOR-NAME SB!LOOP::*LOOP-COLLECTION-CRUFT*)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION-IF-NOT
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN LOOP-DISALLOW-AGGREGATE-BOOLEANS
; compiling top level form:
; compiling DEFUN LOOP-DISALLOW-AGGREGATE-BOOLEANS:
; compiling top level form:
; recognizing DEFUN LOOP-TYPED-INIT
; compiling top level form:
; compiling DEFUN LOOP-TYPED-INIT:
; compiling top level form:
; recognizing DEFUN LOOP-OPTIONAL-TYPE
; compiling top level form:
; compiling DEFUN LOOP-OPTIONAL-TYPE:
; compiling top level form:
; recognizing DEFUN LOOP-BIND-BLOCK
; compiling top level form:
; compiling DEFUN LOOP-BIND-BLOCK:
; compiling top level form:
; recognizing DEFUN LOOP-VAR-P
; compiling top level form:
; compiling DEFUN LOOP-VAR-P:
; compiling top level form:
; recognizing DEFUN LOOP-MAKE-VAR
; compiling top level form:
; compiling DEFUN LOOP-MAKE-VAR:
; compiling top level form:
; recognizing DEFUN LOOP-DECLARE-VAR
; compiling top level form:
; compiling DEFUN LOOP-DECLARE-VAR:
; compiling top level form:
; recognizing DEFUN LOOP-MAYBE-BIND-FORM
; compiling top level form:
; compiling DEFUN LOOP-MAYBE-BIND-FORM:
; compiling top level form:
; recognizing DEFUN LOOP-DO-IF
; compiling top level form:
; compiling DEFUN LOOP-DO-IF:
; compiling top level form:
; recognizing DEFUN LOOP-DO-INITIALLY
; compiling top level form:
; compiling DEFUN LOOP-DO-INITIALLY:
; compiling top level form:
; recognizing DEFUN LOOP-DO-FINALLY
; compiling top level form:
; compiling DEFUN LOOP-DO-FINALLY:
; compiling top level form:
; recognizing DEFUN LOOP-DO-DO
; compiling top level form:
; compiling DEFUN LOOP-DO-DO:
; compiling top level form:
; recognizing DEFUN LOOP-DO-NAMED
; compiling top level form:
; compiling DEFUN LOOP-DO-NAMED:
; compiling top level form:
; recognizing DEFUN LOOP-DO-RETURN
; compiling top level form:
; compiling DEFUN LOOP-DO-RETURN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-LOOP-COLLECTOR
; compiling top level form:
; compiling DEFSTRUCT LOOP-COLLECTOR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOOP-GET-COLLECTION-INFO
; compiling top level form:
; compiling DEFUN LOOP-GET-COLLECTION-INFO:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/loop.lisp
; in: DEFUN LOOP-GET-COLLECTION-INFO
; (FIND (THE SYMBOL SB!LOOP::NAME)
; SB!LOOP::*LOOP-COLLECTION-CRUFT*
; :KEY
; #'SB!LOOP::LOOP-COLLECTOR-NAME)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN LOOP-LIST-COLLECTION
; compiling top level form:
; compiling DEFUN LOOP-LIST-COLLECTION:
; compiling top level form:
; recognizing DEFUN LOOP-SUM-COLLECTION
; compiling top level form:
; compiling DEFUN LOOP-SUM-COLLECTION:
; compiling top level form:
; recognizing DEFUN LOOP-MAXMIN-COLLECTION
; compiling top level form:
; compiling DEFUN LOOP-MAXMIN-COLLECTION:
; compiling top level form:
; recognizing DEFUN LOOP-DO-ALWAYS
; compiling top level form:
; compiling DEFUN LOOP-DO-ALWAYS:
; compiling top level form:
; recognizing DEFUN LOOP-DO-THEREIS
; compiling top level form:
; compiling DEFUN LOOP-DO-THEREIS:
; compiling top level form:
; recognizing DEFUN LOOP-DO-WHILE
; compiling top level form:
; compiling DEFUN LOOP-DO-WHILE:
; compiling top level form:
; recognizing DEFUN LOOP-DO-REPEAT
; compiling top level form:
; compiling DEFUN LOOP-DO-REPEAT:
; compiling top level form:
; recognizing DEFUN LOOP-DO-WITH
; compiling top level form:
; compiling DEFUN LOOP-DO-WITH:
; compiling top level form:
; recognizing DEFUN LOOP-HACK-ITERATION
; compiling top level form:
; compiling DEFUN LOOP-HACK-ITERATION:
; compiling top level form:
; recognizing DEFUN LOOP-DO-FOR
; compiling top level form:
; compiling DEFUN LOOP-DO-FOR:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/loop.lisp
; in: DEFUN LOOP-DO-FOR
; (APPLY (CAR SB!LOOP::TEM)
; SB!LOOP::VAR
; SB!LOOP::FIRST-ARG
; SB!LOOP::DATA-TYPE
; (CDR SB!LOOP::TEM))
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (CAR SB!LOOP::TEM))
;
; 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 top level form:
; recognizing DEFUN LOOP-WHEN-IT-VAR
; compiling top level form:
; compiling DEFUN LOOP-WHEN-IT-VAR:
; compiling top level form:
; recognizing DEFUN LOOP-ANSI-FOR-EQUALS
; compiling top level form:
; compiling DEFUN LOOP-ANSI-FOR-EQUALS:
; compiling top level form:
; recognizing DEFUN LOOP-FOR-ACROSS
; compiling top level form:
; compiling DEFUN LOOP-FOR-ACROSS:
; compiling top level form:
; recognizing DEFUN LOOP-LIST-STEP
; compiling top level form:
; compiling DEFUN LOOP-LIST-STEP:
; compiling top level form:
; recognizing DEFUN LOOP-FOR-ON
; compiling top level form:
; compiling DEFUN LOOP-FOR-ON:
; compiling top level form:
; recognizing DEFUN LOOP-FOR-IN
; compiling top level form:
; compiling DEFUN LOOP-FOR-IN:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-LOOP-PATH
; compiling top level form:
; compiling DEFSTRUCT LOOP-PATH:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ADD-LOOP-PATH
; compiling top level form:
; compiling DEFUN ADD-LOOP-PATH:
; compiling top level form:
; recognizing DEFUN LOOP-FOR-BEING
; compiling top level form:
; compiling DEFUN LOOP-FOR-BEING:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/loop.lisp
; in: DEFUN LOOP-FOR-BEING
; (APPLY SB!LOOP::FUN
; SB!LOOP::VAR
; SB!LOOP::DATA-TYPE
; SB!LOOP::PREPS
; :INCLUSIVE
; T
; SB!LOOP::USER-DATA)
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB!LOOP::FUN)
;
; 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.
; (APPLY SB!LOOP::FUN
; SB!LOOP::VAR
; SB!LOOP::DATA-TYPE
; SB!LOOP::PREPS
; SB!LOOP::USER-DATA)
; --> MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB!LOOP::FUN)
;
; 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 top level form:
; recognizing DEFUN LOOP-NAMED-VAR
; compiling top level form:
; compiling DEFUN LOOP-NAMED-VAR:
; compiling top level form:
; recognizing DEFUN LOOP-COLLECT-PREPOSITIONAL-PHRASES
; compiling top level form:
; compiling DEFUN LOOP-COLLECT-PREPOSITIONAL-PHRASES:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/loop.lisp
; in: DEFUN LOOP-COLLECT-PREPOSITIONAL-PHRASES
; (FIND (CAR SB!LOOP::X)
; SB!LOOP::PREPOSITION-GROUPS
; :TEST
; #'SB!LOOP::IN-GROUP-P)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN LOOP-SEQUENCER
; compiling top level form:
; compiling DEFUN LOOP-SEQUENCER:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/loop.lisp
; in: DEFUN LOOP-SEQUENCER
; (FIND SB!LOOP::INDEXV
; SB!LOOP::*LOOP-DECLARATIONS*
; :KEY
; #'SB!LOOP::TYPE-DECLARATION-OF)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; (FIND SB!LOOP::INDEXV
; SB!LOOP::*LOOP-DECLARATIONS*
; :KEY
; #'SB!LOOP::TYPE-DECLARATION-OF
; :FROM-END
; T)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN LOOP-FOR-ARITHMETIC
; compiling top level form:
; compiling DEFUN LOOP-FOR-ARITHMETIC:
; compiling top level form:
; recognizing DEFUN LOOP-SEQUENCE-ELEMENTS-PATH
; compiling top level form:
; compiling DEFUN LOOP-SEQUENCE-ELEMENTS-PATH:
; compiling top level form:
; recognizing DEFUN LOOP-HASH-TABLE-ITERATION-PATH
; compiling top level form:
; compiling DEFUN LOOP-HASH-TABLE-ITERATION-PATH:
; compiling top level form:
; recognizing DEFUN LOOP-PACKAGE-SYMBOLS-ITERATION-PATH
; compiling top level form:
; compiling DEFUN LOOP-PACKAGE-SYMBOLS-ITERATION-PATH:
; compiling top level form:
; recognizing DEFUN MAKE-ANSI-LOOP-UNIVERSE
; compiling top level form:
; compiling DEFUN MAKE-ANSI-LOOP-UNIVERSE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOOP-STANDARD-EXPANSION
; compiling top level form:
; compiling DEFUN LOOP-STANDARD-EXPANSION:
; compiling top level form:
; compiling SB!INT:DEFMACRO-MUNDANELY LOOP:
; compiling top level form:
; compiling SB!INT:DEFMACRO-MUNDANELY LOOP-FINISH:
; compiling top level form:
; compilation unit finished
; printed 14 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/loop.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/late-setf.lisp" (written 29 JUN 2004 03:25:02 PM):
; compiling top level form:
; compiling DEFMACRO-MUNDANELY PSETF:
; compiling top level form:
; compiling DEFMACRO-MUNDANELY ROTATEF:
; compiling top level form:
; compiling SB-XC:DEFINE-SETF-EXPANDER VALUES:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/late-setf.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/late-format.lisp" (written 21 DEC 2004 04:52:06 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFINE-CONDITION FORMAT-ERROR:
; compiling DEFINE-CONDITION FORMAT-ERROR:
; compiling DEFINE-CONDITION FORMAT-ERROR:
; compiling top level form:
; recognizing DEFUN %PRINT-FORMAT-ERROR
; compiling top level form:
; compiling DEFUN %PRINT-FORMAT-ERROR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-FORMAT-DIRECTIVE
; compiling top level form:
; compiling DEF!STRUCT FORMAT-DIRECTIVE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::FIND-CLASS-CELL #)):
; compiling top level form (ALLOCATE-INSTANCE (FIND-CLASS #)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (PROGN (PROGN # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE T)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!KERNEL:INSTANCE)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE STRUCTURE-OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form (SB!KERNEL:FIND-LAYOUT (QUOTE SB!SYS:STRUCTURE!OBJECT)):
; compiling top level form (LOCALLY (DECLARE #) (SB!KERNEL:FIND-CLASSOID #)):
; compiling top level form (PROGN (SB!KERNEL::INIT-OR-CHECK-LAYOUT # # ...)):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; recognizing DEFUN TOKENIZE-CONTROL-STRING
; compiling top level form:
; compiling DEFUN TOKENIZE-CONTROL-STRING:
; compiling top level form:
; recognizing DEFUN PARSE-DIRECTIVE
; compiling top level form:
; compiling DEFUN PARSE-DIRECTIVE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/late-format.lisp
; in: DEFUN PARSE-DIRECTIVE
; (POSITION #\/ STRING :START (1+ SB!FORMAT::POSN))
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; compiling SB-XC:DEFMACRO FORMATTER:
; compiling top level form:
; recognizing DEFUN %FORMATTER
; compiling top level form:
; compiling DEFUN %FORMATTER:
; compiling top level form:
; recognizing DEFUN EXPAND-CONTROL-STRING
; compiling top level form:
; compiling DEFUN EXPAND-CONTROL-STRING:
; compiling top level form:
; recognizing DEFUN EXPAND-DIRECTIVE-LIST
; compiling top level form:
; compiling DEFUN EXPAND-DIRECTIVE-LIST:
; compiling top level form:
; recognizing DEFUN EXPAND-DIRECTIVE
; compiling top level form:
; compiling DEFUN EXPAND-DIRECTIVE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/late-format.lisp
; in: DEFUN EXPAND-DIRECTIVE
; (AREF SB!FORMAT::*FORMAT-DIRECTIVE-EXPANDERS* (CHAR-CODE CHAR))
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling top level form:
; compiling DEFMACRO-MUNDANELY EXPANDER-NEXT-ARG:
; compiling top level form:
; recognizing DEFUN EXPAND-NEXT-ARG
; compiling top level form:
; compiling DEFUN EXPAND-NEXT-ARG:
; compiling top level form:
; compiling DEFMACRO EXPAND-BIND-DEFAULTS:
; compiling top level form:
; compiling DEFMACRO DEF-COMPLEX-FORMAT-DIRECTIVE:
; compiling top level form:
; compiling DEFMACRO DEF-FORMAT-DIRECTIVE:
; compiling top level form:
; recognizing DEFUN %SET-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; in: LAMBDA NIL
; (SETF (AREF SB!FORMAT::*FORMAT-DIRECTIVE-EXPANDERS*
; (CHAR-CODE (CHAR-UPCASE CHAR)))
; SB!FORMAT::FN)
; --> SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling DEFUN %SET-FORMAT-DIRECTIVE-EXPANDER:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/late-format.lisp
; in: DEFUN %SET-FORMAT-DIRECTIVE-EXPANDER
; (SETF (AREF SB!FORMAT::*FORMAT-DIRECTIVE-EXPANDERS*
; (CHAR-CODE (CHAR-UPCASE CHAR)))
; SB!FORMAT::FN)
; --> SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling top level form:
; recognizing DEFUN %SET-FORMAT-DIRECTIVE-INTERPRETER
; compiling top level form:
; in: LAMBDA NIL
; (SETF (AREF SB!FORMAT::*FORMAT-DIRECTIVE-INTERPRETERS*
; (CHAR-CODE (CHAR-UPCASE CHAR)))
; SB!FORMAT::FN)
; --> SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling DEFUN %SET-FORMAT-DIRECTIVE-INTERPRETER:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/late-format.lisp
; in: DEFUN %SET-FORMAT-DIRECTIVE-INTERPRETER
; (SETF (AREF SB!FORMAT::*FORMAT-DIRECTIVE-INTERPRETERS*
; (CHAR-CODE (CHAR-UPCASE CHAR)))
; SB!FORMAT::FN)
; --> SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling top level form:
; recognizing DEFUN FIND-DIRECTIVE
; compiling top level form:
; compiling DEFUN FIND-DIRECTIVE:
; compiling top level form:
; recognizing DEFUN A-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\A:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN S-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\S:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN C-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\C:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN W-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\W:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EXPAND-FORMAT-INTEGER
; compiling top level form:
; compiling DEFUN EXPAND-FORMAT-INTEGER:
; compiling top level form:
; recognizing DEFUN D-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\D:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN B-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\B:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN O-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\O:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN X-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\X:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN R-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\R:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN P-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\P:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN F-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\F:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN E-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\E:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN G-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\G:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN $-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\$:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\%:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN &-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\&:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |\|-FORMAT-DIRECTIVE-EXPANDER|
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\|:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ~-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\~:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NEWLINE-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-COMPLEX-FORMAT-DIRECTIVE #\Newline:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN T-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\T:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN _-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\_:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN I-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\I:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN *-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\*:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ?-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\?:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |(-FORMAT-DIRECTIVE-EXPANDER|
; compiling top level form:
; compiling DEF-COMPLEX-FORMAT-DIRECTIVE #\(:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/late-format.lisp
; in: DEF-COMPLEX-FORMAT-DIRECTIVE #\(
; (POSITION CLOSE SB!FORMAT::DIRECTIVES)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; compiling top level form:
; recognizing DEFUN |)-FORMAT-DIRECTIVE-EXPANDER|
; compiling top level form:
; compiling DEF-COMPLEX-FORMAT-DIRECTIVE #\):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN [-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-COMPLEX-FORMAT-DIRECTIVE #\[:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PARSE-CONDITIONAL-DIRECTIVE
; compiling top level form:
; compiling DEFUN PARSE-CONDITIONAL-DIRECTIVE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/late-format.lisp
; in: DEFUN PARSE-CONDITIONAL-DIRECTIVE
; (POSITION SB!FORMAT::CLOSE-OR-SEMI SB!FORMAT::REMAINING)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN EXPAND-MAYBE-CONDITIONAL
; compiling top level form:
; compiling DEFUN EXPAND-MAYBE-CONDITIONAL:
; compiling top level form:
; recognizing DEFUN EXPAND-TRUE-FALSE-CONDITIONAL
; compiling top level form:
; compiling DEFUN EXPAND-TRUE-FALSE-CONDITIONAL:
; compiling top level form:
; recognizing DEFUN |;-FORMAT-DIRECTIVE-EXPANDER|
; compiling top level form:
; compiling DEF-COMPLEX-FORMAT-DIRECTIVE #\;:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ]-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-COMPLEX-FORMAT-DIRECTIVE #\]:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ^-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\^:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN {-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-COMPLEX-FORMAT-DIRECTIVE #\{:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/late-format.lisp
; in: DEF-COMPLEX-FORMAT-DIRECTIVE #\{
; (POSITION CLOSE SB!FORMAT::DIRECTIVES)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; compiling top level form:
; recognizing DEFUN }-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-COMPLEX-FORMAT-DIRECTIVE #\}:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFPARAMETER *ILLEGAL-INSIDE-JUSTIFICATION*:
; compiling DEFPARAMETER *ILLEGAL-INSIDE-JUSTIFICATION*:
; compiling top level form:
; recognizing DEFUN ILLEGAL-INSIDE-JUSTIFICATION-P
; compiling top level form:
; compiling DEFUN ILLEGAL-INSIDE-JUSTIFICATION-P:
; compiling top level form:
; recognizing DEFUN <-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-COMPLEX-FORMAT-DIRECTIVE #\<:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN >-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-COMPLEX-FORMAT-DIRECTIVE #\>:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PARSE-FORMAT-LOGICAL-BLOCK
; compiling top level form:
; compiling DEFUN PARSE-FORMAT-LOGICAL-BLOCK:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/late-format.lisp
; in: DEFUN PARSE-FORMAT-LOGICAL-BLOCK
; (FIND-IF #'SB!FORMAT::FORMAT-DIRECTIVE-P LIST)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION-IF
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN ADD-FILL-STYLE-NEWLINES
; compiling top level form:
; compiling DEFUN ADD-FILL-STYLE-NEWLINES:
; compiling top level form:
; recognizing DEFUN ADD-FILL-STYLE-NEWLINES-AUX
; compiling top level form:
; compiling DEFUN ADD-FILL-STYLE-NEWLINES-AUX:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/late-format.lisp
; in: DEFUN ADD-FILL-STYLE-NEWLINES-AUX
; (POSITION #\ SB!FORMAT::LITERAL :START SB!FORMAT::POSN)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; (POSITION #\ SB!FORMAT::LITERAL :START SB!FORMAT::BLANK :TEST #'CHAR/=)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN PARSE-FORMAT-JUSTIFICATION
; compiling top level form:
; compiling DEFUN PARSE-FORMAT-JUSTIFICATION:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/late-format.lisp
; in: DEFUN PARSE-FORMAT-JUSTIFICATION
; (POSITION SB!FORMAT::CLOSE-OR-SEMI SB!FORMAT::REMAINING)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; compiling SB-XC:DEFMACRO EXPANDER-PPRINT-NEXT-ARG:
; compiling top level form:
; recognizing DEFUN EXPAND-FORMAT-LOGICAL-BLOCK
; compiling top level form:
; compiling DEFUN EXPAND-FORMAT-LOGICAL-BLOCK:
; compiling top level form:
; recognizing DEFUN EXPAND-FORMAT-JUSTIFICATION
; compiling top level form:
; compiling DEFUN EXPAND-FORMAT-JUSTIFICATION:
; compiling top level form:
; recognizing DEFUN /-FORMAT-DIRECTIVE-EXPANDER
; compiling top level form:
; compiling DEF-FORMAT-DIRECTIVE #\/:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN EXTRACT-USER-FUN-NAME
; compiling top level form:
; compiling DEFUN EXTRACT-USER-FUN-NAME:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/late-format.lisp
; in: DEFUN EXTRACT-USER-FUN-NAME
; (POSITION #\/
; STRING
; :START
; SB!FORMAT::START
; :END
; (1- SB!FORMAT::END)
; :FROM-END
; T)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN %COMPILER-WALK-FORMAT-STRING
; compiling top level form:
; compiling DEFUN %COMPILER-WALK-FORMAT-STRING:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/late-format.lisp
; in: DEFUN %COMPILER-WALK-FORMAT-STRING
; (POSITION CLOSE SB!FORMAT::DIRECTIVES)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; compilation unit finished
; printed 25 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/late-format.lisp-obj-tmp written
; compilation finished in 0:00:03
STYLE-WARNING: redefining %SET-FORMAT-DIRECTIVE-EXPANDER in DEFUN
STYLE-WARNING: redefining %SET-FORMAT-DIRECTIVE-INTERPRETER in DEFUN
STYLE-WARNING: redefining FIND-DIRECTIVE in DEFUN
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/sxhash.lisp" (written 15 JUL 2004 11:38:13 AM):
; compiling top level form:
; compiling SB-XC:DEFINE-MODIFY-MACRO MIXF:
; compiling top level form:
; compiling DEFTRANSFORM SXHASH:
; compiling top level form:
; compiling DEFTRANSFORM SXHASH:
; compiling top level form:
; compiling DEFTRANSFORM SXHASH:
; compiling top level form:
; compiling DEFTRANSFORM SXHASH:
; compiling top level form:
; compiling DEFTRANSFORM SXHASH:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/sxhash.lisp
; in: DEFTRANSFORM SXHASH
; (SB!C::LVAR-VALUE SB!C::X)
;
; note: deleting unreachable code
; compiling top level form:
; compiling DEFTRANSFORM SXHASH:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/code/sxhash.lisp
; in: DEFTRANSFORM SXHASH
; (SB!C::LVAR-VALUE SB!C::X)
; ==>
; SB!C::X
;
; note: deleting unreachable code
; compiling top level form:
; compilation unit finished
; printed 2 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/sxhash.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/signal.lisp" (written 01 SEP 2003 09:55:42 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling SB-XC:DEFMACRO WITHOUT-INTERRUPTS:
; compiling top level form:
; compiling SB-XC:DEFMACRO WITH-INTERRUPTS:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/signal.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/code/late-defbangmethod.lisp" (written 21 OCT 2000 01:30:33 AM):
; compiling top level form:
; compiling DEFMACRO-MUNDANELY DEF!METHOD:
; compiling top level form:
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/code/late-defbangmethod.lisp-obj-tmp written
; compilation finished in 0:00:00
creating directory: obj/from-host/src/pcl/
; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/pcl/walk.lisp" (written 29 OCT 2004 01:30:58 PM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO WITH-AUGMENTED-ENVIRONMENT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN WALKER-INFO-TO-BOGO-FUN
; compiling top level form:
; compiling DEFUN WALKER-INFO-TO-BOGO-FUN:
; compiling top level form:
; recognizing DEFUN BOGO-FUN-TO-WALKER-INFO
; compiling top level form:
; compiling DEFUN BOGO-FUN-TO-WALKER-INFO:
; compiling top level form:
; recognizing DEFUN WITH-AUGMENTED-ENVIRONMENT-INTERNAL
; compiling top level form:
; compiling DEFUN WITH-AUGMENTED-ENVIRONMENT-INTERNAL:
; compiling top level form:
; recognizing DEFUN ENVIRONMENT-FUNCTION
; compiling top level form:
; compiling DEFUN ENVIRONMENT-FUNCTION:
; compiling top level form:
; recognizing DEFUN ENVIRONMENT-MACRO
; compiling top level form:
; compiling DEFUN ENVIRONMENT-MACRO:
; compiling top level form:
; compiling DEFMACRO WITH-NEW-DEFINITION-IN-ENVIRONMENT:
; compiling top level form:
; recognizing DEFUN CONVERT-MACRO-TO-LAMBDA
; compiling top level form:
; compiling DEFUN CONVERT-MACRO-TO-LAMBDA:
; compiling top level form:
; compiling DEFMACRO WALKER-ENVIRONMENT-BIND:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ENV-LOCK
; compiling top level form:
; compiling DEFUN ENV-LOCK:
; compiling top level form:
; recognizing DEFUN WALKER-ENVIRONMENT-BIND-1
; compiling top level form:
; compiling DEFUN WALKER-ENVIRONMENT-BIND-1:
; compiling top level form:
; recognizing DEFUN ENV-WALK-FUNCTION
; compiling top level form:
; compiling DEFUN ENV-WALK-FUNCTION:
; compiling top level form:
; recognizing DEFUN ENV-WALK-FORM
; compiling top level form:
; compiling DEFUN ENV-WALK-FORM:
; compiling top level form:
; recognizing DEFUN ENV-DECLARATIONS
; compiling top level form:
; compiling DEFUN ENV-DECLARATIONS:
; compiling top level form:
; recognizing DEFUN ENV-LEXICAL-VARIABLES
; compiling top level form:
; compiling DEFUN ENV-LEXICAL-VARIABLES:
; compiling top level form:
; recognizing DEFUN NOTE-DECLARATION
; compiling top level form:
; compiling DEFUN NOTE-DECLARATION:
; compiling top level form:
; recognizing DEFUN NOTE-LEXICAL-BINDING
; compiling top level form:
; compiling DEFUN NOTE-LEXICAL-BINDING:
; compiling top level form:
; recognizing DEFUN VAR-LEXICAL-P
; compiling top level form:
; compiling DEFUN VAR-LEXICAL-P:
; compiling top level form:
; recognizing DEFUN VARIABLE-SYMBOL-MACRO-P
; compiling top level form:
; compiling DEFUN VARIABLE-SYMBOL-MACRO-P:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN VAR-DECLARATION
; compiling top level form:
; compiling DEFUN VAR-DECLARATION:
; compiling top level form:
; recognizing DEFUN VAR-SPECIAL-P
; compiling top level form:
; compiling DEFUN VAR-SPECIAL-P:
; compiling top level form:
; recognizing DEFUN VAR-GLOBALLY-SPECIAL-P
; compiling top level form:
; compiling DEFUN VAR-GLOBALLY-SPECIAL-P:
; compiling top level form:
; compiling DEFMACRO GET-WALKER-TEMPLATE-INTERNAL:
; compiling top level form:
; compiling DEFMACRO DEFINE-WALKER-TEMPLATE:
; compiling top level form:
; recognizing DEFUN GET-WALKER-TEMPLATE
; compiling top level form:
; compiling DEFUN GET-WALKER-TEMPLATE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN WALK-FORM
; compiling top level form:
; compiling DEFUN WALK-FORM:
; compiling top level form:
; recognizing DEFUN WALK-FORM-INTERNAL
; compiling top level form:
; compiling DEFUN WALK-FORM-INTERNAL:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/pcl/walk.lisp
; in: DEFUN WALK-FORM-INTERNAL
; (FUNCALL (SB!WALKER::ENV-WALK-FUNCTION SB!WALKER::ENV)
; SB!WALKER::FORM
; SB!WALKER::CONTEXT
; SB!WALKER::ENV)
; --> 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 top level form:
; recognizing DEFUN WALK-TEMPLATE
; compiling top level form:
; compiling DEFUN WALK-TEMPLATE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/pcl/walk.lisp
; in: DEFUN WALK-TEMPLATE
; (FUNCALL (CADR SB!WALKER::TEMPLATE) SB!WALKER::FORM)
; --> 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 top level form:
; recognizing DEFUN WALK-TEMPLATE-HANDLE-REPEAT
; compiling top level form:
; compiling DEFUN WALK-TEMPLATE-HANDLE-REPEAT:
; compiling top level form:
; recognizing DEFUN WALK-TEMPLATE-HANDLE-REPEAT-1
; compiling top level form:
; compiling DEFUN WALK-TEMPLATE-HANDLE-REPEAT-1:
; compiling top level form:
; recognizing DEFUN WALK-REPEAT-EVAL
; compiling top level form:
; compiling DEFUN WALK-REPEAT-EVAL:
; compiling top level form:
; recognizing DEFUN RECONS
; compiling top level form:
; compiling DEFUN RECONS:
; compiling top level form:
; recognizing DEFUN RELIST
; compiling top level form:
; compiling DEFUN RELIST:
; compiling top level form:
; recognizing DEFUN RELIST*
; compiling top level form:
; compiling DEFUN RELIST*:
; compiling top level form:
; recognizing DEFUN RELIST-INTERNAL
; compiling top level form:
; compiling DEFUN RELIST-INTERNAL:
; compiling top level form:
; recognizing DEFUN WALK-DECLARATIONS
; compiling top level form:
; compiling DEFUN WALK-DECLARATIONS:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/pcl/walk.lisp
; in: DEFUN WALK-DECLARATIONS
; (FUNCALL SB!WALKER::FN
; (OR SB!WALKER::OLD-BODY SB!WALKER::BODY)
; SB!WALKER::ENV)
; --> 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 top level form:
; recognizing DEFUN WALK-UNEXPECTED-DECLARE
; compiling top level form:
; compiling DEFUN WALK-UNEXPECTED-DECLARE:
; compiling top level form:
; recognizing DEFUN WALK-ARGLIST
; compiling top level form:
; compiling DEFUN WALK-ARGLIST:
; compiling top level form:
; recognizing DEFUN WALK-LET
; compiling top level form:
; compiling DEFUN WALK-LET:
; compiling top level form:
; recognizing DEFUN WALK-LET*
; compiling top level form:
; compiling DEFUN WALK-LET*:
; compiling top level form:
; recognizing DEFUN WALK-LET/LET*
; compiling top level form:
; compiling DEFUN WALK-LET/LET*:
; compiling top level form:
; recognizing DEFUN WALK-LOCALLY
; compiling top level form:
; compiling DEFUN WALK-LOCALLY:
; compiling top level form:
; recognizing DEFUN WALK-MULTIPLE-VALUE-SETQ
; compiling top level form:
; compiling DEFUN WALK-MULTIPLE-VALUE-SETQ:
; compiling top level form:
; recognizing DEFUN WALK-MULTIPLE-VALUE-BIND
; compiling top level form:
; compiling DEFUN WALK-MULTIPLE-VALUE-BIND:
; compiling top level form:
; recognizing DEFUN WALK-BINDINGS-1
; compiling top level form:
; compiling DEFUN WALK-BINDINGS-1:
; compiling top level form:
; recognizing DEFUN WALK-BINDINGS-2
; compiling top level form:
; compiling DEFUN WALK-BINDINGS-2:
; compiling top level form:
; recognizing DEFUN WALK-LAMBDA
; compiling top level form:
; compiling DEFUN WALK-LAMBDA:
; compiling top level form:
; recognizing DEFUN WALK-NAMED-LAMBDA
; compiling top level form:
; compiling DEFUN WALK-NAMED-LAMBDA:
; compiling top level form:
; recognizing DEFUN WALK-SETQ
; compiling top level form:
; compiling DEFUN WALK-SETQ:
; compiling top level form:
; recognizing DEFUN WALK-SYMBOL-MACROLET
; compiling top level form:
; compiling DEFUN WALK-SYMBOL-MACROLET:
; compiling top level form:
; recognizing DEFUN WALK-TAGBODY
; compiling top level form:
; compiling DEFUN WALK-TAGBODY:
; compiling top level form:
; recognizing DEFUN WALK-TAGBODY-1
; compiling top level form:
; compiling DEFUN WALK-TAGBODY-1:
; compiling top level form:
; recognizing DEFUN WALK-MACROLET
; compiling top level form:
; compiling DEFUN WALK-MACROLET:
; compiling top level form:
; recognizing DEFUN WALK-FLET
; compiling top level form:
; compiling DEFUN WALK-FLET:
; compiling top level form:
; recognizing DEFUN WALK-LABELS
; compiling top level form:
; compiling DEFUN WALK-LABELS:
; compiling top level form:
; recognizing DEFUN WALK-IF
; compiling top level form:
; compiling DEFUN WALK-IF:
; compiling top level form:
; compilation unit finished
; printed 3 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/pcl/walk.lisp-obj-tmp written
; compilation finished in 0:00:01
[doing purification: roots handlers stacksbcl in malloc(): warning: pointer to wrong page.
bindings static cleanup done]
*
T
* ; in: LAMBDA NIL
; (AREF SB-COLD::*MISC-TABLE* SB-COLD::I)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (SETF (AREF SB-COLD::*MISC-MAPPING*
; (GETHASH (AREF SB-COLD::*MISC-TABLE* SB-COLD::I)
; SB-COLD::*MISC-HASH*))
; SB-COLD::I)
; --> SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compilation unit finished
; printed 2 notes
; in: LAMBDA NIL
; (SB-COLD::SECOND-PASS)
;
; caught STYLE-WARNING:
; undefined function: SECOND-PASS
; (SB-COLD::SLURP-UCD-LINE SB-COLD::LINE)
;
; caught STYLE-WARNING:
; undefined function: SLURP-UCD-LINE
;
; caught STYLE-WARNING:
; These functions are undefined:
; SECOND-PASS SLURP-UCD-LINE
;
; compilation unit finished
; caught 3 STYLE-WARNING conditions
; in: LAMBDA NIL
; (POSITION CHARACTER SB-COLD::LINE :START SB-COLD::PREV-POSITION)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
; ==>
; (SB-KERNEL:%FIND-POSITION SB-C::ITEM
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
; SB-C::TEST-NOT))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compilation unit finished
; printed 2 notes
; in: LAMBDA NIL
; (AREF (FIRST SB-COLD::SPLIT) 0)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SB-COLD::*DECOMPOSITION-BASE* (SB-COLD::CP-HIGH SB-COLD::CODE-POINT))
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (SETF (AREF SB-COLD::*DECOMPOSITION-BASE*
; (SB-COLD::CP-HIGH SB-COLD::CODE-POINT))
; (MAKE-ARRAY (ASH 1 SB-COLD::*PAGE-SIZE-EXPONENT*)
; :INITIAL-ELEMENT
; NIL))
; --> SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SB-COLD::*DECOMPOSITION-BASE* (SB-COLD::CP-HIGH SB-COLD::CODE-POINT))
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (SETF (AREF
; (AREF SB-COLD::*DECOMPOSITION-BASE*
; (SB-COLD::CP-HIGH SB-COLD::CODE-POINT))
; (SB-COLD::CP-LOW SB-COLD::CODE-POINT))
; (MAPCAR #'(LAMBDA (STRING) (PARSE-INTEGER STRING :RADIX 16))
; SB-COLD::SPLIT))
; --> SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SB-COLD::*UCD-BASE* (SB-COLD::CP-HIGH SB-COLD::POINT))
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (SETF (AREF (AREF SB-COLD::*UCD-BASE* (SB-COLD::CP-HIGH SB-COLD::POINT))
; (SB-COLD::CP-LOW SB-COLD::POINT))
; SB-COLD::RESULT)
; --> SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (SETF (AREF SB-COLD::*UCD-BASE* SB-COLD::PAGE)
; (MAKE-ARRAY (ASH 1 SB-COLD::*PAGE-SIZE-EXPONENT*)
; :INITIAL-ELEMENT
; SB-COLD::RESULT))
; --> SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SB-COLD::*UCD-BASE* (SB-COLD::CP-HIGH SB-COLD::POINT))
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (SETF (AREF (AREF SB-COLD::*UCD-BASE* (SB-COLD::CP-HIGH SB-COLD::POINT))
; (SB-COLD::CP-LOW SB-COLD::POINT))
; SB-COLD::RESULT)
; --> SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compilation unit finished
; printed 10 notes
; in: LAMBDA NIL
; (AREF SB-COLD::*UCD-BASE* SB-COLD::CODE-HIGH)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (SETF (AREF SB-COLD::*UCD-BASE* SB-COLD::CODE-HIGH)
; (MAKE-ARRAY (ASH 1 SB-COLD::*PAGE-SIZE-EXPONENT*)
; :INITIAL-ELEMENT
; NIL))
; --> SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SB-COLD::*UCD-BASE* SB-COLD::CODE-HIGH)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (SETF (AREF (AREF SB-COLD::*UCD-BASE* SB-COLD::CODE-HIGH) SB-COLD::CODE-LOW)
; (SB-COLD::ENCODE-UCD-LINE (CDR SB-COLD::SPLIT-LINE)
; SB-COLD::CODE-POINT))
; --> SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compilation unit finished
; printed 4 notes
; in: LAMBDA NIL
; (AREF SB-COLD::*UCD-BASE* SB-COLD::I)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; [Last message occurs 3 times.]
; (AREF (AREF SB-COLD::*UCD-BASE* SB-COLD::I) SB-COLD::J)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SB-COLD::RESULT 1)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SB-COLD::*UCD-BASE* SB-COLD::TRANSFORM-HIGH)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF (AREF SB-COLD::*UCD-BASE* SB-COLD::TRANSFORM-HIGH)
; SB-COLD::TRANSFORM-LOW)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF
; (AREF (AREF SB-COLD::*UCD-BASE* SB-COLD::TRANSFORM-HIGH)
; SB-COLD::TRANSFORM-LOW)
; 1)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SB-COLD::RESULT 0)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SB-COLD::*MISC-TABLE* (AREF SB-COLD::RESULT 0))
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (SETF (AREF SB-COLD::RESULT 0)
; (SB-COLD::HASH-MISC SB-COLD::GC-INDEX
; SB-COLD::BIDI-INDEX
; SB-COLD::CCC-INDEX
; SB-COLD::DECIMAL-DIGIT
; SB-COLD::DIGIT
; SB-COLD::BIDI-MIRRORED
; NIL))
; --> SB-KERNEL:%ASET LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compilation unit finished
; printed 11 notes
; in: LAMBDA NIL
; (LOOP SB-COLD::FOR
; (SB-COLD::GC-INDEX)
; SB-COLD::ACROSS
; SB-COLD::*MISC-TABLE*
; SB-COLD::FOR
; SB-COLD::I
; SB-COLD::FROM
; 0
; WHEN
; ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET*
; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE CAR AREF
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; [Last message occurs 6 times.]
; (LOOP SB-COLD::FOR
; SB-COLD::ENTRY
; SB-COLD::ACROSS
; SB-COLD::PAGE
; DO
; (WRITE-BYTE (IF SB-COLD::ENTRY (AREF SB-COLD::*MISC-MAPPING* #) 255)
; STREAM)
; DO
; (SB-COLD::WRITE-3-BYTE (IF SB-COLD::ENTRY (AREF SB-COLD::ENTRY 1) 0)
; STREAM))
; --> BLOCK 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
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SB-COLD::ENTRY 0)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SB-COLD::*MISC-MAPPING* (AREF SB-COLD::ENTRY 0))
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SB-COLD::ENTRY 1)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (LOOP SB-COLD::FOR
; SB-COLD::PAGE
; SB-COLD::ACROSS
; SB-COLD::*UCD-BASE*
; DO
; (WRITE-BYTE (IF SB-COLD::PAGE (GETHASH SB-COLD::PAGE SB-COLD::HASH) 0)
; STREAM))
; --> BLOCK 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
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (LOOP SB-COLD::FOR
; (SB-COLD::GC-INDEX SB-COLD::BIDI-INDEX
; SB-COLD::CCC-INDEX
; SB-COLD::DECIMAL-DIGIT
; SB-COLD::DIGIT
; SB-COLD::BIDI-MIRRORED)
; SB-COLD::ACROSS
; SB-COLD::*MISC-TABLE*
; DO
; (WRITE-BYTE SB-COLD::GC-INDEX STREAM)
; DO
; (WRITE-BYTE SB-COLD::BIDI-INDEX STREAM) ..)
; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ LET AREF
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (LOOP SB-COLD::FOR
; SB-COLD::PAGE
; SB-COLD::ACROSS
; SB-COLD::*UCD-BASE*
; DO
; (WHEN SB-COLD::PAGE
; (UNLESS (GETHASH SB-COLD::PAGE SB-COLD::HASH) (SETF # #))))
; --> BLOCK 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
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compilation unit finished
; printed 13 notes
; in: LAMBDA NIL
; (AREF SB-COLD::*COMPILED-UCD* (+ (* 8 SB-COLD::*LENGTH*) SB-COLD::CP-HIGH))
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compilation unit finished
; printed 1 note
; in: LAMBDA NIL
; (AREF SB-COLD::*COMPILED-UCD* (SB-COLD::CP-INDEX SB-COLD::CP))
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compilation unit finished
; printed 1 note
; in: LAMBDA NIL
; (AREF SB-COLD::*COMPILED-UCD* (+ SB-COLD::INDEX 3))
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SB-COLD::*COMPILED-UCD* (+ SB-COLD::INDEX 2))
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; (AREF SB-COLD::*COMPILED-UCD* (1+ SB-COLD::INDEX))
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compilation unit finished
; printed 3 notes
; in: LAMBDA NIL
; (AREF SB-COLD::*COMPILED-UCD* (* 8 (SB-COLD::CP-VALUE-0 SB-COLD::CP)))
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compilation unit finished
; printed 1 note
; in: LAMBDA NIL
; (AREF SB-COLD::*COMPILED-UCD* (+ 3 (* 8 (SB-COLD::CP-VALUE-0 SB-COLD::CP))))
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compilation unit finished
; printed 1 note
T
* 181
304
305
383
453
456
459
498
837
962
976
977
981
982
1008
1009
1012
1013
7835
8126
8486
8490
8491
7897
*
* ; compiling file "/home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/genesis.lisp" (written 21 DEC 2004 04:52:10 AM):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ROUND-UP
; compiling top level form:
; compiling DEFUN ROUND-UP:
; compiling top level form:
; compiling top level form:
; compiling DEFTYPE SMALLVEC:
; compiling top level form:
; recognizing DEFUN MAKE-SMALLVEC
; compiling top level form:
; compiling DEFUN MAKE-SMALLVEC:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-BIGVEC
; compiling top level form:
; compiling DEFSTRUCT BIGVEC:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN BVREF
; compiling top level form:
; compiling DEFUN BVREF:
; compiling top level form:
; recognizing DEFUN (SETF BVREF)
; compiling top level form:
; compiling DEFUN (SETF BVREF):
; compiling top level form:
; recognizing DEFUN BVLENGTH
; compiling top level form:
; compiling DEFUN BVLENGTH:
; compiling top level form:
; recognizing DEFUN WRITE-BIGVEC-AS-SEQUENCE
; compiling top level form:
; compiling DEFUN WRITE-BIGVEC-AS-SEQUENCE:
; compiling top level form:
; recognizing DEFUN READ-BIGVEC-AS-SEQUENCE-OR-DIE
; compiling top level form:
; compiling DEFUN READ-BIGVEC-AS-SEQUENCE-OR-DIE:
; compiling top level form:
; recognizing DEFUN EXPAND-BIGVEC
; compiling top level form:
; compiling DEFUN EXPAND-BIGVEC:
; compiling top level form:
; recognizing DEFUN BVREF-8
; compiling top level form:
; compiling MACROLET ((MAKE-BVREF-N # #)):
; compiling top level form:
; recognizing DEFUN (SETF BVREF-8)
; compiling top level form:
; compiling MACROLET ((MAKE-BVREF-N # #)):
; compiling top level form:
; recognizing DEFUN BVREF-16
; compiling top level form:
; compiling MACROLET ((MAKE-BVREF-N # #)):
; compiling top level form:
; recognizing DEFUN (SETF BVREF-16)
; compiling top level form:
; compiling MACROLET ((MAKE-BVREF-N # #)):
; compiling top level form:
; recognizing DEFUN BVREF-32
; compiling top level form:
; compiling MACROLET ((MAKE-BVREF-N # #)):
; compiling top level form:
; recognizing DEFUN (SETF BVREF-32)
; compiling top level form:
; compiling MACROLET ((MAKE-BVREF-N # #)):
; compiling top level form:
; recognizing DEFUN BVREF-64
; compiling top level form:
; compiling MACROLET ((MAKE-BVREF-N # #)):
; compiling top level form:
; recognizing DEFUN (SETF BVREF-64)
; compiling top level form:
; compiling MACROLET ((MAKE-BVREF-N # #)):
; compiling top level form:
; in: COMMON-LISP:LAMBDA COMMON-LISP:NIL
; '(:AND)
;
; note: deleting unreachable code
; '(:OR)
;
; note: deleting unreachable code
; recognizing DEFUN BVREF-WORD
; compiling top level form:
; compiling DEFUN BVREF-WORD:
; compiling top level form:
; recognizing DEFUN (SETF BVREF-WORD)
; compiling top level form:
; compiling DEFUN (SETF BVREF-WORD):
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN %MAKE-GSPACE
; compiling top level form:
; compiling DEFSTRUCT GSPACE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN GSPACE-BYTE-ADDRESS
; compiling top level form:
; compiling DEFUN GSPACE-BYTE-ADDRESS:
; compiling top level form:
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; recognizing DEFUN MAKE-GSPACE
; compiling top level form:
; compiling DEFUN MAKE-GSPACE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-DESCRIPTOR
; compiling top level form:
; compiling DEFSTRUCT DESCRIPTOR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; in: COMMON-LISP:LAMBDA COMMON-LISP:NIL
; '(:AND)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; compiling DEF!METHOD PRINT-OBJECT:
; compiling top level form:
; recognizing DEFUN ALLOCATE-COLD-DESCRIPTOR
; compiling top level form:
; compiling DEFUN ALLOCATE-COLD-DESCRIPTOR:
; compiling top level form:
; recognizing DEFUN DESCRIPTOR-LOWTAG
; compiling top level form:
; compiling DEFUN DESCRIPTOR-LOWTAG:
; compiling top level form:
; recognizing DEFUN DESCRIPTOR-BITS
; compiling top level form:
; compiling DEFUN DESCRIPTOR-BITS:
; compiling top level form:
; recognizing DEFUN DESCRIPTOR-FIXNUM
; compiling top level form:
; compiling DEFUN DESCRIPTOR-FIXNUM:
; compiling top level form:
; recognizing DEFUN DESCRIPTOR-BYTES
; compiling top level form:
; compiling DEFUN DESCRIPTOR-BYTES:
; compiling top level form:
; recognizing DEFUN DESCRIPTOR-BYTE-OFFSET
; compiling top level form:
; compiling DEFUN DESCRIPTOR-BYTE-OFFSET:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DESCRIPTOR-INTUIT-GSPACE
; compiling top level form:
; compiling DEFUN DESCRIPTOR-INTUIT-GSPACE:
; compiling top level form:
; recognizing DEFUN MAKE-RANDOM-DESCRIPTOR
; compiling top level form:
; compiling DEFUN MAKE-RANDOM-DESCRIPTOR:
; compiling top level form:
; recognizing DEFUN MAKE-FIXNUM-DESCRIPTOR
; compiling top level form:
; compiling DEFUN MAKE-FIXNUM-DESCRIPTOR:
; compiling top level form:
; recognizing DEFUN MAKE-OTHER-IMMEDIATE-DESCRIPTOR
; compiling top level form:
; compiling DEFUN MAKE-OTHER-IMMEDIATE-DESCRIPTOR:
; compiling top level form:
; recognizing DEFUN MAKE-CHARACTER-DESCRIPTOR
; compiling top level form:
; compiling DEFUN MAKE-CHARACTER-DESCRIPTOR:
; compiling top level form:
; recognizing DEFUN DESCRIPTOR-BEYOND
; compiling top level form:
; compiling DEFUN DESCRIPTOR-BEYOND:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO COLD-PUSH:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN READ-WORDINDEXED
; compiling top level form:
; compiling DEFUN READ-WORDINDEXED:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN READ-MEMORY
; compiling top level form:
; compiling DEFUN READ-MEMORY:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NOTE-LOAD-TIME-VALUE-REFERENCE
; compiling top level form:
; compiling DEFUN NOTE-LOAD-TIME-VALUE-REFERENCE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN WRITE-WORDINDEXED
; compiling top level form:
; compiling DEFUN WRITE-WORDINDEXED:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN WRITE-MEMORY
; compiling top level form:
; compiling DEFUN WRITE-MEMORY:
; compiling top level form:
; recognizing DEFUN ALLOCATE-BOXED-OBJECT
; compiling top level form:
; compiling DEFUN ALLOCATE-BOXED-OBJECT:
; compiling top level form:
; recognizing DEFUN ALLOCATE-UNBOXED-OBJECT
; compiling top level form:
; compiling DEFUN ALLOCATE-UNBOXED-OBJECT:
; compiling top level form:
; recognizing DEFUN ALLOCATE-VECTOR-OBJECT
; compiling top level form:
; compiling DEFUN ALLOCATE-VECTOR-OBJECT:
; compiling top level form:
; recognizing DEFUN BASE-STRING-TO-CORE
; compiling top level form:
; compiling DEFUN BASE-STRING-TO-CORE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/genesis.lisp
; in: DEFUN BASE-STRING-TO-CORE
; (AREF STRING SB!FASL::I)
; --> LET*
; ==>
; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; compiling top level form:
; recognizing DEFUN BIGNUM-TO-CORE
; compiling top level form:
; compiling DEFUN BIGNUM-TO-CORE:
; compiling top level form:
; recognizing DEFUN NUMBER-PAIR-TO-CORE
; compiling top level form:
; compiling DEFUN NUMBER-PAIR-TO-CORE:
; compiling top level form:
; recognizing DEFUN FLOAT-TO-CORE
; compiling top level form:
; compiling DEFUN FLOAT-TO-CORE:
; compiling top level form:
; recognizing DEFUN COMPLEX-SINGLE-FLOAT-TO-CORE
; compiling top level form:
; compiling DEFUN COMPLEX-SINGLE-FLOAT-TO-CORE:
; compiling top level form:
; recognizing DEFUN COMPLEX-DOUBLE-FLOAT-TO-CORE
; compiling top level form:
; compiling DEFUN COMPLEX-DOUBLE-FLOAT-TO-CORE:
; compiling top level form:
; recognizing DEFUN NUMBER-TO-CORE
; compiling top level form:
; compiling DEFUN NUMBER-TO-CORE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN SAP-INT-TO-CORE
; compiling top level form:
; compiling DEFUN SAP-INT-TO-CORE:
; compiling top level form:
; recognizing DEFUN COLD-CONS
; compiling top level form:
; compiling DEFUN COLD-CONS:
; compiling top level form:
; recognizing DEFUN VECTOR-IN-CORE
; compiling top level form:
; compiling DEFUN VECTOR-IN-CORE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN ALLOCATE-SYMBOL
; compiling top level form:
; compiling DEFUN ALLOCATE-SYMBOL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-SET
; compiling top level form:
; compiling DEFUN COLD-SET:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LISTIFY-COLD-INHERITS
; compiling top level form:
; compiling DEFUN LISTIFY-COLD-INHERITS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN MAKE-COLD-LAYOUT
; compiling top level form:
; compiling DEFUN MAKE-COLD-LAYOUT:
; compiling top level form:
; recognizing DEFUN INITIALIZE-LAYOUTS
; compiling top level form:
; compiling DEFUN INITIALIZE-LAYOUTS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN PACKAGE-OK-FOR-TARGET-SYMBOL-P
; compiling top level form:
; compiling DEFUN PACKAGE-OK-FOR-TARGET-SYMBOL-P:
; compiling top level form:
; recognizing DEFUN SYMBOL-PACKAGE-FOR-TARGET-SYMBOL
; compiling top level form:
; compiling DEFUN SYMBOL-PACKAGE-FOR-TARGET-SYMBOL:
; compiling top level form:
; recognizing DEFUN COLD-INTERN
; compiling top level form:
; compiling DEFUN COLD-INTERN:
; compiling top level form:
; recognizing DEFUN MAKE-NIL-DESCRIPTOR
; compiling top level form:
; compiling DEFUN MAKE-NIL-DESCRIPTOR:
; compiling top level form:
; recognizing DEFUN INITIALIZE-NON-NIL-SYMBOLS
; compiling top level form:
; compiling DEFUN INITIALIZE-NON-NIL-SYMBOLS:
; compiling top level form:
; recognizing DEFUN COLD-LIST-ALL-LAYOUTS
; compiling top level form:
; compiling DEFUN COLD-LIST-ALL-LAYOUTS:
; compiling top level form:
; recognizing DEFUN FINISH-SYMBOLS
; compiling top level form:
; compiling DEFUN FINISH-SYMBOLS:
; compiling top level form:
; recognizing DEFUN MAKE-MAKE-PACKAGE-ARGS
; compiling top level form:
; compiling DEFUN MAKE-MAKE-PACKAGE-ARGS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN WARM-SYMBOL
; compiling top level form:
; compiling DEFUN WARM-SYMBOL:
; compiling top level form:
; recognizing DEFUN COLD-CAR
; compiling top level form:
; compiling DEFUN COLD-CAR:
; compiling top level form:
; recognizing DEFUN COLD-CDR
; compiling top level form:
; compiling DEFUN COLD-CDR:
; compiling top level form:
; recognizing DEFUN COLD-NULL
; compiling top level form:
; compiling DEFUN COLD-NULL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN WARM-FUN-NAME
; compiling top level form:
; compiling DEFUN WARM-FUN-NAME:
; compiling top level form:
; recognizing DEFUN COLD-FDEFINITION-OBJECT
; compiling top level form:
; compiling DEFUN COLD-FDEFINITION-OBJECT:
; compiling top level form:
; recognizing DEFUN STATIC-FSET
; compiling top level form:
; compiling DEFUN STATIC-FSET:
; compiling top level form:
; recognizing DEFUN INITIALIZE-STATIC-FNS
; compiling top level form:
; compiling DEFUN INITIALIZE-STATIC-FNS:
; compiling top level form:
; recognizing DEFUN LIST-ALL-FDEFN-OBJECTS
; compiling top level form:
; compiling DEFUN LIST-ALL-FDEFN-OBJECTS:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN LOAD-COLD-FOREIGN-SYMBOL-TABLE
; compiling top level form:
; compiling DEFUN LOAD-COLD-FOREIGN-SYMBOL-TABLE:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/genesis.lisp
; in: DEFUN LOAD-COLD-FOREIGN-SYMBOL-TABLE
; (FIND-IF (LAMBDA (CHAR) (NOT (TYPEP CHAR 'STANDARD-CHAR))) SB!FASL::LINE)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET
; ==>
; (SB-KERNEL:%FIND-POSITION-IF
; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; SEQUENCE
; SB-C::FROM-END
; SB-C::START
; SB-C::END
; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a SEQUENCE, not a VECTOR.
; compiling top level form:
; recognizing DEFUN COLD-FOREIGN-SYMBOL-ADDRESS-AS-INTEGER
; compiling top level form:
; compiling DEFUN COLD-FOREIGN-SYMBOL-ADDRESS-AS-INTEGER:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN RECORD-COLD-ASSEMBLER-ROUTINE
; compiling top level form:
; compiling DEFUN RECORD-COLD-ASSEMBLER-ROUTINE:
; compiling top level form:
; recognizing DEFUN RECORD-COLD-ASSEMBLER-FIXUP
; compiling top level form:
; compiling DEFUN RECORD-COLD-ASSEMBLER-FIXUP:
; compiling top level form:
; recognizing DEFUN LOOKUP-ASSEMBLER-REFERENCE
; compiling top level form:
; compiling DEFUN LOOKUP-ASSEMBLER-REFERENCE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN NOTE-LOAD-TIME-CODE-FIXUP
; compiling top level form:
; compiling DEFUN NOTE-LOAD-TIME-CODE-FIXUP:
; compiling top level form:
; recognizing DEFUN OUTPUT-LOAD-TIME-CODE-FIXUPS
; compiling top level form:
; compiling DEFUN OUTPUT-LOAD-TIME-CODE-FIXUPS:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN CALC-OFFSET
; compiling top level form:
; compiling DEFUN CALC-OFFSET:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN DO-COLD-FIXUP
; compiling top level form:
; compiling DEFUN DO-COLD-FIXUP:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/genesis.lisp
; in: DEFUN DO-COLD-FIXUP
; (ECASE SB!FASL::KIND
; (:JMP-HINT (ASSERT (ZEROP #)))
; (:BITS-63-48
; (LET* (# # #)
; (SETF # # # #)))
; (:BITS-47-32
; (LET* (# #)
; (SETF # # # #)))
; (:LDAH
; (LET (#)
; (SETF # # # #)))
; (:LDA ..))
; --> LET
; ==>
; SB!FASL::KIND
;
; note: deleting unreachable code
; (+ SB!FASL::VALUE (ASH 1 48))
; ==>
; SB!FASL::VALUE
;
; note: deleting unreachable code
; (+ SB!FASL::VALUE (ASH 1 32))
; ==>
; SB!FASL::VALUE
;
; note: deleting unreachable code
; (+ SB!FASL::VALUE (ASH 1 16))
; ==>
; SB!FASL::VALUE
;
; note: deleting unreachable code
; (LET* ((SB!FASL::VALUE (IF # # SB!FASL::VALUE))
; (SB!FASL::VALUE (IF # # SB!FASL::VALUE))
; (SB!FASL::VALUE (IF # # SB!FASL::VALUE)))
; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:LDB (SB-XC:BYTE 8 48) SB!FASL::VALUE)
; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES
; (1+ SB!FASL::GSPACE-BYTE-OFFSET))
; (SB-XC:LDB (SB-XC:BYTE 8 56) SB!FASL::VALUE)))
;
; note: deleting unreachable code
; (IF (LOGBITP 15 SB!FASL::VALUE) (+ SB!FASL::VALUE (ASH 1 16)) SB!FASL::VALUE)
; ==>
; SB!FASL::VALUE
;
; note: deleting unreachable code
; (LET* ((SB!FASL::VALUE (IF # # SB!FASL::VALUE))
; (SB!FASL::VALUE (IF # # SB!FASL::VALUE))
; (SB!FASL::VALUE (IF # # SB!FASL::VALUE)))
; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:LDB (SB-XC:BYTE 8 48) SB!FASL::VALUE)
; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES
; (1+ SB!FASL::GSPACE-BYTE-OFFSET))
; (SB-XC:LDB (SB-XC:BYTE 8 56) SB!FASL::VALUE)))
;
; note: deleting unreachable code
; [Last message occurs 2 times.]
; (IF (LOGBITP 31 SB!FASL::VALUE) (+ SB!FASL::VALUE (ASH 1 32)) SB!FASL::VALUE)
; ==>
; SB!FASL::VALUE
;
; note: deleting unreachable code
; (LET* ((SB!FASL::VALUE (IF # # SB!FASL::VALUE))
; (SB!FASL::VALUE (IF # # SB!FASL::VALUE))
; (SB!FASL::VALUE (IF # # SB!FASL::VALUE)))
; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:LDB (SB-XC:BYTE 8 48) SB!FASL::VALUE)
; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES
; (1+ SB!FASL::GSPACE-BYTE-OFFSET))
; (SB-XC:LDB (SB-XC:BYTE 8 56) SB!FASL::VALUE)))
;
; note: deleting unreachable code
; [Last message occurs 2 times.]
; (IF (LOGBITP 47 SB!FASL::VALUE) (+ SB!FASL::VALUE (ASH 1 48)) SB!FASL::VALUE)
; ==>
; SB!FASL::VALUE
;
; note: deleting unreachable code
; (LET* ((SB!FASL::VALUE (IF # # SB!FASL::VALUE))
; (SB!FASL::VALUE (IF # # SB!FASL::VALUE))
; (SB!FASL::VALUE (IF # # SB!FASL::VALUE)))
; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:LDB (SB-XC:BYTE 8 48) SB!FASL::VALUE)
; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES
; (1+ SB!FASL::GSPACE-BYTE-OFFSET))
; (SB-XC:LDB (SB-XC:BYTE 8 56) SB!FASL::VALUE)))
;
; note: deleting unreachable code
; [Last message occurs 2 times.]
; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:LDB (SB-XC:BYTE 8 48) SB!FASL::VALUE)
; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES
; (1+ SB!FASL::GSPACE-BYTE-OFFSET))
; (SB-XC:LDB (SB-XC:BYTE 8 56) SB!FASL::VALUE))
; --> PROGN SETF LET*
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (SB-XC:BYTE 8 48)
;
; note: deleting unreachable code
; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:LDB (SB-XC:BYTE 8 48) SB!FASL::VALUE)
; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES
; (1+ SB!FASL::GSPACE-BYTE-OFFSET))
; (SB-XC:LDB (SB-XC:BYTE 8 56) SB!FASL::VALUE))
; --> PROGN SETF LET*
; ==>
; SB!FASL::GSPACE-BYTES
;
; note: deleting unreachable code
; (1+ SB!FASL::GSPACE-BYTE-OFFSET)
; --> +
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (SB-XC:BYTE 8 56)
;
; note: deleting unreachable code
; (+ SB!FASL::VALUE (ASH 1 32))
; ==>
; SB!FASL::VALUE
;
; note: deleting unreachable code
; (+ SB!FASL::VALUE (ASH 1 16))
; ==>
; SB!FASL::VALUE
;
; note: deleting unreachable code
; (LET* ((SB!FASL::VALUE (IF # # SB!FASL::VALUE))
; (SB!FASL::VALUE (IF # # SB!FASL::VALUE)))
; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:LDB (SB-XC:BYTE 8 32) SB!FASL::VALUE)
; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES
; (1+ SB!FASL::GSPACE-BYTE-OFFSET))
; (SB-XC:LDB (SB-XC:BYTE 8 40) SB!FASL::VALUE)))
;
; note: deleting unreachable code
; (IF (LOGBITP 15 SB!FASL::VALUE) (+ SB!FASL::VALUE (ASH 1 16)) SB!FASL::VALUE)
; ==>
; SB!FASL::VALUE
;
; note: deleting unreachable code
; (LET* ((SB!FASL::VALUE (IF # # SB!FASL::VALUE))
; (SB!FASL::VALUE (IF # # SB!FASL::VALUE)))
; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:LDB (SB-XC:BYTE 8 32) SB!FASL::VALUE)
; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES
; (1+ SB!FASL::GSPACE-BYTE-OFFSET))
; (SB-XC:LDB (SB-XC:BYTE 8 40) SB!FASL::VALUE)))
;
; note: deleting unreachable code
; [Last message occurs 2 times.]
; (IF (LOGBITP 31 SB!FASL::VALUE) (+ SB!FASL::VALUE (ASH 1 32)) SB!FASL::VALUE)
; ==>
; SB!FASL::VALUE
;
; note: deleting unreachable code
; (LET* ((SB!FASL::VALUE (IF # # SB!FASL::VALUE))
; (SB!FASL::VALUE (IF # # SB!FASL::VALUE)))
; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:LDB (SB-XC:BYTE 8 32) SB!FASL::VALUE)
; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES
; (1+ SB!FASL::GSPACE-BYTE-OFFSET))
; (SB-XC:LDB (SB-XC:BYTE 8 40) SB!FASL::VALUE)))
;
; note: deleting unreachable code
; [Last message occurs 2 times.]
; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:LDB (SB-XC:BYTE 8 32) SB!FASL::VALUE)
; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES
; (1+ SB!FASL::GSPACE-BYTE-OFFSET))
; (SB-XC:LDB (SB-XC:BYTE 8 40) SB!FASL::VALUE))
; --> PROGN SETF LET*
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (SB-XC:BYTE 8 32)
;
; note: deleting unreachable code
; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:LDB (SB-XC:BYTE 8 32) SB!FASL::VALUE)
; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES
; (1+ SB!FASL::GSPACE-BYTE-OFFSET))
; (SB-XC:LDB (SB-XC:BYTE 8 40) SB!FASL::VALUE))
; --> PROGN SETF LET*
; ==>
; SB!FASL::GSPACE-BYTES
;
; note: deleting unreachable code
; (1+ SB!FASL::GSPACE-BYTE-OFFSET)
; --> +
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (SB-XC:BYTE 8 40)
;
; note: deleting unreachable code
; (+ SB!FASL::VALUE (ASH 1 16))
; ==>
; SB!FASL::VALUE
;
; note: deleting unreachable code
; (LET ((SB!FASL::VALUE (IF # # SB!FASL::VALUE)))
; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:LDB (SB-XC:BYTE 8 16) SB!FASL::VALUE)
; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES
; (1+ SB!FASL::GSPACE-BYTE-OFFSET))
; (SB-XC:LDB (SB-XC:BYTE 8 24) SB!FASL::VALUE)))
;
; note: deleting unreachable code
; (IF (LOGBITP 15 SB!FASL::VALUE) (+ SB!FASL::VALUE (ASH 1 16)) SB!FASL::VALUE)
; ==>
; SB!FASL::VALUE
;
; note: deleting unreachable code
; (LET ((SB!FASL::VALUE (IF # # SB!FASL::VALUE)))
; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:LDB (SB-XC:BYTE 8 16) SB!FASL::VALUE)
; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES
; (1+ SB!FASL::GSPACE-BYTE-OFFSET))
; (SB-XC:LDB (SB-XC:BYTE 8 24) SB!FASL::VALUE)))
;
; note: deleting unreachable code
; [Last message occurs 2 times.]
; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:LDB (SB-XC:BYTE 8 16) SB!FASL::VALUE)
; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES
; (1+ SB!FASL::GSPACE-BYTE-OFFSET))
; (SB-XC:LDB (SB-XC:BYTE 8 24) SB!FASL::VALUE))
; --> PROGN SETF LET*
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (SB-XC:BYTE 8 16)
;
; note: deleting unreachable code
; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:LDB (SB-XC:BYTE 8 16) SB!FASL::VALUE)
; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES
; (1+ SB!FASL::GSPACE-BYTE-OFFSET))
; (SB-XC:LDB (SB-XC:BYTE 8 24) SB!FASL::VALUE))
; --> PROGN SETF LET*
; ==>
; SB!FASL::GSPACE-BYTES
;
; note: deleting unreachable code
; (1+ SB!FASL::GSPACE-BYTE-OFFSET)
; --> +
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (SB-XC:BYTE 8 24)
;
; note: deleting unreachable code
; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:LDB (SB-XC:BYTE 8 0) SB!FASL::VALUE)
; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES
; (1+ SB!FASL::GSPACE-BYTE-OFFSET))
; (SB-XC:LDB (SB-XC:BYTE 8 8) SB!FASL::VALUE))
; --> PROGN SETF LET*
; ==>
; SB!FASL::GSPACE-BYTES
;
; note: deleting unreachable code
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (SB-XC:BYTE 8 0)
;
; note: deleting unreachable code
; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:LDB (SB-XC:BYTE 8 0) SB!FASL::VALUE)
; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES
; (1+ SB!FASL::GSPACE-BYTE-OFFSET))
; (SB-XC:LDB (SB-XC:BYTE 8 8) SB!FASL::VALUE))
; --> PROGN SETF LET*
; ==>
; SB!FASL::GSPACE-BYTES
;
; note: deleting unreachable code
; (1+ SB!FASL::GSPACE-BYTE-OFFSET)
; --> +
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (SB-XC:BYTE 8 8)
;
; note: deleting unreachable code
; (SB-XC:BYTE 2 0)
;
; note: deleting unreachable code
; (ECASE SB!FASL::KIND
; (:LOAD
; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
; SB!FASL::GSPACE-BYTE-OFFSET)
; (LOGIOR # #)))
; (:LOAD-SHORT
; (LET (#)
; (ASSERT #)
; (SETF # #)))
; (:HI
; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
; SB!FASL::GSPACE-BYTE-OFFSET) ..)))
; --> LET
; ==>
; SB!FASL::KIND
;
; note: deleting unreachable code
; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (LOGIOR (ASH (SB-XC:LDB # SB!FASL::VALUE) 1)
; (LOGAND
; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
; SB!FASL::GSPACE-BYTE-OFFSET)
; 4294950912)))
; --> LET*
; ==>
; SB!FASL::GSPACE-BYTES
;
; note: deleting unreachable code
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (SB-XC:BYTE 11 0)
;
; note: deleting unreachable code
; (LET ((SB!FASL::LOW-BITS (SB-XC:LDB # SB!FASL::VALUE)))
; (ASSERT (<= 0 SB!FASL::LOW-BITS (1- #)))
; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (LOGIOR (ASH SB!FASL::LOW-BITS 17) (LOGAND # 4292935679))))
;
; note: deleting unreachable code
; [Last message occurs 2 times.]
; (<= 0 SB!FASL::LOW-BITS (1- (ASH 1 4)))
; -->
; --> (LAMBDA (#:G1385 #:G1384 #:G1383) (DECLARE (TYPE REAL #:G1385 #:G1384 #:G1383)) (IF (> #:G1385 #:G1384) NIL (IF (> #:G1384 #:G1383) NIL T)))
; ==>
; SB!FASL::LOW-BITS
;
; note: deleting unreachable code
; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (LOGIOR (ASH SB!FASL::LOW-BITS 17)
; (LOGAND
; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
; SB!FASL::GSPACE-BYTE-OFFSET)
; 4292935679)))
; --> LET*
; ==>
; SB!FASL::GSPACE-BYTES
;
; note: deleting unreachable code
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (ASH SB!FASL::LOW-BITS 17)
; ==>
; SB!FASL::LOW-BITS
;
; note: deleting unreachable code
; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (LOGIOR (ASH (SB-XC:LDB # SB!FASL::VALUE) 16)
; (ASH (SB-XC:LDB # SB!FASL::VALUE) 14)
; (ASH (SB-XC:LDB # SB!FASL::VALUE) 12)
; (ASH (SB-XC:LDB # SB!FASL::VALUE) 1)
; (SB-XC:LDB (SB-XC:BYTE 1 31) SB!FASL::VALUE)
; (LOGAND
; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
; SB!FASL::GSPACE-BYTE-OFFSET)
; 4292870144)))
; --> LET*
; ==>
; SB!FASL::GSPACE-BYTES
;
; note: deleting unreachable code
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (SB-XC:BYTE 5 13)
;
; note: deleting unreachable code
; (LET ((SB!SYS:BITS (SB-XC:LDB # SB!FASL::VALUE)))
; (ASSERT (ZEROP (SB-XC:LDB # SB!FASL::VALUE)))
; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (LOGIOR (ASH SB!SYS:BITS 3) (LOGAND # 4292927490))))
;
; note: deleting unreachable code
; [Last message occurs 2 times.]
; (SB-XC:BYTE 2 0)
;
; note: deleting unreachable code
; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (LOGIOR (ASH SB!SYS:BITS 3)
; (LOGAND
; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
; SB!FASL::GSPACE-BYTE-OFFSET)
; 4292927490)))
; --> LET*
; ==>
; SB!FASL::GSPACE-BYTES
;
; note: deleting unreachable code
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (ASH SB!SYS:BITS 3)
; ==>
; SB!SYS:BITS
;
; note: deleting unreachable code
; (ECASE SB!FASL::KIND
; (:JUMP (ASSERT (ZEROP #)) (SETF (SB-XC:LDB # #) (ASH SB!FASL::VALUE -2)))
; (:LUI
; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
; SB!FASL::GSPACE-BYTE-OFFSET)
; (LOGIOR # #)))
; (:ADDI
; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
; SB!FASL::GSPACE-BYTE-OFFSET)
; (LOGIOR # #))))
; --> LET
; ==>
; SB!FASL::KIND
;
; note: deleting unreachable code
; (ASH SB!FASL::VALUE -28)
; ==>
; SB!FASL::VALUE
;
; note: deleting unreachable code
; (SB-XC:BYTE 26 0)
;
; note: deleting unreachable code
; (SETF (SB-XC:LDB (SB-XC:BYTE 26 0)
; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
; SB!FASL::GSPACE-BYTE-OFFSET))
; (ASH SB!FASL::VALUE -2))
; --> LET*
; ==>
; SB!FASL::GSPACE-BYTES
;
; note: deleting unreachable code
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (ASH SB!FASL::VALUE -2)
; ==>
; SB!FASL::VALUE
;
; note: deleting unreachable code
; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (LOGIOR
; (SB-XC:MASK-FIELD (SB-XC:BYTE 16 16)
; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
; SB!FASL::GSPACE-BYTE-OFFSET))
; (+ (ASH SB!FASL::VALUE -16) (IF # 1 0))))
; --> LET*
; ==>
; SB!FASL::GSPACE-BYTES
;
; note: deleting unreachable code
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (SB-XC:BYTE 16 16)
;
; note: deleting unreachable code
; (+ (ASH SB!FASL::VALUE -16) (IF (LOGBITP 15 SB!FASL::VALUE) 1 0))
;
; note: deleting unreachable code
; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (LOGIOR
; (SB-XC:MASK-FIELD (SB-XC:BYTE 16 16)
; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
; SB!FASL::GSPACE-BYTE-OFFSET))
; (SB-XC:LDB (SB-XC:BYTE 16 0) SB!FASL::VALUE)))
; --> LET*
; ==>
; SB!FASL::GSPACE-BYTES
;
; note: deleting unreachable code
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (SB-XC:BYTE 16 16)
;
; note: deleting unreachable code
; (ECASE SB!FASL::KIND
; (:BA
; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
; SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:DPB # # #)))
; (:HA
; (LET* (# #)
; (SETF # #)))
; (:L
; (SETF (SB!FASL::BVREF-16 SB!FASL::GSPACE-BYTES #)
; (SB-XC:LDB # SB!FASL::VALUE))))
; --> LET
; ==>
; SB!FASL::KIND
;
; note: deleting unreachable code
; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:DPB (ASH SB!FASL::VALUE -2)
; (SB-XC:BYTE 24 2)
; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
; SB!FASL::GSPACE-BYTE-OFFSET)))
; --> LET*
; ==>
; SB!FASL::GSPACE-BYTES
;
; note: deleting unreachable code
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (ASH SB!FASL::VALUE -2)
; ==>
; SB!FASL::VALUE
;
; note: deleting unreachable code
; (SB-XC:BYTE 16 0)
;
; note: deleting unreachable code
; (LET* ((SB!FASL::H (SB-XC:LDB # SB!FASL::VALUE))
; (SB!FASL::L (SB-XC:LDB # SB!FASL::VALUE)))
; (SETF (SB!FASL::BVREF-16 SB!FASL::GSPACE-BYTES
; (+ SB!FASL::GSPACE-BYTE-OFFSET 2))
; (IF (LOGBITP 15 SB!FASL::L) (SB-XC:LDB # #) SB!FASL::H)))
;
; note: deleting unreachable code
; [Last message occurs 3 times.]
; (+ SB!FASL::GSPACE-BYTE-OFFSET 2)
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (LOGBITP 15 SB!FASL::L)
; ==>
; SB!FASL::L
;
; note: deleting unreachable code
; (IF (LOGBITP 15 SB!FASL::L)
; (SB-XC:LDB (SB-XC:BYTE 16 0) (1+ SB!FASL::H))
; SB!FASL::H)
; ==>
; SB!FASL::H
;
; note: deleting unreachable code
; (SETF (SB!FASL::BVREF-16 SB!FASL::GSPACE-BYTES
; (+ SB!FASL::GSPACE-BYTE-OFFSET 2))
; (SB-XC:LDB (SB-XC:BYTE 16 0) SB!FASL::VALUE))
; --> LET*
; ==>
; SB!FASL::GSPACE-BYTES
;
; note: deleting unreachable code
; (+ SB!FASL::GSPACE-BYTE-OFFSET 2)
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (SB-XC:BYTE 16 0)
;
; note: deleting unreachable code
; (ECASE SB!FASL::KIND
; (:CALL (ERROR "can't deal with call fixups yet"))
; (:SETHI
; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
; SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:DPB # # #)))
; (:ADD
; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
; SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:DPB # # #))))
; --> LET
; ==>
; SB!FASL::KIND
;
; note: deleting unreachable code
; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:DPB (SB-XC:LDB (SB-XC:BYTE 22 10) SB!FASL::VALUE)
; (SB-XC:BYTE 22 0)
; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
; SB!FASL::GSPACE-BYTE-OFFSET)))
; --> LET*
; ==>
; SB!FASL::GSPACE-BYTES
;
; note: deleting unreachable code
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (SB-XC:BYTE 22 10)
;
; note: deleting unreachable code
; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET)
; (SB-XC:DPB (SB-XC:LDB (SB-XC:BYTE 10 0) SB!FASL::VALUE)
; (SB-XC:BYTE 10 0)
; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
; SB!FASL::GSPACE-BYTE-OFFSET)))
; --> LET*
; ==>
; SB!FASL::GSPACE-BYTES
;
; note: deleting unreachable code
; ==>
; SB!FASL::GSPACE-BYTE-OFFSET
;
; note: deleting unreachable code
; (SB-XC:BYTE 10 0)
;
; note: deleting unreachable code
; (ERROR "can't deal with call fixups yet")
; ==>
; "can't deal with call fixups yet"
;
; note: deleting unreachable code
; compiling top level form:
; recognizing DEFUN RESOLVE-ASSEMBLER-FIXUPS
; compiling top level form:
; compiling DEFUN RESOLVE-ASSEMBLER-FIXUPS:
; compiling top level form:
; recognizing DEFUN FOREIGN-SYMBOLS-TO-CORE
; compiling top level form:
; compiling DEFUN FOREIGN-SYMBOLS-TO-CORE:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO DEFINE-COLD-FOP:
; compiling top level form:
; compiling DEFMACRO CLONE-COLD-FOP:
; compiling top level form:
; compiling DEFMACRO NOT-COLD-FOP:
; compiling top level form:
; recognizing DEFUN COLD-LOAD
; compiling top level form:
; compiling DEFUN COLD-LOAD:
; compiling top level form:
; recognizing DEFUN COLD-FOP-MISC-TRAP
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-MISC-TRAP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-SHORT-CHARACTER
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-SHORT-CHARACTER):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-EMPTY-LIST
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-EMPTY-LIST):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-TRUTH
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-TRUTH):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-NORMAL-LOAD
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-NORMAL-LOAD :STACKP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FOP-MAYBE-COLD-LOAD
; compiling top level form:
; compiling DEFINE-FOP (FOP-MAYBE-COLD-LOAD 82 :STACKP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-MAYBE-COLD-LOAD
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-MAYBE-COLD-LOAD :STACKP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-STRUCT
; compiling top level form:
; compiling CLONE-COLD-FOP (FOP-STRUCT):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-SMALL-STRUCT
; compiling top level form:
; compiling CLONE-COLD-FOP (FOP-STRUCT):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LAYOUT
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LAYOUT):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-LOAD-SYMBOL
; compiling top level form:
; compiling DEFUN COLD-LOAD-SYMBOL:
; compiling top level form:
; recognizing DEFUN COLD-FOP-SYMBOL-IN-PACKAGE-SAVE
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-SMALL-SYMBOL-IN-PACKAGE-SAVE
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-SYMBOL-IN-BYTE-PACKAGE-SAVE
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-SMALL-SYMBOL-IN-BYTE-PACKAGE-SAVE
; compiling top level form:
; compiling MACROLET ((FROB # #)):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LISP-SYMBOL-SAVE
; compiling top level form:
; compiling CLONE-COLD-FOP (FOP-LISP-SYMBOL-SAVE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LISP-SMALL-SYMBOL-SAVE
; compiling top level form:
; compiling CLONE-COLD-FOP (FOP-LISP-SYMBOL-SAVE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-KEYWORD-SYMBOL-SAVE
; compiling top level form:
; compiling CLONE-COLD-FOP (FOP-KEYWORD-SYMBOL-SAVE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-KEYWORD-SMALL-SYMBOL-SAVE
; compiling top level form:
; compiling CLONE-COLD-FOP (FOP-KEYWORD-SYMBOL-SAVE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-UNINTERNED-SYMBOL-SAVE
; compiling top level form:
; compiling CLONE-COLD-FOP (FOP-UNINTERNED-SYMBOL-SAVE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-UNINTERNED-SMALL-SYMBOL-SAVE
; compiling top level form:
; compiling CLONE-COLD-FOP (FOP-UNINTERNED-SYMBOL-SAVE):
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO COLD-STACK-LIST:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LIST
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LIST):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LIST*
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LIST*):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LIST-1
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LIST-1):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LIST-2
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LIST-2):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LIST-3
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LIST-3):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LIST-4
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LIST-4):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LIST-5
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LIST-5):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LIST-6
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LIST-6):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LIST-7
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LIST-7):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LIST-8
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LIST-8):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LIST*-1
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LIST*-1):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LIST*-2
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LIST*-2):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LIST*-3
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LIST*-3):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LIST*-4
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LIST*-4):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LIST*-5
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LIST*-5):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LIST*-6
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LIST*-6):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LIST*-7
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LIST*-7):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-LIST*-8
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-LIST*-8):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-BASE-STRING
; compiling top level form:
; compiling CLONE-COLD-FOP (FOP-BASE-STRING):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-SMALL-BASE-STRING
; compiling top level form:
; compiling CLONE-COLD-FOP (FOP-BASE-STRING):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-CHARACTER-STRING
; compiling top level form:
; compiling CLONE-COLD-FOP (FOP-CHARACTER-STRING):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-SMALL-CHARACTER-STRING
; compiling top level form:
; compiling CLONE-COLD-FOP (FOP-CHARACTER-STRING):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-VECTOR
; compiling top level form:
; compiling CLONE-COLD-FOP (FOP-VECTOR):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-SMALL-VECTOR
; compiling top level form:
; compiling CLONE-COLD-FOP (FOP-VECTOR):
; compiling top level form:
; compiling top level form:
; in: COMMON-LISP:LAMBDA COMMON-LISP:NIL
; '(:AND)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; recognizing DEFUN COLD-FOP-INT-VECTOR
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-INT-VECTOR):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-SINGLE-FLOAT-VECTOR
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-SINGLE-FLOAT-VECTOR):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-DOUBLE-FLOAT-VECTOR
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/genesis.lisp
; in: NOT-COLD-FOP FOP-DOUBLE-FLOAT-VECTOR
; (SB!FASL::NOT-COLD-FOP SB!FASL::FOP-DOUBLE-FLOAT-VECTOR)
; --> SB!FASL::DEFINE-COLD-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> SB!FASL::WITH-FOP-STACK LET MACROLET
; ==>
; (VECTOR-PUSH-EXTEND
; (PROGN
; (ERROR "The fop ~S is not supported in cold load."
; 'SB!FASL::FOP-DOUBLE-FLOAT-VECTOR))
; #:FOP-STACK-3462)
;
; note: The first argument never returns a value.
; compiling NOT-COLD-FOP FOP-DOUBLE-FLOAT-VECTOR:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-COMPLEX-SINGLE-FLOAT-VECTOR
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/genesis.lisp
; in: NOT-COLD-FOP FOP-COMPLEX-SINGLE-FLOAT-VECTOR
; (SB!FASL::NOT-COLD-FOP SB!FASL::FOP-COMPLEX-SINGLE-FLOAT-VECTOR)
; --> SB!FASL::DEFINE-COLD-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> SB!FASL::WITH-FOP-STACK LET MACROLET
; ==>
; (VECTOR-PUSH-EXTEND
; (PROGN
; (ERROR "The fop ~S is not supported in cold load."
; 'SB!FASL::FOP-COMPLEX-SINGLE-FLOAT-VECTOR))
; #:FOP-STACK-3474)
;
; note: The first argument never returns a value.
; compiling NOT-COLD-FOP FOP-COMPLEX-SINGLE-FLOAT-VECTOR:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-COMPLEX-DOUBLE-FLOAT-VECTOR
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/genesis.lisp
; in: NOT-COLD-FOP FOP-COMPLEX-DOUBLE-FLOAT-VECTOR
; (SB!FASL::NOT-COLD-FOP SB!FASL::FOP-COMPLEX-DOUBLE-FLOAT-VECTOR)
; --> SB!FASL::DEFINE-COLD-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> SB!FASL::WITH-FOP-STACK LET MACROLET
; ==>
; (VECTOR-PUSH-EXTEND
; (PROGN
; (ERROR "The fop ~S is not supported in cold load."
; 'SB!FASL::FOP-COMPLEX-DOUBLE-FLOAT-VECTOR))
; #:FOP-STACK-3486)
;
; note: The first argument never returns a value.
; compiling NOT-COLD-FOP FOP-COMPLEX-DOUBLE-FLOAT-VECTOR:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-ARRAY
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-ARRAY):
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO DEFINE-COLD-NUMBER-FOP:
; compiling top level form:
; recognizing DEFUN COLD-FOP-SINGLE-FLOAT
; compiling top level form:
; compiling DEFINE-COLD-NUMBER-FOP FOP-SINGLE-FLOAT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-DOUBLE-FLOAT
; compiling top level form:
; compiling DEFINE-COLD-NUMBER-FOP FOP-DOUBLE-FLOAT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-INTEGER
; compiling top level form:
; compiling DEFINE-COLD-NUMBER-FOP FOP-INTEGER:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-SMALL-INTEGER
; compiling top level form:
; compiling DEFINE-COLD-NUMBER-FOP FOP-SMALL-INTEGER:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-WORD-INTEGER
; compiling top level form:
; compiling DEFINE-COLD-NUMBER-FOP FOP-WORD-INTEGER:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-BYTE-INTEGER
; compiling top level form:
; compiling DEFINE-COLD-NUMBER-FOP FOP-BYTE-INTEGER:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-COMPLEX-SINGLE-FLOAT
; compiling top level form:
; compiling DEFINE-COLD-NUMBER-FOP FOP-COMPLEX-SINGLE-FLOAT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-COMPLEX-DOUBLE-FLOAT
; compiling top level form:
; compiling DEFINE-COLD-NUMBER-FOP FOP-COMPLEX-DOUBLE-FLOAT:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-RATIO
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-RATIO):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-COMPLEX
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-COMPLEX):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-EVAL
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/genesis.lisp
; in: NOT-COLD-FOP FOP-EVAL
; (SB!FASL::NOT-COLD-FOP SB!FASL::FOP-EVAL)
; --> SB!FASL::DEFINE-COLD-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> SB!FASL::WITH-FOP-STACK LET MACROLET
; ==>
; (VECTOR-PUSH-EXTEND
; (PROGN
; (ERROR "The fop ~S is not supported in cold load." 'SB!FASL::FOP-EVAL))
; #:FOP-STACK-3692)
;
; note: The first argument never returns a value.
; compiling NOT-COLD-FOP FOP-EVAL:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-EVAL-FOR-EFFECT
; compiling top level form:
; file: /home/ckeen/lisp/sbcl-0.8.18/src/compiler/generic/genesis.lisp
; in: NOT-COLD-FOP FOP-EVAL-FOR-EFFECT
; (SB!FASL::NOT-COLD-FOP SB!FASL::FOP-EVAL-FOR-EFFECT)
; --> SB!FASL::DEFINE-COLD-FOP PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> SB!FASL::WITH-FOP-STACK LET MACROLET
; ==>
; (VECTOR-PUSH-EXTEND
; (PROGN
; (ERROR "The fop ~S is not supported in cold load."
; 'SB!FASL::FOP-EVAL-FOR-EFFECT))
; #:FOP-STACK-3704)
;
; note: The first argument never returns a value.
; compiling NOT-COLD-FOP FOP-EVAL-FOR-EFFECT:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-FUNCALL
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-FUNCALL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN FINALIZE-LOAD-TIME-VALUE-NOISE
; compiling top level form:
; compiling DEFUN FINALIZE-LOAD-TIME-VALUE-NOISE:
; compiling top level form:
; recognizing DEFUN COLD-FOP-FUNCALL-FOR-EFFECT
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-FUNCALL-FOR-EFFECT :PUSHP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-RPLACA
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-RPLACA :PUSHP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-RPLACD
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-RPLACD :PUSHP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-SVSET
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-SVSET :PUSHP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-STRUCTSET
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-STRUCTSET :PUSHP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-NTHCDR
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-NTHCDR):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-NTHCDR
; compiling top level form:
; compiling DEFUN COLD-NTHCDR:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-FSET
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-FSET :PUSHP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-FDEFINITION
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-FDEFINITION):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-SANCTIFY-FOR-EXECUTION
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-SANCTIFY-FOR-EXECUTION):
; compiling top level form:
; compiling top level form:
; compiling DEFMACRO DEFINE-COLD-CODE-FOP:
; compiling top level form:
; recognizing DEFUN COLD-FOP-CODE
; compiling top level form:
; compiling DEFINE-COLD-CODE-FOP FOP-CODE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-SMALL-CODE
; compiling top level form:
; compiling DEFINE-COLD-CODE-FOP FOP-SMALL-CODE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-ALTER-CODE
; compiling top level form:
; compiling CLONE-COLD-FOP (FOP-ALTER-CODE :PUSHP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-BYTE-ALTER-CODE
; compiling top level form:
; compiling CLONE-COLD-FOP (FOP-ALTER-CODE :PUSHP NIL):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-FUN-ENTRY
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-FUN-ENTRY):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-FOREIGN-FIXUP
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-FOREIGN-FIXUP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-ASSEMBLER-CODE
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-ASSEMBLER-CODE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-ASSEMBLER-ROUTINE
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-ASSEMBLER-ROUTINE):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-ASSEMBLER-FIXUP
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-ASSEMBLER-FIXUP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN COLD-FOP-CODE-OBJECT-FIXUP
; compiling top level form:
; compiling DEFINE-COLD-FOP (FOP-CODE-OBJECT-FIXUP):
; compiling top level form:
; compiling top level form:
; recognizing DEFUN TAILWISE-EQUAL
; compiling top level form:
; compiling DEFUN TAILWISE-EQUAL:
; compiling top level form:
; recognizing DEFUN WRITE-BOILERPLATE
; compiling top level form:
; compiling DEFUN WRITE-BOILERPLATE:
; compiling top level form:
; recognizing DEFUN WRITE-CONFIG-H
; compiling top level form:
; compiling DEFUN WRITE-CONFIG-H:
; compiling top level form:
; recognizing DEFUN WRITE-CONSTANTS-H
; compiling top level form:
; compiling DEFUN WRITE-CONSTANTS-H:
; compiling top level form:
; recognizing DEFUN WRITE-PRIMITIVE-OBJECT
; compiling top level form:
; compiling DEFUN WRITE-PRIMITIVE-OBJECT:
; compiling top level form:
; recognizing DEFUN WRITE-STATIC-SYMBOLS
; compiling top level form:
; compiling DEFUN WRITE-STATIC-SYMBOLS:
; compiling top level form:
; recognizing DEFUN WRITE-MAP
; compiling top level form:
; compiling DEFUN WRITE-MAP:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN WRITE-WORD
; compiling top level form:
; compiling DEFUN WRITE-WORD:
; compiling top level form:
; recognizing DEFUN ADVANCE-TO-PAGE
; compiling top level form:
; compiling DEFUN ADVANCE-TO-PAGE:
; compiling top level form:
; recognizing DEFUN OUTPUT-GSPACE
; compiling top level form:
; compiling DEFUN OUTPUT-GSPACE:
; compiling top level form:
; compiling top level form:
; recognizing DEFUN WRITE-INITIAL-CORE-FILE
; compiling top level form:
; compiling DEFUN WRITE-INITIAL-CORE-FILE:
; compiling top level form:
; recognizing DEFUN SB!VM:GENESIS
; compiling top level form:
; compiling DEFUN SB!VM:GENESIS:
; compiling top level form:
; compilation unit finished
; printed 118 notes
; /home/ckeen/lisp/sbcl-0.8.18/obj/from-host/src/compiler/generic/genesis.lisp-obj-tmp written
; compilation finished in 0:00:09
STYLE-WARNING: redefining FOP-MAYBE-COLD-LOAD in DEFUN
T
*
beginning GENESIS, creating headers in "src/runtime/genesis"
NIL
* 347.48s real 321.70s user 3.80s system
//entering make-target-1.sh
//building runtime system and symbol table file
GNUmakefile:72: depend: No such file or directory
echo '#include "genesis/config.h"' >sbcl.h
echo '#include "genesis/constants.h"' >>sbcl.h
cc -M -g -Wall -O3 -I. alloc.c backtrace.c breakpoint.c coreparse.c dynbind.c gc-common.c globals.c interr.c interrupt.c monitor.c parse.c print.c purify.c regnames.c run-program.c runtime.c save.c search.c thread.c time.c util.c validate.c vars.c wrap.c > depend.tmp
mv -f depend.tmp depend
rm -f depend *.o sbcl sbcl.nm core *.tmp
GNUmakefile:72: depend: No such file or directory
cc -M -g -Wall -O3 -I. alloc.c backtrace.c breakpoint.c coreparse.c dynbind.c gc-common.c globals.c interr.c interrupt.c monitor.c parse.c print.c purify.c regnames.c run-program.c runtime.c save.c search.c thread.c time.c util.c validate.c vars.c wrap.c > depend.tmp
mv -f depend.tmp depend
gmake: `depend' is up to date.
cc -g -Wall -O3 -I. -c -o alloc.o alloc.c
In file included from os.h:41,
from alloc.c:22:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
alloc.c: In function `pa_alloc':
alloc.c:56: warning: implicit declaration of function `do_pending_interrupt'
cc -g -Wall -O3 -I. -c -o backtrace.o backtrace.c
In file included from os.h:41,
from backtrace.c:21:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
cc -g -Wall -O3 -I. -c -o breakpoint.o breakpoint.c
In file included from os.h:41,
from breakpoint.c:17:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
cc -g -Wall -O3 -I. -c -o coreparse.o coreparse.c
In file included from os.h:41,
from coreparse.c:31:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
coreparse.c: In function `process_directory':
coreparse.c:78: warning: decimal constant is so large that it is unsigned
coreparse.c:80: warning: decimal constant is so large that it is unsigned
cc -g -Wall -O3 -I. -c -o dynbind.o dynbind.c
In file included from os.h:41,
from thread.h:10,
from dynbind.c:20:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
cc -g -Wall -O3 -I. -c -o gc-common.o gc-common.c
In file included from os.h:41,
from gc-common.c:33:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
In file included from gc-internal.h:120,
from gc-common.c:44:
gencgc-internal.h:87: warning: decimal constant is so large that it is unsigned
gencgc-internal.h:87: warning: decimal constant is so large that it is unsigned
gencgc-internal.h: In function `space_matches_p':
gencgc-internal.h:107: warning: decimal constant is so large that it is unsigned
gencgc-internal.h:110: warning: decimal constant is so large that it is unsigned
gencgc-internal.h:110: warning: decimal constant is so large that it is unsigned
gc-common.c: At top level:
gc-common.c:799: warning: return-type defaults to `int'
gc-common.c: In function `scan_weak_pointers':
gc-common.c:1490: warning: passing arg 1 of `native_pointer' makes integer from pointer without a cast
cc -g -Wall -O3 -I. -c -o globals.o globals.c
In file included from os.h:41,
from thread.h:10,
from validate.h:27,
from globals.c:23:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
cc -g -Wall -O3 -I. -c -o interr.o interr.c
In file included from os.h:41,
from arch.h:15,
from interr.c:21:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
interr.c: In function `describe_internal_error':
interr.c:139: warning: long unsigned int format, unsigned int arg (arg 2)
interr.c:142: warning: long int format, int arg (arg 2)
interr.c:145: warning: long unsigned int format, unsigned int arg (arg 2)
interr.c: In function `debug_print':
interr.c:178: warning: too many arguments for format
cc -g -Wall -O3 -I. -c -o interrupt.o interrupt.c
In file included from os.h:41,
from arch.h:15,
from interrupt.c:53:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
interrupt.c: In function `arrange_return_to_lisp_function':
interrupt.c:655: warning: assignment makes integer from pointer without a cast
interrupt.c:679: warning: assignment makes integer from pointer without a cast
interrupt.c:681: warning: assignment makes integer from pointer without a cast
interrupt.c:685: warning: assignment makes integer from pointer without a cast
interrupt.c: In function `handle_guard_page_triggered':
interrupt.c:754: warning: comparison of distinct pointer types lacks a cast
interrupt.c:755: warning: comparison of distinct pointer types lacks a cast
cc -g -Wall -O3 -I. -c -o monitor.o monitor.c
cc -g -Wall -O3 -I. -c -o parse.o parse.c
cc -g -Wall -O3 -I. -c -o print.o print.c
cc -g -Wall -O3 -I. -c -o purify.o purify.c
In file included from os.h:41,
from purify.c:24:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
In file included from gc-internal.h:120,
from purify.c:32:
gencgc-internal.h:87: warning: decimal constant is so large that it is unsigned
gencgc-internal.h:87: warning: decimal constant is so large that it is unsigned
gencgc-internal.h: In function `space_matches_p':
gencgc-internal.h:107: warning: decimal constant is so large that it is unsigned
gencgc-internal.h:110: warning: decimal constant is so large that it is unsigned
gencgc-internal.h:110: warning: decimal constant is so large that it is unsigned
purify.c: In function `dynamic_pointer_p':
purify.c:111: warning: decimal constant is so large that it is unsigned
purify.c: In function `purify':
purify.c:1504: warning: decimal constant is so large that it is unsigned
purify.c:1504: warning: decimal constant is so large that it is unsigned
cc -g -Wall -O3 -I. -c -o regnames.o regnames.c
cc -g -Wall -O3 -I. -c -o run-program.o run-program.c
cc -g -Wall -O3 -I. -c -o runtime.o runtime.c
In file included from os.h:41,
from runtime.c:43:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
runtime.c: In function `main':
runtime.c:342: warning: control reaches end of non-void function
cc -g -Wall -O3 -I. -c -o save.o save.c
In file included from os.h:41,
from save.c:20:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
In file included from gc-internal.h:120,
from save.c:27:
gencgc-internal.h:87: warning: decimal constant is so large that it is unsigned
gencgc-internal.h:87: warning: decimal constant is so large that it is unsigned
gencgc-internal.h: In function `space_matches_p':
gencgc-internal.h:107: warning: decimal constant is so large that it is unsigned
gencgc-internal.h:110: warning: decimal constant is so large that it is unsigned
gencgc-internal.h:110: warning: decimal constant is so large that it is unsigned
save.c: In function `save':
save.c:161: warning: decimal constant is so large that it is unsigned
cc -g -Wall -O3 -I. -c -o search.o search.c
In file included from os.h:41,
from search.c:16:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
cc -g -Wall -O3 -I. -c -o thread.o thread.c
In file included from os.h:41,
from thread.h:10,
from validate.h:27,
from thread.c:13:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
In file included from gc-internal.h:120,
from thread.c:23:
gencgc-internal.h:87: warning: decimal constant is so large that it is unsigned
gencgc-internal.h:87: warning: decimal constant is so large that it is unsigned
gencgc-internal.h: In function `space_matches_p':
gencgc-internal.h:107: warning: decimal constant is so large that it is unsigned
gencgc-internal.h:110: warning: decimal constant is so large that it is unsigned
gencgc-internal.h:110: warning: decimal constant is so large that it is unsigned
thread.c: In function `initial_thread_trampoline':
thread.c:44: warning: implicit declaration of function `call_into_lisp_first_time'
thread.c: In function `create_thread_struct':
thread.c:182: warning: assignment from incompatible pointer type
thread.c: In function `link_thread':
thread.c:208: warning: passing arg 1 of `get_spinlock' discards qualifiers from pointer target type
thread.c:215: warning: passing arg 1 of `release_spinlock' discards qualifiers from pointer target type
thread.c: In function `destroy_thread':
thread.c:263: warning: passing arg 1 of `get_spinlock' discards qualifiers from pointer target type
thread.c:272: warning: passing arg 1 of `release_spinlock' discards qualifiers from pointer target type
thread.c:273: warning: implicit declaration of function `arch_os_thread_cleanup'
cc -g -Wall -O3 -I. -c -o time.o time.c
cc -g -Wall -O3 -I. -c -o util.o util.c
cc -g -Wall -O3 -I. -c -o validate.o validate.c
In file included from os.h:41,
from validate.c:21:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
validate.c: In function `ensure_undefined_alien':
validate.c:48: warning: implicit declaration of function `lose'
validate.c: In function `validate':
validate.c:63: warning: decimal constant is so large that it is unsigned
validate.c:63: warning: decimal constant is so large that it is unsigned
validate.c:63: warning: decimal constant is so large that it is unsigned
cc -g -Wall -O3 -I. -c -o vars.o vars.c
In file included from os.h:41,
from vars.c:20:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
cc -g -Wall -O3 -I. -c -o wrap.o wrap.c
cc -g -Wall -O3 -I. -c -o x86-arch.o x86-arch.c
In file included from os.h:41,
from thread.h:10,
from validate.h:27,
from x86-arch.c:17:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
cc -g -Wall -O3 -I. -c -o x86-assem.o x86-assem.S
cc -g -Wall -O3 -I. -c -o bsd-os.o bsd-os.c
In file included from os.h:41,
from bsd-os.c:28:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
bsd-os.c: In function `is_valid_lisp_addr':
bsd-os.c:154: warning: decimal constant is so large that it is unsigned
bsd-os.c:154: warning: decimal constant is so large that it is unsigned
bsd-os.c:154: warning: decimal constant is so large that it is unsigned
bsd-os.c:157: warning: comparison of distinct pointer types lacks a cast
bsd-os.c:157: warning: comparison of distinct pointer types lacks a cast
bsd-os.c:159: warning: passing arg 2 of `in_range_p' makes integer from pointer without a cast
bsd-os.c: In function `memory_fault_handler':
bsd-os.c:189: warning: implicit declaration of function `gencgc_handle_wp_violation'
cc -g -Wall -O3 -I. -c -o os-common.o os-common.c
In file included from os.h:41,
from os-common.c:17:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
cc -g -Wall -O3 -I. -c -o undefineds.o undefineds.c
In file included from undefineds.c:34:
undefineds.h:221: warning: conflicting types for built-in function `cos'
undefineds.h:222: warning: conflicting types for built-in function `sin'
undefineds.h:248: warning: conflicting types for built-in function `sqrt'
cc -g -Wall -O3 -I. -c -o x86-bsd-os.o x86-bsd-os.c
In file included from x86-bsd-os.c:4:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
cc -g -Wall -O3 -I. -c -o gencgc.o gencgc.c
In file included from os.h:41,
from gencgc.c:33:
target-os.h:35: warning: redefinition of `stack_t'
/usr/include/sys/signal.h:156: warning: `stack_t' previously declared here
In file included from gc-internal.h:120,
from gencgc.c:42:
gencgc-internal.h:87: warning: decimal constant is so large that it is unsigned
gencgc-internal.h:87: warning: decimal constant is so large that it is unsigned
gencgc-internal.h: In function `space_matches_p':
gencgc-internal.h:107: warning: decimal constant is so large that it is unsigned
gencgc-internal.h:110: warning: decimal constant is so large that it is unsigned
gencgc-internal.h:110: warning: decimal constant is so large that it is unsigned
gencgc.c: At top level:
gencgc.c:151: warning: decimal constant is so large that it is unsigned
gencgc.c:151: warning: decimal constant is so large that it is unsigned
gencgc.c: In function `find_page_index':
gencgc.c:174: warning: decimal constant is so large that it is unsigned
gencgc.c:174: warning: decimal constant is so large that it is unsigned
gencgc.c: In function `gc_find_freeish_pages':
gencgc.c:962: warning: decimal constant is so large that it is unsigned
gencgc.c:962: warning: decimal constant is so large that it is unsigned
gencgc.c:966: warning: decimal constant is so large that it is unsigned
gencgc.c:966: warning: decimal constant is so large that it is unsigned
gencgc.c:981: warning: decimal constant is so large that it is unsigned
gencgc.c:981: warning: decimal constant is so large that it is unsigned
gencgc.c:996: warning: decimal constant is so large that it is unsigned
gencgc.c:996: warning: decimal constant is so large that it is unsigned
gencgc.c:1009: warning: decimal constant is so large that it is unsigned
gencgc.c:1009: warning: decimal constant is so large that it is unsigned
gencgc.c:1012: warning: decimal constant is so large that it is unsigned
gencgc.c:1012: warning: decimal constant is so large that it is unsigned
gencgc.c: In function `update_x86_dynamic_space_free_pointer':
gencgc.c:3680: warning: decimal constant is so large that it is unsigned
gencgc.c:3680: warning: decimal constant is so large that it is unsigned
gencgc.c: In function `gc_free_heap':
gencgc.c:3830: warning: decimal constant is so large that it is unsigned
gencgc.c:3830: warning: decimal constant is so large that it is unsigned
gencgc.c: In function `gc_init':
gencgc.c:3915: warning: decimal constant is so large that it is unsigned
gencgc.c:3918: warning: decimal constant is so large that it is unsigned
gencgc.c:3918: warning: decimal constant is so large that it is unsigned
gencgc.c: In function `gencgc_pickup_dynamic':
gencgc.c:3980: warning: comparison between pointer and integer
gencgc.c: In function `alloc':
gencgc.c:4062: warning: implicit declaration of function `maybe_defer_handler'
cc -g -static -o sbcl alloc.o backtrace.o breakpoint.o coreparse.o dynbind.o gc-common.o globals.o interr.o interrupt.o monitor.o parse.o print.o purify.o regnames.o run-program.o runtime.o save.o search.o thread.o time.o util.o validate.o vars.o wrap.o x86-arch.o x86-assem.o bsd-os.o os-common.o undefineds.o x86-bsd-os.o gencgc.o -lm -lm
nm -gp sbcl | grep -v " F \| U " > ,sbcl.nm
mv -f ,sbcl.nm sbcl.nm
cc -I../src/runtime -lm grovel-headers.c -o grovel-headers
grovel-headers.c: In function `main':
grovel-headers.c:82: `CODESET' undeclared (first use in this function)
grovel-headers.c:82: (Each undeclared identifier is reported only once
grovel-headers.c:82: for each function it appears in.)
gmake: *** [grovel-headers] Error 1
5.78s real 3.11s user 0.83s system
[14:56:59][ckeen@ikarus:~/lisp/sbcl-0.8.18]$ uname -av
OpenBSD ikarus.my.domain 3.6 GENERIC#0 i386