;;; -*- Mode:TEXT -*-

(DEFUN 
K2::MINI-FASL-PEEK-BYTE
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-PEEK-BYTE
[LOCAL-REFS]:
[REFS]:
([OFFSET] 5 [FUNCTION] 
K2::%KBUG-STREAM-PEEK-BYTE [#ARGS] 2)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 48 (simple) -44773741>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-BYTE
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-BYTE
[LOCAL-REFS]:
(17 13)
(11 17)
[REFS]:
([OFFSET] 6 [FUNCTION] 
K2::%KBUG-STREAM-PEEK-BYTE [#ARGS] 2)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 144 (simple) -44773543>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-OPCODE
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-OPCODE
[LOCAL-REFS]:
[REFS]:
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#(0 0 0 65 0 158 71 8)
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-PEEK-OPCODE
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-PEEK-OPCODE
[LOCAL-REFS]:
[REFS]:
([OFFSET] 5 [FUNCTION] 
K2::%KBUG-STREAM-PEEK-BYTE [#ARGS] 2)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 48 (simple) -44772173>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-16-BITS
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-16-BITS
[LOCAL-REFS]:
[REFS]:
([OFFSET] 1 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 32 (simple) -44771741>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-FIXNUM
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-FIXNUM
[LOCAL-REFS]:
[REFS]:
([OFFSET] 2 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 1 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 40 (simple) -44771517>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-BIGNUM
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-BIGNUM
[LOCAL-REFS]:
(15 3)
(5 16)
[REFS]:
([OFFSET] 9 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 8 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 7 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 6 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 1 [FUNCTION] 
NEW-MATH::ALLOCATE-BIGNUM [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 136 (simple) -44771067>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-CONS
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-CONS
[LOCAL-REFS]:
[REFS]:
([OFFSET] 2 [FUNCTION] 
CONS::CONS [#ARGS] 2)
([OFFSET] 1 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44770426>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-LIST
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-LIST
[LOCAL-REFS]:
(16 14)
(15 4)
(11 16)
(6 17)
[REFS]:
([OFFSET] 13 [FUNCTION] 
CONS::RPLACD [#ARGS] 2)
([OFFSET] 8 [FUNCTION] 
CONS::CONS [#ARGS] 2)
([OFFSET] 7 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 144 (simple) -44770106>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-STRING-CHARACTER
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-STRING-CHARACTER
[LOCAL-REFS]:
[REFS]:
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44767224>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-SIMPLE-STRING
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-SIMPLE-STRING
[LOCAL-REFS]:
(9 3)
(5 10)
[REFS]:
([OFFSET] 8 [FUNCTION] 
ARRAY::ASET-1 [#ARGS] 3)
([OFFSET] 6 [FUNCTION] 
K2::MINI-FASL-READ-STRING-CHARACTER [#ARGS] 0)
([OFFSET] 1 [FUNCTION] 
ARRAY::MAKE-STRING-NO-INIT [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 88 (simple) -44765314>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-SIMPLE-VECTOR
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-SIMPLE-VECTOR
[LOCAL-REFS]:
(10 3)
(5 11)
[REFS]:
([OFFSET] 9 [FUNCTION] 
ARRAY::SVSET [#ARGS] 3)
([OFFSET] 6 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
([OFFSET] 1 [FUNCTION] 
ARRAY::MAKE-VECTOR [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 96 (simple) -44764676>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-TOP-LEVEL-OBJECT
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-TOP-LEVEL-OBJECT
[LOCAL-REFS]:
[REFS]:
([OFFSET] 3 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT-1 [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 32 (simple) -44764342>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-OBJECT
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-OBJECT
[LOCAL-REFS]:
[REFS]:
([OFFSET] 1 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT-1 [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 16 (simple) -44764135>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-OBJECT-1
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-OBJECT-1
[LOCAL-REFS]:
(36 41)
(35 37)
(34 37)
(33 37)
(32 37)
(31 55)
(30 42)
(29 47)
(28 50)
(27 51)
(26 52)
(25 53)
(24 63)
(23 37)
(22 46)
(21 60)
(20 58)
(19 48)
(18 59)
(17 61)
(16 57)
(15 62)
(14 37)
(13 37)
(12 37)
(11 37)
(10 56)
(9 54)
(8 49)
(7 64)
(6 65)
(5 66)
[REFS]:
([OFFSET] 67 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 65 [FUNCTION] 
K2::MINI-FASL-READ-SIMPLE-STRING [#ARGS] 0)
([OFFSET] 64 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
([OFFSET] 63 [FUNCTION] 
K2::MINI-FASL-READ-BIGNUM [#ARGS] 0)
([OFFSET] 62 [FUNCTION] 
K2::MINI-FASL-READ-SYMBOL [#ARGS] 0)
([OFFSET] 61 [FUNCTION] 
K2::MINI-FASL-READ-DEFUN [#ARGS] 0)
([OFFSET] 60 [FUNCTION] 
K2::MINI-FASL-READ-DEFUN [#ARGS] 0)
([OFFSET] 59 [FUNCTION] 
K2::MINI-FASL-READ-DEFMACRO [#ARGS] 0)
([OFFSET] 58 [FUNCTION] 
K2::MINI-FASL-READ-DEFSUBST [#ARGS] 0)
([OFFSET] 57 [FUNCTION] 
K2::MINI-FASL-READ-FUNCTION [#ARGS] 0)
([OFFSET] 56 [FUNCTION] 
K2::MINI-FASL-READ-CONS [#ARGS] 0)
([OFFSET] 55 [FUNCTION] 
K2::MINI-FASL-READ-LIST [#ARGS] 0)
([OFFSET] 53 [FUNCTION] 
K2::MINI-FASL-READ-SHORT-FLOAT [#ARGS] 0)
([OFFSET] 52 [FUNCTION] 
K2::MINI-FASL-READ-SINGLE-FLOAT [#ARGS] 0)
([OFFSET] 51 [FUNCTION] 
K2::MINI-FASL-READ-DOUBLE-FLOAT [#ARGS] 0)
([OFFSET] 50 [FUNCTION] 
K2::MINI-FASL-DO-DEFVAR [#ARGS] 0)
([OFFSET] 49 [FUNCTION] 
K2::MINI-FASL-READ-STRING-CHARACTER [#ARGS] 0)
([OFFSET] 48 [FUNCTION] 
K2::MINI-FASL-DO-DEFCONSTANT [#ARGS] 0)
([OFFSET] 47 [FUNCTION] 
K2::MINI-FASL-DO-DEFPARAMETER [#ARGS] 0)
([OFFSET] 46 [FUNCTION] 
K2::MINI-FASL-FAKE-EVAL [#ARGS] 0)
([OFFSET] 43 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 41 [FUNCTION] 
K2::MINI-FASL-READ-SIMPLE-VECTOR [#ARGS] 0)
([OFFSET] 38 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 2)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 560 (simple) -44760172>
[IMMEDIATES]:
(66 Unexpected EOF in MINI-FASLOAD)
(42 MINI-FASL-READ-OBJECT can't cope with FASL-OP-UNBOUND.)
(37 Mini-fasl-opcode-dispatch is missing!))

(DEFUN 
K2::MINI-FASL
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL
[LOCAL-REFS]:
(16 4)
(14 14)
(12 15)
[REFS]:
([OFFSET] 15 [FUNCTION] 
K2::MINI-FASL-READ-TOP-LEVEL-OBJECT [#ARGS] 0)
([OFFSET] 13 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 9 [FUNCTION] 
K2::%KBUG-STREAM-PEEK-BYTE [#ARGS] 2)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 136 (simple) -44755556>
[IMMEDIATES]:)

(DEFUN 
K2::KBUG-FASL-STREAM
COMPILED FUNCTION INFO:
NAME: 
K2::KBUG-FASL-STREAM
[LOCAL-REFS]:
(17 4)
(12 16)
[REFS]:
([OFFSET] 16 [FUNCTION] 
K2::MINI-FASL-READ-TOP-LEVEL-OBJECT [#ARGS] 0)
([OFFSET] 13 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 9 [FUNCTION] 
K2::%KBUG-STREAM-PEEK-BYTE [#ARGS] 2)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 144 (simple) -44755105>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-SYMBOL
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-SYMBOL
[LOCAL-REFS]:
[REFS]:
([OFFSET] 2 [FUNCTION] 
K2::WARM-INTERN [#ARGS] 2)
([OFFSET] 1 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44754447>
[IMMEDIATES]:)

(DEFUN 
K2::COLD-LOAD-LINKEDP
COMPILED FUNCTION INFO:
NAME: 
K2::COLD-LOAD-LINKEDP
[LOCAL-REFS]:
[REFS]:
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#(0 0 0 0 0 128 196 14)
[IMMEDIATES]:
(0 t))

(DEFUN 
K2::MAKE-PACKAGE-ENTRY
COMPILED FUNCTION INFO:
NAME: 
K2::MAKE-PACKAGE-ENTRY
[LOCAL-REFS]:
[REFS]:
([OFFSET] 4 [FUNCTION] 
CONS::CONS [#ARGS] 2)
([OFFSET] 2 [FUNCTION] 
SYMBOL::SET-SYMBOL-PACKAGE [#ARGS] 2)
([OFFSET] 0 [FUNCTION] 
SYMBOL::%MAKE-SYMBOL [#ARGS] 1)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 40 (simple) -44754071>
[IMMEDIATES]:)

(DEFUN 
K2::WARM-FIND-OBLIST-ENTRY
COMPILED FUNCTION INFO:
NAME: 
K2::WARM-FIND-OBLIST-ENTRY
[LOCAL-REFS]:
(11 1)
(8 10)
(3 12)
[REFS]:
([OFFSET] 15 [FUNCTION] 
CONS::CONS [#ARGS] 2)
([OFFSET] 13 [FUNCTION] 
CONS::CONS [#ARGS] 2)
([OFFSET] 10 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 9 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 5 [FUNCTION] 
ARRAY::%STRING= [#ARGS] 2)
([OFFSET] 4 [FUNCTION] 
CONS::CAAR [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 144 (simple) -44753507>
[IMMEDIATES]:)

(DEFUN 
K2::WARM-FIX-GLOBAL-SYMBOLS
COMPILED FUNCTION INFO:
NAME: 
K2::WARM-FIX-GLOBAL-SYMBOLS
[LOCAL-REFS]:
(27 17)
(24 1)
(16 25)
(15 17)
(10 25)
(3 28)
[REFS]:
([OFFSET] 26 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 2)
([OFFSET] 23 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 22 [FUNCTION] 
CONS::SET-CDR [#ARGS] 2)
([OFFSET] 20 [FUNCTION] 
K2::CONS [#ARGS] 2)
([OFFSET] 18 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 17 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 12 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 11 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 7 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 6 [FUNCTION] 
K2::WARM-FIND-OBLIST-ENTRY [#ARGS] 1)
([OFFSET] 5 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 4 [FUNCTION] 
CONS::CAR [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 232 (simple) -44752427>
[IMMEDIATES]:
(25 warm symbols bad)
(19 GLOBAL))

(DEFUN 
K2::WARM-INTERN
COMPILED FUNCTION INFO:
NAME: 
K2::WARM-INTERN
[LOCAL-REFS]:
(31 20)
(22 9)
(17 21)
(11 23)
(3 32)
[REFS]:
([OFFSET] 30 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 29 [FUNCTION] 
CONS::SET-CDR [#ARGS] 2)
([OFFSET] 27 [FUNCTION] 
CONS::CONS [#ARGS] 2)
([OFFSET] 26 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 25 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 24 [FUNCTION] 
K2::MAKE-PACKAGE-ENTRY [#ARGS] 2)
([OFFSET] 21 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 20 [FUNCTION] 
GLOBAL::T [#ARGS] 1)
([OFFSET] 19 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 18 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 14 [FUNCTION] 
ARRAY::%STRING= [#ARGS] 2)
([OFFSET] 13 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 12 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 8 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 7 [FUNCTION] 
K2::WARM-FIND-OBLIST-ENTRY [#ARGS] 1)
([OFFSET] 5 [FUNCTION] 
LISP-INTERNALS::INTERN [#ARGS] 2)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 264 (simple) -44750765>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-DEFSUBST
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-DEFSUBST
[LOCAL-REFS]:
[REFS]:
([OFFSET] 1 [FUNCTION] 
K2::MINI-FASL-READ-DEFUN [#ARGS] 0)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 16 (simple) -44750135>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-DEFMACRO
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-DEFMACRO
[LOCAL-REFS]:
[REFS]:
([OFFSET] 5 [FUNCTION] 
SYMBOL::SET-SYMBOL-FUNCTION [#ARGS] 2)
([OFFSET] 3 [FUNCTION] 
CONS::CONS [#ARGS] 2)
([OFFSET] 1 [FUNCTION] 
SYMBOL::SYMBOL-FUNCTION [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-DEFUN [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 48 (simple) -44747160>
[IMMEDIATES]:
(2 
LISP-INTERNALS::MACRO))

(DEFUN 
K2::MINI-FASL-READ-DEFUN
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-DEFUN
[LOCAL-REFS]:
[REFS]:
([OFFSET] 1 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 32 (simple) -44746447>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-COLD-INFO
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-COLD-INFO
[LOCAL-REFS]:
(10 10)
(9 5)
(7 10)
[REFS]:
([OFFSET] 8 [FUNCTION] 
K2::MINI-FASL-READ-COLD-FCN-INFO [#ARGS] 0)
([OFFSET] 3 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 88 (simple) -44746210>
[IMMEDIATES]:)

(DEFUN 
K2::KBUG-LOAD-COLD-INFO
COMPILED FUNCTION INFO:
NAME: 
K2::KBUG-LOAD-COLD-INFO
[LOCAL-REFS]:
(10 5)
(7 9)
[REFS]:
([OFFSET] 9 [FUNCTION] 
K2::MINI-FASL-READ-COLD-FCN-INFO [#ARGS] 0)
([OFFSET] 3 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 88 (simple) -44745666>
[IMMEDIATES]:)

(DEFUN 
K2::READ-CODE-WORD
COMPILED FUNCTION INFO:
NAME: 
K2::READ-CODE-WORD
[LOCAL-REFS]:
[REFS]:
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44745422>
[IMMEDIATES]:)

(DEFUN 
K2::WRITE-CODE-WORD
COMPILED FUNCTION INFO:
NAME: 
K2::WRITE-CODE-WORD
[LOCAL-REFS]:
[REFS]:
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 64 (simple) -44745317>
[IMMEDIATES]:)

(DEFUN 
K2::WRITE-CALL-ADDRESS
COMPILED FUNCTION INFO:
NAME: 
K2::WRITE-CALL-ADDRESS
[LOCAL-REFS]:
[REFS]:
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 88 (simple) -44745142>
[IMMEDIATES]:)

(DEFUN 
K2::READ-CALL-ADDRESS
COMPILED FUNCTION INFO:
NAME: 
K2::READ-CALL-ADDRESS
[LOCAL-REFS]:
[REFS]:
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 32 (simple) -44744734>
[IMMEDIATES]:)

(DEFUN 
K2::WRITE-INSTRUCTION
COMPILED FUNCTION INFO:
NAME: 
K2::WRITE-INSTRUCTION
[LOCAL-REFS]:
[REFS]:
[ENTRIES]:
([#ARGS] 3 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 80 (simple) -44744574>
[IMMEDIATES]:)

(DEFUN 
K2::WRITE-BOXED-IMMEDIATE
COMPILED FUNCTION INFO:
NAME: 
K2::WRITE-BOXED-IMMEDIATE
[LOCAL-REFS]:
[REFS]:
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 64 (simple) -44744375>
[IMMEDIATES]:)

(DEFUN 
K2::WARM-READ-UNBOXED-WORD
COMPILED FUNCTION INFO:
NAME: 
K2::WARM-READ-UNBOXED-WORD
[LOCAL-REFS]:
[REFS]:
([OFFSET] 1 [FUNCTION] 
K2::MINI-FASL-READ-16-BITS [#ARGS] 0)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-16-BITS [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 32 (simple) -44744123>
[IMMEDIATES]:)

(DEFUN 
K2::READ-LOCAL-REFS
COMPILED FUNCTION INFO:
NAME: 
K2::READ-LOCAL-REFS
[LOCAL-REFS]:
(16 4)
(6 17)
[REFS]:
([OFFSET] 15 [FUNCTION] 
ARRAY::SVSET [#ARGS] 3)
([OFFSET] 12 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
([OFFSET] 10 [FUNCTION] 
ARRAY::SVSET [#ARGS] 3)
([OFFSET] 7 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
([OFFSET] 2 [FUNCTION] 
ARRAY::MAKE-VECTOR [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 144 (simple) -44743553>
[IMMEDIATES]:)

(DEFUN 
K2::READ-REFS
COMPILED FUNCTION INFO:
NAME: 
K2::READ-REFS
[LOCAL-REFS]:
(22 5)
(7 23)
[REFS]:
([OFFSET] 21 [FUNCTION] 
ARRAY::SVSET [#ARGS] 3)
([OFFSET] 18 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
([OFFSET] 16 [FUNCTION] 
ARRAY::SVSET [#ARGS] 3)
([OFFSET] 13 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
([OFFSET] 11 [FUNCTION] 
ARRAY::SVSET [#ARGS] 3)
([OFFSET] 8 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
([OFFSET] 3 [FUNCTION] 
ARRAY::MAKE-VECTOR [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 192 (simple) -44742674>
[IMMEDIATES]:)

(DEFUN 
K2::READ-ENTRY-POINTS
COMPILED FUNCTION INFO:
NAME: 
K2::READ-ENTRY-POINTS
[LOCAL-REFS]:
(16 4)
(6 17)
[REFS]:
([OFFSET] 15 [FUNCTION] 
ARRAY::SVSET [#ARGS] 3)
([OFFSET] 12 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
([OFFSET] 10 [FUNCTION] 
ARRAY::SVSET [#ARGS] 3)
([OFFSET] 7 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
([OFFSET] 2 [FUNCTION] 
ARRAY::MAKE-VECTOR [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 144 (simple) -44742030>
[IMMEDIATES]:)

(DEFMACRO 
K2::DEFINE-ACCESSORS
COMPILED FUNCTION INFO:
NAME: 
K2::DEFINE-ACCESSORS
[LOCAL-REFS]:
(46 18)
(20 47)
(4 8)
(0 1)
[REFS]:
([OFFSET] 49 [FUNCTION] 
SYSTEM-INTERNALS::XR-BQ-LIST* [#ARGS] 2)
([OFFSET] 47 [FUNCTION] 
GLOBAL::REVERSE [#ARGS] 1)
([OFFSET] 44 [FUNCTION] 
GLOBAL::APPEND [#ARGS] 2)
([OFFSET] 43 [FUNCTION] 
SYSTEM-INTERNALS::XR-BQ-LIST [#ARGS] 3)
([OFFSET] 42 [FUNCTION] 
SYSTEM-INTERNALS::XR-BQ-LIST [#ARGS] 4)
([OFFSET] 40 [FUNCTION] 
SYSTEM-INTERNALS::XR-BQ-LIST [#ARGS] 3)
([OFFSET] 37 [FUNCTION] 
SYSTEM-INTERNALS::XR-BQ-LIST [#ARGS] 1)
([OFFSET] 36 [FUNCTION] 
SYSTEM-INTERNALS::XR-BQ-LIST [#ARGS] 4)
([OFFSET] 34 [FUNCTION] 
SYSTEM-INTERNALS::XR-BQ-LIST [#ARGS] 4)
([OFFSET] 30 [FUNCTION] 
SYSTEM-INTERNALS::XR-BQ-LIST [#ARGS] 2)
([OFFSET] 28 [FUNCTION] 
SYSTEM-INTERNALS::XR-BQ-LIST [#ARGS] 3)
([OFFSET] 25 [FUNCTION] 
GLOBAL::SECOND [#ARGS] 1)
([OFFSET] 24 [FUNCTION] 
GLOBAL::FIRST [#ARGS] 1)
([OFFSET] 23 [FUNCTION] 
GLOBAL::FIRST [#ARGS] 1)
([OFFSET] 21 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 15 [FUNCTION] 
GLOBAL::CDR [#ARGS] 1)
([OFFSET] 14 [FUNCTION] 
GLOBAL::CDR [#ARGS] 1)
([OFFSET] 13 [FUNCTION] 
GLOBAL::CDR [#ARGS] 1)
([OFFSET] 12 [FUNCTION] 
GLOBAL::CAR [#ARGS] 1)
([OFFSET] 11 [FUNCTION] 
GLOBAL::CDR [#ARGS] 1)
([OFFSET] 10 [FUNCTION] 
GLOBAL::CDR [#ARGS] 1)
([OFFSET] 9 [FUNCTION] 
GLOBAL::CAR [#ARGS] 1)
([OFFSET] 8 [FUNCTION] 
GLOBAL::CDR [#ARGS] 1)
([OFFSET] 7 [FUNCTION] 
SYSTEM-INTERNALS::MACRO-REPORT-ARGS-ERROR [#ARGS] 3)
([OFFSET] 1 [FUNCTION] 
GLOBAL::LENGTH [#ARGS] 1)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 1)
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 400 (simple) -44737722>
[IMMEDIATES]:
(48 
GLOBAL::PROGN)
(41 
GLOBAL::DEFUN)
(38 
CONS::CONTENTS-OFFSET)
(35 
GLOBAL::DEFUN)
(31 
CONS::STORE-CONTENTS-OFFSET)
(26 
GLOBAL::DEFSETF))

(DEFUN 
K2::%COMPILED-FUNCTION-HEADER
COMPILED FUNCTION INFO:
NAME: 
K2::%COMPILED-FUNCTION-HEADER
[LOCAL-REFS]:
[REFS]:
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44736513>
[IMMEDIATES]:)

(DEFUN 
K2::%SET-COMPILED-FUNCTION-HEADER
COMPILED FUNCTION INFO:
NAME: 
K2::%SET-COMPILED-FUNCTION-HEADER
[LOCAL-REFS]:
[REFS]:
([OFFSET] 2 [FUNCTION] 
CONS::STORE-CONTENTS-OFFSET [#ARGS] 3)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44734026>
[IMMEDIATES]:)

(eval (
GLOBAL::SETQ 
SETF::*GRODY-SETF-MACRO-TABLE* (
GLOBAL::CONS (
GLOBAL::QUOTE (
K2::%COMPILED-FUNCTION-HEADER 
GLOBAL::LAMBDA (
GLOBAL::&REST 
K2::ARGS692) (
GLOBAL::LET* ((
SETF::SINGLE-TEMPVARS (
GLOBAL::MAPCAR (
GLOBAL::FUNCTION (
GLOBAL::LAMBDA (
GLOBAL::IGNORE) (
GLOBAL::GENTEMP))) (
GLOBAL::QUOTE NIL))) (
SETF::REST-TEMPVARS (
GLOBAL::MAPCAR (
GLOBAL::FUNCTION (
GLOBAL::LAMBDA (
GLOBAL::IGNORE) (
GLOBAL::GENTEMP))) 
K2::ARGS692)) (
SETF::STOREVAR (
GLOBAL::GENSYM)) (
SETF::TEMPVARS (
GLOBAL::APPEND 
SETF::SINGLE-TEMPVARS 
SETF::REST-TEMPVARS))) (
GLOBAL::VALUES 
SETF::TEMPVARS (
GLOBAL::APPEND (
GLOBAL::LIST) (
GLOBAL::COPY-LIST 
K2::ARGS692)) (
GLOBAL::LIST 
SETF::STOREVAR) (
GLOBAL::LET ((
K2::VALUE693 
SETF::STOREVAR) (
K2::ARGS692 
SETF::REST-TEMPVARS)) (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
K2::%SET-COMPILED-FUNCTION-HEADER) (
SYSTEM-INTERNALS::XR-BQ-APPEND 
K2::ARGS692 (
SYSTEM-INTERNALS::XR-BQ-LIST 
K2::VALUE693)))) (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
K2::%COMPILED-FUNCTION-HEADER) 
SETF::TEMPVARS))))) (
LISP::IF (
GLOBAL::BOUNDP (
GLOBAL::QUOTE 
SETF::*GRODY-SETF-MACRO-TABLE*)) 
SETF::*GRODY-SETF-MACRO-TABLE* NIL))))

(eval (
GLOBAL::QUOTE 
K2::%COMPILED-FUNCTION-HEADER))

(DEFUN 
K2::%COMPILED-FUNCTION-NAME
COMPILED FUNCTION INFO:
NAME: 
K2::%COMPILED-FUNCTION-NAME
[LOCAL-REFS]:
[REFS]:
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44732122>
[IMMEDIATES]:)

(DEFUN 
K2::%SET-COMPILED-FUNCTION-NAME
COMPILED FUNCTION INFO:
NAME: 
K2::%SET-COMPILED-FUNCTION-NAME
[LOCAL-REFS]:
[REFS]:
([OFFSET] 2 [FUNCTION] 
CONS::STORE-CONTENTS-OFFSET [#ARGS] 3)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44731744>
[IMMEDIATES]:)

(eval (
GLOBAL::SETQ 
SETF::*GRODY-SETF-MACRO-TABLE* (
GLOBAL::CONS (
GLOBAL::QUOTE (
K2::%COMPILED-FUNCTION-NAME 
GLOBAL::LAMBDA (
GLOBAL::&REST 
K2::ARGS694) (
GLOBAL::LET* ((
SETF::SINGLE-TEMPVARS (
GLOBAL::MAPCAR (
GLOBAL::FUNCTION (
GLOBAL::LAMBDA (
GLOBAL::IGNORE) (
GLOBAL::GENTEMP))) (
GLOBAL::QUOTE NIL))) (
SETF::REST-TEMPVARS (
GLOBAL::MAPCAR (
GLOBAL::FUNCTION (
GLOBAL::LAMBDA (
GLOBAL::IGNORE) (
GLOBAL::GENTEMP))) 
K2::ARGS694)) (
SETF::STOREVAR (
GLOBAL::GENSYM)) (
SETF::TEMPVARS (
GLOBAL::APPEND 
SETF::SINGLE-TEMPVARS 
SETF::REST-TEMPVARS))) (
GLOBAL::VALUES 
SETF::TEMPVARS (
GLOBAL::APPEND (
GLOBAL::LIST) (
GLOBAL::COPY-LIST 
K2::ARGS694)) (
GLOBAL::LIST 
SETF::STOREVAR) (
GLOBAL::LET ((
K2::VALUE695 
SETF::STOREVAR) (
K2::ARGS694 
SETF::REST-TEMPVARS)) (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
K2::%SET-COMPILED-FUNCTION-NAME) (
SYSTEM-INTERNALS::XR-BQ-APPEND 
K2::ARGS694 (
SYSTEM-INTERNALS::XR-BQ-LIST 
K2::VALUE695)))) (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
K2::%COMPILED-FUNCTION-NAME) 
SETF::TEMPVARS))))) (
LISP::IF (
GLOBAL::BOUNDP (
GLOBAL::QUOTE 
SETF::*GRODY-SETF-MACRO-TABLE*)) 
SETF::*GRODY-SETF-MACRO-TABLE* NIL))))

(eval (
GLOBAL::QUOTE 
K2::%COMPILED-FUNCTION-NAME))

(DEFUN 
K2::%COMPILED-FUNCTION-ENTRY-POINTS
COMPILED FUNCTION INFO:
NAME: 
K2::%COMPILED-FUNCTION-ENTRY-POINTS
[LOCAL-REFS]:
[REFS]:
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44727763>
[IMMEDIATES]:)

(DEFUN 
K2::%SET-COMPILED-FUNCTION-ENTRY-POINTS
COMPILED FUNCTION INFO:
NAME: 
K2::%SET-COMPILED-FUNCTION-ENTRY-POINTS
[LOCAL-REFS]:
[REFS]:
([OFFSET] 2 [FUNCTION] 
CONS::STORE-CONTENTS-OFFSET [#ARGS] 3)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44727603>
[IMMEDIATES]:)

(eval (
GLOBAL::SETQ 
SETF::*GRODY-SETF-MACRO-TABLE* (
GLOBAL::CONS (
GLOBAL::QUOTE (
K2::%COMPILED-FUNCTION-ENTRY-POINTS 
GLOBAL::LAMBDA (
GLOBAL::&REST 
K2::ARGS696) (
GLOBAL::LET* ((
SETF::SINGLE-TEMPVARS (
GLOBAL::MAPCAR (
GLOBAL::FUNCTION (
GLOBAL::LAMBDA (
GLOBAL::IGNORE) (
GLOBAL::GENTEMP))) (
GLOBAL::QUOTE NIL))) (
SETF::REST-TEMPVARS (
GLOBAL::MAPCAR (
GLOBAL::FUNCTION (
GLOBAL::LAMBDA (
GLOBAL::IGNORE) (
GLOBAL::GENTEMP))) 
K2::ARGS696)) (
SETF::STOREVAR (
GLOBAL::GENSYM)) (
SETF::TEMPVARS (
GLOBAL::APPEND 
SETF::SINGLE-TEMPVARS 
SETF::REST-TEMPVARS))) (
GLOBAL::VALUES 
SETF::TEMPVARS (
GLOBAL::APPEND (
GLOBAL::LIST) (
GLOBAL::COPY-LIST 
K2::ARGS696)) (
GLOBAL::LIST 
SETF::STOREVAR) (
GLOBAL::LET ((
K2::VALUE697 
SETF::STOREVAR) (
K2::ARGS696 
SETF::REST-TEMPVARS)) (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
K2::%SET-COMPILED-FUNCTION-ENTRY-POINTS) (
SYSTEM-INTERNALS::XR-BQ-APPEND 
K2::ARGS696 (
SYSTEM-INTERNALS::XR-BQ-LIST 
K2::VALUE697)))) (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
K2::%COMPILED-FUNCTION-ENTRY-POINTS) 
SETF::TEMPVARS))))) (
LISP::IF (
GLOBAL::BOUNDP (
GLOBAL::QUOTE 
SETF::*GRODY-SETF-MACRO-TABLE*)) 
SETF::*GRODY-SETF-MACRO-TABLE* NIL))))

(eval (
GLOBAL::QUOTE 
K2::%COMPILED-FUNCTION-ENTRY-POINTS))

(DEFUN 
K2::%COMPILED-FUNCTION-LOCAL-REFS
COMPILED FUNCTION INFO:
NAME: 
K2::%COMPILED-FUNCTION-LOCAL-REFS
[LOCAL-REFS]:
[REFS]:
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44723032>
[IMMEDIATES]:)

(DEFUN 
K2::%SET-COMPILED-FUNCTION-LOCAL-REFS
COMPILED FUNCTION INFO:
NAME: 
K2::%SET-COMPILED-FUNCTION-LOCAL-REFS
[LOCAL-REFS]:
[REFS]:
([OFFSET] 2 [FUNCTION] 
CONS::STORE-CONTENTS-OFFSET [#ARGS] 3)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44722650>
[IMMEDIATES]:)

(eval (
GLOBAL::SETQ 
SETF::*GRODY-SETF-MACRO-TABLE* (
GLOBAL::CONS (
GLOBAL::QUOTE (
K2::%COMPILED-FUNCTION-LOCAL-REFS 
GLOBAL::LAMBDA (
GLOBAL::&REST 
K2::ARGS698) (
GLOBAL::LET* ((
SETF::SINGLE-TEMPVARS (
GLOBAL::MAPCAR (
GLOBAL::FUNCTION (
GLOBAL::LAMBDA (
GLOBAL::IGNORE) (
GLOBAL::GENTEMP))) (
GLOBAL::QUOTE NIL))) (
SETF::REST-TEMPVARS (
GLOBAL::MAPCAR (
GLOBAL::FUNCTION (
GLOBAL::LAMBDA (
GLOBAL::IGNORE) (
GLOBAL::GENTEMP))) 
K2::ARGS698)) (
SETF::STOREVAR (
GLOBAL::GENSYM)) (
SETF::TEMPVARS (
GLOBAL::APPEND 
SETF::SINGLE-TEMPVARS 
SETF::REST-TEMPVARS))) (
GLOBAL::VALUES 
SETF::TEMPVARS (
GLOBAL::APPEND (
GLOBAL::LIST) (
GLOBAL::COPY-LIST 
K2::ARGS698)) (
GLOBAL::LIST 
SETF::STOREVAR) (
GLOBAL::LET ((
K2::VALUE699 
SETF::STOREVAR) (
K2::ARGS698 
SETF::REST-TEMPVARS)) (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
K2::%SET-COMPILED-FUNCTION-LOCAL-REFS) (
SYSTEM-INTERNALS::XR-BQ-APPEND 
K2::ARGS698 (
SYSTEM-INTERNALS::XR-BQ-LIST 
K2::VALUE699)))) (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
K2::%COMPILED-FUNCTION-LOCAL-REFS) 
SETF::TEMPVARS))))) (
LISP::IF (
GLOBAL::BOUNDP (
GLOBAL::QUOTE 
SETF::*GRODY-SETF-MACRO-TABLE*)) 
SETF::*GRODY-SETF-MACRO-TABLE* NIL))))

(eval (
GLOBAL::QUOTE 
K2::%COMPILED-FUNCTION-LOCAL-REFS))

(DEFUN 
K2::%COMPILED-FUNCTION-REFS
COMPILED FUNCTION INFO:
NAME: 
K2::%COMPILED-FUNCTION-REFS
[LOCAL-REFS]:
[REFS]:
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44720720>
[IMMEDIATES]:)

(DEFUN 
K2::%SET-COMPILED-FUNCTION-REFS
COMPILED FUNCTION INFO:
NAME: 
K2::%SET-COMPILED-FUNCTION-REFS
[LOCAL-REFS]:
[REFS]:
([OFFSET] 2 [FUNCTION] 
CONS::STORE-CONTENTS-OFFSET [#ARGS] 3)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44720540>
[IMMEDIATES]:)

(eval (
GLOBAL::SETQ 
SETF::*GRODY-SETF-MACRO-TABLE* (
GLOBAL::CONS (
GLOBAL::QUOTE (
K2::%COMPILED-FUNCTION-REFS 
GLOBAL::LAMBDA (
GLOBAL::&REST 
K2::ARGS700) (
GLOBAL::LET* ((
SETF::SINGLE-TEMPVARS (
GLOBAL::MAPCAR (
GLOBAL::FUNCTION (
GLOBAL::LAMBDA (
GLOBAL::IGNORE) (
GLOBAL::GENTEMP))) (
GLOBAL::QUOTE NIL))) (
SETF::REST-TEMPVARS (
GLOBAL::MAPCAR (
GLOBAL::FUNCTION (
GLOBAL::LAMBDA (
GLOBAL::IGNORE) (
GLOBAL::GENTEMP))) 
K2::ARGS700)) (
SETF::STOREVAR (
GLOBAL::GENSYM)) (
SETF::TEMPVARS (
GLOBAL::APPEND 
SETF::SINGLE-TEMPVARS 
SETF::REST-TEMPVARS))) (
GLOBAL::VALUES 
SETF::TEMPVARS (
GLOBAL::APPEND (
GLOBAL::LIST) (
GLOBAL::COPY-LIST 
K2::ARGS700)) (
GLOBAL::LIST 
SETF::STOREVAR) (
GLOBAL::LET ((
K2::VALUE701 
SETF::STOREVAR) (
K2::ARGS700 
SETF::REST-TEMPVARS)) (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
K2::%SET-COMPILED-FUNCTION-REFS) (
SYSTEM-INTERNALS::XR-BQ-APPEND 
K2::ARGS700 (
SYSTEM-INTERNALS::XR-BQ-LIST 
K2::VALUE701)))) (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
K2::%COMPILED-FUNCTION-REFS) 
SETF::TEMPVARS))))) (
LISP::IF (
GLOBAL::BOUNDP (
GLOBAL::QUOTE 
SETF::*GRODY-SETF-MACRO-TABLE*)) 
SETF::*GRODY-SETF-MACRO-TABLE* NIL))))

(eval (
GLOBAL::QUOTE 
K2::%COMPILED-FUNCTION-REFS))

(DEFUN 
K2::%COMPILED-FUNCTION-LENGTH
COMPILED FUNCTION INFO:
NAME: 
K2::%COMPILED-FUNCTION-LENGTH
[LOCAL-REFS]:
[REFS]:
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44715662>
[IMMEDIATES]:)

(DEFUN 
K2::%SET-COMPILED-FUNCTION-LENGTH
COMPILED FUNCTION INFO:
NAME: 
K2::%SET-COMPILED-FUNCTION-LENGTH
[LOCAL-REFS]:
[REFS]:
([OFFSET] 2 [FUNCTION] 
CONS::STORE-CONTENTS-OFFSET [#ARGS] 3)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44715054>
[IMMEDIATES]:)

(eval (
GLOBAL::SETQ 
SETF::*GRODY-SETF-MACRO-TABLE* (
GLOBAL::CONS (
GLOBAL::QUOTE (
K2::%COMPILED-FUNCTION-LENGTH 
GLOBAL::LAMBDA (
GLOBAL::&REST 
K2::ARGS702) (
GLOBAL::LET* ((
SETF::SINGLE-TEMPVARS (
GLOBAL::MAPCAR (
GLOBAL::FUNCTION (
GLOBAL::LAMBDA (
GLOBAL::IGNORE) (
GLOBAL::GENTEMP))) (
GLOBAL::QUOTE NIL))) (
SETF::REST-TEMPVARS (
GLOBAL::MAPCAR (
GLOBAL::FUNCTION (
GLOBAL::LAMBDA (
GLOBAL::IGNORE) (
GLOBAL::GENTEMP))) 
K2::ARGS702)) (
SETF::STOREVAR (
GLOBAL::GENSYM)) (
SETF::TEMPVARS (
GLOBAL::APPEND 
SETF::SINGLE-TEMPVARS 
SETF::REST-TEMPVARS))) (
GLOBAL::VALUES 
SETF::TEMPVARS (
GLOBAL::APPEND (
GLOBAL::LIST) (
GLOBAL::COPY-LIST 
K2::ARGS702)) (
GLOBAL::LIST 
SETF::STOREVAR) (
GLOBAL::LET ((
K2::VALUE703 
SETF::STOREVAR) (
K2::ARGS702 
SETF::REST-TEMPVARS)) (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
K2::%SET-COMPILED-FUNCTION-LENGTH) (
SYSTEM-INTERNALS::XR-BQ-APPEND 
K2::ARGS702 (
SYSTEM-INTERNALS::XR-BQ-LIST 
K2::VALUE703)))) (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
K2::%COMPILED-FUNCTION-LENGTH) 
SETF::TEMPVARS))))) (
LISP::IF (
GLOBAL::BOUNDP (
GLOBAL::QUOTE 
SETF::*GRODY-SETF-MACRO-TABLE*)) 
SETF::*GRODY-SETF-MACRO-TABLE* NIL))))

(eval (
GLOBAL::QUOTE 
K2::%COMPILED-FUNCTION-LENGTH))

(DEFUN 
K2::%COMPILED-FUNCTION-CODE
COMPILED FUNCTION INFO:
NAME: 
K2::%COMPILED-FUNCTION-CODE
[LOCAL-REFS]:
[REFS]:
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44710752>
[IMMEDIATES]:)

(DEFUN 
K2::%SET-COMPILED-FUNCTION-CODE
COMPILED FUNCTION INFO:
NAME: 
K2::%SET-COMPILED-FUNCTION-CODE
[LOCAL-REFS]:
[REFS]:
([OFFSET] 2 [FUNCTION] 
CONS::STORE-CONTENTS-OFFSET [#ARGS] 3)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44710576>
[IMMEDIATES]:)

(eval (
GLOBAL::SETQ 
SETF::*GRODY-SETF-MACRO-TABLE* (
GLOBAL::CONS (
GLOBAL::QUOTE (
K2::%COMPILED-FUNCTION-CODE 
GLOBAL::LAMBDA (
GLOBAL::&REST 
K2::ARGS704) (
GLOBAL::LET* ((
SETF::SINGLE-TEMPVARS (
GLOBAL::MAPCAR (
GLOBAL::FUNCTION (
GLOBAL::LAMBDA (
GLOBAL::IGNORE) (
GLOBAL::GENTEMP))) (
GLOBAL::QUOTE NIL))) (
SETF::REST-TEMPVARS (
GLOBAL::MAPCAR (
GLOBAL::FUNCTION (
GLOBAL::LAMBDA (
GLOBAL::IGNORE) (
GLOBAL::GENTEMP))) 
K2::ARGS704)) (
SETF::STOREVAR (
GLOBAL::GENSYM)) (
SETF::TEMPVARS (
GLOBAL::APPEND 
SETF::SINGLE-TEMPVARS 
SETF::REST-TEMPVARS))) (
GLOBAL::VALUES 
SETF::TEMPVARS (
GLOBAL::APPEND (
GLOBAL::LIST) (
GLOBAL::COPY-LIST 
K2::ARGS704)) (
GLOBAL::LIST 
SETF::STOREVAR) (
GLOBAL::LET ((
K2::VALUE705 
SETF::STOREVAR) (
K2::ARGS704 
SETF::REST-TEMPVARS)) (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
K2::%SET-COMPILED-FUNCTION-CODE) (
SYSTEM-INTERNALS::XR-BQ-APPEND 
K2::ARGS704 (
SYSTEM-INTERNALS::XR-BQ-LIST 
K2::VALUE705)))) (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
K2::%COMPILED-FUNCTION-CODE) 
SETF::TEMPVARS))))) (
LISP::IF (
GLOBAL::BOUNDP (
GLOBAL::QUOTE 
SETF::*GRODY-SETF-MACRO-TABLE*)) 
SETF::*GRODY-SETF-MACRO-TABLE* NIL))))

(eval (
GLOBAL::QUOTE 
K2::%COMPILED-FUNCTION-CODE))

(DEFSUBST (
NC::NAMED-LAMBDA 
K2::%COMPILED-FUNCTION-P (
K2::PTR) (
HARDWARE::FIELD= 
K2::PTR (
HARDWARE::DPB-UNBOXED 
VINCULUM::$$DTP-COMPILED-FUNCTION 
VINCULUM::%%DATA-TYPE (
HARDWARE::UNBOXED-CONSTANT 0)) 
VINCULUM::%%DATA-TYPE))
COMPILED FUNCTION INFO:
NAME: 
K2::%COMPILED-FUNCTION-P
[LOCAL-REFS]:
(2 4)
[REFS]:
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 40 (simple) -44705500>
[IMMEDIATES]:)

(DEFCONSTANT 
K2::COMPILED-FUNCTION-STRUCTURE-SIZE 8)

(DEFUN 
K2::MAKE-COMPILED-FUNCTION
COMPILED FUNCTION INFO:
NAME: 
K2::MAKE-COMPILED-FUNCTION
[LOCAL-REFS]:
[REFS]:
([OFFSET] 15 [FUNCTION] 
K2::%SET-COMPILED-FUNCTION-LENGTH [#ARGS] 2)
([OFFSET] 13 [FUNCTION] 
K2::%SET-COMPILED-FUNCTION-REFS [#ARGS] 2)
([OFFSET] 11 [FUNCTION] 
K2::%SET-COMPILED-FUNCTION-LOCAL-REFS [#ARGS] 2)
([OFFSET] 9 [FUNCTION] 
K2::%SET-COMPILED-FUNCTION-ENTRY-POINTS [#ARGS] 2)
([OFFSET] 7 [FUNCTION] 
K2::%SET-COMPILED-FUNCTION-NAME [#ARGS] 2)
([OFFSET] 5 [FUNCTION] 
CONS::ALLOCATE-STRUCTURE [#ARGS] 4)
[ENTRIES]:
([#ARGS] 5 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 144 (simple) -44705035>
[IMMEDIATES]:)

(DEFUN 
K2::ADDR->PC
COMPILED FUNCTION INFO:
NAME: 
K2::ADDR->PC
[LOCAL-REFS]:
[REFS]:
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#(248 39 135 126 0 128 196 2)
[IMMEDIATES]:)

(DEFUN 
K2::PC->ADDR
COMPILED FUNCTION INFO:
NAME: 
K2::PC->ADDR
[LOCAL-REFS]:
[REFS]:
([OFFSET] 5 [FUNCTION] 
TRAP::TRAP-RESTORE [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 64 (simple) -44704410>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-COLD-FCN-INFO
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-COLD-FCN-INFO
[LOCAL-REFS]:
(27 38)
(21 24)
[REFS]:
([OFFSET] 38 [FUNCTION] 
K2::READ-AND-LINK-IMMEDIATES [#ARGS] 1)
([OFFSET] 34 [FUNCTION] 
CONS::STORE-CONTENTS-OFFSET [#ARGS] 3)
([OFFSET] 23 [FUNCTION] 
SYMBOL::SET-SYMBOL-FUNCTION [#ARGS] 2)
([OFFSET] 15 [FUNCTION] 
K2::%SET-COMPILED-FUNCTION-CODE [#ARGS] 2)
([OFFSET] 11 [FUNCTION] 
K2::MAKE-COMPILED-FUNCTION [#ARGS] 5)
([OFFSET] 6 [FUNCTION] 
K2::PC->ADDR [#ARGS] 1)
([OFFSET] 5 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
([OFFSET] 4 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
([OFFSET] 3 [FUNCTION] 
K2::READ-ENTRY-POINTS [#ARGS] 0)
([OFFSET] 2 [FUNCTION] 
K2::READ-REFS [#ARGS] 0)
([OFFSET] 1 [FUNCTION] 
K2::READ-LOCAL-REFS [#ARGS] 0)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 312 (simple) -44703462>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-FUNCTION
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-FUNCTION
[LOCAL-REFS]:
(37 41)
(28 19)
(21 29)
[REFS]:
([OFFSET] 39 [FUNCTION] 
SYMBOL::SET-SYMBOL-FUNCTION [#ARGS] 2)
([OFFSET] 31 [FUNCTION] 
K2::LINK-FUNCTION [#ARGS] 2)
([OFFSET] 29 [FUNCTION] 
K2::READ-AND-LINK-IMMEDIATES [#ARGS] 1)
([OFFSET] 26 [FUNCTION] 
K2::WRITE-INSTRUCTION [#ARGS] 3)
([OFFSET] 23 [FUNCTION] 
K2::WARM-READ-UNBOXED-WORD [#ARGS] 0)
([OFFSET] 22 [FUNCTION] 
K2::WARM-READ-UNBOXED-WORD [#ARGS] 0)
([OFFSET] 16 [FUNCTION] 
K2::%SET-COMPILED-FUNCTION-CODE [#ARGS] 2)
([OFFSET] 14 [FUNCTION] 
K2::ADDR->PC [#ARGS] 1)
([OFFSET] 12 [FUNCTION] 
CONS::ALLOCATE-CODE-SPACE [#ARGS] 3)
([OFFSET] 9 [FUNCTION] 
K2::MAKE-COMPILED-FUNCTION [#ARGS] 5)
([OFFSET] 4 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
([OFFSET] 3 [FUNCTION] 
K2::READ-ENTRY-POINTS [#ARGS] 0)
([OFFSET] 2 [FUNCTION] 
K2::READ-REFS [#ARGS] 0)
([OFFSET] 1 [FUNCTION] 
K2::READ-LOCAL-REFS [#ARGS] 0)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 336 (simple) -44701727>
[IMMEDIATES]:)

(DEFUN 
K2::KILL-OLD-FUNCTION
COMPILED FUNCTION INFO:
NAME: 
K2::KILL-OLD-FUNCTION
[LOCAL-REFS]:
(16 7)
(9 11)
(2 17)
[REFS]:
([OFFSET] 14 [FUNCTION] 
K2::WRITE-CODE-WORD [#ARGS] 2)
([OFFSET] 12 [FUNCTION] 
K2::READ-CODE-WORD [#ARGS] 1)
([OFFSET] 5 [FUNCTION] 
K2::PC->ADDR [#ARGS] 1)
([OFFSET] 4 [FUNCTION] 
K2::%COMPILED-FUNCTION-CODE [#ARGS] 1)
([OFFSET] 3 [FUNCTION] 
K2::%COMPILED-FUNCTION-LENGTH [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 144 (simple) -44700654>
[IMMEDIATES]:)

(DEFUN 
K2::READ-AND-LINK-IMMEDIATES
COMPILED FUNCTION INFO:
NAME: 
K2::READ-AND-LINK-IMMEDIATES
[LOCAL-REFS]:
(12 2)
(4 6)
[REFS]:
([OFFSET] 11 [FUNCTION] 
K2::WRITE-BOXED-IMMEDIATE [#ARGS] 2)
([OFFSET] 10 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
([OFFSET] 7 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-FIXNUM [#ARGS] 0)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 104 (simple) -44700120>
[IMMEDIATES]:)

(DEFUN 
K2::LINK-FUNCTION
COMPILED FUNCTION INFO:
NAME: 
K2::LINK-FUNCTION
[LOCAL-REFS]:
[REFS]:
([OFFSET] 3 [FUNCTION] 
K2::LINK-REFS [#ARGS] 2)
([OFFSET] 1 [FUNCTION] 
K2::RELOCATE-LOCAL-REFS [#ARGS] 2)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 32 (simple) -44677612>
[IMMEDIATES]:)

(DEFUN 
K2::RELOCATE-LOCAL-REFS
COMPILED FUNCTION INFO:
NAME: 
K2::RELOCATE-LOCAL-REFS
[LOCAL-REFS]:
(26 21)
(21 4)
(16 22)
(6 8)
[REFS]:
([OFFSET] 25 [FUNCTION] 
K2::WRITE-CODE-WORD [#ARGS] 2)
([OFFSET] 23 [FUNCTION] 
K2::READ-CODE-WORD [#ARGS] 1)
([OFFSET] 20 [FUNCTION] 
K2::WRITE-BOXED-IMMEDIATE [#ARGS] 2)
([OFFSET] 13 [FUNCTION] 
ARRAY::SVREF [#ARGS] 2)
([OFFSET] 9 [FUNCTION] 
ARRAY::SVREF [#ARGS] 2)
([OFFSET] 2 [FUNCTION] 
K2::ADDR->PC [#ARGS] 1)
([OFFSET] 1 [FUNCTION] 
ARRAY::LENGTH [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::%COMPILED-FUNCTION-LOCAL-REFS [#ARGS] 1)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 216 (simple) -44677113>
[IMMEDIATES]:)

(DEFUN 
K2::GET-ENTRY-ADDRESS-FOR-FUNCALL
COMPILED FUNCTION INFO:
NAME: 
K2::GET-ENTRY-ADDRESS-FOR-FUNCALL
[LOCAL-REFS]:
(40 4)
(33 40)
(28 40)
(19 26)
(6 15)
[REFS]:
([OFFSET] 35 [FUNCTION] 
ARRAY::SVREF [#ARGS] 2)
([OFFSET] 21 [FUNCTION] 
ARRAY::SVREF [#ARGS] 2)
([OFFSET] 16 [FUNCTION] 
ARRAY::SVREF [#ARGS] 2)
([OFFSET] 11 [FUNCTION] 
ARRAY::SVREF [#ARGS] 2)
([OFFSET] 8 [FUNCTION] 
ARRAY::SVREF [#ARGS] 2)
([OFFSET] 2 [FUNCTION] 
ARRAY::LENGTH [#ARGS] 1)
([OFFSET] 1 [FUNCTION] 
K2::RESURRECT-FUNCTION-IF-DEAD [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::%COMPILED-FUNCTION-ENTRY-POINTS [#ARGS] 1)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 328 (simple) -44676100>
[IMMEDIATES]:)

(DEFUN 
K2::GET-ENTRY-ADDRESS
COMPILED FUNCTION INFO:
NAME: 
K2::GET-ENTRY-ADDRESS
[LOCAL-REFS]:
(36 4)
(29 36)
(24 36)
(17 22)
(6 13)
[REFS]:
([OFFSET] 35 [FUNCTION] 
K2::CREATE-REST-ARG-LINK [#ARGS] 3)
([OFFSET] 32 [FUNCTION] 
ARRAY::SVREF [#ARGS] 2)
([OFFSET] 19 [FUNCTION] 
ARRAY::SVREF [#ARGS] 2)
([OFFSET] 14 [FUNCTION] 
ARRAY::SVREF [#ARGS] 2)
([OFFSET] 12 [FUNCTION] 
K2::GET-WNA-FUNCTION-REFERENCE [#ARGS] 0)
([OFFSET] 11 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 5)
([OFFSET] 7 [FUNCTION] 
K2::%COMPILED-FUNCTION-NAME [#ARGS] 1)
([OFFSET] 2 [FUNCTION] 
ARRAY::LENGTH [#ARGS] 1)
([OFFSET] 1 [FUNCTION] 
K2::RESURRECT-FUNCTION-IF-DEAD [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::%COMPILED-FUNCTION-ENTRY-POINTS [#ARGS] 1)
[ENTRIES]:
([#ARGS] 4 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 296 (simple) -44674606>
[IMMEDIATES]:
(8 Function call with wrong number of args: A1 calls A2 with A3 args A4 entry-points))

(DEFUN 
K2::DEAD-CODE-P
COMPILED FUNCTION INFO:
NAME: 
K2::DEAD-CODE-P
[LOCAL-REFS]:
(5 7)
[REFS]:
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 64 (simple) -44673747>
[IMMEDIATES]:)

(DEFUN 
K2::RESURRECT-FUNCTION-IF-DEAD
COMPILED FUNCTION INFO:
NAME: 
K2::RESURRECT-FUNCTION-IF-DEAD
[LOCAL-REFS]:
(33 20)
(22 34)
(11 40)
(6 8)
[REFS]:
([OFFSET] 37 [FUNCTION] 
K2::%SET-COMPILED-FUNCTION-CODE [#ARGS] 2)
([OFFSET] 35 [FUNCTION] 
K2::RELOCATE-LOCAL-REFS [#ARGS] 2)
([OFFSET] 30 [FUNCTION] 
K2::WRITE-INSTRUCTION [#ARGS] 3)
([OFFSET] 17 [FUNCTION] 
K2::ADDR->PC [#ARGS] 1)
([OFFSET] 15 [FUNCTION] 
CONS::ALLOCATE-CODE-SPACE [#ARGS] 3)
([OFFSET] 12 [FUNCTION] 
K2::%COMPILED-FUNCTION-LENGTH [#ARGS] 1)
([OFFSET] 8 [FUNCTION] 
K2::DEAD-CODE-P [#ARGS] 1)
([OFFSET] 3 [FUNCTION] 
SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1)
([OFFSET] 1 [FUNCTION] 
K2::PC->ADDR [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::%COMPILED-FUNCTION-CODE [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 328 (simple) -44673055>
[IMMEDIATES]:
(2 
K2::UNDEFINED-FUNCTION))

(DEFUN 
K2::CREATE-REST-ARG-LINK
COMPILED FUNCTION INFO:
NAME: 
K2::CREATE-REST-ARG-LINK
[LOCAL-REFS]:
[REFS]:
([OFFSET] 16 [FUNCTION] 
K2::ADDR->PC [#ARGS] 1)
([OFFSET] 15 [FUNCTION] 
K2::WRITE-CODE-WORD [#ARGS] 2)
([OFFSET] 12 [FUNCTION] 
K2::WRITE-CODE-WORD [#ARGS] 2)
([OFFSET] 8 [FUNCTION] 
K2::WRITE-CODE-WORD [#ARGS] 2)
([OFFSET] 5 [FUNCTION] 
K2::WRITE-CODE-WORD [#ARGS] 2)
([OFFSET] 2 [FUNCTION] 
CONS::ALLOCATE-CODE-SPACE [#ARGS] 3)
[ENTRIES]:
([#ARGS] 3 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 136 (simple) -44671767>
[IMMEDIATES]:)

(DEFUN 
K2::GET-WNA-FUNCTION-REFERENCE
COMPILED FUNCTION INFO:
NAME: 
K2::GET-WNA-FUNCTION-REFERENCE
[LOCAL-REFS]:
[REFS]:
([OFFSET] 0 [FUNCTION] 
K2::WNA-FUNCTION [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#(0 0 0 52 0 128 196 14)
[IMMEDIATES]:)

(DEFUN 
K2::WNA-FUNCTION
COMPILED FUNCTION INFO:
NAME: 
K2::WNA-FUNCTION
[LOCAL-REFS]:
[REFS]:
([OFFSET] 1 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 16 (simple) -44671273>
[IMMEDIATES]:
(0 Function call with wrong number of args))

(DEFUN 
K2::LINK-REFS
COMPILED FUNCTION INFO:
NAME: 
K2::LINK-REFS
[LOCAL-REFS]:
(28 23)
(26 3)
(17 27)
(5 7)
[REFS]:
([OFFSET] 27 [FUNCTION] 
K2::GET-UNDEFINED-FUNCTION-REFERENCE [#ARGS] 0)
([OFFSET] 25 [FUNCTION] 
K2::WRITE-CODE-WORD [#ARGS] 2)
([OFFSET] 23 [FUNCTION] 
K2::READ-CODE-WORD [#ARGS] 1)
([OFFSET] 22 [FUNCTION] 
K2::GET-ENTRY-ADDRESS [#ARGS] 4)
([OFFSET] 19 [FUNCTION] 
ARRAY::SVREF [#ARGS] 2)
([OFFSET] 13 [FUNCTION] 
LISP-INTERNALS::FIND-FUNCTION [#ARGS] 1)
([OFFSET] 12 [FUNCTION] 
ARRAY::SVREF [#ARGS] 2)
([OFFSET] 8 [FUNCTION] 
ARRAY::SVREF [#ARGS] 2)
([OFFSET] 1 [FUNCTION] 
ARRAY::LENGTH [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::%COMPILED-FUNCTION-REFS [#ARGS] 1)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 232 (simple) -44670523>
[IMMEDIATES]:)

(DEFUN 
K2::GET-UNDEFINED-FUNCTION-REFERENCE
COMPILED FUNCTION INFO:
NAME: 
K2::GET-UNDEFINED-FUNCTION-REFERENCE
[LOCAL-REFS]:
[REFS]:
([OFFSET] 0 [FUNCTION] 
K2::UNDEFINED-FUNCTION [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#(0 0 0 52 0 128 196 14)
[IMMEDIATES]:)

(DEFUN 
K2::UNDEFINED-FUNCTION
COMPILED FUNCTION INFO:
NAME: 
K2::UNDEFINED-FUNCTION
[LOCAL-REFS]:
[REFS]:
([OFFSET] 0 [FUNCTION] 
K2::UNDEFINED-FUNCTION [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#(0 0 0 65 0 158 71 72)
[IMMEDIATES]:)

(DEFUN 
K2::CALL-TO-UNDEFINED-FUNCTION-P
COMPILED FUNCTION INFO:
NAME: 
K2::CALL-TO-UNDEFINED-FUNCTION-P
[LOCAL-REFS]:
(3 5)
[REFS]:
([OFFSET] 0 [FUNCTION] 
K2::UNDEFINED-FUNCTION [#ARGS] 0)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 48 (simple) -44667463>
[IMMEDIATES]:)

(DEFUN 
K2::TRAP-BOMB
COMPILED FUNCTION INFO:
NAME: 
K2::TRAP-BOMB
[LOCAL-REFS]:
[REFS]:
([OFFSET] 1 [FUNCTION] 
TRAP::ILLOP-FUNCTION [#ARGS] 1)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 16 (simple) -44667274>
[IMMEDIATES]:)

(DEFUN 
K2::FIX-UNDEFINED-FUNCTION
COMPILED FUNCTION INFO:
NAME: 
K2::FIX-UNDEFINED-FUNCTION
[LOCAL-REFS]:
(23 33)
(12 15)
(4 7)
[REFS]:
([OFFSET] 36 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 3)
([OFFSET] 34 [FUNCTION] 
SYMBOL::SYMBOL-NAME [#ARGS] 1)
([OFFSET] 33 [FUNCTION] 
SYMBOL::SYMBOL-PACKAGE [#ARGS] 1)
([OFFSET] 30 [FUNCTION] 
K2::WRITE-CALL-ADDRESS [#ARGS] 2)
([OFFSET] 28 [FUNCTION] 
K2::GET-ENTRY-ADDRESS [#ARGS] 4)
([OFFSET] 24 [FUNCTION] 
K2::PC->ADDR [#ARGS] 1)
([OFFSET] 20 [FUNCTION] 
LISP-INTERNALS::FIND-FUNCTION [#ARGS] 1)
([OFFSET] 18 [FUNCTION] 
LISP-INTERNALS::MVBIND-2 [#ARGS] 1)
([OFFSET] 17 [FUNCTION] 
K2::GET-CALLED-FUNCTION-AND-NARGS [#ARGS] 2)
([OFFSET] 15 [FUNCTION] 
K2::RESURRECT-FUNCTION-IF-DEAD [#ARGS] 1)
([OFFSET] 14 [FUNCTION] 
TRAP::ILLOP-FUNCTION [#ARGS] 1)
([OFFSET] 8 [FUNCTION] 
LISP-INTERNALS::MVBIND-2 [#ARGS] 1)
([OFFSET] 7 [FUNCTION] 
K2::GET-FUNCTION-AND-OFFSET-FROM-PC [#ARGS] 1)
([OFFSET] 6 [FUNCTION] 
K2::PROG2 [#ARGS] 2)
([OFFSET] 5 [FUNCTION] 
K2::TRAP-BOMB [#ARGS] 0)
([OFFSET] 1 [FUNCTION] 
K2::DEAD-CODE-P [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::PC->ADDR [#ARGS] 1)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 296 (simple) -44666117>
[IMMEDIATES]:
(35 Calling undefined function))

(DEFVAR 
K2::*SPECIAL-TRAP-FUNCTIONS* (
TRAP::TRAP 
TRAP::NON-MODIFYING-EXIT 
TRAP::MODIFYING-EXIT 
TRAP::DIAGNOSTIC-TRAP-EXIT 
TRAP::TRAP-VECTOR-TABLE))

(DEFUN 
K2::GET-FUNCTION-AND-OFFSET-FROM-PC
COMPILED FUNCTION INFO:
NAME: 
K2::GET-FUNCTION-AND-OFFSET-FROM-PC
[LOCAL-REFS]:
(34 10)
(28 31)
(22 26)
(16 32)
(4 7)
[REFS]:
([OFFSET] 30 [FUNCTION] 
K2::GET-FUNCTION-AND-OFFSET-FROM-PC [#ARGS] 1)
([OFFSET] 29 [FUNCTION] 
K2::ADDR->PC [#ARGS] 1)
([OFFSET] 7 [FUNCTION] 
K2::PC->ADDR [#ARGS] 1)
([OFFSET] 6 [FUNCTION] 
TRAP::ILLOP-FUNCTION [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 280 (simple) -44662431>
[IMMEDIATES]:)

(DEFUN 
K2::GET-CALLED-FUNCTION-AND-NARGS
COMPILED FUNCTION INFO:
NAME: 
K2::GET-CALLED-FUNCTION-AND-NARGS
[LOCAL-REFS]:
(22 3)
(14 22)
(5 10)
[REFS]:
([OFFSET] 18 [FUNCTION] 
ARRAY::SVREF [#ARGS] 2)
([OFFSET] 16 [FUNCTION] 
ARRAY::SVREF [#ARGS] 2)
([OFFSET] 11 [FUNCTION] 
ARRAY::SVREF [#ARGS] 2)
([OFFSET] 7 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 1 [FUNCTION] 
ARRAY::LENGTH [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::%COMPILED-FUNCTION-REFS [#ARGS] 1)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 184 (simple) -44661424>
[IMMEDIATES]:
(6 Couldn't find ref))

(DEFUN 
LISP-INTERNALS::FIND-FUNCTION
COMPILED FUNCTION INFO:
NAME: 
LISP-INTERNALS::FIND-FUNCTION
[LOCAL-REFS]:
(67 71)
(61 37)
(59 61)
(54 61)
(49 61)
(45 61)
(39 41)
(33 62)
(28 63)
(23 73)
(19 21)
(13 15)
(9 16)
(5 17)
[REFS]:
([OFFSET] 72 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 2)
([OFFSET] 70 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 2)
([OFFSET] 68 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 63 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 56 [FUNCTION] 
CONS::CADDR [#ARGS] 1)
([OFFSET] 55 [FUNCTION] 
CONS::CADDR [#ARGS] 1)
([OFFSET] 50 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 46 [FUNCTION] 
K2::%COMPILED-FUNCTION-NAME [#ARGS] 1)
([OFFSET] 42 [FUNCTION] 
ARRAY::SVREF [#ARGS] 2)
([OFFSET] 35 [FUNCTION] 
ARRAY::LENGTH [#ARGS] 1)
([OFFSET] 34 [FUNCTION] 
K2::%COMPILED-FUNCTION-REFS [#ARGS] 1)
([OFFSET] 30 [FUNCTION] 
LISP-INTERNALS::FIND-FUNCTION [#ARGS] 1)
([OFFSET] 29 [FUNCTION] 
CONS::CADR [#ARGS] 1)
([OFFSET] 24 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 15 [FUNCTION] 
LISP-INTERNALS::FIND-FUNCTION [#ARGS] 1)
([OFFSET] 10 [FUNCTION] 
SYMBOL::SYMBOL-FUNCTION [#ARGS] 1)
([OFFSET] 6 [FUNCTION] 
SYMBOL::FBOUNDP [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 592 (simple) -44657536>
[IMMEDIATES]:
(71 Unknown function spec: ~s)
(69 Something is trying to call the macro ~s)
(64 
LISP-INTERNALS::MACRO)
(51 
KEYWORD::INTERNAL)
(25 
KEYWORD::INTERNAL))

(DEFUN 
K2::MINI-FASL-READ-SHORT-FLOAT
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-SHORT-FLOAT
[LOCAL-REFS]:
[REFS]:
([OFFSET] 7 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 5 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 3 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 1 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 80 (simple) -44655744>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-SINGLE-FLOAT
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-SINGLE-FLOAT
[LOCAL-REFS]:
[REFS]:
([OFFSET] 9 [FUNCTION] 
ARRAY::MAKE-SINGLE-FLOAT [#ARGS] 1)
([OFFSET] 7 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 5 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 3 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 1 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 80 (simple) -44655321>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-READ-DOUBLE-FLOAT
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-DOUBLE-FLOAT
[LOCAL-REFS]:
[REFS]:
([OFFSET] 19 [FUNCTION] 
ARRAY::MAKE-DOUBLE-FLOAT [#ARGS] 2)
([OFFSET] 16 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 14 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 12 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 10 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 8 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 6 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 4 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
([OFFSET] 2 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 160 (simple) -44654507>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-DO-DEFCONSTANT
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-DO-DEFCONSTANT
[LOCAL-REFS]:
(8 11)
[REFS]:
([OFFSET] 17 [FUNCTION] 
K2::EVALUATE-OR-POSTPONE [#ARGS] 1)
([OFFSET] 16 [FUNCTION] 
K2::LIST-OF-FOUR [#ARGS] 4)
([OFFSET] 12 [FUNCTION] 
SYMBOL::SET [#ARGS] 2)
([OFFSET] 10 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 2 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
([OFFSET] 1 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 144 (simple) -44651377>
[IMMEDIATES]:
(13 
GLOBAL::DEFCONSTANT)
(9 DEFCONSTANT of other than a symbol.))

(DEFUN 
K2::MINI-FASL-DO-DEFPARAMETER
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-DO-DEFPARAMETER
[LOCAL-REFS]:
(8 11)
[REFS]:
([OFFSET] 17 [FUNCTION] 
K2::EVALUATE-OR-POSTPONE [#ARGS] 1)
([OFFSET] 16 [FUNCTION] 
K2::LIST-OF-FOUR [#ARGS] 4)
([OFFSET] 12 [FUNCTION] 
SYMBOL::SET [#ARGS] 2)
([OFFSET] 10 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 2 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
([OFFSET] 1 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 144 (simple) -44650232>
[IMMEDIATES]:
(13 
GLOBAL::DEFPARAMETER)
(9 DEFPARAMETER of other than a symbol.))

(DEFUN 
K2::MINI-FASL-READ-SOMEONES-VALUE
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-READ-SOMEONES-VALUE
[LOCAL-REFS]:
(4 7)
[REFS]:
([OFFSET] 7 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT-1 [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-BYTE [#ARGS] 0)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 64 (simple) -44647521>
[IMMEDIATES]:)

(DEFUN 
K2::MINI-FASL-DO-DEFVAR
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-DO-DEFVAR
[LOCAL-REFS]:
(35 30)
(27 31)
(20 23)
(14 17)
[REFS]:
([OFFSET] 34 [FUNCTION] 
K2::LIST-OF-FOUR [#ARGS] 4)
([OFFSET] 30 [FUNCTION] 
K2::EVALUATE-OR-POSTPONE [#ARGS] 1)
([OFFSET] 29 [FUNCTION] 
K2::LIST-OF-TWO [#ARGS] 2)
([OFFSET] 22 [FUNCTION] 
SYMBOL::SET [#ARGS] 2)
([OFFSET] 17 [FUNCTION] 
SYMBOL::BOUNDP [#ARGS] 1)
([OFFSET] 16 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 8 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
([OFFSET] 7 [FUNCTION] 
K2::MINI-FASL-READ-SOMEONES-VALUE [#ARGS] 1)
([OFFSET] 6 [FUNCTION] 
K2::%KBUG-STREAM-PEEK-BYTE [#ARGS] 2)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 288 (simple) -44646702>
[IMMEDIATES]:
(31 
GLOBAL::DEFVAR)
(28 
GLOBAL::DEFVAR)
(15 DEFVAR of other than a symbol.))

(DEFUN 
K2::MINI-FASL-FAKE-EVAL
COMPILED FUNCTION INFO:
NAME: 
K2::MINI-FASL-FAKE-EVAL
[LOCAL-REFS]:
[REFS]:
([OFFSET] 1 [FUNCTION] 
K2::EVALUATE-OR-POSTPONE [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::MINI-FASL-READ-OBJECT [#ARGS] 0)
[ENTRIES]:
([#ARGS] 0 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 16 (simple) -44645750>
[IMMEDIATES]:)

(DEFVAR 
LISP-INTERNALS::*EVALUATOR-AVAILABLE?* NIL)

(DEFUN 
K2::EVALUATE-OR-POSTPONE
COMPILED FUNCTION INFO:
NAME: 
K2::EVALUATE-OR-POSTPONE
[LOCAL-REFS]:
(39 36)
(33 39)
(26 22)
(25 28)
(19 26)
(13 27)
(9 28)
(4 28)
[REFS]:
([OFFSET] 38 [FUNCTION] 
SYMBOL::SET [#ARGS] 2)
([OFFSET] 36 [FUNCTION] 
CONS::CONS [#ARGS] 2)
([OFFSET] 35 [FUNCTION] 
SYMBOL::%SYMBOL-VALUE [#ARGS] 1)
([OFFSET] 30 [FUNCTION] 
SYMBOL::BOUNDP [#ARGS] 1)
([OFFSET] 27 [FUNCTION] 
LISP-INTERNALS::EVAL-SPECIAL-OK [#ARGS] 1)
([OFFSET] 24 [FUNCTION] 
SYMBOL::SET [#ARGS] 2)
([OFFSET] 22 [FUNCTION] 
CONS::CONS [#ARGS] 2)
([OFFSET] 21 [FUNCTION] 
SYMBOL::%SYMBOL-VALUE [#ARGS] 1)
([OFFSET] 16 [FUNCTION] 
SYMBOL::BOUNDP [#ARGS] 1)
([OFFSET] 10 [FUNCTION] 
K2::WILL-CAUSE-EVALUATOR-BARFAGE? [#ARGS] 1)
([OFFSET] 6 [FUNCTION] 
SYMBOL::%SYMBOL-VALUE [#ARGS] 1)
([OFFSET] 1 [FUNCTION] 
SYMBOL::BOUNDP [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 320 (simple) -44645002>
[IMMEDIATES]:
(37 
K2::*WARM-EVAL-LIST*)
(34 
K2::*WARM-EVAL-LIST*)
(29 
K2::*WARM-EVAL-LIST*)
(23 
K2::*CENSORED-FORMS*)
(20 
K2::*CENSORED-FORMS*)
(15 
K2::*CENSORED-FORMS*)
(5 
LISP-INTERNALS::*EVALUATOR-AVAILABLE?*)
(0 
LISP-INTERNALS::*EVALUATOR-AVAILABLE?*))

(DEFUN 
K2::LIST-OF-TWO
COMPILED FUNCTION INFO:
NAME: 
K2::LIST-OF-TWO
[LOCAL-REFS]:
[REFS]:
([OFFSET] 2 [FUNCTION] 
CONS::CONS [#ARGS] 2)
([OFFSET] 1 [FUNCTION] 
CONS::CONS [#ARGS] 2)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) -44641664>
[IMMEDIATES]:)

(DEFUN 
K2::LIST-OF-FOUR
COMPILED FUNCTION INFO:
NAME: 
K2::LIST-OF-FOUR
[LOCAL-REFS]:
[REFS]:
([OFFSET] 4 [FUNCTION] 
CONS::CONS [#ARGS] 2)
([OFFSET] 3 [FUNCTION] 
CONS::CONS [#ARGS] 2)
([OFFSET] 2 [FUNCTION] 
CONS::CONS [#ARGS] 2)
([OFFSET] 1 [FUNCTION] 
CONS::CONS [#ARGS] 2)
[ENTRIES]:
([#ARGS] 4 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 40 (simple) -44641433>
[IMMEDIATES]:)

(DEFUN 
K2::WILL-CAUSE-EVALUATOR-BARFAGE?
COMPILED FUNCTION INFO:
NAME: 
K2::WILL-CAUSE-EVALUATOR-BARFAGE?
[LOCAL-REFS]:
(8 10)
(3 5)
[REFS]:
([OFFSET] 10 [FUNCTION] 
K2::CONTAINS-BIG-NUMBER? [#ARGS] 1)
([OFFSET] 5 [FUNCTION] 
K2::DEFMACRO-FORM? [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
K2::BOGUS-COMPILER-FORM? [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 88 (simple) -44640216>
[IMMEDIATES]:)

(DEFUN 
K2::BOGUS-COMPILER-FORM?
COMPILED FUNCTION INFO:
NAME: 
K2::BOGUS-COMPILER-FORM?
[LOCAL-REFS]:
(9 15)
(2 16)
[REFS]:
([OFFSET] 14 [FUNCTION] 
ARRAY::STRING= [#ARGS] 2)
([OFFSET] 12 [FUNCTION] 
LISP-INTERNALS::PACKAGE-NAME [#ARGS] 1)
([OFFSET] 11 [FUNCTION] 
SYMBOL::SYMBOL-PACKAGE [#ARGS] 1)
([OFFSET] 10 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 3 [FUNCTION] 
CONS::CAR [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 136 (simple) -44637612>
[IMMEDIATES]:
(13 NC))

(DEFUN 
K2::EXPORT-FORM?
COMPILED FUNCTION INFO:
NAME: 
K2::EXPORT-FORM?
[LOCAL-REFS]:
(7 9)
(2 10)
[REFS]:
([OFFSET] 3 [FUNCTION] 
CONS::CAR [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 88 (simple) -44637234>
[IMMEDIATES]:
(4 
GLOBAL::EXPORT))

(DEFUN 
K2::DEFMACRO-FORM?
COMPILED FUNCTION INFO:
NAME: 
K2::DEFMACRO-FORM?
[LOCAL-REFS]:
(7 9)
(2 10)
[REFS]:
([OFFSET] 3 [FUNCTION] 
CONS::CAR [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 88 (simple) -44636030>
[IMMEDIATES]:
(4 
PRIMITIVES::DEFMACRO))

(DEFUN 
K2::CONTAINS-BIG-NUMBER?
COMPILED FUNCTION INFO:
NAME: 
K2::CONTAINS-BIG-NUMBER?
[LOCAL-REFS]:
(12 14)
(7 15)
(2 16)
[REFS]:
([OFFSET] 8 [FUNCTION] 
CONS::CADR [#ARGS] 1)
([OFFSET] 3 [FUNCTION] 
CONS::CAR [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 136 (simple) -44635470>
[IMMEDIATES]:
(9 
LISP-INTERNALS::MOST-NEGATIVE-FIXNUM)
(4 
GLOBAL::DEFCONSTANT))