;;; -*- 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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [IMMEDIATES]:) (DEFUN K2::READ-CODE-WORD COMPILED FUNCTION INFO: NAME: K2::READ-CODE-WORD [LOCAL-REFS]: [REFS]: [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN K2::WRITE-CODE-WORD COMPILED FUNCTION INFO: NAME: K2::WRITE-CODE-WORD [LOCAL-REFS]: [REFS]: [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN K2::WRITE-CALL-ADDRESS COMPILED FUNCTION INFO: NAME: K2::WRITE-CALL-ADDRESS [LOCAL-REFS]: [REFS]: [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN K2::READ-CALL-ADDRESS COMPILED FUNCTION INFO: NAME: K2::READ-CALL-ADDRESS [LOCAL-REFS]: [REFS]: [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN K2::WRITE-INSTRUCTION COMPILED FUNCTION INFO: NAME: K2::WRITE-INSTRUCTION [LOCAL-REFS]: [REFS]: [ENTRIES]: ([#ARGS] 3 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN K2::WRITE-BOXED-IMMEDIATE COMPILED FUNCTION INFO: NAME: K2::WRITE-BOXED-IMMEDIATE [LOCAL-REFS]: [REFS]: [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [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]: # [IMMEDIATES]: (9 LISP-INTERNALS::MOST-NEGATIVE-FIXNUM) (4 GLOBAL::DEFCONSTANT))