;;; -*- Mode:TEXT -*- (DEFVAR LISP-INTERNALS::*VANILLA-EVALHOOK-FIRST-POSITION-FUNCTIONS?* PRIMITIVES::T) (DEFVAR LISP-INTERNALS::*VANILLA-ALLOW-FREE-VARIABLES?* NIL) (DEFVAR LISP-INTERNALS::FOO-*EVALHOOK* NIL) (DEFVAR LISP-INTERNALS::FOO-*APPLYHOOK* NIL) (DEFVAR LISP-INTERNALS::FOO-*MACROEXPAND-HOOK* PRIMITIVES::FUNCALL) (DEFUN PRIMITIVES::EVAL COMPILED FUNCTION INFO: NAME: PRIMITIVES::EVAL [LOCAL-REFS]: (0 1) [REFS]: ([OFFSET] 9 [FUNCTION] LISP-INTERNALS::UNBIND-1 [#ARGS] 0) ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 3) ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::MAKE-EMPTY-ENVIRONMENT [#ARGS] 0) ([OFFSET] 3 [FUNCTION] LISP-INTERNALS::BIND [#ARGS] 2) [ENTRIES]: ([#ARGS] 2 [OFFSET] 1) ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (2 LISP-INTERNALS::*VANILLA-ALLOW-FREE-VARIABLES?*)) (DEFUN LISP-INTERNALS::EVAL-SPECIAL-OK COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-SPECIAL-OK [LOCAL-REFS]: [REFS]: ([OFFSET] 7 [FUNCTION] LISP-INTERNALS::UNBIND-1 [#ARGS] 0) ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 3 [FUNCTION] LISP-INTERNALS::MAKE-EMPTY-ENVIRONMENT [#ARGS] 0) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::BIND [#ARGS] 2) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (1 LISP-INTERNALS::*VANILLA-ALLOW-FREE-VARIABLES?*)) (eval ( NC::PUT-GLOBAL-DECLARATION ( PRIMITIVES::QUOTE LISP-INTERNALS::NFRAME) ( PRIMITIVES::QUOTE LISP-INTERNALS::DEFSTRUCT-DESCRIPTOR) ( PRIMITIVES::QUOTE ([SIMPLE-VECTOR] #(([SYMBOL] NFRAME LISP-INTERNALS) ([SYMBOL] MAKE-NFRAME LISP-INTERNALS) NIL NIL (([SYMBOL] NFRAME LISP-INTERNALS) (([SYMBOL] PARENT LISP-INTERNALS) (([SYMBOL] QUOTE PRIMITIVES) ([SYMBOL] UNDEFINED LISP-INTERNALS))) (([SYMBOL] TYPE LISP-INTERNALS) (([SYMBOL] QUOTE PRIMITIVES) ([SYMBOL] UNDEFINED LISP-INTERNALS))) (([SYMBOL] BINDINGS LISP-INTERNALS) NIL))))))) (eval ( PRIMITIVES::SETQ SETF::*GRODY-SETF-MACRO-TABLE* ( CONS::CONS ( PRIMITIVES::QUOTE ( LISP-INTERNALS::NFRAME-BINDINGS PRIMITIVES::LAMBDA ( LISP-INTERNALS::NFRAME) ( PRIMITIVES::LET* (( SETF::SINGLE-TEMPVARS ( LISP-INTERNALS::MAPCAR ( PRIMITIVES::FUNCTION ( PRIMITIVES::LAMBDA ( PRIMITIVES::IGNORE) ( LISP-INTERNALS::GENTEMP))) ( PRIMITIVES::QUOTE ( LISP-INTERNALS::NFRAME)))) ( SETF::STOREVAR ( LISP-INTERNALS::GENSYM)) ( SETF::TEMPVARS SETF::SINGLE-TEMPVARS)) ( PRIMITIVES::VALUES SETF::TEMPVARS ( LISP-INTERNALS::LIST LISP-INTERNALS::NFRAME) ( LISP-INTERNALS::LIST SETF::STOREVAR) ( PRIMITIVES::LET (( NIL::FIND-IF-NOT2977 SETF::STOREVAR) ( LISP-INTERNALS::NFRAME ( LISP-INTERNALS::NTH 0 SETF::TEMPVARS))) ( SYSTEM-INTERNALS::XR-BQ-LIST ( PRIMITIVES::QUOTE LISP-INTERNALS::STRUCTURE-SET) ( PRIMITIVES::QUOTE ( PRIMITIVES::QUOTE LISP-INTERNALS::NFRAME)) 3 LISP-INTERNALS::NFRAME NIL::FIND-IF-NOT2977)) ( SYSTEM-INTERNALS::XR-BQ-LIST* ( PRIMITIVES::QUOTE LISP-INTERNALS::NFRAME-BINDINGS) SETF::TEMPVARS))))) ( LISP::IF ( SYMBOL::BOUNDP ( PRIMITIVES::QUOTE SETF::*GRODY-SETF-MACRO-TABLE*)) SETF::*GRODY-SETF-MACRO-TABLE* NIL)))) (eval ( PRIMITIVES::QUOTE LISP-INTERNALS::NFRAME-BINDINGS)) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::NFRAME-BINDINGS ( LISP-INTERNALS::NFRAME) ( LISP-INTERNALS::STRUCTURE-REF ( PRIMITIVES::QUOTE LISP-INTERNALS::NFRAME) 3 LISP-INTERNALS::NFRAME)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::NFRAME-BINDINGS [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (0 LISP-INTERNALS::NFRAME)) (eval ( PRIMITIVES::SETQ SETF::*GRODY-SETF-MACRO-TABLE* ( CONS::CONS ( PRIMITIVES::QUOTE ( LISP-INTERNALS::NFRAME-TYPE PRIMITIVES::LAMBDA ( LISP-INTERNALS::NFRAME) ( PRIMITIVES::LET* (( SETF::SINGLE-TEMPVARS ( LISP-INTERNALS::MAPCAR ( PRIMITIVES::FUNCTION ( PRIMITIVES::LAMBDA ( PRIMITIVES::IGNORE) ( LISP-INTERNALS::GENTEMP))) ( PRIMITIVES::QUOTE ( LISP-INTERNALS::NFRAME)))) ( SETF::STOREVAR ( LISP-INTERNALS::GENSYM)) ( SETF::TEMPVARS SETF::SINGLE-TEMPVARS)) ( PRIMITIVES::VALUES SETF::TEMPVARS ( LISP-INTERNALS::LIST LISP-INTERNALS::NFRAME) ( LISP-INTERNALS::LIST SETF::STOREVAR) ( PRIMITIVES::LET (( NIL::FIND-IF-NOT2976 SETF::STOREVAR) ( LISP-INTERNALS::NFRAME ( LISP-INTERNALS::NTH 0 SETF::TEMPVARS))) ( SYSTEM-INTERNALS::XR-BQ-LIST ( PRIMITIVES::QUOTE LISP-INTERNALS::STRUCTURE-SET) ( PRIMITIVES::QUOTE ( PRIMITIVES::QUOTE LISP-INTERNALS::NFRAME)) 2 LISP-INTERNALS::NFRAME NIL::FIND-IF-NOT2976)) ( SYSTEM-INTERNALS::XR-BQ-LIST* ( PRIMITIVES::QUOTE LISP-INTERNALS::NFRAME-TYPE) SETF::TEMPVARS))))) ( LISP::IF ( SYMBOL::BOUNDP ( PRIMITIVES::QUOTE SETF::*GRODY-SETF-MACRO-TABLE*)) SETF::*GRODY-SETF-MACRO-TABLE* NIL)))) (eval ( PRIMITIVES::QUOTE LISP-INTERNALS::NFRAME-TYPE)) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::NFRAME-TYPE ( LISP-INTERNALS::NFRAME) ( LISP-INTERNALS::STRUCTURE-REF ( PRIMITIVES::QUOTE LISP-INTERNALS::NFRAME) 2 LISP-INTERNALS::NFRAME)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::NFRAME-TYPE [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (0 LISP-INTERNALS::NFRAME)) (eval ( PRIMITIVES::SETQ SETF::*GRODY-SETF-MACRO-TABLE* ( CONS::CONS ( PRIMITIVES::QUOTE ( LISP-INTERNALS::NFRAME-PARENT PRIMITIVES::LAMBDA ( LISP-INTERNALS::NFRAME) ( PRIMITIVES::LET* (( SETF::SINGLE-TEMPVARS ( LISP-INTERNALS::MAPCAR ( PRIMITIVES::FUNCTION ( PRIMITIVES::LAMBDA ( PRIMITIVES::IGNORE) ( LISP-INTERNALS::GENTEMP))) ( PRIMITIVES::QUOTE ( LISP-INTERNALS::NFRAME)))) ( SETF::STOREVAR ( LISP-INTERNALS::GENSYM)) ( SETF::TEMPVARS SETF::SINGLE-TEMPVARS)) ( PRIMITIVES::VALUES SETF::TEMPVARS ( LISP-INTERNALS::LIST LISP-INTERNALS::NFRAME) ( LISP-INTERNALS::LIST SETF::STOREVAR) ( PRIMITIVES::LET (( NIL::FIND-IF-NOT2975 SETF::STOREVAR) ( LISP-INTERNALS::NFRAME ( LISP-INTERNALS::NTH 0 SETF::TEMPVARS))) ( SYSTEM-INTERNALS::XR-BQ-LIST ( PRIMITIVES::QUOTE LISP-INTERNALS::STRUCTURE-SET) ( PRIMITIVES::QUOTE ( PRIMITIVES::QUOTE LISP-INTERNALS::NFRAME)) 1 LISP-INTERNALS::NFRAME NIL::FIND-IF-NOT2975)) ( SYSTEM-INTERNALS::XR-BQ-LIST* ( PRIMITIVES::QUOTE LISP-INTERNALS::NFRAME-PARENT) SETF::TEMPVARS))))) ( LISP::IF ( SYMBOL::BOUNDP ( PRIMITIVES::QUOTE SETF::*GRODY-SETF-MACRO-TABLE*)) SETF::*GRODY-SETF-MACRO-TABLE* NIL)))) (eval ( PRIMITIVES::QUOTE LISP-INTERNALS::NFRAME-PARENT)) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::NFRAME-PARENT ( LISP-INTERNALS::NFRAME) ( LISP-INTERNALS::STRUCTURE-REF ( PRIMITIVES::QUOTE LISP-INTERNALS::NFRAME) 1 LISP-INTERNALS::NFRAME)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::NFRAME-PARENT [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (0 LISP-INTERNALS::NFRAME)) (eval ( NC::PUT-GLOBAL-DECLARATION ( PRIMITIVES::QUOTE LISP-INTERNALS::NFRAME) ( PRIMITIVES::QUOTE LISP-INTERNALS::TYPE-EXPANDER) ( PRIMITIVES::FUNCTION ( PRIMITIVES::LAMBDA NIL ( PRIMITIVES::QUOTE ( LISP-INTERNALS::SATISFIES LISP-INTERNALS::NFRAME-P)))))) (eval ( PRIMITIVES::QUOTE LISP-INTERNALS::NFRAME)) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::NFRAME-P ( LISP-INTERNALS::THING) ( LISP-INTERNALS::TYPEP-STRUCTURE LISP-INTERNALS::THING ( PRIMITIVES::QUOTE LISP-INTERNALS::NFRAME))) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::NFRAME-P [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::TYPEP-STRUCTURE [#ARGS] 2) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (1 LISP-INTERNALS::NFRAME)) (DEFUN LISP-INTERNALS::COPY-NFRAME COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::COPY-NFRAME [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] LISP-INTERNALS::COPY-STRUCTURE-OBJECT [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFUN LISP-INTERNALS::MAKE-NFRAME COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::MAKE-NFRAME [LOCAL-REFS]: [REFS]: ([OFFSET] 13 [FUNCTION] CONS::STORE-CONTENTS-OFFSET [#ARGS] 3) ([OFFSET] 10 [FUNCTION] CONS::STORE-CONTENTS-OFFSET [#ARGS] 3) ([OFFSET] 7 [FUNCTION] CONS::STORE-CONTENTS-OFFSET [#ARGS] 3) ([OFFSET] 4 [FUNCTION] CONS::STORE-CONTENTS-OFFSET [#ARGS] 3) ([OFFSET] 0 [FUNCTION] LISP-INTERNALS::MAKE-STRUCTURE [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (3 LISP-INTERNALS::NFRAME)) (eval ( PRIMITIVES::QUOTE LISP-INTERNALS::NFRAME)) (eval ( NC::PUT-GLOBAL-DECLARATION ( PRIMITIVES::QUOTE LISP-INTERNALS::BINDING) ( PRIMITIVES::QUOTE LISP-INTERNALS::DEFSTRUCT-DESCRIPTOR) ( PRIMITIVES::QUOTE ([SIMPLE-VECTOR] #(([SYMBOL] BINDING LISP-INTERNALS) ([SYMBOL] MAKE-BINDING LISP-INTERNALS) NIL NIL (([SYMBOL] BINDING LISP-INTERNALS) (([SYMBOL] IDENTIFIER LISP-INTERNALS) (([SYMBOL] QUOTE PRIMITIVES) ([SYMBOL] UNDEFINED LISP-INTERNALS))) (([SYMBOL] TYPE LISP-INTERNALS) (([SYMBOL] QUOTE PRIMITIVES) ([SYMBOL] UNDEFINED LISP-INTERNALS))) (([SYMBOL] VALUE PRIMITIVES) (([SYMBOL] QUOTE PRIMITIVES) ([SYMBOL] UNDEFINED LISP-INTERNALS))))))))) (eval ( PRIMITIVES::SETQ SETF::*GRODY-SETF-MACRO-TABLE* ( CONS::CONS ( PRIMITIVES::QUOTE ( LISP-INTERNALS::BINDING-VALUE PRIMITIVES::LAMBDA ( LISP-INTERNALS::BINDING) ( PRIMITIVES::LET* (( SETF::SINGLE-TEMPVARS ( LISP-INTERNALS::MAPCAR ( PRIMITIVES::FUNCTION ( PRIMITIVES::LAMBDA ( PRIMITIVES::IGNORE) ( LISP-INTERNALS::GENTEMP))) ( PRIMITIVES::QUOTE ( LISP-INTERNALS::BINDING)))) ( SETF::STOREVAR ( LISP-INTERNALS::GENSYM)) ( SETF::TEMPVARS SETF::SINGLE-TEMPVARS)) ( PRIMITIVES::VALUES SETF::TEMPVARS ( LISP-INTERNALS::LIST LISP-INTERNALS::BINDING) ( LISP-INTERNALS::LIST SETF::STOREVAR) ( PRIMITIVES::LET (( NIL::STRUCT2981 SETF::STOREVAR) ( LISP-INTERNALS::BINDING ( LISP-INTERNALS::NTH 0 SETF::TEMPVARS))) ( SYSTEM-INTERNALS::XR-BQ-LIST ( PRIMITIVES::QUOTE LISP-INTERNALS::STRUCTURE-SET) ( PRIMITIVES::QUOTE ( PRIMITIVES::QUOTE LISP-INTERNALS::BINDING)) 3 LISP-INTERNALS::BINDING NIL::STRUCT2981)) ( SYSTEM-INTERNALS::XR-BQ-LIST* ( PRIMITIVES::QUOTE LISP-INTERNALS::BINDING-VALUE) SETF::TEMPVARS))))) ( LISP::IF ( SYMBOL::BOUNDP ( PRIMITIVES::QUOTE SETF::*GRODY-SETF-MACRO-TABLE*)) SETF::*GRODY-SETF-MACRO-TABLE* NIL)))) (eval ( PRIMITIVES::QUOTE LISP-INTERNALS::BINDING-VALUE)) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::BINDING-VALUE ( LISP-INTERNALS::BINDING) ( LISP-INTERNALS::STRUCTURE-REF ( PRIMITIVES::QUOTE LISP-INTERNALS::BINDING) 3 LISP-INTERNALS::BINDING)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::BINDING-VALUE [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (0 LISP-INTERNALS::BINDING)) (eval ( PRIMITIVES::SETQ SETF::*GRODY-SETF-MACRO-TABLE* ( CONS::CONS ( PRIMITIVES::QUOTE ( LISP-INTERNALS::BINDING-TYPE PRIMITIVES::LAMBDA ( LISP-INTERNALS::BINDING) ( PRIMITIVES::LET* (( SETF::SINGLE-TEMPVARS ( LISP-INTERNALS::MAPCAR ( PRIMITIVES::FUNCTION ( PRIMITIVES::LAMBDA ( PRIMITIVES::IGNORE) ( LISP-INTERNALS::GENTEMP))) ( PRIMITIVES::QUOTE ( LISP-INTERNALS::BINDING)))) ( SETF::STOREVAR ( LISP-INTERNALS::GENSYM)) ( SETF::TEMPVARS SETF::SINGLE-TEMPVARS)) ( PRIMITIVES::VALUES SETF::TEMPVARS ( LISP-INTERNALS::LIST LISP-INTERNALS::BINDING) ( LISP-INTERNALS::LIST SETF::STOREVAR) ( PRIMITIVES::LET (( NIL::STRUCT2980 SETF::STOREVAR) ( LISP-INTERNALS::BINDING ( LISP-INTERNALS::NTH 0 SETF::TEMPVARS))) ( SYSTEM-INTERNALS::XR-BQ-LIST ( PRIMITIVES::QUOTE LISP-INTERNALS::STRUCTURE-SET) ( PRIMITIVES::QUOTE ( PRIMITIVES::QUOTE LISP-INTERNALS::BINDING)) 2 LISP-INTERNALS::BINDING NIL::STRUCT2980)) ( SYSTEM-INTERNALS::XR-BQ-LIST* ( PRIMITIVES::QUOTE LISP-INTERNALS::BINDING-TYPE) SETF::TEMPVARS))))) ( LISP::IF ( SYMBOL::BOUNDP ( PRIMITIVES::QUOTE SETF::*GRODY-SETF-MACRO-TABLE*)) SETF::*GRODY-SETF-MACRO-TABLE* NIL)))) (eval ( PRIMITIVES::QUOTE LISP-INTERNALS::BINDING-TYPE)) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::BINDING-TYPE ( LISP-INTERNALS::BINDING) ( LISP-INTERNALS::STRUCTURE-REF ( PRIMITIVES::QUOTE LISP-INTERNALS::BINDING) 2 LISP-INTERNALS::BINDING)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::BINDING-TYPE [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (0 LISP-INTERNALS::BINDING)) (eval ( PRIMITIVES::SETQ SETF::*GRODY-SETF-MACRO-TABLE* ( CONS::CONS ( PRIMITIVES::QUOTE ( LISP-INTERNALS::BINDING-IDENTIFIER PRIMITIVES::LAMBDA ( LISP-INTERNALS::BINDING) ( PRIMITIVES::LET* (( SETF::SINGLE-TEMPVARS ( LISP-INTERNALS::MAPCAR ( PRIMITIVES::FUNCTION ( PRIMITIVES::LAMBDA ( PRIMITIVES::IGNORE) ( LISP-INTERNALS::GENTEMP))) ( PRIMITIVES::QUOTE ( LISP-INTERNALS::BINDING)))) ( SETF::STOREVAR ( LISP-INTERNALS::GENSYM)) ( SETF::TEMPVARS SETF::SINGLE-TEMPVARS)) ( PRIMITIVES::VALUES SETF::TEMPVARS ( LISP-INTERNALS::LIST LISP-INTERNALS::BINDING) ( LISP-INTERNALS::LIST SETF::STOREVAR) ( PRIMITIVES::LET (( NIL::STRUCT2979 SETF::STOREVAR) ( LISP-INTERNALS::BINDING ( LISP-INTERNALS::NTH 0 SETF::TEMPVARS))) ( SYSTEM-INTERNALS::XR-BQ-LIST ( PRIMITIVES::QUOTE LISP-INTERNALS::STRUCTURE-SET) ( PRIMITIVES::QUOTE ( PRIMITIVES::QUOTE LISP-INTERNALS::BINDING)) 1 LISP-INTERNALS::BINDING NIL::STRUCT2979)) ( SYSTEM-INTERNALS::XR-BQ-LIST* ( PRIMITIVES::QUOTE LISP-INTERNALS::BINDING-IDENTIFIER) SETF::TEMPVARS))))) ( LISP::IF ( SYMBOL::BOUNDP ( PRIMITIVES::QUOTE SETF::*GRODY-SETF-MACRO-TABLE*)) SETF::*GRODY-SETF-MACRO-TABLE* NIL)))) (eval ( PRIMITIVES::QUOTE LISP-INTERNALS::BINDING-IDENTIFIER)) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::BINDING-IDENTIFIER ( LISP-INTERNALS::BINDING) ( LISP-INTERNALS::STRUCTURE-REF ( PRIMITIVES::QUOTE LISP-INTERNALS::BINDING) 1 LISP-INTERNALS::BINDING)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::BINDING-IDENTIFIER [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (0 LISP-INTERNALS::BINDING)) (eval ( NC::PUT-GLOBAL-DECLARATION ( PRIMITIVES::QUOTE LISP-INTERNALS::BINDING) ( PRIMITIVES::QUOTE LISP-INTERNALS::TYPE-EXPANDER) ( PRIMITIVES::FUNCTION ( PRIMITIVES::LAMBDA NIL ( PRIMITIVES::QUOTE ( LISP-INTERNALS::SATISFIES LISP-INTERNALS::BINDING-P)))))) (eval ( PRIMITIVES::QUOTE LISP-INTERNALS::BINDING)) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::BINDING-P ( LISP-INTERNALS::THING) ( LISP-INTERNALS::TYPEP-STRUCTURE LISP-INTERNALS::THING ( PRIMITIVES::QUOTE LISP-INTERNALS::BINDING))) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::BINDING-P [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::TYPEP-STRUCTURE [#ARGS] 2) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (1 LISP-INTERNALS::BINDING)) (DEFUN LISP-INTERNALS::COPY-BINDING COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::COPY-BINDING [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] LISP-INTERNALS::COPY-STRUCTURE-OBJECT [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFUN LISP-INTERNALS::MAKE-BINDING COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::MAKE-BINDING [LOCAL-REFS]: [REFS]: ([OFFSET] 13 [FUNCTION] CONS::STORE-CONTENTS-OFFSET [#ARGS] 3) ([OFFSET] 10 [FUNCTION] CONS::STORE-CONTENTS-OFFSET [#ARGS] 3) ([OFFSET] 7 [FUNCTION] CONS::STORE-CONTENTS-OFFSET [#ARGS] 3) ([OFFSET] 4 [FUNCTION] CONS::STORE-CONTENTS-OFFSET [#ARGS] 3) ([OFFSET] 0 [FUNCTION] LISP-INTERNALS::MAKE-STRUCTURE [#ARGS] 1) [ENTRIES]: ([#ARGS] 3 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (3 LISP-INTERNALS::BINDING)) (eval ( PRIMITIVES::QUOTE LISP-INTERNALS::BINDING)) (DEFUN LISP-INTERNALS::MAKE-EMPTY-ENVIRONMENT COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::MAKE-EMPTY-ENVIRONMENT [LOCAL-REFS]: [REFS]: [ENTRIES]: ([#ARGS] 0 [OFFSET] 0) [FUNCTION-CODE]: #(0 16 0 106 128 128 68 2) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::ADJOIN-VARIABLE-FRAME ( LISP-INTERNALS::PARENT-ENV) Return a new environment created by adjoining an empty variable frame onto PARENT-ENV. ( LISP-INTERNALS::MAKE-NFRAME LISP-INTERNALS::PARENT-ENV KEYWORD::VARIABLE)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::ADJOIN-VARIABLE-FRAME [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::MAKE-NFRAME [#ARGS] 2) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (1 KEYWORD::VARIABLE)) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::ADJOIN-FUNMAC-FRAME ( LISP-INTERNALS::PARENT-ENV) Return a new environment created by adjoining an empty function/macro frame onto PARENT-ENV. ( LISP-INTERNALS::MAKE-NFRAME LISP-INTERNALS::PARENT-ENV KEYWORD::FUNMAC)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::ADJOIN-FUNMAC-FRAME [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::MAKE-NFRAME [#ARGS] 2) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (1 KEYWORD::FUNMAC)) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::ADJOIN-BLOCK-FRAME ( LISP-INTERNALS::PARENT-ENV) Return a new environment created by adjoining an empty block frame onto PARENT-ENV. ( LISP-INTERNALS::MAKE-NFRAME LISP-INTERNALS::PARENT-ENV KEYWORD::BLOCK)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::ADJOIN-BLOCK-FRAME [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::MAKE-NFRAME [#ARGS] 2) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (1 KEYWORD::BLOCK)) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::ADJOIN-GOTAG-FRAME ( LISP-INTERNALS::PARENT-ENV) Return a new environment created by adjoining an empty gotag frame onto PARENT-ENV. ( LISP-INTERNALS::MAKE-NFRAME LISP-INTERNALS::PARENT-ENV KEYWORD::GOTAG)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::ADJOIN-GOTAG-FRAME [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::MAKE-NFRAME [#ARGS] 2) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (1 KEYWORD::GOTAG)) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::ADJOIN-JUNK-FRAME ( LISP-INTERNALS::PARENT-ENV) Return a new environment created by adjoining an empty junk frame onto PARENT-ENV. ( LISP-INTERNALS::MAKE-NFRAME LISP-INTERNALS::PARENT-ENV KEYWORD::PLACEHOLDER)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::ADJOIN-JUNK-FRAME [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::MAKE-NFRAME [#ARGS] 2) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (1 KEYWORD::PLACEHOLDER)) (DEFUN LISP-INTERNALS::BIND-IN-FRAME COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::BIND-IN-FRAME [LOCAL-REFS]: (9 17) (3 17) (0 1) [REFS]: ([OFFSET] 27 [FUNCTION] LISP-INTERNALS::STRUCTURE-SET [#ARGS] 4) ([OFFSET] 23 [FUNCTION] CONS::CONS [#ARGS] 2) ([OFFSET] 22 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) ([OFFSET] 19 [FUNCTION] LISP-INTERNALS::MAKE-BINDING [#ARGS] 3) ([OFFSET] 14 [FUNCTION] PRIMITIVES::FERROR [#ARGS] 3) ([OFFSET] 12 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) [ENTRIES]: ([#ARGS] 5 [OFFSET] 1) ([#ARGS] 4 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (24 LISP-INTERNALS::NFRAME) (20 LISP-INTERNALS::NFRAME) (13 internal: Tried to make ~S binding in ~S frame.) (10 LISP-INTERNALS::NFRAME) (4 LISP-INTERNALS::NFRAME)) (DEFUN LISP-INTERNALS::LOOKUP-BINDING-IN-ENVIRONMENT COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::LOOKUP-BINDING-IN-ENVIRONMENT [LOCAL-REFS]: (15 20) (8 30) (2 38) [REFS]: ([OFFSET] 34 [FUNCTION] LISP-INTERNALS::LOOKUP-BINDING-IN-ENVIRONMENT [#ARGS] 3) ([OFFSET] 32 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) ([OFFSET] 24 [FUNCTION] LISP-INTERNALS::LOOKUP-BINDING-IN-ENVIRONMENT [#ARGS] 3) ([OFFSET] 22 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) ([OFFSET] 12 [FUNCTION] LISP-INTERNALS::LOOKUP-BINDING-IN-LIST [#ARGS] 2) ([OFFSET] 11 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) [ENTRIES]: ([#ARGS] 3 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (30 LISP-INTERNALS::NFRAME) (20 LISP-INTERNALS::NFRAME) (9 LISP-INTERNALS::NFRAME) (3 LISP-INTERNALS::NFRAME)) (DEFUN LISP-INTERNALS::LOOKUP-BINDING-IN-LIST COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::LOOKUP-BINDING-IN-LIST [LOCAL-REFS]: (9 11) (2 16) [REFS]: ([OFFSET] 12 [FUNCTION] LISP-INTERNALS::LOOKUP-BINDING-IN-LIST [#ARGS] 2) ([OFFSET] 11 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) ([OFFSET] 3 [FUNCTION] CONS::CAR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (4 LISP-INTERNALS::BINDING)) (DEFUN LISP-INTERNALS::PRINT-NFRAME COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::PRINT-NFRAME [LOCAL-REFS]: [REFS]: ([OFFSET] 7 [FUNCTION] SYSTEM::PRINTING-RANDOM-OBJECT [#ARGS] 2) ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::FORMAT [#ARGS] 3) ([OFFSET] 3 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) ([OFFSET] 0 [FUNCTION] LISP-INTERNALS::NFRAME [#ARGS] 1) [ENTRIES]: ([#ARGS] 3 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (5 FRAME ~S) (1 LISP-INTERNALS::NFRAME)) (DEFUN LISP-INTERNALS::MAKE-I-CLOSURE COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::MAKE-I-CLOSURE [LOCAL-REFS]: (3 4) (1 2) [REFS]: ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::MAKE-INTERPRETER-CLOSURE [#ARGS] 5) [ENTRIES]: ([#ARGS] 5 [OFFSET] 4) ([#ARGS] 4 [OFFSET] 2) ([#ARGS] 3 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (2 KEYWORD::UNOPTIMIZED) (0 KEYWORD::UNNAMED)) (DEFUN LISP-INTERNALS::MAKE-INTERPRETER-CLOSURE COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::MAKE-INTERPRETER-CLOSURE [LOCAL-REFS]: [REFS]: ([OFFSET] 15 [FUNCTION] CONS::STORE-CONTENTS-OFFSET [#ARGS] 3) ([OFFSET] 12 [FUNCTION] CONS::STORE-CONTENTS-OFFSET [#ARGS] 3) ([OFFSET] 9 [FUNCTION] CONS::STORE-CONTENTS-OFFSET [#ARGS] 3) ([OFFSET] 6 [FUNCTION] CONS::STORE-CONTENTS-OFFSET [#ARGS] 3) ([OFFSET] 3 [FUNCTION] CONS::STORE-CONTENTS-OFFSET [#ARGS] 3) ([OFFSET] 0 [FUNCTION] ARRAY::MAKE-VECTOR [#ARGS] 1) [ENTRIES]: ([#ARGS] 5 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::INTERPRETER-CLOSURE-NAME COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::INTERPRETER-CLOSURE-NAME [LOCAL-REFS]: (3 7) [REFS]: ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] LISP-INTERNALS::INTERPRETER-CLOSURE-P [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (7 That's not an interpreter closure!)) (DEFUN LISP-INTERNALS::INTERPRETER-CLOSURE-LAMBDA-LIST COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::INTERPRETER-CLOSURE-LAMBDA-LIST [LOCAL-REFS]: (3 7) [REFS]: ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] LISP-INTERNALS::INTERPRETER-CLOSURE-P [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (7 That's not an interpreter closure!)) (DEFUN LISP-INTERNALS::INTERPRETER-CLOSURE-BODY COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::INTERPRETER-CLOSURE-BODY [LOCAL-REFS]: (3 7) [REFS]: ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] LISP-INTERNALS::INTERPRETER-CLOSURE-P [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (7 That's not an interpreter closure!)) (DEFUN LISP-INTERNALS::INTERPRETER-CLOSURE-ENVIRONMENT COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::INTERPRETER-CLOSURE-ENVIRONMENT [LOCAL-REFS]: (3 7) [REFS]: ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] LISP-INTERNALS::INTERPRETER-CLOSURE-P [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (7 That's not an interpreter closure!)) (DEFUN LISP-INTERNALS::INTERPRETER-CLOSURE-OPTIMIZED-BODY COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::INTERPRETER-CLOSURE-OPTIMIZED-BODY [LOCAL-REFS]: (3 7) [REFS]: ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] LISP-INTERNALS::INTERPRETER-CLOSURE-P [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (7 That's not an interpreter closure!)) (DEFUN LISP-INTERNALS::INTERPRETER-CLOSURE-P COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::INTERPRETER-CLOSURE-P [LOCAL-REFS]: (3 5) [REFS]: [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::BLOCK-NAME ( LISP-INTERNALS::BLOCK-EXPR) ( CONS::CADR LISP-INTERNALS::BLOCK-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::BLOCK-NAME [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::BLOCK-BODY ( LISP-INTERNALS::BLOCK-EXPR) ( CONS::CDDR LISP-INTERNALS::BLOCK-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::BLOCK-BODY [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CDDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::CATCH-TAG ( LISP-INTERNALS::CATCH-EXPR) ( CONS::CADR LISP-INTERNALS::CATCH-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::CATCH-TAG [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::CATCH-FORMS ( LISP-INTERNALS::CATCH-EXPR) ( CONS::CDDR LISP-INTERNALS::CATCH-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::CATCH-FORMS [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CDDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::EVAL-WHEN-SITUATION-LIST ( LISP-INTERNALS::EVAL-WHEN-EXPR) ( CONS::CADR LISP-INTERNALS::EVAL-WHEN-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-WHEN-SITUATION-LIST [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::EVAL-WHEN-FORMS ( LISP-INTERNALS::EVAL-WHEN-EXPR) ( CONS::CDDR LISP-INTERNALS::EVAL-WHEN-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-WHEN-FORMS [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CDDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::FUNCTION-FN ( LISP-INTERNALS::FUNCTION-EXPR) ( CONS::CADR LISP-INTERNALS::FUNCTION-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::FUNCTION-FN [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::GO-GOTAG ( LISP-INTERNALS::GO-EXPR) ( CONS::CADR LISP-INTERNALS::GO-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::GO-GOTAG [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::IF-PREDICATE ( LISP-INTERNALS::IF-EXPR) ( CONS::CADR LISP-INTERNALS::IF-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::IF-PREDICATE [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::IF-CONSEQUENT ( LISP-INTERNALS::IF-EXPR) ( CONS::CADDR LISP-INTERNALS::IF-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::IF-CONSEQUENT [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::IF-ALTERNATE ( LISP-INTERNALS::IF-EXPR) ( LISP::IF ( PRIMITIVES::> ( ARRAY::LENGTH LISP-INTERNALS::IF-EXPR) 3) ( CONS::CADDDR LISP-INTERNALS::IF-EXPR))) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::IF-ALTERNATE [LOCAL-REFS]: (3 5) [REFS]: ([OFFSET] 4 [FUNCTION] CONS::CADDDR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] ARRAY::LENGTH [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::LET-BINDINGS ( LISP-INTERNALS::LET-EXPR) ( CONS::CADR LISP-INTERNALS::LET-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::LET-BINDINGS [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::LET-BODY ( LISP-INTERNALS::LET-EXPR) ( CONS::CDDR LISP-INTERNALS::LET-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::LET-BODY [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CDDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::MULTIPLE-VALUE-CALL-FUNCTION ( LISP-INTERNALS::MULTIPLE-VALUE-CALL-EXPR) ( CONS::CADR LISP-INTERNALS::MULTIPLE-VALUE-CALL-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::MULTIPLE-VALUE-CALL-FUNCTION [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::MULTIPLE-VALUE-CALL-FORMS ( LISP-INTERNALS::MULTIPLE-VALUE-CALL-EXPR) ( CONS::CDDR LISP-INTERNALS::MULTIPLE-VALUE-CALL-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::MULTIPLE-VALUE-CALL-FORMS [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CDDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::MULTIPLE-VALUE-PROG1-FIRST-FORM ( LISP-INTERNALS::MULTIPLE-VALUE-PROG1-EXPR) ( CONS::CADR LISP-INTERNALS::MULTIPLE-VALUE-PROG1-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::MULTIPLE-VALUE-PROG1-FIRST-FORM [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::MULTIPLE-VALUE-PROG1-OTHER-FORMS ( LISP-INTERNALS::MULTIPLE-VALUE-PROG1-EXPR) ( CONS::CDDR LISP-INTERNALS::MULTIPLE-VALUE-PROG1-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::MULTIPLE-VALUE-PROG1-OTHER-FORMS [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CDDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::PROGN-FORMS ( LISP-INTERNALS::PROGN-EXPR) ( CONS::CDR LISP-INTERNALS::PROGN-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::PROGN-FORMS [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::PROGV-SYMBOLS ( LISP-INTERNALS::PROGV-EXPR) ( CONS::CADR LISP-INTERNALS::PROGV-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::PROGV-SYMBOLS [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::PROGV-VALUES ( LISP-INTERNALS::PROGV-EXPR) ( CONS::CADDR LISP-INTERNALS::PROGV-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::PROGV-VALUES [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::PROGV-FORMS ( LISP-INTERNALS::PROGV-EXPR) ( CONS::CDDDR LISP-INTERNALS::PROGV-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::PROGV-FORMS [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CDDDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::QUOTE-OBJECT ( LISP-INTERNALS::QUOTE-EXPR) ( CONS::CADR LISP-INTERNALS::QUOTE-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::QUOTE-OBJECT [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::RETURN-FROM-NAME ( LISP-INTERNALS::RETURN-FROM-EXPR) ( CONS::CADR LISP-INTERNALS::RETURN-FROM-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::RETURN-FROM-NAME [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::RETURN-FROM-RESULT ( LISP-INTERNALS::RETURN-FROM-EXPR) ( LISP::IF ( PRIMITIVES::> ( ARRAY::LENGTH LISP-INTERNALS::RETURN-FROM-EXPR) 2) ( CONS::CADDR LISP-INTERNALS::RETURN-FROM-EXPR) NIL)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::RETURN-FROM-RESULT [LOCAL-REFS]: (3 5) [REFS]: ([OFFSET] 4 [FUNCTION] CONS::CADDR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] ARRAY::LENGTH [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::SETQ-ARGS ( LISP-INTERNALS::SETQ-EXPR) ( CONS::CDR LISP-INTERNALS::SETQ-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::SETQ-ARGS [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::TAGBODY-BODY ( LISP-INTERNALS::TAGBODY-EXPR) ( CONS::CDR LISP-INTERNALS::TAGBODY-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::TAGBODY-BODY [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::THE-VALUE-TYPE ( LISP-INTERNALS::THE-EXPR) ( CONS::CADR LISP-INTERNALS::THE-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::THE-VALUE-TYPE [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::THE-FORM ( LISP-INTERNALS::THE-EXPR) ( CONS::CADDR LISP-INTERNALS::THE-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::THE-FORM [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::THROW-TAG ( LISP-INTERNALS::THROW-EXPR) ( CONS::CADR LISP-INTERNALS::THROW-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::THROW-TAG [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::THROW-RESULT ( LISP-INTERNALS::THROW-EXPR) ( CONS::CADDR LISP-INTERNALS::THROW-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::THROW-RESULT [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::UNWIND-PROTECT-PROTECTED-FORM ( LISP-INTERNALS::UNWIND-PROTECT-EXPR) ( CONS::CADR LISP-INTERNALS::UNWIND-PROTECT-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::UNWIND-PROTECT-PROTECTED-FORM [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFSUBST ( NC::NAMED-LAMBDA LISP-INTERNALS::UNWIND-PROTECT-CLEANUP-FORMS ( LISP-INTERNALS::UNWIND-PROTECT-EXPR) ( CONS::CDDR LISP-INTERNALS::UNWIND-PROTECT-EXPR)) COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::UNWIND-PROTECT-CLEANUP-FORMS [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CDDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFUN LISP-INTERNALS::MAIN-EVAL COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::MAIN-EVAL [LOCAL-REFS]: (52 62) (40 48) (30 36) (25 72) (19 22) (14 16) (8 11) (5 11) (0 1) [REFS]: ([OFFSET] 73 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 2) ([OFFSET] 63 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 2) ([OFFSET] 54 [FUNCTION] LISP-INTERNALS::EVAL-LAMBDA-EXPRESSION-APPLICATION [#ARGS] 2) ([OFFSET] 49 [FUNCTION] LISP-INTERNALS::LAMBDA-EXPRESSION-P [#ARGS] 1) ([OFFSET] 48 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 42 [FUNCTION] LISP-INTERNALS::EVAL-NAMED-FUNCTION-APPLICATION-OR-MACRO [#ARGS] 2) ([OFFSET] 37 [FUNCTION] VINCULUM::SYMBOLP [#ARGS] 1) ([OFFSET] 36 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 32 [FUNCTION] LISP-INTERNALS::EVAL-SPECIAL-FORM [#ARGS] 2) ([OFFSET] 27 [FUNCTION] LISP-INTERNALS::SPECIAL-FORM-P [#ARGS] 1) ([OFFSET] 26 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 22 [FUNCTION] VINCULUM::LISTP [#ARGS] 1) ([OFFSET] 21 [FUNCTION] LISP-INTERNALS::EVAL-VARIABLE [#ARGS] 2) ([OFFSET] 16 [FUNCTION] VINCULUM::SYMBOLP [#ARGS] 1) ([OFFSET] 11 [FUNCTION] LISP-INTERNALS::SELF-EVALUATING? [#ARGS] 1) ([OFFSET] 10 [FUNCTION] LISP-INTERNALS::RELINQUISH-TO-EVALHOOK [#ARGS] 2) ([OFFSET] 2 [FUNCTION] SYMBOL::%SYMBOL-VALUE [#ARGS] 1) [ENTRIES]: ([#ARGS] 3 [OFFSET] 1) ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (72 Eval can't handle this expression.) (62 CAR of form is not valid) (1 LISP-INTERNALS::FOO-*EVALHOOK*)) (DEFUN LISP-INTERNALS::EVAL-SEQUENCE COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-SEQUENCE [LOCAL-REFS]: (6 16) (2 21) [REFS]: ([OFFSET] 17 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 16 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 10 [FUNCTION] LISP-INTERNALS::EVAL-SEQUENCE [#ARGS] 2) ([OFFSET] 9 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 7 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 3 [FUNCTION] CONS::CDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::SELF-EVALUATING? COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::SELF-EVALUATING? [LOCAL-REFS]: (28 30) (24 26) (17 19) (12 14) (7 9) (3 5) [REFS]: ([OFFSET] 21 [FUNCTION] LISP-INTERNALS::MEMBER-EQL [#ARGS] 2) ([OFFSET] 14 [FUNCTION] LISP-INTERNALS::KEYWORDP [#ARGS] 1) ([OFFSET] 9 [FUNCTION] ARRAY::STRINGP [#ARGS] 1) ([OFFSET] 0 [FUNCTION] VINCULUM::NUMBERP [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (20 ( PRIMITIVES::T NIL))) (DEFUN LISP-INTERNALS::EVAL-VARIABLE COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-VARIABLE [LOCAL-REFS]: (18 20) (11 23) (7 9) [REFS]: ([OFFSET] 23 [FUNCTION] LISP-INTERNALS::EVAL-FREE-VARIABLE [#ARGS] 1) ([OFFSET] 22 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) ([OFFSET] 19 [FUNCTION] LISP-INTERNALS::SAFE-SYMBOL-VALUE [#ARGS] 1) ([OFFSET] 14 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::SAFE-SYMBOL-VALUE [#ARGS] 1) ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::PROCLAIMED-SPECIAL-P [#ARGS] 1) ([OFFSET] 3 [FUNCTION] LISP-INTERNALS::LOOKUP-BINDING-IN-ENVIRONMENT [#ARGS] 3) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (20 LISP-INTERNALS::BINDING) (15 KEYWORD::SPECIAL) (12 LISP-INTERNALS::BINDING) (2 KEYWORD::VARIABLE)) (DEFUN LISP-INTERNALS::EVAL-FREE-VARIABLE COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-FREE-VARIABLE [LOCAL-REFS]: (4 6) [REFS]: ([OFFSET] 7 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 2) ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::SAFE-SYMBOL-VALUE [#ARGS] 1) ([OFFSET] 1 [FUNCTION] SYMBOL::%SYMBOL-VALUE [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (6 Free reference made to symbol ~S, attempting to evaluate it.) (0 LISP-INTERNALS::*VANILLA-ALLOW-FREE-VARIABLES?*)) (DEFUN LISP-INTERNALS::SAFE-SYMBOL-VALUE COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::SAFE-SYMBOL-VALUE [LOCAL-REFS]: (3 5) [REFS]: ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 2) ([OFFSET] 4 [FUNCTION] SYMBOL::SYMBOL-VALUE [#ARGS] 1) ([OFFSET] 0 [FUNCTION] SYMBOL::BOUNDP [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (5 The value cell of symbol ~S is unbound)) (DEFUN LISP-INTERNALS::EVAL-NAMED-FUNCTION-APPLICATION-OR-MACRO COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-NAMED-FUNCTION-APPLICATION-OR-MACRO [LOCAL-REFS]: (50 47) (49 34) (44 50) (36 51) (29 55) (25 55) (14 22) (7 11) [REFS]: ([OFFSET] 56 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 2) ([OFFSET] 54 [FUNCTION] LISP-INTERNALS::APPLY-INTERNAL [#ARGS] 0) ([OFFSET] 48 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 46 [FUNCTION] CONS::RPLACD [#ARGS] 2) ([OFFSET] 41 [FUNCTION] CONS::CONS [#ARGS] 2) ([OFFSET] 40 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 38 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 31 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 30 [FUNCTION] SYMBOL::SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 26 [FUNCTION] SYMBOL::SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 22 [FUNCTION] SYMBOL::FBOUNDP [#ARGS] 1) ([OFFSET] 21 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 20 [FUNCTION] LISP-INTERNALS::FUNCALL-INTERNAL [#ARGS] 2) ([OFFSET] 16 [FUNCTION] LISP-INTERNALS::MACRO-FUNCTION [#ARGS] 1) ([OFFSET] 11 [FUNCTION] LISP-INTERNALS::MACRO-FUNCTION [#ARGS] 1) ([OFFSET] 10 [FUNCTION] LISP-INTERNALS::EVAL-NAMED-FUNCTION-APPLICATION-OR-MACRO-LEXICALLY [#ARGS] 3) ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::LOOKUP-BINDING-IN-ENVIRONMENT [#ARGS] 3) ([OFFSET] 0 [FUNCTION] CONS::CAR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (55 CAR of form has no function definition) (3 KEYWORD::FUNMAC)) (DEFUN LISP-INTERNALS::EVAL-NAMED-FUNCTION-APPLICATION-OR-MACRO-LEXICALLY COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-NAMED-FUNCTION-APPLICATION-OR-MACRO-LEXICALLY [LOCAL-REFS]: (37 47) (29 26) (28 13) (23 29) (15 30) (6 34) [REFS]: ([OFFSET] 48 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 46 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 44 [FUNCTION] LISP-INTERNALS::FUNCALL-INTERNAL [#ARGS] 2) ([OFFSET] 40 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) ([OFFSET] 33 [FUNCTION] LISP-INTERNALS::APPLY-INTERNAL [#ARGS] 0) ([OFFSET] 27 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 25 [FUNCTION] CONS::RPLACD [#ARGS] 2) ([OFFSET] 20 [FUNCTION] CONS::CONS [#ARGS] 2) ([OFFSET] 19 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 17 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 10 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 9 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) [ENTRIES]: ([#ARGS] 3 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (47 internal: unrecognized funmac type in eval-funmac) (38 LISP-INTERNALS::BINDING) (34 KEYWORD::MACRO) (7 LISP-INTERNALS::BINDING) (3 KEYWORD::FUNCTION) (0 LISP-INTERNALS::BINDING)) (DEFUN LISP-INTERNALS::EVAL-LAMBDA-EXPRESSION-APPLICATION COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-LAMBDA-EXPRESSION-APPLICATION [LOCAL-REFS]: (23 20) (22 7) (17 23) (9 24) [REFS]: ([OFFSET] 27 [FUNCTION] LISP-INTERNALS::APPLY-INTERNAL [#ARGS] 0) ([OFFSET] 21 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 19 [FUNCTION] CONS::RPLACD [#ARGS] 2) ([OFFSET] 14 [FUNCTION] CONS::CONS [#ARGS] 2) ([OFFSET] 13 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 11 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 4 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 3 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::LIST [#ARGS] 2) ([OFFSET] 0 [FUNCTION] CONS::CAR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (1 PRIMITIVES::FUNCTION)) (DEFUN LISP-INTERNALS::EVAL-SPECIAL-FORM COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-SPECIAL-FORM [LOCAL-REFS]: (195 7) (192 7) (189 193) (185 7) (182 186) (178 7) (175 179) (171 7) (168 172) (164 7) (161 165) (157 7) (154 158) (150 7) (147 151) (143 7) (140 144) (136 7) (133 137) (129 7) (126 130) (122 7) (119 123) (115 7) (112 116) (108 7) (105 109) (101 7) (98 102) (94 7) (91 95) (87 7) (84 88) (80 7) (77 81) (73 7) (70 74) (66 7) (63 67) (59 7) (56 60) (52 7) (49 53) (45 7) (42 46) (38 7) (35 39) (31 7) (28 32) (24 7) (21 25) (17 7) (14 18) (4 11) [REFS]: ([OFFSET] 194 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 191 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 184 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 177 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 170 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 163 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 156 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 149 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 142 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 135 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 128 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 121 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 114 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 107 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 100 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 93 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 86 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 79 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 72 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 65 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 58 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 51 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 44 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 37 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 30 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 23 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 16 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 10 [FUNCTION] LISP-INTERNALS::FUNCALL-INTERNAL [#ARGS] 2) ([OFFSET] 6 [FUNCTION] SYMBOL::%SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 0 [FUNCTION] CONS::CAR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (193 LISP-INTERNALS::EVAL-BOGUS-SPECIAL-FORM) (190 LISP-INTERNALS::EVAL-AND) (186 PRIMITIVES::AND) (183 LISP-INTERNALS::EVAL-OR) (179 PRIMITIVES::OR) (176 LISP-INTERNALS::EVAL-COND) (172 PRIMITIVES::COND) (169 LISP-INTERNALS::EVAL-UNWIND-PROTECT) (165 LISP-INTERNALS::UNWIND-PROTECT) (162 LISP-INTERNALS::EVAL-THROW) (158 PRIMITIVES::THROW) (155 LISP-INTERNALS::EVAL-THE) (151 LISP-INTERNALS::THE) (148 LISP-INTERNALS::EVAL-TAGBODY) (144 PRIMITIVES::TAGBODY) (141 LISP-INTERNALS::EVAL-SETQ) (137 PRIMITIVES::SETQ) (134 LISP-INTERNALS::EVAL-RETURN-FROM) (130 PRIMITIVES::RETURN-FROM) (127 LISP-INTERNALS::EVAL-QUOTE) (123 PRIMITIVES::QUOTE) (120 LISP-INTERNALS::EVAL-PROGV) (116 LISP-INTERNALS::PROGV) (113 LISP-INTERNALS::EVAL-PROGN) (109 PRIMITIVES::PROGN) (106 LISP-INTERNALS::EVAL-MULTIPLE-VALUE-PROG1) (102 LISP-INTERNALS::MULTIPLE-VALUE-PROG1) (99 LISP-INTERNALS::EVAL-MULTIPLE-VALUE-CALL) (95 LISP-INTERNALS::MULTIPLE-VALUE-CALL) (92 LISP-INTERNALS::EVAL-MACROLET) (88 PRIMITIVES::MACROLET) (85 LISP-INTERNALS::EVAL-LET*) (81 PRIMITIVES::LET*) (78 LISP-INTERNALS::EVAL-LET) (74 PRIMITIVES::LET) (71 LISP-INTERNALS::EVAL-LABELS) (67 PRIMITIVES::LABELS) (64 LISP-INTERNALS::EVAL-IF) (60 LISP::IF) (57 LISP-INTERNALS::EVAL-GO) (53 PRIMITIVES::GO) (50 LISP-INTERNALS::EVAL-FUNCTION) (46 PRIMITIVES::FUNCTION) (43 LISP-INTERNALS::EVAL-FLET) (39 PRIMITIVES::FLET) (36 LISP-INTERNALS::EVAL-EVAL-WHEN) (32 PRIMITIVES::EVAL-WHEN) (29 LISP-INTERNALS::EVAL-DECLARE) (25 PRIMITIVES::DECLARE) (22 LISP-INTERNALS::EVAL-COMPILER-LET) (18 PRIMITIVES::COMPILER-LET) (15 LISP-INTERNALS::EVAL-CATCH) (11 PRIMITIVES::CATCH) (5 LISP-INTERNALS::EVAL-BLOCK) (1 PRIMITIVES::BLOCK)) (DEFUN LISP-INTERNALS::EVAL-BLOCK COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-BLOCK [LOCAL-REFS]: (33 16777179) (14 17) [REFS]: ([OFFSET] 42 [FUNCTION] LISP-INTERNALS::UNWIND-PROTECT-CONTINUE [#ARGS] 6) ([OFFSET] 41 [FUNCTION] LISP-INTERNALS::MAKE-CLOSURE-2 [#ARGS] 4) ([OFFSET] 37 [FUNCTION] LISP-INTERNALS::CATCH-CONTINUE [#ARGS] 6) ([OFFSET] 35 [FUNCTION] LISP-INTERNALS::EVAL-SEQUENCE [#ARGS] 2) ([OFFSET] 28 [FUNCTION] LISP-INTERNALS::GET-STACK-POINTER [#ARGS] 0) ([OFFSET] 27 [FUNCTION] LISP-INTERNALS::GET-SPECIAL-PDL-PTR [#ARGS] 0) ([OFFSET] 26 [FUNCTION] LISP-INTERNALS::GET-UNWIND-PROTECT-TAG [#ARGS] 0) ([OFFSET] 25 [FUNCTION] LISP-INTERNALS::GET-UNWIND-MARKER [#ARGS] 0) ([OFFSET] 24 [FUNCTION] LISP-INTERNALS::BIND-IN-FRAME [#ARGS] 5) ([OFFSET] 21 [FUNCTION] LISP-INTERNALS::MAKE-CLOSURE-1 [#ARGS] 3) ([OFFSET] 16 [FUNCTION] PRIMITIVES::FERROR [#ARGS] 2) ([OFFSET] 11 [FUNCTION] VINCULUM::SYMBOLP [#ARGS] 1) ([OFFSET] 10 [FUNCTION] LISP-INTERNALS::MAKE-NFRAME [#ARGS] 2) ([OFFSET] 7 [FUNCTION] LISP-INTERNALS::GENSYM [#ARGS] 1) ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::GENSYM [#ARGS] 1) ([OFFSET] 3 [FUNCTION] CONS::CDDR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] CONS::CADR [#ARGS] 1) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::REQUIRE-N-ARGUMENTS [#ARGS] 2) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (38 COMPILED FUNCTION INFO: NAME: ( KEYWORD::INTERNAL LISP-INTERNALS::EVAL-BLOCK P_88) [LOCAL-REFS]: [REFS]: ([OFFSET] 10 [FUNCTION] LISP-INTERNALS::STRUCTURE-SET [#ARGS] 4) ([OFFSET] 9 [FUNCTION] LISP-INTERNALS::MAKE-CLOSURE-WITH-ENV [#ARGS] 2) ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::LOOKUP-BINDING-IN-ENVIRONMENT [#ARGS] 3) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-2 [#ARGS] 1) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-1 [#ARGS] 1) [ENTRIES]: ([#ARGS] 0 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (8 COMPILED FUNCTION INFO: NAME: ( KEYWORD::INTERNAL ( KEYWORD::INTERNAL LISP-INTERNALS::EVAL-BLOCK P_88) P_130) [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] PRIMITIVES::FERROR [#ARGS] 2) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-1 [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (0 The dynamic extent of block ~S has expired.)) (5 LISP-INTERNALS::BINDING) (3 KEYWORD::BLOCK)) (29 LISP-INTERNALS::UNWIND-MARKER) (23 KEYWORD::BLOCK) (19 COMPILED FUNCTION INFO: NAME: ( KEYWORD::INTERNAL LISP-INTERNALS::EVAL-BLOCK P_134) [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::THROW-SV [#ARGS] 2) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-1 [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (15 The BLOCK id ~S is not a symbol.) (9 KEYWORD::BLOCK) (6 LISP-INTERNALS::G) (4 LISP-INTERNALS::BLOCK-)) (DEFUN LISP-INTERNALS::EVAL-RETURN-FROM COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-RETURN-FROM [LOCAL-REFS]: (25 9) (15 22) (7 25) [REFS]: ([OFFSET] 24 [FUNCTION] PRIMITIVES::FERROR [#ARGS] 3) ([OFFSET] 21 [FUNCTION] LISP-INTERNALS::FUNCALL-INTERNAL [#ARGS] 1) ([OFFSET] 18 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) ([OFFSET] 12 [FUNCTION] LISP-INTERNALS::LOOKUP-BINDING-IN-ENVIRONMENT [#ARGS] 3) ([OFFSET] 8 [FUNCTION] CONS::CADDR [#ARGS] 1) ([OFFSET] 4 [FUNCTION] ARRAY::LENGTH [#ARGS] 1) ([OFFSET] 3 [FUNCTION] CONS::CADR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::REQUIRE-N-ARGUMENTS [#ARGS] 3) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (23 ~S is not a lexically visible BLOCK tag.) (16 LISP-INTERNALS::BINDING) (11 KEYWORD::BLOCK)) (DEFUN LISP-INTERNALS::EVAL-CATCH COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-CATCH [LOCAL-REFS]: (14 16777198) (9 19) [REFS]: ([OFFSET] 20 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 18 [FUNCTION] LISP-INTERNALS::CATCH-CONTINUE [#ARGS] 6) ([OFFSET] 17 [FUNCTION] LISP-INTERNALS::CATCH-CONTINUE [#ARGS] 6) ([OFFSET] 16 [FUNCTION] LISP-INTERNALS::EVAL-SEQUENCE [#ARGS] 2) ([OFFSET] 6 [FUNCTION] VINCULUM::SYMBOLP [#ARGS] 1) ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 3 [FUNCTION] CONS::CDDR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] CONS::CADR [#ARGS] 1) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::REQUIRE-N-ARGUMENTS [#ARGS] 2) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (19 CATCH tag does not evaluate to a symbol.) (10 LISP-INTERNALS::UNWIND-MARKER)) (DEFUN LISP-INTERNALS::EVAL-THROW COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-THROW [LOCAL-REFS]: (10 15) [REFS]: ([OFFSET] 16 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 14 [FUNCTION] LISP-INTERNALS::THROW-INTERNAL [#ARGS] 2) ([OFFSET] 12 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 7 [FUNCTION] VINCULUM::SYMBOLP [#ARGS] 1) ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 4 [FUNCTION] CONS::CADDR [#ARGS] 1) ([OFFSET] 3 [FUNCTION] CONS::CADR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::REQUIRE-N-ARGUMENTS [#ARGS] 3) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (15 THROW tag does not evaluate to a symbol.)) (DEFUN LISP-INTERNALS::EVAL-UNWIND-PROTECT COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-UNWIND-PROTECT [LOCAL-REFS]: [REFS]: ([OFFSET] 14 [FUNCTION] LISP-INTERNALS::UNWIND-PROTECT-CONTINUE [#ARGS] 6) ([OFFSET] 13 [FUNCTION] LISP-INTERNALS::MAKE-CLOSURE-2 [#ARGS] 4) ([OFFSET] 9 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 7 [FUNCTION] LISP-INTERNALS::GET-STACK-POINTER [#ARGS] 0) ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::GET-SPECIAL-PDL-PTR [#ARGS] 0) ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::GET-UNWIND-PROTECT-TAG [#ARGS] 0) ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::GET-UNWIND-MARKER [#ARGS] 0) ([OFFSET] 3 [FUNCTION] CONS::CDDR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] CONS::CADR [#ARGS] 1) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::REQUIRE-N-ARGUMENTS [#ARGS] 2) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (10 COMPILED FUNCTION INFO: NAME: ( KEYWORD::INTERNAL LISP-INTERNALS::EVAL-UNWIND-PROTECT P_34) [LOCAL-REFS]: [REFS]: ([OFFSET] 3 [FUNCTION] LISP-INTERNALS::EVAL-SEQUENCE [#ARGS] 2) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-2 [#ARGS] 1) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-1 [#ARGS] 1) [ENTRIES]: ([#ARGS] 0 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:)) (DEFUN LISP-INTERNALS::EVAL-LET COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-LET [LOCAL-REFS]: [REFS]: ([OFFSET] 7 [FUNCTION] LISP-INTERNALS::EVAL-PARALLEL-LET [#ARGS] 4) ([OFFSET] 4 [FUNCTION] CONS::CADR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::MVBIND-2 [#ARGS] 1) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::EXAMINE-DECLARATIONS [#ARGS] 2) ([OFFSET] 0 [FUNCTION] CONS::CDDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::EVAL-LET* COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-LET* [LOCAL-REFS]: [REFS]: ([OFFSET] 7 [FUNCTION] LISP-INTERNALS::EVAL-SEQUENTIAL-LET [#ARGS] 4) ([OFFSET] 4 [FUNCTION] CONS::CADR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::MVBIND-2 [#ARGS] 1) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::EXAMINE-DECLARATIONS [#ARGS] 2) ([OFFSET] 0 [FUNCTION] CONS::CDDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::EVAL-COMPILER-LET COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-COMPILER-LET [LOCAL-REFS]: (20 14) (19 3) (11 20) (5 21) [REFS]: ([OFFSET] 24 [FUNCTION] LISP-INTERNALS::EVAL-PARALLEL-LET [#ARGS] 4) ([OFFSET] 22 [FUNCTION] CONS::CDDR [#ARGS] 1) ([OFFSET] 21 [FUNCTION] CONS::CADR [#ARGS] 1) ([OFFSET] 15 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 13 [FUNCTION] CONS::RPLACD [#ARGS] 2) ([OFFSET] 8 [FUNCTION] CONS::CONS [#ARGS] 2) ([OFFSET] 7 [FUNCTION] LISP-INTERNALS::LET-BINDING-VARIABLE [#ARGS] 1) ([OFFSET] 6 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::EVAL-PARALLEL-LET COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-PARALLEL-LET [LOCAL-REFS]: (81 86) (76 69) (71 58) (63 72) (60 77) (56 36) (54 43) (47 23) (38 48) (35 55) (25 57) (16 5) (7 17) [REFS]: ([OFFSET] 83 [FUNCTION] LISP-INTERNALS::UNBIND [#ARGS] 1) ([OFFSET] 82 [FUNCTION] ARRAY::LENGTH [#ARGS] 1) ([OFFSET] 78 [FUNCTION] LISP-INTERNALS::EVAL-SEQUENCE [#ARGS] 2) ([OFFSET] 74 [FUNCTION] LISP-INTERNALS::BIND [#ARGS] 2) ([OFFSET] 72 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 70 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 69 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 66 [FUNCTION] LISP-INTERNALS::BIND [#ARGS] 2) ([OFFSET] 65 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 64 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 55 [FUNCTION] LISP-INTERNALS::PROCLAIMED-SPECIAL-P [#ARGS] 1) ([OFFSET] 53 [FUNCTION] LISP-INTERNALS::BIND-IN-FRAME [#ARGS] 5) ([OFFSET] 43 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 42 [FUNCTION] CONS::CONS [#ARGS] 2) ([OFFSET] 40 [FUNCTION] CONS::CONS [#ARGS] 2) ([OFFSET] 32 [FUNCTION] LISP-INTERNALS::MEMBER-EQL [#ARGS] 2) ([OFFSET] 30 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 29 [FUNCTION] LISP-INTERNALS::LET-BINDING-VALUE [#ARGS] 1) ([OFFSET] 28 [FUNCTION] LISP-INTERNALS::REQUIRE-BINDABLE-SYMBOL [#ARGS] 1) ([OFFSET] 27 [FUNCTION] LISP-INTERNALS::LET-BINDING-VARIABLE [#ARGS] 1) ([OFFSET] 26 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 19 [FUNCTION] LISP-INTERNALS::MAKE-NFRAME [#ARGS] 2) ([OFFSET] 15 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 14 [FUNCTION] LISP-INTERNALS::BIND-IN-FRAME [#ARGS] 5) ([OFFSET] 8 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::MAKE-NFRAME [#ARGS] 2) [ENTRIES]: ([#ARGS] 4 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (73 KEYWORD::UNBOUND) (52 KEYWORD::VARIABLE) (18 KEYWORD::VARIABLE) (13 KEYWORD::VARIABLE) (10 KEYWORD::SPECIAL) (1 KEYWORD::VARIABLE)) (DEFUN LISP-INTERNALS::EVAL-SEQUENTIAL-LET COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-SEQUENTIAL-LET [LOCAL-REFS]: (16 5) (7 17) [REFS]: ([OFFSET] 20 [FUNCTION] COMPILED FUNCTION INFO: NAME: ( KEYWORD::INTERNAL LISP-INTERNALS::EVAL-SEQUENTIAL-LET LISP-INTERNALS::ESL-LOOP) [LOCAL-REFS]: (66 15) (43 48) (39 32) (34 21) (26 35) (23 40) (17 53) (14 65) (2 67) [REFS]: ([OFFSET] 68 [FUNCTION] LISP-INTERNALS::EVAL-SEQUENCE [#ARGS] 2) ([OFFSET] 65 [FUNCTION] LISP-INTERNALS::PROCLAIMED-SPECIAL-P [#ARGS] 1) ([OFFSET] 59 [FUNCTION] ( KEYWORD::INTERNAL LISP-INTERNALS::EVAL-SEQUENTIAL-LET LISP-INTERNALS::ESL-LOOP) [#ARGS] 0) ([OFFSET] 58 [FUNCTION] LISP-INTERNALS::BIND-IN-FRAME [#ARGS] 5) ([OFFSET] 45 [FUNCTION] LISP-INTERNALS::UNBIND [#ARGS] 1) ([OFFSET] 44 [FUNCTION] ARRAY::LENGTH [#ARGS] 1) ([OFFSET] 40 [FUNCTION] ( KEYWORD::INTERNAL LISP-INTERNALS::EVAL-SEQUENTIAL-LET LISP-INTERNALS::ESL-LOOP) [#ARGS] 0) ([OFFSET] 37 [FUNCTION] LISP-INTERNALS::BIND [#ARGS] 2) ([OFFSET] 35 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 33 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 32 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 29 [FUNCTION] LISP-INTERNALS::BIND [#ARGS] 2) ([OFFSET] 28 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 27 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 19 [FUNCTION] LISP-INTERNALS::LIST [#ARGS] 1) ([OFFSET] 18 [FUNCTION] LISP-INTERNALS::LIST [#ARGS] 1) ([OFFSET] 11 [FUNCTION] LISP-INTERNALS::MEMBER-EQL [#ARGS] 2) ([OFFSET] 8 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 7 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::LET-BINDING-VALUE [#ARGS] 1) ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::REQUIRE-BINDABLE-SYMBOL [#ARGS] 1) ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::LET-BINDING-VARIABLE [#ARGS] 1) ([OFFSET] 3 [FUNCTION] CONS::CAR [#ARGS] 1) [ENTRIES]: ([#ARGS] 0 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (57 KEYWORD::VARIABLE) (36 KEYWORD::UNBOUND) [#ARGS] 0) ([OFFSET] 19 [FUNCTION] LISP-INTERNALS::MAKE-NFRAME [#ARGS] 2) ([OFFSET] 15 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 14 [FUNCTION] LISP-INTERNALS::BIND-IN-FRAME [#ARGS] 5) ([OFFSET] 8 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::MAKE-NFRAME [#ARGS] 2) [ENTRIES]: ([#ARGS] 4 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (18 KEYWORD::VARIABLE) (13 KEYWORD::VARIABLE) (10 KEYWORD::SPECIAL) (1 KEYWORD::VARIABLE)) (DEFUN LISP-INTERNALS::LET-BINDING-VARIABLE COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::LET-BINDING-VARIABLE [LOCAL-REFS]: (12 14) (8 14) (3 5) [REFS]: ([OFFSET] 15 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 2) ([OFFSET] 13 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 9 [FUNCTION] ARRAY::LENGTH [#ARGS] 1) ([OFFSET] 5 [FUNCTION] VINCULUM::LISTP [#ARGS] 1) ([OFFSET] 0 [FUNCTION] VINCULUM::SYMBOLP [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (14 ~S is bad syntax for a LET binding)) (DEFUN LISP-INTERNALS::LET-BINDING-VALUE COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::LET-BINDING-VALUE [LOCAL-REFS]: (12 14) (8 14) (3 5) [REFS]: ([OFFSET] 15 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 2) ([OFFSET] 13 [FUNCTION] CONS::CADR [#ARGS] 1) ([OFFSET] 9 [FUNCTION] ARRAY::LENGTH [#ARGS] 1) ([OFFSET] 5 [FUNCTION] VINCULUM::LISTP [#ARGS] 1) ([OFFSET] 0 [FUNCTION] VINCULUM::SYMBOLP [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (14 ~S is bad syntax for a LET binding)) (DEFUN LISP-INTERNALS::EVAL-DECLARE COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-DECLARE [LOCAL-REFS]: [REFS]: ([OFFSET] 3 [FUNCTION] LISP-INTERNALS::FORMAT [#ARGS] 3) ([OFFSET] 1 [FUNCTION] SYMBOL::%SYMBOL-VALUE [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (4 DECLARATION. Tsk-tsk, you shouldn't have evaluated this.) (2 ~&>>WARNING: Attempt to evaluate declaration ~S.) (0 LISP-INTERNALS::*ERROR-OUTPUT*)) (DEFUN LISP-INTERNALS::EVAL-EVAL-WHEN COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-EVAL-WHEN [LOCAL-REFS]: (41 44) (30 37) (24 21) (23 6) (18 24) (8 25) [REFS]: ([OFFSET] 43 [FUNCTION] LISP-INTERNALS::EVAL-SEQUENCE [#ARGS] 2) ([OFFSET] 38 [FUNCTION] LISP-INTERNALS::MEMBER-EQL [#ARGS] 2) ([OFFSET] 33 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 3) ([OFFSET] 31 [FUNCTION] LISP-INTERNALS::FIRST [#ARGS] 1) ([OFFSET] 27 [FUNCTION] LISP-INTERNALS::MEMBER-IF-NOT [#ARGS] 2) ([OFFSET] 25 [FUNCTION] CONS::CDDR [#ARGS] 1) ([OFFSET] 22 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 20 [FUNCTION] CONS::RPLACD [#ARGS] 2) ([OFFSET] 15 [FUNCTION] CONS::CONS [#ARGS] 2) ([OFFSET] 14 [FUNCTION] LISP-INTERNALS::INTERN [#ARGS] 2) ([OFFSET] 13 [FUNCTION] LISP-INTERNALS::FIND-PACKAGE [#ARGS] 1) ([OFFSET] 11 [FUNCTION] SYMBOL::SYMBOL-NAME [#ARGS] 1) ([OFFSET] 10 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] CONS::CADR [#ARGS] 1) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::REQUIRE-N-ARGUMENTS [#ARGS] 2) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (37 KEYWORD::EVAL) (32 Unrecognized symbol ~S in times-list of ~S) (26 COMPILED FUNCTION INFO: NAME: ( KEYWORD::INTERNAL LISP-INTERNALS::EVAL-EVAL-WHEN P_77) [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::MEMBER-EQL [#ARGS] 2) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (1 ( KEYWORD::COMPILE KEYWORD::LOAD KEYWORD::EVAL))) (12 KEYWORD)) (DEFUN LISP-INTERNALS::EVAL-FLET COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-FLET [LOCAL-REFS]: (24 6) (8 25) [REFS]: ([OFFSET] 26 [FUNCTION] LISP-INTERNALS::EVAL-SEQUENCE [#ARGS] 2) ([OFFSET] 22 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 21 [FUNCTION] LISP-INTERNALS::BIND-IN-FRAME [#ARGS] 5) ([OFFSET] 16 [FUNCTION] LISP-INTERNALS::MAKE-I-CLOSURE [#ARGS] 4) ([OFFSET] 12 [FUNCTION] LISP-INTERNALS::FLET-BINDING-FUNCTION-BODY [#ARGS] 1) ([OFFSET] 11 [FUNCTION] LISP-INTERNALS::FLET-BINDING-LAMBDA-LIST [#ARGS] 1) ([OFFSET] 10 [FUNCTION] LISP-INTERNALS::FLET-BINDING-NAME [#ARGS] 1) ([OFFSET] 9 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::MAKE-NFRAME [#ARGS] 2) ([OFFSET] 1 [FUNCTION] CONS::CDDR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (20 KEYWORD::FUNMAC) (18 KEYWORD::FUNCTION) (3 KEYWORD::FUNMAC)) (DEFUN LISP-INTERNALS::EVAL-LABELS COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-LABELS [LOCAL-REFS]: (24 6) (8 25) [REFS]: ([OFFSET] 26 [FUNCTION] LISP-INTERNALS::EVAL-SEQUENCE [#ARGS] 2) ([OFFSET] 22 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 21 [FUNCTION] LISP-INTERNALS::BIND-IN-FRAME [#ARGS] 5) ([OFFSET] 16 [FUNCTION] LISP-INTERNALS::MAKE-I-CLOSURE [#ARGS] 4) ([OFFSET] 12 [FUNCTION] LISP-INTERNALS::FLET-BINDING-FUNCTION-BODY [#ARGS] 1) ([OFFSET] 11 [FUNCTION] LISP-INTERNALS::FLET-BINDING-LAMBDA-LIST [#ARGS] 1) ([OFFSET] 10 [FUNCTION] LISP-INTERNALS::FLET-BINDING-NAME [#ARGS] 1) ([OFFSET] 9 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::MAKE-NFRAME [#ARGS] 2) ([OFFSET] 1 [FUNCTION] CONS::CDDR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (20 KEYWORD::FUNMAC) (18 KEYWORD::FUNCTION) (3 KEYWORD::FUNMAC)) (DEFUN LISP-INTERNALS::EVAL-MACROLET COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-MACROLET [LOCAL-REFS]: (19 6) (8 20) [REFS]: ([OFFSET] 21 [FUNCTION] LISP-INTERNALS::EVAL-SEQUENCE [#ARGS] 2) ([OFFSET] 17 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 16 [FUNCTION] LISP-INTERNALS::BIND-IN-FRAME [#ARGS] 5) ([OFFSET] 12 [FUNCTION] LISP-INTERNALS::EXPAND-DEFMACRO [#ARGS] 2) ([OFFSET] 10 [FUNCTION] LISP-INTERNALS::FLET-BINDING-NAME [#ARGS] 1) ([OFFSET] 9 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::MAKE-NFRAME [#ARGS] 2) ([OFFSET] 1 [FUNCTION] CONS::CDDR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (15 KEYWORD::FUNMAC) (13 KEYWORD::MACRO) (3 KEYWORD::FUNMAC)) (DEFUN LISP-INTERNALS::FLET-BINDING-NAME COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::FLET-BINDING-NAME [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CAR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFUN LISP-INTERNALS::FLET-BINDING-LAMBDA-LIST COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::FLET-BINDING-LAMBDA-LIST [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFUN LISP-INTERNALS::FLET-BINDING-FUNCTION-BODY COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::FLET-BINDING-FUNCTION-BODY [LOCAL-REFS]: [REFS]: ([OFFSET] 0 [FUNCTION] CONS::CDDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 0 0 33 0 0 71 8) [IMMEDIATES]:) (DEFUN LISP-INTERNALS::EVAL-FUNCTION COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-FUNCTION [LOCAL-REFS]: (19 22) (13 16) (7 10) [REFS]: ([OFFSET] 23 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 21 [FUNCTION] LISP-INTERNALS::EVAL-FUNCTION-NAMED-LAMBDA [#ARGS] 2) ([OFFSET] 16 [FUNCTION] LISP-INTERNALS::NAMED-LAMBDA-EXPRESSION-P [#ARGS] 1) ([OFFSET] 15 [FUNCTION] LISP-INTERNALS::EVAL-FUNCTION-LAMBDA [#ARGS] 2) ([OFFSET] 10 [FUNCTION] LISP-INTERNALS::LAMBDA-EXPRESSION-P [#ARGS] 1) ([OFFSET] 9 [FUNCTION] LISP-INTERNALS::EVAL-FUNCTION-SYMBOL [#ARGS] 2) ([OFFSET] 4 [FUNCTION] VINCULUM::SYMBOLP [#ARGS] 1) ([OFFSET] 3 [FUNCTION] CONS::CADR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::REQUIRE-N-ARGUMENTS [#ARGS] 3) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (22 Argument to FUNCTION is not valid.)) (DEFUN LISP-INTERNALS::EVAL-FUNCTION-SYMBOL COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-FUNCTION-SYMBOL [LOCAL-REFS]: (39 41) (33 36) (27 30) (20 23) (13 17) (6 24) [REFS]: ([OFFSET] 42 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 2) ([OFFSET] 40 [FUNCTION] SYMBOL::SYMBOL-FUNCTION [#ARGS] 1) ([OFFSET] 36 [FUNCTION] SYMBOL::FBOUNDP [#ARGS] 1) ([OFFSET] 35 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 30 [FUNCTION] LISP-INTERNALS::MACRO-FUNCTION [#ARGS] 1) ([OFFSET] 29 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 24 [FUNCTION] LISP-INTERNALS::COMMON-LISP-SPECIAL-FORM-P [#ARGS] 1) ([OFFSET] 22 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 16 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) ([OFFSET] 9 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) ([OFFSET] 3 [FUNCTION] LISP-INTERNALS::LOOKUP-BINDING-IN-ENVIRONMENT [#ARGS] 3) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (41 The function cell of symbol ~S is unbound.) (34 It has a global macro definition.) (28 It is a special form.) (21 It has a lexical macro definition.) (17 KEYWORD::MACRO) (14 LISP-INTERNALS::BINDING) (10 KEYWORD::FUNCTION) (7 LISP-INTERNALS::BINDING) (2 KEYWORD::FUNMAC)) (DEFUN LISP-INTERNALS::EVAL-FUNCTION-LAMBDA COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-FUNCTION-LAMBDA [LOCAL-REFS]: [REFS]: ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::MAKE-I-CLOSURE [#ARGS] 3) ([OFFSET] 1 [FUNCTION] CONS::CDDR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::EVAL-FUNCTION-NAMED-LAMBDA COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-FUNCTION-NAMED-LAMBDA [LOCAL-REFS]: [REFS]: ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::MAKE-I-CLOSURE [#ARGS] 4) ([OFFSET] 2 [FUNCTION] CONS::CDDDR [#ARGS] 1) ([OFFSET] 1 [FUNCTION] CONS::CADDR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] CONS::CADR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::EVAL-IF COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-IF [LOCAL-REFS]: (19 10) (14 17) (8 19) [REFS]: ([OFFSET] 18 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 16 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 11 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 9 [FUNCTION] CONS::CADDDR [#ARGS] 1) ([OFFSET] 5 [FUNCTION] ARRAY::LENGTH [#ARGS] 1) ([OFFSET] 4 [FUNCTION] CONS::CADDR [#ARGS] 1) ([OFFSET] 3 [FUNCTION] CONS::CADR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::REQUIRE-N-ARGUMENTS [#ARGS] 3) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::EVAL-COND COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-COND [LOCAL-REFS]: (20 2) (15 18) (11 19) (4 21) [REFS]: ([OFFSET] 19 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 17 [FUNCTION] LISP-INTERNALS::EVAL-SEQUENCE [#ARGS] 2) ([OFFSET] 12 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 6 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 5 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] CONS::CDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::EVAL-OR COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-OR [LOCAL-REFS]: (17 6) (13 15) (8 18) (3 20) [REFS]: ([OFFSET] 19 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 16 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 15 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 10 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 5 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 4 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] CONS::CDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::EVAL-AND COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-AND [LOCAL-REFS]: (16 6) (13 17) (8 18) (3 20) [REFS]: ([OFFSET] 19 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 15 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 14 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 10 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 5 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 4 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] CONS::CDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::EVAL-MULTIPLE-VALUE-CALL COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-MULTIPLE-VALUE-CALL [LOCAL-REFS]: (9 12) [REFS]: ([OFFSET] 17 [FUNCTION] LISP-INTERNALS::APPLY-INTERNAL [#ARGS] 0) ([OFFSET] 13 [FUNCTION] LISP-INTERNALS::EVAL-MULTIPLE-VALUE-CALL-ARGS [#ARGS] 2) ([OFFSET] 11 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::FUNCTIONP [#ARGS] 1) ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 3 [FUNCTION] CONS::CDDR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] CONS::CADR [#ARGS] 1) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::REQUIRE-N-ARGUMENTS [#ARGS] 2) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (10 First argument to MULTIPLE-VALUE-CALL not a function)) (DEFUN LISP-INTERNALS::EVAL-MULTIPLE-VALUE-CALL-ARGS COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-MULTIPLE-VALUE-CALL-ARGS [LOCAL-REFS]: (2 16) [REFS]: ([OFFSET] 8 [FUNCTION] PRIMITIVES::APPEND [#ARGS] 2) ([OFFSET] 7 [FUNCTION] LISP-INTERNALS::EVAL-MULTIPLE-VALUE-CALL-ARGS [#ARGS] 2) ([OFFSET] 6 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::MV-LIST [#ARGS] 1) ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::EVAL-SUBPROBLEM [#ARGS] 2) ([OFFSET] 3 [FUNCTION] CONS::CAR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::EVAL-MULTIPLE-VALUE-PROG1 COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-MULTIPLE-VALUE-PROG1 [LOCAL-REFS]: [REFS]: ([OFFSET] 9 [FUNCTION] PRIMITIVES::VALUES-LIST [#ARGS] 1) ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::EVAL-SEQUENCE [#ARGS] 2) ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::MV-LIST [#ARGS] 1) ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 3 [FUNCTION] CONS::CDDR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] CONS::CADR [#ARGS] 1) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::REQUIRE-N-ARGUMENTS [#ARGS] 2) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::EVAL-PROGN COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-PROGN [LOCAL-REFS]: [REFS]: ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::EVAL-SEQUENCE [#ARGS] 2) ([OFFSET] 0 [FUNCTION] CONS::CDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::EVAL-PROGV COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-PROGV [LOCAL-REFS]: (65 70) (60 53) (55 42) (47 56) (44 61) (38 41) (32 35) (26 20) (25 9) (17 26) (11 27) [REFS]: ([OFFSET] 67 [FUNCTION] LISP-INTERNALS::UNBIND [#ARGS] 1) ([OFFSET] 66 [FUNCTION] ARRAY::LENGTH [#ARGS] 1) ([OFFSET] 62 [FUNCTION] LISP-INTERNALS::EVAL-SEQUENCE [#ARGS] 2) ([OFFSET] 58 [FUNCTION] LISP-INTERNALS::BIND [#ARGS] 2) ([OFFSET] 56 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 54 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 53 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 50 [FUNCTION] LISP-INTERNALS::BIND [#ARGS] 2) ([OFFSET] 49 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 48 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 40 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 35 [FUNCTION] VINCULUM::LISTP [#ARGS] 1) ([OFFSET] 34 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 29 [FUNCTION] VINCULUM::LISTP [#ARGS] 1) ([OFFSET] 28 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 21 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 19 [FUNCTION] CONS::RPLACD [#ARGS] 2) ([OFFSET] 14 [FUNCTION] CONS::CONS [#ARGS] 2) ([OFFSET] 13 [FUNCTION] LISP-INTERNALS::REQUIRE-BINDABLE-SYMBOL [#ARGS] 1) ([OFFSET] 12 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 4 [FUNCTION] CONS::CDDDR [#ARGS] 1) ([OFFSET] 3 [FUNCTION] CONS::CADDR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] CONS::CADR [#ARGS] 1) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::REQUIRE-N-ARGUMENTS [#ARGS] 2) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (57 KEYWORD::UNBOUND) (39 PROGV values not a list) (33 PROGV symbols not a list)) (DEFUN LISP-INTERNALS::EVAL-QUOTE COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-QUOTE [LOCAL-REFS]: [REFS]: ([OFFSET] 3 [FUNCTION] CONS::CADR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::REQUIRE-N-ARGUMENTS [#ARGS] 3) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::EVAL-SETQ COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-SETQ [LOCAL-REFS]: (56 25) (53 25) (50 54) (45 25) (40 25) (37 41) (30 46) (27 9) (22 28) (11 57) (6 61) [REFS]: ([OFFSET] 62 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 55 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 2) ([OFFSET] 52 [FUNCTION] SYMBOL::SET [#ARGS] 2) ([OFFSET] 47 [FUNCTION] SYMBOL::%SYMBOL-VALUE [#ARGS] 1) ([OFFSET] 44 [FUNCTION] LISP-INTERNALS::STRUCTURE-SET [#ARGS] 4) ([OFFSET] 39 [FUNCTION] SYMBOL::SET [#ARGS] 2) ([OFFSET] 33 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) ([OFFSET] 26 [FUNCTION] LISP-INTERNALS::SECOND [#ARGS] 1) ([OFFSET] 25 [FUNCTION] LISP-INTERNALS::FIRST [#ARGS] 1) ([OFFSET] 24 [FUNCTION] SYMBOL::SET [#ARGS] 2) ([OFFSET] 19 [FUNCTION] LISP-INTERNALS::PROCLAIMED-SPECIAL-P [#ARGS] 1) ([OFFSET] 18 [FUNCTION] LISP-INTERNALS::LOOKUP-BINDING-IN-ENVIRONMENT [#ARGS] 3) ([OFFSET] 14 [FUNCTION] CONS::CDDR [#ARGS] 1) ([OFFSET] 13 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::SECOND [#ARGS] 1) ([OFFSET] 7 [FUNCTION] LISP-INTERNALS::FIRST [#ARGS] 1) ([OFFSET] 3 [FUNCTION] PRIMITIVES::MOD [#ARGS] 2) ([OFFSET] 2 [FUNCTION] ARRAY::LENGTH [#ARGS] 1) ([OFFSET] 0 [FUNCTION] CONS::CDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (61 Odd number of arguments to SETQ) (54 Free reference made to symbol ~S, attempting to set it.) (46 LISP-INTERNALS::*VANILLA-ALLOW-FREE-VARIABLES?*) (41 LISP-INTERNALS::BINDING) (34 KEYWORD::SPECIAL) (31 LISP-INTERNALS::BINDING) (17 KEYWORD::VARIABLE)) (DEFUN LISP-INTERNALS::EVAL-TAGBODY COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-TAGBODY [LOCAL-REFS]: [REFS]: ([OFFSET] 16 [FUNCTION] LISP-INTERNALS::UNWIND-PROTECT-CONTINUE [#ARGS] 6) ([OFFSET] 15 [FUNCTION] LISP-INTERNALS::MAKE-CLOSURE-2 [#ARGS] 4) ([OFFSET] 11 [FUNCTION] LISP-INTERNALS::EVAL-SEQUENCE [#ARGS] 2) ([OFFSET] 9 [FUNCTION] LISP-INTERNALS::GET-STACK-POINTER [#ARGS] 0) ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::GET-SPECIAL-PDL-PTR [#ARGS] 0) ([OFFSET] 7 [FUNCTION] LISP-INTERNALS::GET-UNWIND-PROTECT-TAG [#ARGS] 0) ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::GET-UNWIND-MARKER [#ARGS] 0) ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::BIND-GOTAGS [#ARGS] 2) ([OFFSET] 3 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::MAKE-NFRAME [#ARGS] 2) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (12 COMPILED FUNCTION INFO: NAME: ( KEYWORD::INTERNAL LISP-INTERNALS::EVAL-TAGBODY P_34) [LOCAL-REFS]: [REFS]: ([OFFSET] 3 [FUNCTION] LISP-INTERNALS::REBIND-GOTAGS [#ARGS] 2) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-2 [#ARGS] 1) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-1 [#ARGS] 1) [ENTRIES]: ([#ARGS] 0 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (1 KEYWORD::GOTAG)) (DEFUN LISP-INTERNALS::BIND-GOTAGS COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::BIND-GOTAGS [LOCAL-REFS]: (30 14) (28 3) (16 25) (13 29) (6 31) [REFS]: ([OFFSET] 29 [FUNCTION] VINCULUM::NUMBERP [#ARGS] 1) ([OFFSET] 27 [FUNCTION] LISP-INTERNALS::CLOSURE-SET-0-1 [#ARGS] 2) ([OFFSET] 25 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 24 [FUNCTION] LISP-INTERNALS::BIND-IN-FRAME [#ARGS] 5) ([OFFSET] 21 [FUNCTION] LISP-INTERNALS::MAKE-CLOSURE-1 [#ARGS] 3) ([OFFSET] 10 [FUNCTION] VINCULUM::SYMBOLP [#ARGS] 1) ([OFFSET] 9 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-1 [#ARGS] 1) ([OFFSET] 3 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-1 [#ARGS] 1) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::MAKE-CONTOUR-1 [#ARGS] 2) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (23 KEYWORD::GOTAG) (19 COMPILED FUNCTION INFO: NAME: ( KEYWORD::INTERNAL LISP-INTERNALS::BIND-GOTAGS P_48) [LOCAL-REFS]: [REFS]: ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::EVAL-SEQUENCE [#ARGS] 2) ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-1 [#ARGS] 1) ([OFFSET] 4 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 3 [FUNCTION] LISP-INTERNALS::CLOSURE-REF [#ARGS] 3) [ENTRIES]: ([#ARGS] 0 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:)) (DEFUN LISP-INTERNALS::REBIND-GOTAGS COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::REBIND-GOTAGS [LOCAL-REFS]: (26 9) (24 1) (11 23) (8 25) (3 27) [REFS]: ([OFFSET] 25 [FUNCTION] VINCULUM::NUMBERP [#ARGS] 1) ([OFFSET] 23 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 22 [FUNCTION] LISP-INTERNALS::STRUCTURE-SET [#ARGS] 4) ([OFFSET] 21 [FUNCTION] LISP-INTERNALS::MAKE-CLOSURE-1 [#ARGS] 3) ([OFFSET] 15 [FUNCTION] LISP-INTERNALS::LOOKUP-BINDING-IN-ENVIRONMENT [#ARGS] 3) ([OFFSET] 5 [FUNCTION] VINCULUM::SYMBOLP [#ARGS] 1) ([OFFSET] 4 [FUNCTION] CONS::CAR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (19 COMPILED FUNCTION INFO: NAME: ( KEYWORD::INTERNAL LISP-INTERNALS::REBIND-GOTAGS P_58) [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 2) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-1 [#ARGS] 1) [ENTRIES]: ([#ARGS] 0 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (0 The dynamic extent of GO tag ~S has expired.)) (16 LISP-INTERNALS::BINDING) (14 KEYWORD::GOTAG)) (DEFUN LISP-INTERNALS::EVAL-GO COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-GO [LOCAL-REFS]: (29 8) (17 24) (10 26) (7 28) [REFS]: ([OFFSET] 28 [FUNCTION] VINCULUM::NUMBERP [#ARGS] 1) ([OFFSET] 27 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 25 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 2) ([OFFSET] 23 [FUNCTION] LISP-INTERNALS::FUNCALL-INTERNAL [#ARGS] 0) ([OFFSET] 20 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) ([OFFSET] 14 [FUNCTION] LISP-INTERNALS::LOOKUP-BINDING-IN-ENVIRONMENT [#ARGS] 3) ([OFFSET] 4 [FUNCTION] VINCULUM::SYMBOLP [#ARGS] 1) ([OFFSET] 3 [FUNCTION] CONS::CADR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::REQUIRE-N-ARGUMENTS [#ARGS] 3) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (26 GO tag ~S is neither a number nor a symbol.) (24 There is no lexically visible GO tag named ~S.) (18 LISP-INTERNALS::BINDING) (13 KEYWORD::GOTAG)) (DEFUN LISP-INTERNALS::EVAL-THE COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-THE [LOCAL-REFS]: (10 15) [REFS]: ([OFFSET] 17 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 3) ([OFFSET] 7 [FUNCTION] LISP-INTERNALS::TYPEP [#ARGS] 2) ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 4 [FUNCTION] CONS::CADDR [#ARGS] 1) ([OFFSET] 3 [FUNCTION] CONS::CADR [#ARGS] 1) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::REQUIRE-N-ARGUMENTS [#ARGS] 3) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (15 (THE) Object ~S is not of type ~S)) (DEFUN LISP-INTERNALS::EVAL-BOGUS-SPECIAL-FORM COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EVAL-BOGUS-SPECIAL-FORM [LOCAL-REFS]: [REFS]: ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (0 ~S appears to be a bogus special form.)) (DEFUN LISP-INTERNALS::APPLY-INTERPRETER-CLOSURE COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::APPLY-INTERPRETER-CLOSURE [LOCAL-REFS]: (22 11) (13 23) [REFS]: ([OFFSET] 30 [FUNCTION] LISP-INTERNALS::BIND-REQUIRED-PARAMETERS [#ARGS] 5) ([OFFSET] 25 [FUNCTION] LISP-INTERNALS::MAKE-NFRAME [#ARGS] 2) ([OFFSET] 21 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 20 [FUNCTION] LISP-INTERNALS::BIND-IN-FRAME [#ARGS] 5) ([OFFSET] 14 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::MAKE-NFRAME [#ARGS] 2) ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::INTERPRETER-CLOSURE-ENVIRONMENT [#ARGS] 1) ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::INTERPRETER-CLOSURE-LAMBDA-LIST [#ARGS] 1) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::MVBIND-2 [#ARGS] 1) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::EXAMINE-DECLARATIONS [#ARGS] 2) ([OFFSET] 0 [FUNCTION] LISP-INTERNALS::INTERPRETER-CLOSURE-BODY [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (24 KEYWORD::VARIABLE) (19 KEYWORD::VARIABLE) (16 KEYWORD::SPECIAL) (7 KEYWORD::VARIABLE)) (DEFUN LISP-INTERNALS::BIND-REQUIRED-PARAMETERS COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::BIND-REQUIRED-PARAMETERS [LOCAL-REFS]: (77 80) (65 74) (53 62) (41 50) (29 38) (23 26) (20 26) (15 18) (12 18) (7 10) (4 10) [REFS]: ([OFFSET] 97 [FUNCTION] LISP-INTERNALS::BIND-VARIABLE [#ARGS] 5) ([OFFSET] 96 [FUNCTION] LISP-INTERNALS::SET-IN-NEW-CONTOUR [#ARGS] 2) ([OFFSET] 94 [FUNCTION] LISP-INTERNALS::SET-IN-NEW-CONTOUR [#ARGS] 2) ([OFFSET] 92 [FUNCTION] LISP-INTERNALS::SET-IN-NEW-CONTOUR [#ARGS] 2) ([OFFSET] 90 [FUNCTION] LISP-INTERNALS::SET-IN-NEW-CONTOUR [#ARGS] 2) ([OFFSET] 88 [FUNCTION] LISP-INTERNALS::SET-IN-NEW-CONTOUR [#ARGS] 2) ([OFFSET] 86 [FUNCTION] LISP-INTERNALS::MAKE-CLOSURE [#ARGS] 3) ([OFFSET] 79 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 2) ([OFFSET] 74 [FUNCTION] LISP-INTERNALS::LOOKS-LIKE-LAMBDA-LIST-KEYWORD? [#ARGS] 1) ([OFFSET] 70 [FUNCTION] LISP-INTERNALS::BIND-AUX-PARAMETERS [#ARGS] 5) ([OFFSET] 66 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 58 [FUNCTION] LISP-INTERNALS::BIND-KEY-PARAMETERS [#ARGS] 5) ([OFFSET] 54 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 46 [FUNCTION] LISP-INTERNALS::BIND-REST-PARAMETER [#ARGS] 5) ([OFFSET] 42 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 34 [FUNCTION] LISP-INTERNALS::BIND-OPTIONAL-PARAMETERS [#ARGS] 5) ([OFFSET] 30 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 25 [FUNCTION] LISP-INTERNALS::EXECUTE-CLOSURE-BODY-CODE [#ARGS] 2) ([OFFSET] 17 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 9 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 1 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] CONS::CAR [#ARGS] 1) [ENTRIES]: ([#ARGS] 5 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (84 COMPILED FUNCTION INFO: NAME: ( KEYWORD::INTERNAL LISP-INTERNALS::BIND-REQUIRED-PARAMETERS P_91) [LOCAL-REFS]: [REFS]: ([OFFSET] 10 [FUNCTION] LISP-INTERNALS::BIND-REQUIRED-PARAMETERS [#ARGS] 5) ([OFFSET] 9 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0 [#ARGS] 2) ([OFFSET] 7 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-4 [#ARGS] 1) ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-3 [#ARGS] 1) ([OFFSET] 5 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-2 [#ARGS] 1) ([OFFSET] 2 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-1 [#ARGS] 1) [ENTRIES]: ([#ARGS] 0 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (78 Lambda list keyword ~A is bogus in this position.) (62 PRIMITIVES::&AUX) (50 PRIMITIVES::&KEY) (38 PRIMITIVES::&REST) (26 PRIMITIVES::&OPTIONAL) (16 Too few arguments in APPLY-INTERPRETER-CLOSURE) (8 Too many arguments in APPLY-INTERPRETER-CLOSURE)) (DEFUN LISP-INTERNALS::BIND-OPTIONAL-PARAMETERS COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::BIND-OPTIONAL-PARAMETERS [LOCAL-REFS]: (86 68) (85 73) (72 83) (66 86) (57 60) (45 54) (33 42) (21 30) (15 18) (12 18) (7 10) (4 10) [REFS]: ([OFFSET] 84 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 2) ([OFFSET] 79 [FUNCTION] LISP-INTERNALS::BIND-VARIABLE [#ARGS] 5) ([OFFSET] 78 [FUNCTION] LISP-INTERNALS::MAKE-CLOSURE-1 [#ARGS] 3) ([OFFSET] 69 [FUNCTION] LISP-INTERNALS::REQUIRE-BINDABLE-SYMBOL [#ARGS] 1) ([OFFSET] 61 [FUNCTION] LISP-INTERNALS::MVBIND-3 [#ARGS] 1) ([OFFSET] 60 [FUNCTION] USER::PARSE-OPTIONAL-PARAMETER [#ARGS] 1) ([OFFSET] 59 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 2) ([OFFSET] 54 [FUNCTION] LISP-INTERNALS::LOOKS-LIKE-LAMBDA-LIST-KEYWORD? [#ARGS] 1) ([OFFSET] 50 [FUNCTION] LISP-INTERNALS::BIND-AUX-PARAMETERS [#ARGS] 5) ([OFFSET] 46 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 38 [FUNCTION] LISP-INTERNALS::BIND-KEY-PARAMETERS [#ARGS] 5) ([OFFSET] 34 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 26 [FUNCTION] LISP-INTERNALS::BIND-REST-PARAMETER [#ARGS] 5) ([OFFSET] 22 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 17 [FUNCTION] LISP-INTERNALS::EXECUTE-CLOSURE-BODY-CODE [#ARGS] 2) ([OFFSET] 9 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 1 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] CONS::CAR [#ARGS] 1) [ENTRIES]: ([#ARGS] 5 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (76 COMPILED FUNCTION INFO: NAME: ( KEYWORD::INTERNAL LISP-INTERNALS::BIND-OPTIONAL-PARAMETERS P_97) [LOCAL-REFS]: (3 14) [REFS]: ([OFFSET] 16 [FUNCTION] LISP-INTERNALS::FUNCALL-INTERNAL [#ARGS] 0) ([OFFSET] 10 [FUNCTION] LISP-INTERNALS::BIND-VARIABLE [#ARGS] 5) ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::REQUIRE-BINDABLE-SYMBOL [#ARGS] 1) ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-1 [#ARGS] 1) ([OFFSET] 0 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-1 [#ARGS] 1) [ENTRIES]: ([#ARGS] 0 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (68 COMPILED FUNCTION INFO: NAME: ( KEYWORD::INTERNAL LISP-INTERNALS::BIND-OPTIONAL-PARAMETERS P_121) [LOCAL-REFS]: [REFS]: ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::BIND-OPTIONAL-PARAMETERS [#ARGS] 5) ([OFFSET] 1 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] CONS::CDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 0 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (58 Lambda list keyword ~A is bogus in this position.) (42 PRIMITIVES::&AUX) (30 PRIMITIVES::&KEY) (18 PRIMITIVES::&REST) (8 Too many arguments in APPLY-INTERPRETER-CLOSURE)) (DEFUN LISP-INTERNALS::BIND-REST-PARAMETER COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::BIND-REST-PARAMETER [LOCAL-REFS]: [REFS]: ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) [ENTRIES]: ([#ARGS] 5 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (0 BIND-REST-PARAMETER not yet implemented)) (DEFUN LISP-INTERNALS::BIND-KEY-PARAMETERS COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::BIND-KEY-PARAMETERS [LOCAL-REFS]: [REFS]: ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) [ENTRIES]: ([#ARGS] 5 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (0 BIND-KEY-PARAMETERS not yet implemented)) (DEFUN LISP-INTERNALS::BIND-AUX-PARAMETERS COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::BIND-AUX-PARAMETERS [LOCAL-REFS]: [REFS]: ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) [ENTRIES]: ([#ARGS] 5 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (0 BIND-AUX-PARAMETERS not yet implemented)) (DEFUN LISP-INTERNALS::BIND-VARIABLE COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::BIND-VARIABLE [LOCAL-REFS]: (51 4) (34 39) (28 21) (23 10) (15 24) (12 29) (6 40) (3 49) [REFS]: ([OFFSET] 50 [FUNCTION] LISP-INTERNALS::MEMBER-EQL [#ARGS] 2) ([OFFSET] 48 [FUNCTION] LISP-INTERNALS::FUNCALL-INTERNAL [#ARGS] 0) ([OFFSET] 45 [FUNCTION] LISP-INTERNALS::BIND-IN-FRAME [#ARGS] 5) ([OFFSET] 36 [FUNCTION] LISP-INTERNALS::UNBIND [#ARGS] 1) ([OFFSET] 35 [FUNCTION] ARRAY::LENGTH [#ARGS] 1) ([OFFSET] 31 [FUNCTION] LISP-INTERNALS::FUNCALL-INTERNAL [#ARGS] 0) ([OFFSET] 26 [FUNCTION] LISP-INTERNALS::BIND [#ARGS] 2) ([OFFSET] 24 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 22 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 21 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 18 [FUNCTION] LISP-INTERNALS::BIND [#ARGS] 2) ([OFFSET] 17 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 16 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::LIST [#ARGS] 1) ([OFFSET] 7 [FUNCTION] LISP-INTERNALS::LIST [#ARGS] 1) ([OFFSET] 0 [FUNCTION] LISP-INTERNALS::PROCLAIMED-SPECIAL-P [#ARGS] 1) [ENTRIES]: ([#ARGS] 5 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (44 KEYWORD::VARIABLE) (25 KEYWORD::UNBOUND)) (DEFUN LISP-INTERNALS::EXECUTE-CLOSURE-BODY-CODE COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EXECUTE-CLOSURE-BODY-CODE [LOCAL-REFS]: [REFS]: ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::EVAL-SEQUENCE [#ARGS] 2) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFVAR LISP-INTERNALS::*ALLOW-LOSING-&-SYMBOLS?* PRIMITIVES::T) (DEFUN LISP-INTERNALS::REQUIRE-BINDABLE-SYMBOL COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::REQUIRE-BINDABLE-SYMBOL [LOCAL-REFS]: (50 54) (43 47) (36 40) (30 34) (21 28) (17 28) (9 13) (5 55) (1 2) [REFS]: ([OFFSET] 57 [FUNCTION] PRIMITIVES::FERROR [#ARGS] 3) ([OFFSET] 53 [FUNCTION] PRIMITIVES::FERROR [#ARGS] 3) ([OFFSET] 47 [FUNCTION] LISP-INTERNALS::CONSTANTP [#ARGS] 1) ([OFFSET] 46 [FUNCTION] PRIMITIVES::FERROR [#ARGS] 3) ([OFFSET] 40 [FUNCTION] LISP-INTERNALS::KEYWORDP [#ARGS] 1) ([OFFSET] 39 [FUNCTION] PRIMITIVES::FERROR [#ARGS] 3) ([OFFSET] 33 [FUNCTION] PRIMITIVES::FERROR [#ARGS] 3) ([OFFSET] 25 [FUNCTION] LISP-INTERNALS::CERROR [#ARGS] 4) ([OFFSET] 18 [FUNCTION] LISP-INTERNALS::LOOKS-LIKE-LAMBDA-LIST-KEYWORD? [#ARGS] 1) ([OFFSET] 14 [FUNCTION] SYMBOL::%SYMBOL-VALUE [#ARGS] 1) ([OFFSET] 12 [FUNCTION] PRIMITIVES::FERROR [#ARGS] 3) ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::LAMBDA-LIST-KEYWORD-P [#ARGS] 1) ([OFFSET] 2 [FUNCTION] VINCULUM::SYMBOLP [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 2) ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (55 Attempt to ~A ~S; a symbol is required) (51 Attempt to ~A the constant ~S) (44 Attempt to ~A the keyword ~S) (37 Veritas aeternae: Don't ~A ~S) (31 Nihil ex nihil: Don't ~A ~S) (23 Attempt to ~A what appears to be a lambda-list-keyword ~s.) (22 Do it anyway.) (13 LISP-INTERNALS::*ALLOW-LOSING-&-SYMBOLS?*) (10 Attempt to ~A the lambda-list-keyword ~S) (0 bind)) (DEFUN LISP-INTERNALS::REQUIRE-N-ARGUMENTS COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::REQUIRE-N-ARGUMENTS [LOCAL-REFS]: (17 20) (14 20) (8 12) (1 3) [REFS]: ([OFFSET] 19 [FUNCTION] PRIMITIVES::FERROR [#ARGS] 2) ([OFFSET] 11 [FUNCTION] PRIMITIVES::FERROR [#ARGS] 3) ([OFFSET] 5 [FUNCTION] ARRAY::LENGTH [#ARGS] 1) ([OFFSET] 4 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 3 [FUNCTION] CONS::CAR [#ARGS] 1) [ENTRIES]: ([#ARGS] 3 [OFFSET] 2) ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (20 okay) (18 Too many arguments in ~S expression.) (9 ~S expression requires at least ~S argument~:P.)) (DEFUN LISP-INTERNALS::EXAMINE-DECLARATIONS COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EXAMINE-DECLARATIONS [LOCAL-REFS]: [REFS]: ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::EXTRACT-SPECIAL-VARIABLE-LIST [#ARGS] 1) ([OFFSET] 3 [FUNCTION] LISP-INTERNALS::MVBIND-2 [#ARGS] 1) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::GOBBLE-DECLARATIONS [#ARGS] 3) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::EXTRACT-SPECIAL-VARIABLE-LIST COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EXTRACT-SPECIAL-VARIABLE-LIST [LOCAL-REFS]: (2 13) [REFS]: ([OFFSET] 7 [FUNCTION] PRIMITIVES::APPEND [#ARGS] 2) ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::EXTRACT-SPECIAL-VARIABLE-LIST [#ARGS] 1) ([OFFSET] 5 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::EXTRACT-SPECIAL-VARIABLES [#ARGS] 1) ([OFFSET] 3 [FUNCTION] CONS::CAR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::EXTRACT-SPECIAL-VARIABLES COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::EXTRACT-SPECIAL-VARIABLES [LOCAL-REFS]: (27 17) (26 23) (25 3) (20 26) (11 27) (5 28) [REFS]: ([OFFSET] 24 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 22 [FUNCTION] CONS::RPLACD [#ARGS] 2) ([OFFSET] 17 [FUNCTION] CONS::CONS [#ARGS] 2) ([OFFSET] 13 [FUNCTION] PRIMITIVES::APPEND [#ARGS] 2) ([OFFSET] 12 [FUNCTION] LISP-INTERNALS::SPECIAL-VARS-IN-DECL-SPEC [#ARGS] 1) ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::SPECIAL-DECL-SPEC-P [#ARGS] 1) ([OFFSET] 7 [FUNCTION] CONS::CAR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::SPECIAL-VARS-IN-DECL-SPEC COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::SPECIAL-VARS-IN-DECL-SPEC [LOCAL-REFS]: (25 12) (22 19) (21 3) (16 22) (11 23) (5 26) [REFS]: ([OFFSET] 24 [FUNCTION] LISP-INTERNALS::ERROR [#ARGS] 1) ([OFFSET] 20 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 18 [FUNCTION] CONS::RPLACD [#ARGS] 2) ([OFFSET] 13 [FUNCTION] CONS::CONS [#ARGS] 2) ([OFFSET] 8 [FUNCTION] VINCULUM::SYMBOLP [#ARGS] 1) ([OFFSET] 7 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] CONS::CDR [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (23 element of special decl-spec not a symbol)) (DEFUN LISP-INTERNALS::SPECIAL-DECL-SPEC-P COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::SPECIAL-DECL-SPEC-P [LOCAL-REFS]: (8 10) (3 11) [REFS]: ([OFFSET] 4 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] VINCULUM::LISTP [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (5 LISP-INTERNALS::SPECIAL)) (DEFUN LISP-INTERNALS::GOBBLE-DECLARATIONS COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::GOBBLE-DECLARATIONS [LOCAL-REFS]: (42 44) (39 44) (33 18) (32 34) (29 34) (26 34) (22 5) (15 23) (10 23) (1 2) (0 1) [REFS]: ([OFFSET] 44 [FUNCTION] LISP-INTERNALS::REVERSE [#ARGS] 1) ([OFFSET] 43 [FUNCTION] LISP-INTERNALS::LIST [#ARGS] 1) ([OFFSET] 23 [FUNCTION] ARRAY::STRINGP [#ARGS] 1) ([OFFSET] 19 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 18 [FUNCTION] CONS::CDR [#ARGS] 1) ([OFFSET] 17 [FUNCTION] CONS::CONS [#ARGS] 2) ([OFFSET] 11 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 7 [FUNCTION] VINCULUM::LISTP [#ARGS] 1) ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::MACROEXPAND [#ARGS] 2) ([OFFSET] 5 [FUNCTION] CONS::CAR [#ARGS] 1) [ENTRIES]: ([#ARGS] 3 [OFFSET] 2) ([#ARGS] 2 [OFFSET] 1) ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (12 PRIMITIVES::DECLARE)) (DEFUN LISP-INTERNALS::MACROEXPAND COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::MACROEXPAND [LOCAL-REFS]: (7 13) (0 1) [REFS]: ([OFFSET] 9 [FUNCTION] LISP-INTERNALS::MACROEXPAND [#ARGS] 2) ([OFFSET] 3 [FUNCTION] LISP-INTERNALS::MVBIND-2 [#ARGS] 1) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::MACROEXPAND-1 [#ARGS] 2) [ENTRIES]: ([#ARGS] 2 [OFFSET] 1) ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (DEFUN LISP-INTERNALS::MACROEXPAND-1 COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::MACROEXPAND-1 [LOCAL-REFS]: (54 78) (49 78) (44 78) (18 35) (11 40) (4 85) (0 1) [REFS]: ([OFFSET] 63 [FUNCTION] LISP-INTERNALS::FUNCALL-INTERNAL [#ARGS] 3) ([OFFSET] 58 [FUNCTION] LISP-INTERNALS::MACRO-FUNCTION [#ARGS] 1) ([OFFSET] 57 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 56 [FUNCTION] SYMBOL::%SYMBOL-VALUE [#ARGS] 1) ([OFFSET] 51 [FUNCTION] LISP-INTERNALS::COMMON-LISP-SPECIAL-FORM-P [#ARGS] 1) ([OFFSET] 50 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 46 [FUNCTION] LISP-INTERNALS::MACRO-FUNCTION [#ARGS] 1) ([OFFSET] 45 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 41 [FUNCTION] VINCULUM::SYMBOLP [#ARGS] 1) ([OFFSET] 40 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 28 [FUNCTION] LISP-INTERNALS::FUNCALL-INTERNAL [#ARGS] 3) ([OFFSET] 23 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) ([OFFSET] 20 [FUNCTION] SYMBOL::%SYMBOL-VALUE [#ARGS] 1) ([OFFSET] 14 [FUNCTION] LISP-INTERNALS::STRUCTURE-REF [#ARGS] 3) ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::LOOKUP-BINDING-IN-ENVIRONMENT [#ARGS] 3) ([OFFSET] 5 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 1 [FUNCTION] VINCULUM::LISTP [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 1) ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (55 LISP-INTERNALS::FOO-*MACROEXPAND-HOOK*) (21 LISP-INTERNALS::BINDING) (19 LISP-INTERNALS::FOO-*MACROEXPAND-HOOK*) (15 KEYWORD::MACRO) (12 LISP-INTERNALS::BINDING) (7 KEYWORD::FUNMAC)) (DEFUN LISP-INTERNALS::SPECIAL-FORM-P COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::SPECIAL-FORM-P [LOCAL-REFS]: (10 12) (3 5) [REFS]: ([OFFSET] 7 [FUNCTION] LISP-INTERNALS::MEMBER-EQL [#ARGS] 2) ([OFFSET] 0 [FUNCTION] LISP-INTERNALS::COMMON-LISP-SPECIAL-FORM-P [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (6 ( PRIMITIVES::COND PRIMITIVES::AND PRIMITIVES::OR))) (DEFUN LISP-INTERNALS::COMMON-LISP-SPECIAL-FORM-P COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::COMMON-LISP-SPECIAL-FORM-P [LOCAL-REFS]: (5 7) [REFS]: ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::MEMBER-EQL [#ARGS] 2) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (1 ( PRIMITIVES::BLOCK PRIMITIVES::CATCH PRIMITIVES::COMPILER-LET PRIMITIVES::DECLARE PRIMITIVES::EVAL-WHEN PRIMITIVES::FLET PRIMITIVES::FUNCTION PRIMITIVES::GO LISP::IF PRIMITIVES::LABELS PRIMITIVES::LET PRIMITIVES::LET* PRIMITIVES::MACROLET LISP-INTERNALS::MULTIPLE-VALUE-CALL LISP-INTERNALS::MULTIPLE-VALUE-PROG1 PRIMITIVES::PROGN LISP-INTERNALS::PROGV PRIMITIVES::QUOTE PRIMITIVES::RETURN-FROM PRIMITIVES::SETQ PRIMITIVES::TAGBODY LISP-INTERNALS::THE PRIMITIVES::THROW LISP-INTERNALS::UNWIND-PROTECT))) (DEFUN LISP-INTERNALS::RELINQUISH-TO-EVALHOOK COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::RELINQUISH-TO-EVALHOOK [LOCAL-REFS]: [REFS]: ([OFFSET] 17 [FUNCTION] LISP-INTERNALS::UNBIND [#ARGS] 1) ([OFFSET] 16 [FUNCTION] LISP-INTERNALS::FUNCALL-INTERNAL [#ARGS] 2) ([OFFSET] 15 [FUNCTION] LISP-INTERNALS::MAKE-CLOSURE-2 [#ARGS] 4) ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::INTERMEDIATE-EXPRESSION-ORIGINAL-FORM [#ARGS] 1) ([OFFSET] 7 [FUNCTION] LISP-INTERNALS::BIND [#ARGS] 2) ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::BIND [#ARGS] 2) ([OFFSET] 1 [FUNCTION] SYMBOL::%SYMBOL-VALUE [#ARGS] 1) [ENTRIES]: ([#ARGS] 2 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (12 COMPILED FUNCTION INFO: NAME: ( KEYWORD::INTERNAL LISP-INTERNALS::RELINQUISH-TO-EVALHOOK EVAL-FN_26) [LOCAL-REFS]: [REFS]: ([OFFSET] 8 [FUNCTION] PRIMITIVES::VALUES-LIST [#ARGS] 1) ([OFFSET] 7 [FUNCTION] LISP-INTERNALS::MV-LIST [#ARGS] 1) ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 3) ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-2 [#ARGS] 1) ([OFFSET] 3 [FUNCTION] LISP-INTERNALS::PREPROCESS [#ARGS] 2) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::INTERMEDIATE-EXPRESSION-PREPROCESSOR-ENV [#ARGS] 1) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-1 [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (6 LISP-INTERNALS::FOO-*APPLYHOOK*) (4 LISP-INTERNALS::FOO-*EVALHOOK*) (0 LISP-INTERNALS::FOO-*EVALHOOK*)) (DEFUN LISP-INTERNALS::RELINQUISH-TO-APPLYHOOK COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::RELINQUISH-TO-APPLYHOOK [LOCAL-REFS]: [REFS]: ([OFFSET] 17 [FUNCTION] LISP-INTERNALS::UNBIND [#ARGS] 1) ([OFFSET] 16 [FUNCTION] LISP-INTERNALS::FUNCALL-INTERNAL [#ARGS] 3) ([OFFSET] 15 [FUNCTION] LISP-INTERNALS::MAKE-CLOSURE-2 [#ARGS] 4) ([OFFSET] 7 [FUNCTION] LISP-INTERNALS::BIND [#ARGS] 2) ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::BIND [#ARGS] 2) ([OFFSET] 1 [FUNCTION] SYMBOL::%SYMBOL-VALUE [#ARGS] 1) [ENTRIES]: ([#ARGS] 4 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (12 COMPILED FUNCTION INFO: NAME: ( KEYWORD::INTERNAL LISP-INTERNALS::RELINQUISH-TO-APPLYHOOK EVAL-FN_26) [LOCAL-REFS]: [REFS]: ([OFFSET] 7 [FUNCTION] PRIMITIVES::VALUES-LIST [#ARGS] 1) ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::MV-LIST [#ARGS] 1) ([OFFSET] 5 [FUNCTION] LISP-INTERNALS::MAIN-EVAL [#ARGS] 3) ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-2 [#ARGS] 1) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::PREPROCESS [#ARGS] 2) ([OFFSET] 1 [FUNCTION] LISP-INTERNALS::CLOSURE-REF-0-1 [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]:) (6 LISP-INTERNALS::FOO-*APPLYHOOK*) (4 LISP-INTERNALS::FOO-*EVALHOOK*) (0 LISP-INTERNALS::FOO-*APPLYHOOK*)) (DEFUN LISP-INTERNALS::FOO-EVALHOOK COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::FOO-EVALHOOK [LOCAL-REFS]: (7 14) (0 1) [REFS]: ([OFFSET] 15 [FUNCTION] LISP-INTERNALS::UNBIND [#ARGS] 1) ([OFFSET] 14 [FUNCTION] PRIMITIVES::EVAL [#ARGS] 1) ([OFFSET] 11 [FUNCTION] LISP-INTERNALS::UNBIND [#ARGS] 1) ([OFFSET] 10 [FUNCTION] LISP-INTERNALS::FUNCALL-INTERNAL [#ARGS] 1) ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::BIND [#ARGS] 2) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::BIND [#ARGS] 2) [ENTRIES]: ([#ARGS] 4 [OFFSET] 1) ([#ARGS] 3 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (3 LISP-INTERNALS::FOO-*APPLYHOOK*) (1 LISP-INTERNALS::FOO-*EVALHOOK*)) (DEFUN LISP-INTERNALS::FOO-APPLYHOOK COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::FOO-APPLYHOOK [LOCAL-REFS]: (0 1) [REFS]: ([OFFSET] 9 [FUNCTION] LISP-INTERNALS::UNBIND [#ARGS] 1) ([OFFSET] 8 [FUNCTION] LISP-INTERNALS::APPLY-INTERNAL [#ARGS] 0) ([OFFSET] 4 [FUNCTION] LISP-INTERNALS::BIND [#ARGS] 2) ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::BIND [#ARGS] 2) [ENTRIES]: ([#ARGS] 5 [OFFSET] 1) ([#ARGS] 4 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (3 LISP-INTERNALS::FOO-*APPLYHOOK*) (1 LISP-INTERNALS::FOO-*EVALHOOK*)) (DEFUN LISP-INTERNALS::PROCLAIMED-SPECIAL-P COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::PROCLAIMED-SPECIAL-P [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] SYMBOL::GET [#ARGS] 2) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (1 LISP-INTERNALS::SPECIAL)) (DEFUN LISP-INTERNALS::LAMBDA-EXPRESSION-P COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::LAMBDA-EXPRESSION-P [LOCAL-REFS]: (8 10) (3 11) [REFS]: ([OFFSET] 4 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] VINCULUM::LISTP [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (5 PRIMITIVES::LAMBDA)) (DEFUN LISP-INTERNALS::NAMED-LAMBDA-EXPRESSION-P COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::NAMED-LAMBDA-EXPRESSION-P [LOCAL-REFS]: (3 10) [REFS]: ([OFFSET] 6 [FUNCTION] LISP-INTERNALS::MEMBER-EQL [#ARGS] 2) ([OFFSET] 4 [FUNCTION] CONS::CAR [#ARGS] 1) ([OFFSET] 0 [FUNCTION] VINCULUM::LISTP [#ARGS] 1) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (5 ( NC::NAMED-LAMBDA LISP-INTERNALS::INTERPRETER-NAMED-LAMBDA))) (DEFUN LISP-INTERNALS::LAMBDA-LIST-KEYWORD-P COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::LAMBDA-LIST-KEYWORD-P [LOCAL-REFS]: [REFS]: ([OFFSET] 2 [FUNCTION] LISP-INTERNALS::MEMBER-EQL [#ARGS] 2) [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: # [IMMEDIATES]: (1 ( PRIMITIVES::&OPTIONAL PRIMITIVES::&REST PRIMITIVES::&KEY LISP-INTERNALS::&ALLOW-OTHER-KEYS PRIMITIVES::&AUX PRIMITIVES::&BODY PRIMITIVES::&ENVIRONMENT PRIMITIVES::&WHOLE))) (DEFUN LISP-INTERNALS::LOOKS-LIKE-LAMBDA-LIST-KEYWORD? COMPILED FUNCTION INFO: NAME: LISP-INTERNALS::LOOKS-LIKE-LAMBDA-LIST-KEYWORD? [LOCAL-REFS]: [REFS]: [ENTRIES]: ([#ARGS] 1 [OFFSET] 0) [FUNCTION-CODE]: #(0 16 0 106 128 128 68 2) [IMMEDIATES]:)