Problems building 90's PCL in VaxLisp

[Rick Busdiecker <BUSDIECKER@cgi.com>]

I tried to build PCL in a beta release of DEC's VAXLISP and ran into problems.
I'm including a log of the build here in the hopes that someone can help me
past these problems and/or create a patch file for PCL.

A quick summary of the problem is that when loading the binary of std-class, a
call to MAKE-INSTANCE is made at a time when it doesn't have a definition.  The
compilation of std-class included 62 errors.

			Rick Busdiecker <busdiecker%cgi.com@relay.cs.net>

---------------- Log of PCL build attempt: 2683 lines long ----------------
VAX LISP[TM] T3.1
) Digital Equipment Corporation. 1989, 1990.
All Rights Reserved.

Lisp> (load "defsys")
; Loading contents of file DISK$CRL:[RICK.PCL]DEFSYS.LSP;1
;   MODULE
;   MAKE-MODULES
;   MAKE-TRANSFORMATIONS
;   MAKE-COMPILE-TRANSFORMATION
;   MAKE-LOAD-TRANSFORMATION
;   MAKE-LOAD-WITHOUT-DEPENDENCIES-TRANSFORMATION
;   COMPILE-FILTER
;   OPERATE-ON-SYSTEM
;   MAKE-SOURCE-PATHNAME
;   MAKE-BINARY-PATHNAME
;   MAKE-PATHNAME-INTERNAL
;   LOAD-TRUENAME
;   COMPILE-PCL
;   LOAD-PCL
;   BUG-REPORT-INFO
;   RENAME-PCL
; Finished loading DISK$CRL:[RICK.PCL]DEFSYS.LSP;1
T
Lisp> (load (compile-file "defsys"))
Starting compilation of file DISK$CRL:[RICK.PCL]DEFSYS.LSP;1

GET-SYSTEM compiled.
SET-SYSTEM compiled.
DEFSYSTEM compiled.
MAKE-MODULE compiled.
MODULE-NAME compiled.
MODULE-LOAD-ENV compiled.
MODULE-COMP-ENV compiled.
MODULE-RECOMP-REASONS compiled.
|SETF MODULE-NAME| compiled.
|SETF MODULE-LOAD-ENV| compiled.
|SETF MODULE-COMP-ENV| compiled.
|SETF MODULE-RECOMP-REASONS| compiled.
MODULE-P compiled.
MAKE-MODULES compiled.
MAKE-TRANSFORMATIONS compiled.
MAKE-COMPILE-TRANSFORMATION compiled.
; Starting full GC ...
; ... Full GC finished

MAKE-LOAD-TRANSFORMATION compiled.
MAKE-LOAD-WITHOUT-DEPENDENCIES-TRANSFORMATION compiled.
COMPILE-FILTER compiled.
OPERATE-ON-SYSTEM compiled.
MAKE-SOURCE-PATHNAME compiled.
MAKE-BINARY-PATHNAME compiled.
MAKE-PATHNAME-INTERNAL compiled.
LOAD-TRUENAME compiled.
COMPILE-PCL compiled.
LOAD-PCL compiled.
BUG-REPORT-INFO compiled.
RENAME-PCL compiled.

Finished compilation of file DISK$CRL:[RICK.PCL]DEFSYS.LSP;1
0 Errors, 0 Warnings
; Loading contents of file DISK$CRL:[RICK.PCL]DEFSYS.FAS;1
;   GET-SYSTEM
;   SET-SYSTEM
;   DEFSYSTEM
;   MAKE-MODULE
;   MODULE-NAME
;   MODULE-LOAD-ENV
;   MODULE-COMP-ENV
;   MODULE-RECOMP-REASONS
;   |SETF MODULE-NAME|
;   |SETF MODULE-LOAD-ENV|
;   |SETF MODULE-COMP-ENV|
;   |SETF MODULE-RECOMP-REASONS|
;   MODULE-P
;   MAKE-MODULES
;   MAKE-TRANSFORMATIONS
;   MAKE-COMPILE-TRANSFORMATION
;   MAKE-LOAD-TRANSFORMATION
;   MAKE-LOAD-WITHOUT-DEPENDENCIES-TRANSFORMATION
;   COMPILE-FILTER
;   OPERATE-ON-SYSTEM
;   MAKE-SOURCE-PATHNAME
;   MAKE-BINARY-PATHNAME
;   MAKE-PATHNAME-INTERNAL
;   LOAD-TRUENAME
;   COMPILE-PCL
;   LOAD-PCL
;   BUG-REPORT-INFO
;   RENAME-PCL
; Finished loading DISK$CRL:[RICK.PCL]DEFSYS.FAS;1
T
Lisp> pcl::*pcl-directory*
#S(PATHNAME :HOST "CGIVB" :DEVICE "DISK$CRL" :DIRECTORY "RICK.PCL" :NAME "DEFSYS
" :TYPE "LSP" :VERSION 1)
Lisp> (namestring *)
"DISK$CRL:[RICK.PCL]DEFSYS.LSP;1"
Lisp> (pcl::compile-pcl)
Compiling PKG...
Starting compilation of file DISK$CRL:[RICK.PCL]PKG.LSP;1


Finished compilation of file DISK$CRL:[RICK.PCL]PKG.LSP;1
0 Errors, 0 Warnings
Loading binary of PKG...
Compiling WALK...
Starting compilation of file DISK$CRL:[RICK.PCL]WALK.LSP;1

UNBOUND-LEXICAL-FUNCTION compiled.
WITH-AUGMENTED-ENVIRONMENT compiled.
WITH-AUGMENTED-ENVIRONMENT-INTERNAL compiled.
LOOKUP-MACRO-FUNCTION compiled.
ENVIRONMENT-MACRO compiled.
; Starting full GC ...
; ... Full GC finished

WITH-NEW-DEFINITION-IN-ENVIRONMENT compiled.
CONVERT-MACRO-TO-LAMBDA compiled.
WALKER-ENVIRONMENT-BIND compiled.
ENV-LOCK compiled.
WALKER-ENVIRONMENT-BIND-1 compiled.
ENV-WALK-FUNCTION compiled.
ENV-WALK-FORM compiled.
ENV-DECLARATIONS compiled.
ENV-LEXICAL-VARIABLES compiled.
NOTE-DECLARATION compiled.
NOTE-LEXICAL-BINDING compiled.
VARIABLE-LEXICAL-P compiled.
VARIABLE-DECLARATION compiled.
VARIABLE-SPECIAL-P compiled.
VARIABLE-GLOBALLY-SPECIAL-P compiled.
GET-WALKER-TEMPLATE-INTERNAL compiled.
DEFINE-WALKER-TEMPLATE compiled.
GET-WALKER-TEMPLATE compiled.
GET-IMPLEMENTATION-DEPENDENT-WALKER-TEMPLATE compiled.
WALK-FORM compiled.
NESTED-WALK-FORM compiled.
WALK-FORM-INTERNAL compiled.
WALK-TEMPLATE compiled.
; Starting full GC ...
; ... Full GC finished

WALK-TEMPLATE-HANDLE-REPEAT compiled.
WALK-TEMPLATE-HANDLE-REPEAT-1 compiled.
WALK-REPEAT-EVAL compiled.
RECONS compiled.
RELIST compiled.
RELIST* compiled.
RELIST-INTERNAL compiled.
WALK-DECLARATIONS compiled.
WALK-UNEXPECTED-DECLARE compiled.
WALK-ARGLIST compiled.
WALK-LET compiled.
WALK-LET* compiled.
WALK-PROG compiled.
WALK-PROG* compiled.
WALK-DO compiled.
WALK-DO* compiled.
WALK-LET/LET* compiled.
WALK-PROG/PROG* compiled.
WALK-DO/DO* compiled.
WALK-LET-IF compiled.
WALK-MULTIPLE-VALUE-BIND compiled.
WALK-BINDINGS-1 compiled.
WALK-BINDINGS-2 compiled.
WALK-LAMBDA compiled.
WALK-NAMED-LAMBDA compiled.
WALK-TAGBODY compiled.
WALK-TAGBODY-1 compiled.
WALK-COMPILER-LET compiled.
WALK-MACROLET compiled.
WALK-FLET compiled.
; Starting full GC ...
; ... Full GC finished

WALK-LABELS compiled.
WALK-IF compiled.

Finished compilation of file DISK$CRL:[RICK.PCL]WALK.LSP;1
0 Errors, 0 Warnings
Loading binary of WALK...
Compiling ITERATE...
Starting compilation of file DISK$CRL:[RICK.PCL]ITERATE.LSP;1

ITERATE compiled.
SIMPLE-EXPAND-ITERATE-FORM compiled.
; Starting full GC ...
; ... Full GC finished

OPTIMIZE-ITERATE-FORM compiled.
EXPAND-INTO-LET compiled.
VARIABLES-FROM-LET compiled.
ITERATE-TRANSFORM-BODY compiled.
PARSE-DECLARATIONS compiled.
EXTRACT-SPECIAL-BINDINGS compiled.
FUNCTION-LAMBDA-P compiled.
RENAME-LET-BINDINGS compiled.
RENAME-VARIABLES compiled.
MV-SETQ compiled.
VARIABLE-SAME-P compiled.
MAYBE-WARN compiled.
; Starting full GC ...
; ... Full GC finished

INTERVAL compiled.
LIST-ELEMENTS compiled.
LIST-TAILS compiled.
ELEMENTS compiled.
PLIST-ELEMENTS compiled.
SEQUENCE-ACCESSOR compiled.
EACHTIME compiled.
WHILE compiled.
UNTIL compiled.
GATHERING compiled.
WITH-GATHERING compiled.
SIMPLE-EXPAND-GATHERING-FORM compiled.
; Starting full GC ...
; ... Full GC finished

OPTIMIZE-GATHERING-FORM compiled.
RENAME-AND-CAPTURE-VARIABLES compiled.
WALK-GATHERING-BODY compiled.
COLLECTING compiled.
JOINING compiled.
MAXIMIZING compiled.
MINIMIZING compiled.
SUMMING compiled.

Finished compilation of file DISK$CRL:[RICK.PCL]ITERATE.LSP;1
0 Errors, 0 Warnings
Loading binary of ITERATE...
Compiling MACROS...
Starting compilation of file DISK$CRL:[RICK.PCL]MACROS.LSP;1

MEMQ compiled.
ASSQ compiled.
RASSQ compiled.
DELQ compiled.
POSQ compiled.
NEQ compiled.
MAKE-CAXR compiled.
MAKE-CDXR compiled.
TRUE compiled.
FALSE compiled.
ZERO compiled.
MAKE-PLIST compiled.
REMTAIL compiled.
ONCE-ONLY compiled.
EXTRACT-DECLARATIONS compiled.
; Starting full GC ...
; ... Full GC finished

MAKE-KEYWORD compiled.
STRING-APPEND compiled.
SYMBOL-APPEND compiled.
CHECK-MEMBER compiled.
ALIST-ENTRY compiled.
DESTRUCTURING-BIND compiled.
DESTRUCTURE compiled.
DESTRUCTURE-INTERNAL compiled.
COLLECTING-ONCE compiled.
DOPLIST compiled.
IF* compiled.
PRINTING-RANDOM-THING compiled.
PRINTING-RANDOM-THING-INTERNAL compiled.
; Starting full GC ...
; ... Full GC finished

CAPITALIZE-WORDS compiled.
LEGAL-CLASS-NAME-P compiled.
FIND-CLASS compiled.
|SETF PCL FIND-CLASS| compiled.
FIND-WRAPPER compiled.
REDUCE-CONSTANT compiled.
GATHERING1 compiled.
VECTORIZING compiled.
*LIST-ELEMENTS compiled.
*LIST-TAILS compiled.

Finished compilation of file DISK$CRL:[RICK.PCL]MACROS.LSP;1
0 Errors, 0 Warnings
The following are assumed to be functions, but were not
declared or defined:
 CLASS-WRAPPER
Loading binary of MACROS...
Compiling LOW...
Starting compilation of file DISK$CRL:[RICK.PCL]LOW.LSP;1

%LOGAND compiled.
%+ compiled.
%1+ compiled.
%1- compiled.
%ZEROP compiled.
%= compiled.
%SVREF compiled.
REDUCE-VARIADIC-TO-BINARY compiled.
WITHOUT-INTERRUPTS compiled.
MAKE-MEMORY-BLOCK compiled.
MEMORY-BLOCK-REF compiled.
CLEAR-MEMORY-BLOCK compiled.
%%ALLOCATE-INSTANCE--CLASS compiled.
%STD-INSTANCE-WRAPPER compiled.
; Starting full GC ...
; ... Full GC finished

%STD-INSTANCE-SLOTS compiled.
|SETF %STD-INSTANCE-WRAPPER| compiled.
|SETF %STD-INSTANCE-SLOTS| compiled.
STD-INSTANCE-P compiled.
STD-INSTANCE-WRAPPER compiled.
STD-INSTANCE-SLOTS compiled.
PRINT-STD-INSTANCE compiled.
%ALLOCATE-INSTANCE--CLASS compiled.
%ALLOCATE-INSTANCE--CLASS-1 compiled.
%ALLOCATE-STATIC-SLOT-STORAGE--CLASS compiled.
STD-INSTANCE-CLASS compiled.
FUNCTION-PRETTY-ARGLIST compiled.
SET-FUNCTION-PRETTY-ARGLIST compiled.
SET-FUNCTION-NAME compiled.
SET-FUNCTION-NAME-1 compiled.
INTERN-FUNCTION-NAME compiled.
IN-THE-COMPILER-P compiled.
COMPILE-LAMBDA compiled.
COMPILE-LAMBDA-UNCOMPILED compiled.
COMPILE-LAMBDA-DEFERRED compiled.
PRECOMPILE-RANDOM-CODE-SEGMENTS compiled.
RECORD-DEFINITION compiled.
DOCTOR-DFUN-FOR-THE-DEBUGGER compiled.

Finished compilation of file DISK$CRL:[RICK.PCL]LOW.LSP;1
0 Errors, 0 Warnings
Loading binary of LOW...
Compiling VAXL-LOW...
Starting compilation of file DISK$CRL:[RICK.PCL]VAXL-LOW.LSP;1

WITHOUT-INTERRUPTS compiled.
LOAD-TIME-EVAL compiled.
OBJECT-CACHE-NO compiled.
PRINTING-RANDOM-THING-INTERNAL compiled.
FUNCTION-ARGLIST compiled.
Warning in SET-FUNCTION-NAME-1
  IGNORE bound but value not used.
SET-FUNCTION-NAME-1 compiled.

Finished compilation of file DISK$CRL:[RICK.PCL]VAXL-LOW.LSP;1
0 Errors, 1 Warnings
The following are assumed to be functions, but were not
declared or defined:
 SYSTEM::FUNCTION-LAMBDA-VARS SYSTEM::SLISP-COMPILED-FUNCTION-P
Loading binary of VAXL-LOW...
Compiling FIN...
Starting compilation of file DISK$CRL:[RICK.PCL]FIN.LSP;1

FUNCALLABLE-INSTANCE-DATA-POSITION compiled.
CALLED-FIN-WITHOUT-FUNCTION compiled.
ALLOCATE-FUNCALLABLE-INSTANCE-1 compiled.
FUNCALLABLE-INSTANCE-P compiled.
; Starting full GC ...
; ... Full GC finished

SET-FUNCALLABLE-INSTANCE-FUNCTION compiled.
MAKE-TRAMPOLINE compiled.
FUNCALLABLE-INSTANCE-DATA-1 compiled.
FSC-INSTANCE-P compiled.
FSC-INSTANCE-CLASS compiled.
FSC-INSTANCE-WRAPPER compiled.
FSC-INSTANCE-SLOTS compiled.
ALLOCATE-FUNCALLABLE-INSTANCE compiled.

Finished compilation of file DISK$CRL:[RICK.PCL]FIN.LSP;1
0 Errors, 0 Warnings
Loading binary of FIN...
Compiling DEFCLASS...
Starting compilation of file DISK$CRL:[RICK.PCL]DEFCLASS.LSP;1

MAKE-TOP-LEVEL-FORM compiled.
MAKE-PROGN compiled.
DEFCLASS compiled.
Warning in EXPAND-DEFCLASS
  *DEFCLASS-TIMES* not declared special or bound lexically, assuming special.
  Surrounding forms:
    *DEFCLASS-TIMES*
    (MAKE-TOP-LEVEL-FORM `(DEFCLASS ,NAME) *DEFCLASS-TIMES*
     `(LET (SYSTEM::UNQUOTE 
            #)
        (LOAD-DEFCLASS ',NAME ',METACLASS ',SUPERS ...)))
    (LET ((CANONICAL-SLOTS #) 
          (OTHER-INITARGS #))
      (DO-STANDARD-DEFSETFS-FOR-DEFCLASS *ACCESSORS*)
      (MAKE-TOP-LEVEL-FORM `(DEFCLASS ,NAME) *DEFCLASS-TIMES* `(LET # #)))
EXPAND-DEFCLASS compiled.
MAKE-INITFUNCTION compiled.
; Starting full GC ...
; ... Full GC finished

CANONICALIZE-SLOT-SPECIFICATION compiled.
CANONICALIZE-DEFCLASS-OPTION compiled.
MAKE-EARLY-CLASS-DEFINITION compiled.
ECD-CLASS-NAME compiled.
ECD-SOURCE compiled.
ECD-METACLASS compiled.
ECD-SUPERCLASS-NAMES compiled.
ECD-CANONICAL-SLOTS compiled.
ECD-OTHER-INITARGS compiled.
LOAD-DEFCLASS compiled.

Finished compilation of file DISK$CRL:[RICK.PCL]DEFCLASS.LSP;1
0 Errors, 1 Warnings
The following are assumed to be functions, but were not
declared or defined:
 DO-STANDARD-DEFSETFS-FOR-DEFCLASS
The following are assumed to be special variables, but were
referenced free without being declared or defined:
 *DEFCLASS-TIMES*
Loading binary of DEFCLASS...
Compiling DEFS...
Starting compilation of file DISK$CRL:[RICK.PCL]DEFS.LSP;1

GET-SETF-FUNCTION-NAME compiled.
DO-STANDARD-DEFSETF compiled.
DO-STANDARD-DEFSETFS-FOR-DEFCLASS compiled.
DO-STANDARD-DEFSETF-1 compiled.
Warning in SETFBOUNDP
  SYMBOL bound but value not used.
SETFBOUNDP compiled.
PARSE-GSPEC compiled.
UNENCAPSULATED-FDEFINITION compiled.
FDEFINE-CAREFULLY compiled.
GBOUNDP compiled.
GMAKUNBOUND compiled.
GDEFINITION compiled.
|SETF PCL GDEFINITION| compiled.
*TYPEP compiled.
*SUBTYPEP compiled.
Warning in DO-SATISFIES-DEFTYPE
  EXPAND-FN bound but value not used.
  Surrounding forms:
    (LET* ((SPECIFIER `#) 
           (EXPAND-FN #'#))
      (OR (EVAL `#)))
    (BLOCK DO-SATISFIES-DEFTYPE
      (LET* (# 
             #)
        (OR #)))
Warning in DO-SATISFIES-DEFTYPE
  EXPAND-FN bound but value not used.
  Surrounding forms:
    (LET* ((SPECIFIER `#) 
           (EXPAND-FN #'#))
      (OR (EVAL `#)))
    (BLOCK DO-SATISFIES-DEFTYPE
      (LET* (# 
             #)
        (OR #)))
DO-SATISFIES-DEFTYPE compiled.
; Starting full GC ...
; ... Full GC finished

MAKE-TYPE-PREDICATE-NAME compiled.
GET-BUILT-IN-CLASS-SYMBOL compiled.
GET-BUILT-IN-WRAPPER-SYMBOL compiled.
VARIABLE-CLASS compiled.
DEFINE-GF-PREDICATE compiled.
DOLIST-CAREFULLY compiled.
LEGAL-STD-DOCUMENTATION-P compiled.
LEGAL-STD-LAMBDA-LIST-P compiled.
LEGAL-STD-METHOD-FUNCTION-P compiled.
; Starting full GC ...
; ... Full GC finished

LEGAL-STD-QUALIFIERS-P compiled.
LEGAL-STD-QUALIFIER-P compiled.
LEGAL-STD-SLOT-NAME-P compiled.
LEGAL-STD-SPECIALIZERS-P compiled.
LEGAL-STD-SPECIALIZER-P compiled.

Finished compilation of file DISK$CRL:[RICK.PCL]DEFS.LSP;1
0 Errors, 3 Warnings
The following are assumed to be functions, but were not
declared or defined:
 CLASSP CLASS-OF CLASS-PRECEDENCE-LIST EQL-SPECIALIZER-P
Loading binary of DEFS...
Compiling FNGEN...
Starting compilation of file DISK$CRL:[RICK.PCL]FNGEN.LSP;1

GET-FUNCTION compiled.
DEFAULT-TEST-CONVERTER compiled.
DEFAULT-CODE-CONVERTER compiled.
DEFAULT-CONSTANT-CONVERTER compiled.
STORE-FGEN compiled.
LOOKUP-FGEN compiled.
MAKE-FGEN compiled.
FGEN-TEST compiled.
FGEN-GENSYMS compiled.
FGEN-GENERATOR compiled.
FGEN-GENERATOR-LAMBDA compiled.
FGEN-SYSTEM compiled.
GET-FUNCTION-GENERATOR compiled.
GET-NEW-FUNCTION-GENERATOR compiled.
GET-NEW-FUNCTION-GENERATOR-INTERNAL compiled.
COMPUTE-TEST compiled.
COMPUTE-CODE compiled.
Error in COMPUTE-CONSTANTS
  Compile time fatal error while executing #:MAKE-&ENV-FOR-CLC-I2642
    Error signalled by ERROR
    Error message would have been:
"Invalid operation on lexical environment: #:G2183 #<Stack Pointer #x22A057>"
  Surrounding forms:
    (GATHERING1 (APPENDING)
      (WALK-FORM LAMBDA NIL
                 #'(LAMBDA #
                     # 
                     #)))
    (MACROLET ((APPENDING NIL `#))
      (GATHERING1 (APPENDING) (WALK-FORM LAMBDA NIL #'#)))
    (BLOCK COMPUTE-CONSTANTS (MACROLET (#) (GATHERING1 # #)))
PRECOMPILE-FUNCTION-GENERATORS compiled.
LOAD-FUNCTION-GENERATOR compiled.

Finished compilation of file DISK$CRL:[RICK.PCL]FNGEN.LSP;1
1 Errors, 0 Warnings
Errors were detected in the following functions:
 COMPUTE-CONSTANTS
The following are assumed to be functions, but were not
declared or defined:
 COMPUTE-CONSTANTS
Loading binary of FNGEN...
Compiling LAP...
Starting compilation of file DISK$CRL:[RICK.PCL]LAP.LSP;1

GENERATING-LAP compiled.
GENERATING-LAP-IN-LISP compiled.
Error in WITH-LAP-REGISTERS
  Compile time fatal error while executing #:ADD-TO-&ENV-FOR-CLC-I2659
    Error signalled by ERROR
    Error message would have been:
"Invalid operation on lexical environment: #:G2183 #S(TYPE :NAME T :CODE 332 :BO
XED-SIZE 0 :UNBOXED-SIZE 0 :CATEGORY :PREDEFINED-TYPE :COMMON NIL :LAMBDA-LIST N
IL :DEFTYPE-EXPANDER NIL :PRIMITIVE-TYPE NIL :PARENT-TYPE NIL :NAMED NIL :INITIA
L-OFFSET 0 :CONC-NAME NIL :CONSTRUCTOR NIL :COPIER NIL :PRINT-FUNCTION NIL :SLOT
-DESCRIPTORS #() :PREDICATE NIL :TYPEP-LIST NIL :TYPE-OF NIL :ELEMENT-TYPE NIL :
ELEMENT-SIZE 0 :OBJECT-LIST NIL :STANDARD-P T :TYPEP-SYMBOL SYSTEM::TRUE :CANON-
ARRAY-ELEMENT-TYPE T :CANON-TYPE :SELF :TYPEP-TRANSFORM NIL :SPARE29 NIL :SPARE3
0 NIL :SPARE31 NIL :SPARE32 NIL)"
  Surrounding forms:
    (LET* ((REGISTER-SPECIFICATIONS #) 
           (BODY #))
      NIL
      (PROGN
        'NIL 
        (FLET # `#)))
    (IF (< (LENGTH SYSTEM::<MACRO-FORM>) 2)
      (ERROR SYSTEM::*MACRO-ARG-COUNT-MESSAGE* 'WITH-LAP-REGISTERS (- # 1))
      (LET* (# 
             #)
        NIL
        (PROGN
          'NIL 
          #)))
    (BLOCK WITH-LAP-REGISTERS
      (IF (< # 2)
        (ERROR SYSTEM::*MACRO-ARG-COUNT-MESSAGE* 'WITH-LAP-REGISTERS #)
        (LET* #
          NIL
          #)))
ALLOCATE-REGISTER compiled.
; Starting full GC ...
; ... Full GC finished

DEALLOCATE-REGISTER compiled.
FINALIZE-LAP-GENERATION compiled.
FLATTEN-LAP compiled.
FLATTENING-LAP compiled.
OPCODE compiled.
OPERAND compiled.
DEFOPCODE compiled.
DEFOPERAND compiled.
LOAD-DEFOPCODE compiled.
LOAD-DEFOPERAND compiled.
DEFOPCODE-1 compiled.
DEFOPERAND-1 compiled.
CHECK-OPCODE-ARG compiled.
CHECK-OPERAND-ARG compiled.
|LAP Opcode BREAK| compiled.
|LAP Opcode BEEP| compiled.
; Starting full GC ...
; ... Full GC finished

|LAP Opcode PRINT| compiled.
|LAP Opcode MOVE| compiled.
|LAP Opcode EQ| compiled.
|LAP Opcode NEQ| compiled.
|LAP Opcode FIX=| compiled.
|LAP Opcode IZEROP| compiled.
|LAP Opcode STD-INSTANCE-P| compiled.
|LAP Opcode FSC-INSTANCE-P| compiled.
|LAP Opcode BUILT-IN-INSTANCE-P| compiled.
|LAP Opcode STRUCTURE-INSTANCE-P| compiled.
|LAP Opcode JMP| compiled.
|LAP Opcode LABEL| compiled.
|LAP Opcode GO| compiled.
|LAP Opcode RETURN| compiled.
|LAP Opcode EXIT-LAP-IN-LISP| compiled.
|LAP Operand REG| compiled.
|LAP Operand CVAR| compiled.
|LAP Operand ARG| compiled.
|LAP Operand CDR| compiled.
|LAP Operand CONSTANT| compiled.
|LAP Operand STD-WRAPPER| compiled.
|LAP Operand FSC-WRAPPER| compiled.
|LAP Operand BUILT-IN-WRAPPER| compiled.
|LAP Operand STRUCTURE-WRAPPER| compiled.
|LAP Operand OTHER-WRAPPER| compiled.
|LAP Operand STD-SLOTS| compiled.
|LAP Operand FSC-SLOTS| compiled.
|LAP Operand CREF| compiled.
|LAP Operand IREF| compiled.
|LAP Operand ISET| compiled.
|LAP Operand I1+| compiled.
|LAP Operand I+| compiled.
|LAP Operand I-| compiled.
|LAP Operand ILOGAND| compiled.
|LAP Operand ILOGXOR| compiled.
|LAP Operand ISHIFT| compiled.
|LAP Operand LISP| compiled.
|LAP Operand LISP-VARIABLE| compiled.

Finished compilation of file DISK$CRL:[RICK.PCL]LAP.LSP;1
1 Errors, 0 Warnings
Errors were detected in the following functions:
 WITH-LAP-REGISTERS
The following are assumed to be functions, but were not
declared or defined:
 MAKE-LAP-CLOSURE-GENERATOR
Loading binary of LAP...
; Starting full GC ...
; ... Full GC finished
Compiling PLAP...
Starting compilation of file DISK$CRL:[RICK.PCL]PLAP.LSP;1

LAP-CASE compiled.
MAKE-LAP-CLOSURE-GENERATOR compiled.
PRECOMPILE-LAP-CLOSURE-GENERATOR compiled.
LAP-IN-LISP compiled.
MAKE-LAP-CLOSURE-GENERATOR-LAMBDA compiled.
MAKE-LAP-PROG compiled.
MAKE-LAP-PROG-INTERNAL compiled.
LAP-REG-INITIAL-VALUE-FORM compiled.
; Starting full GC ...
; ... Full GC finished

LAP-OPCODE compiled.
LAP-OPERAND compiled.
LAP-OPERANDS compiled.
LAP-REG compiled.
|RUNTIME FUNCALL| compiled.
|RUNTIME APPLY| compiled.
|RUNTIME STD-WRAPPER| compiled.
|RUNTIME FSC-WRAPPER| compiled.
|RUNTIME BUILT-IN-WRAPPER| compiled.
|RUNTIME STRUCTURE-WRAPPER| compiled.
|RUNTIME STD-SLOTS| compiled.
|RUNTIME FSC-SLOTS| compiled.
|RUNTIME STD-INSTANCE-P| compiled.
|RUNTIME FSC-INSTANCE-P| compiled.
|RUNTIME IREF| compiled.
|RUNTIME ISET| compiled.
|RUNTIME SVREF| compiled.
|RUNTIME I+| compiled.
|RUNTIME I-| compiled.
|RUNTIME I1+| compiled.
|RUNTIME ILOGAND| compiled.
|RUNTIME ILOGXOR| compiled.
; Starting full GC ...
; ... Full GC finished

INDEX-VALUE->INDEX compiled.
INDEX->INDEX-VALUE compiled.
MAKE-INDEX-MASK compiled.

Finished compilation of file DISK$CRL:[RICK.PCL]PLAP.LSP;1
0 Errors, 0 Warnings
Loading binary of PLAP...
Compiling CACHE...
Starting compilation of file DISK$CRL:[RICK.PCL]CACHE.LSP;1

CACHE-REF compiled.
EMIT-CACHE-REF compiled.
CACHE-SIZE compiled.
ALLOCATE-CACHE compiled.
CACHE-LOCK-COUNT compiled.
FLUSH-CACHE-INTERNAL compiled.
MODIFY-CACHE compiled.
GET-CACHE compiled.
FREE-CACHE compiled.
SHOW-FREE-CACHES compiled.
GET-WRAPPER-CACHE-NUMBER compiled.
WRAPPER-FIELD compiled.
NEXT-WRAPPER-FIELD compiled.
WRAPPER-REF compiled.
EMIT-WRAPPER-REF compiled.
; Starting full GC ...
; ... Full GC finished

WRAPPER-STATE compiled.
WRAPPER-INSTANCE-SLOTS-LAYOUT compiled.
WRAPPER-CLASS-SLOTS compiled.
WRAPPER-CLASS compiled.
MAKE-WRAPPER-INTERNAL compiled.
Error in MAKE-WRAPPER
  Compile time fatal error while executing #:MAKE-LEXICAL-ENVIRONMENT-I4519
    Error signalled by ERROR
    Error message would have been:
"Invalid operation on lexical environment: #:G2183 #S(TYPE :NAME T :CODE 332 :BO
XED-SIZE 0 :UNBOXED-SIZE 0 :CATEGORY :PREDEFINED-TYPE :COMMON NIL :LAMBDA-LIST N
IL :DEFTYPE-EXPANDER NIL :PRIMITIVE-TYPE NIL :PARENT-TYPE NIL :NAMED NIL :INITIA
L-OFFSET 0 :CONC-NAME NIL :CONSTRUCTOR NIL :COPIER NIL :PRINT-FUNCTION NIL :SLOT
-DESCRIPTORS #() :PREDICATE NIL :TYPEP-LIST NIL :TYPE-OF NIL :ELEMENT-TYPE NIL :
ELEMENT-SIZE 0 :OBJECT-LIST NIL :STANDARD-P T :TYPEP-SYMBOL SYSTEM::TRUE :CANON-
ARRAY-ELEMENT-TYPE T :CANON-TYPE :SELF :TYPEP-TRANSFORM NIL :SPARE29 NIL :SPARE3
0 NIL :SPARE31 NIL :SPARE32 NIL)"
  Surrounding forms:
    (LET ((WRAPPER #))
      (SETF (WRAPPER-CLASS WRAPPER) CLASS)
      WRAPPER)
    (BLOCK MAKE-WRAPPER
      (LET (#)
        (SETF # CLASS)
        WRAPPER))
INVALID-WRAPPER-P compiled.
INVALIDATE-WRAPPER compiled.
CHECK-WRAPPER-VALIDITY compiled.
COMPUTE-LINE-SIZE compiled.
COMPUTE-CACHE-PARAMETERS compiled.
COMPUTE-PRIMARY-CACHE-LOCATION compiled.
COMPUTE-PRIMARY-CACHE-LOCATION-FROM-LOCATION compiled.
Error in EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION
  Function must be a symbol or lambda form: (MASK INDEX)
  Surrounding forms:
    ((MASK INDEX))
    (WITH-LAP-REGISTERS ((MASK INDEX)) (LET (#) (FLATTEN-LAP # # # ...)))
    (BLOCK EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION
      (WITH-LAP-REGISTERS (#) (LET # #)))
Warning in EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION
  MASK not declared special or bound lexically, assuming special.
  Surrounding forms:
    MASK
    (OPCODE :MOVE (OPERAND :CVAR 'MASK) MASK)
    (FLATTEN-LAP (OPCODE :MOVE (OPERAND :CVAR 'MASK) MASK)
                 (OPCODE :MOVE (OPERAND :CVAR 'FIELD) FIELD)
                 (OPCODE :MOVE (EMIT-WRAPPER-REF WRAPPER FIELD)
                         WRAPPER-CACHE-NO) ...)
EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION not compiled due to errors.
; Starting full GC ...
; ... Full GC finished

Error in EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION
  Compile time fatal error while executing WALKER::GET-WALKER-TEMPLATE
    Error signalled by ERROR
    Error message would have been:
"Can't get template for (WRAPPER-CACHE-NO INDEX)"
  Surrounding forms:
    (WITH-LAP-REGISTERS ((FIELD INDEX) (MASK INDEX))
     (LET (#) (FLATTEN-LAP # # # ...)))
    (BLOCK EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION
      (WITH-LAP-REGISTERS (# #) (LET # #)))
RAISE-METATYPE compiled.
Error in EMIT-FETCH-WRAPPER
  Function must be a symbol or lambda form: (ARG T)
  Surrounding forms:
    ((ARG T))
    (WITH-LAP-REGISTERS ((ARG T))
     (ECASE METATYPE
       (STANDARD-INSTANCE #) 
       (CLASS # #) ...))
    (LET ((EXIT-EMIT-FETCH-WRAPPER #))
      (WITH-LAP-REGISTERS (#)
       (ECASE METATYPE
         # 
         # ...)))
Warning in EMIT-FETCH-WRAPPER
  ARG not declared special or bound lexically, assuming special.
  Surrounding forms:
    ARG
    (OPCODE :MOVE (OPERAND :ARG ARGUMENT) ARG)
    (FLATTEN-LAP (OPCODE :MOVE (OPERAND :ARG ARGUMENT) ARG)
                 (OPCODE :STD-INSTANCE-P ARG GET-STD-INST-WRAPPER)
                 (OPCODE :FSC-INSTANCE-P ARG GET-FSC-INST-WRAPPER) ...)
EMIT-FETCH-WRAPPER not compiled due to errors.
DFUN-ARG-SYMBOL compiled.
SLOT-VECTOR-SYMBOL compiled.
MAKE-DFUN-LAMBDA-LIST compiled.
MAKE-DLAP-LAMBDA-LIST compiled.
MAKE-DFUN-CALL compiled.
FILL-CACHE compiled.
DEFAULT-LIMIT-FN compiled.
; Starting full GC ...
; ... Full GC finished

WITH-LOCAL-CACHE-FUNCTIONS compiled.
PICKUP-LOCAL-CACHE-FUNCTIONS compiled.
FILL-CACHE-INTERNAL compiled.
Error in FILL-CACHE-P
  Compile time fatal error while executing #:ADD-TO-&ENV-FOR-CLC-I2659
    Error signalled by ERROR
    Error message would have been:
"Invalid operation on lexical environment: #:G2183 #<Stack Pointer #x22A089>"
  Surrounding forms:
    (WITH-LOCAL-CACHE-FUNCTIONS (CACHE)
      (LET* (#) (MULTIPLE-VALUE-BIND # # #)))
    (BLOCK FILL-CACHE-P (WITH-LOCAL-CACHE-FUNCTIONS (CACHE) (LET* # #)))
; Starting full GC ...
; ... Full GC finished

FILL-CACHE-FROM-CACHE-P compiled.
Error in ENTRY-IN-CACHE-P
  Compile time fatal error while executing #:ADD-TO-&ENV-FOR-CLC-I2659
    Error signalled by ERROR
    Error message would have been:
"Invalid operation on lexical environment: #:G2183 #S(TYPE :NAME T :CODE 332 :BO
XED-SIZE 0 :UNBOXED-SIZE 0 :CATEGORY :PREDEFINED-TYPE :COMMON NIL :LAMBDA-LIST N
IL :DEFTYPE-EXPANDER NIL :PRIMITIVE-TYPE NIL :PARENT-TYPE NIL :NAMED NIL :INITIA
L-OFFSET 0 :CONC-NAME NIL :CONSTRUCTOR NIL :COPIER NIL :PRINT-FUNCTION NIL :SLOT
-DESCRIPTORS #() :PREDICATE NIL :TYPEP-LIST NIL :TYPE-OF NIL :ELEMENT-TYPE NIL :
ELEMENT-SIZE 0 :OBJECT-LIST NIL :STANDARD-P T :TYPEP-SYMBOL SYSTEM::TRUE :CANON-
ARRAY-ELEMENT-TYPE T :CANON-TYPE :SELF :TYPEP-TRANSFORM NIL :SPARE29 NIL :SPARE3
0 NIL :SPARE31 NIL :SPARE32 NIL)"
  Surrounding forms:
    (WITH-LOCAL-CACHE-FUNCTIONS (CACHE) (DOTIMES (I #) (UNLESS # #)))
    (BLOCK ENTRY-IN-CACHE-P
      (WITH-LOCAL-CACHE-FUNCTIONS (CACHE) (DOTIMES # #)))
; Starting full GC ...
; ... Full GC finished

ADJUST-CACHE compiled.
Error in EXPAND-CACHE
  Compile time fatal error while executing #:ADD-TO-&ENV-FOR-CLC-I2659
    Error signalled by ERROR
    Error message would have been:
"Invalid operation on lexical environment: #:G2183 #S(TYPE :NAME T :CODE 332 :BO
XED-SIZE 0 :UNBOXED-SIZE 0 :CATEGORY :PREDEFINED-TYPE :COMMON NIL :LAMBDA-LIST N
IL :DEFTYPE-EXPANDER NIL :PRIMITIVE-TYPE NIL :PARENT-TYPE NIL :NAMED NIL :INITIA
L-OFFSET 0 :CONC-NAME NIL :CONSTRUCTOR NIL :COPIER NIL :PRINT-FUNCTION NIL :SLOT
-DESCRIPTORS #() :PREDICATE NIL :TYPEP-LIST NIL :TYPE-OF NIL :ELEMENT-TYPE NIL :
ELEMENT-SIZE 0 :OBJECT-LIST NIL :STANDARD-P T :TYPEP-SYMBOL SYSTEM::TRUE :CANON-
ARRAY-ELEMENT-TYPE T :CANON-TYPE :SELF :TYPEP-TRANSFORM NIL :SPARE29 NIL :SPARE3
0 NIL :SPARE31 NIL :SPARE32 NIL)"
  Surrounding forms:
    (WITH-LOCAL-CACHE-FUNCTIONS (CACHE)
      (MULTIPLE-VALUE-BIND (IGNORE SIZE) (COMPUTE-CACHE-PARAMETERS # # #)
        (LET* # #)))
    (BLOCK EXPAND-CACHE
      (WITH-LOCAL-CACHE-FUNCTIONS (CACHE) (MULTIPLE-VALUE-BIND # # #)))
; Starting full GC ...
; ... Full GC finished
; Starting full GC ...
; ... Full GC finished
; Starting full GC ...
; ... Full GC finished

FIND-FREE-CACHE-LINE compiled.

Finished compilation of file DISK$CRL:[RICK.PCL]CACHE.LSP;1
7 Errors, 2 Warnings
Errors were detected in the following functions:
 MAKE-WRAPPER EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION
 EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION EMIT-FETCH-WRAPPER
 FILL-CACHE-P ENTRY-IN-CACHE-P EXPAND-CACHE
The following are assumed to be functions, but were not
declared or defined:
 WRAPPER-OF FLUSH-CACHE-TRAP OBSOLETE-INSTANCE-TRAP WITH-LAP-REGISTERS
 EQL-SPECIALIZER-P CLASS-OF EQL-SPECIALIZER-OBJECT FILL-CACHE-P
 EXPAND-CACHE
The following are assumed to be special variables, but were
referenced free without being declared or defined:
 MASK ARG
Loading binary of CACHE...

Warning in SYSTEM::SET-SYMBOL-CONSTANT-VALUE:
Redefining the constant WRAPPER-LAYOUT.
Compiling DLAP...
Starting compilation of file DISK$CRL:[RICK.PCL]DLAP.LSP;1

EMIT-ONE-CLASS-READER compiled.
EMIT-ONE-CLASS-WRITER compiled.
EMIT-TWO-CLASS-READER compiled.
EMIT-TWO-CLASS-WRITER compiled.
; Starting full GC ...
; ... Full GC finished

Error in EMIT-READER/WRITER
  Function must be a symbol or lambda form: (INST T)
  Surrounding forms:
    ((INST T) (WRAPPER VECTOR) (CACHE-NO INDEX))
    (WITH-LAP-REGISTERS ((INST T) (WRAPPER VECTOR) (CACHE-NO INDEX))
     (LET (# 
           #)
       (PROG1
         # 
         #)))
    (PROGN (WITH-LAP-REGISTERS (# # #) (LET # #)))
Warning in EMIT-READER/WRITER
  CACHE-NO not declared special or bound lexically, assuming special.
  Surrounding forms:
    CACHE-NO
    (LET ((INDEX CACHE-NO) 
          (SLOTS #))
      (PROG1
        (FLATTEN-LAP # # # ...) 
        (WHEN SLOTS #)))
    (WITH-LAP-REGISTERS ((INST T) (WRAPPER VECTOR) (CACHE-NO INDEX))
     (LET (# 
           #)
       (PROG1
         # 
         #)))
Warning in EMIT-READER/WRITER
  INST not declared special or bound lexically, assuming special.
  Surrounding forms:
    INST
    (OPCODE :MOVE (OPERAND :ARG INSTANCE) INST)
    (FLATTEN-LAP (OPCODE :MOVE (OPERAND :ARG INSTANCE) INST)
                 (OPCODE :STD-INSTANCE-P INST 'STD-INSTANCE)
                 (OPCODE :FSC-INSTANCE-P INST 'FSC-INSTANCE) ...)
Warning in EMIT-READER/WRITER
  WRAPPER not declared special or bound lexically, assuming special.
  Surrounding forms:
    WRAPPER
    (OPCODE :MOVE (OPERAND :FSC-WRAPPER INST) WRAPPER)
    (FLATTEN-LAP (OPCODE :MOVE (OPERAND :ARG INSTANCE) INST)
                 (OPCODE :STD-INSTANCE-P INST 'STD-INSTANCE)
                 (OPCODE :FSC-INSTANCE-P INST 'FSC-INSTANCE) ...)
EMIT-READER/WRITER not compiled due to errors.
Error in EMIT-ONE-INDEX-READERS
  Function must be a symbol or lambda form: (SLOTS VECTOR)
  Surrounding forms:
    ((SLOTS VECTOR))
    (WITH-LAP-REGISTERS ((SLOTS VECTOR))
     (EMIT-DLAP ARGLIST '(STANDARD-INSTANCE) 'TRAP ...))
    (PROGN (WITH-LAP-REGISTERS (#) (EMIT-DLAP ARGLIST '# 'TRAP ...)))
Error in EMIT-ONE-INDEX-READERS
  Function must be a symbol or lambda form: (INDEX INDEX)
  Surrounding forms:
    ((INDEX INDEX))
    (WITH-LAP-REGISTERS ((INDEX INDEX))
     (FLATTEN-LAP (OPCODE :MOVE # INDEX) (IF CLASS-SLOT-P # #)))
    (EMIT-DLAP ARGLIST '(STANDARD-INSTANCE) 'TRAP ...)
Warning in EMIT-ONE-INDEX-READERS
  INDEX not declared special or bound lexically, assuming special.
  Surrounding forms:
    INDEX
    (OPCODE :MOVE (OPERAND :CVAR 'INDEX) INDEX)
    (FLATTEN-LAP (OPCODE :MOVE (OPERAND :CVAR 'INDEX) INDEX)
                 (IF CLASS-SLOT-P
                   (EMIT-GET-CLASS-SLOT INDEX 'TRAP SLOTS)
                   (EMIT-GET-SLOT SLOTS INDEX 'TRAP)))
Warning in EMIT-ONE-INDEX-READERS
  SLOTS not declared special or bound lexically, assuming special.
  Surrounding forms:
    SLOTS
    (EMIT-GET-CLASS-SLOT INDEX 'TRAP SLOTS)
    (IF CLASS-SLOT-P
      (EMIT-GET-CLASS-SLOT INDEX 'TRAP SLOTS)
      (EMIT-GET-SLOT SLOTS INDEX 'TRAP))
EMIT-ONE-INDEX-READERS not compiled due to errors.
Error in EMIT-ONE-INDEX-WRITERS
  Function must be a symbol or lambda form: (SLOTS VECTOR)
  Surrounding forms:
    ((SLOTS VECTOR))
    (WITH-LAP-REGISTERS ((SLOTS VECTOR))
     (EMIT-DLAP ARGLIST '(T STANDARD-INSTANCE) 'TRAP ...))
    (PROGN (WITH-LAP-REGISTERS (#) (EMIT-DLAP ARGLIST '# 'TRAP ...)))
Error in EMIT-ONE-INDEX-WRITERS
  Function must be a symbol or lambda form: (INDEX INDEX)
  Surrounding forms:
    ((INDEX INDEX))
    (WITH-LAP-REGISTERS ((INDEX INDEX))
     (FLATTEN-LAP (OPCODE :MOVE # INDEX) (IF CLASS-SLOT-P # #)))
    (EMIT-DLAP ARGLIST '(T STANDARD-INSTANCE) 'TRAP ...)
Warning in EMIT-ONE-INDEX-WRITERS
  INDEX not declared special or bound lexically, assuming special.
  Surrounding forms:
    INDEX
    (OPCODE :MOVE (OPERAND :CVAR 'INDEX) INDEX)
    (FLATTEN-LAP (OPCODE :MOVE (OPERAND :CVAR 'INDEX) INDEX)
                 (IF CLASS-SLOT-P
                   (EMIT-SET-CLASS-SLOT INDEX # SLOTS)
                   (EMIT-SET-SLOT SLOTS INDEX #)))
Warning in EMIT-ONE-INDEX-WRITERS
  SLOTS not declared special or bound lexically, assuming special.
  Surrounding forms:
    SLOTS
    (EMIT-SET-CLASS-SLOT INDEX (DFUN-ARG-SYMBOL 0) SLOTS)
    (IF CLASS-SLOT-P
      (EMIT-SET-CLASS-SLOT INDEX (DFUN-ARG-SYMBOL 0) SLOTS)
      (EMIT-SET-SLOT SLOTS INDEX (DFUN-ARG-SYMBOL 0)))
EMIT-ONE-INDEX-WRITERS not compiled due to errors.
Error in EMIT-N-N-READERS
  Function must be a symbol or lambda form: (SLOTS VECTOR)
  Surrounding forms:
    ((SLOTS VECTOR) (INDEX INDEX))
    (WITH-LAP-REGISTERS ((SLOTS VECTOR) (INDEX INDEX))
     (EMIT-DLAP ARGLIST '(STANDARD-INSTANCE) 'TRAP ...))
    (PROGN (WITH-LAP-REGISTERS (# #) (EMIT-DLAP ARGLIST '# 'TRAP ...)))
Warning in EMIT-N-N-READERS
  SLOTS not declared special or bound lexically, assuming special.
  Surrounding forms:
    SLOTS
    (EMIT-GET-SLOT SLOTS INDEX 'TRAP)
    (EMIT-DLAP ARGLIST '(STANDARD-INSTANCE) 'TRAP ...)
Warning in EMIT-N-N-READERS
  INDEX not declared special or bound lexically, assuming special.
  Surrounding forms:
    INDEX
    (EMIT-GET-SLOT SLOTS INDEX 'TRAP)
    (EMIT-DLAP ARGLIST '(STANDARD-INSTANCE) 'TRAP ...)
EMIT-N-N-READERS not compiled due to errors.
Error in EMIT-N-N-WRITERS
  Function must be a symbol or lambda form: (SLOTS VECTOR)
  Surrounding forms:
    ((SLOTS VECTOR) (INDEX INDEX))
    (WITH-LAP-REGISTERS ((SLOTS VECTOR) (INDEX INDEX))
     (FLATTEN-LAP (EMIT-DLAP ARGLIST '# 'TRAP ...)))
    (PROGN (WITH-LAP-REGISTERS (# #) (FLATTEN-LAP #)))
Warning in EMIT-N-N-WRITERS
  SLOTS not declared special or bound lexically, assuming special.
  Surrounding forms:
    SLOTS
    (EMIT-SET-SLOT SLOTS INDEX (DFUN-ARG-SYMBOL 0))
    (EMIT-DLAP ARGLIST '(T STANDARD-INSTANCE) 'TRAP ...)
Warning in EMIT-N-N-WRITERS
  INDEX not declared special or bound lexically, assuming special.
  Surrounding forms:
    INDEX
    (EMIT-SET-SLOT SLOTS INDEX (DFUN-ARG-SYMBOL 0))
    (EMIT-DLAP ARGLIST '(T STANDARD-INSTANCE) 'TRAP ...)
EMIT-N-N-WRITERS not compiled due to errors.
Error in EMIT-CHECKING
  Function must be a symbol or lambda form: (FUNCTION T)
  Surrounding forms:
    (#'T)
    (WITH-LAP-REGISTERS (#'T)
     (FLATTEN-LAP (OPCODE :MOVE # FUNCTION) (OPCODE :JMP FUNCTION)))
    (EMIT-DLAP (REMOVE '&REST DLAP-LAMBDA-LIST) METATYPES 'TRAP ...)
Warning in EMIT-CHECKING
  FUNCTION not declared special or bound lexically, assuming special.
  Surrounding forms:
    FUNCTION
    (OPCODE :MOVE (OPERAND :CVAR 'FUNCTION) FUNCTION)
    (FLATTEN-LAP (OPCODE :MOVE (OPERAND :CVAR 'FUNCTION) FUNCTION)
                 (OPCODE :JMP FUNCTION))
Error in EMIT-CHECKING
  Function must be a symbol or lambda form: (MISS-FUNCTION T)
  Surrounding forms:
    ((MISS-FUNCTION T))
    (WITH-LAP-REGISTERS ((MISS-FUNCTION T))
     (FLATTEN-LAP (OPCODE :LABEL 'TRAP) (OPCODE :MOVE # MISS-FUNCTION)
                  (OPCODE :JMP MISS-FUNCTION)))
    (EMIT-DLAP (REMOVE '&REST DLAP-LAMBDA-LIST) METATYPES 'TRAP ...)
Warning in EMIT-CHECKING
  MISS-FUNCTION not declared special or bound lexically, assuming special.
  Surrounding forms:
    MISS-FUNCTION
    (OPCODE :MOVE (OPERAND :CVAR 'MISS-FN) MISS-FUNCTION)
    (FLATTEN-LAP (OPCODE :LABEL 'TRAP)
                 (OPCODE :MOVE (OPERAND :CVAR 'MISS-FN) MISS-FUNCTION)
                 (OPCODE :JMP MISS-FUNCTION))
EMIT-CHECKING not compiled due to errors.
Error in EMIT-CACHING
  Function must be a symbol or lambda form: (FUNCTION T)
  Surrounding forms:
    (#'T)
    (WITH-LAP-REGISTERS (#'T)
     (EMIT-DLAP (REMOVE '&REST DLAP-LAMBDA-LIST) METATYPES 'TRAP ...))
    (PROGN (WITH-LAP-REGISTERS (#'T) (EMIT-DLAP # METATYPES 'TRAP ...)))
Warning in EMIT-CACHING
  FUNCTION not declared special or bound lexically, assuming special.
  Surrounding forms:
    FUNCTION
    (OPCODE :JMP FUNCTION)
    (FLATTEN-LAP (OPCODE :JMP FUNCTION))
Error in EMIT-CACHING
  Function must be a symbol or lambda form: (MISS-FUNCTION T)
  Surrounding forms:
    ((MISS-FUNCTION T))
    (WITH-LAP-REGISTERS ((MISS-FUNCTION T))
     (FLATTEN-LAP (OPCODE :LABEL 'TRAP) (OPCODE :MOVE # MISS-FUNCTION)
                  (OPCODE :JMP MISS-FUNCTION)))
    (EMIT-DLAP (REMOVE '&REST DLAP-LAMBDA-LIST) METATYPES 'TRAP ...)
Warning in EMIT-CACHING
  MISS-FUNCTION not declared special or bound lexically, assuming special.
  Surrounding forms:
    MISS-FUNCTION
    (OPCODE :MOVE (OPERAND :CVAR 'MISS-FN) MISS-FUNCTION)
    (FLATTEN-LAP (OPCODE :LABEL 'TRAP)
                 (OPCODE :MOVE (OPERAND :CVAR 'MISS-FN) MISS-FUNCTION)
                 (OPCODE :JMP MISS-FUNCTION))
EMIT-CACHING not compiled due to errors.
Error in EMIT-CHECK-1-CLASS-WRAPPER
  Function must be a symbol or lambda form: (CWRAPPER VECTOR)
  Surrounding forms:
    ((CWRAPPER VECTOR))
    (WITH-LAP-REGISTERS ((CWRAPPER VECTOR))
     (FLATTEN-LAP (OPCODE :MOVE # CWRAPPER)
                  (OPCODE :NEQ WRAPPER CWRAPPER ...)))
    (BLOCK EMIT-CHECK-1-CLASS-WRAPPER
      (WITH-LAP-REGISTERS (#) (FLATTEN-LAP # #)))
Warning in EMIT-CHECK-1-CLASS-WRAPPER
  CWRAPPER not declared special or bound lexically, assuming special.
  Surrounding forms:
    CWRAPPER
    (OPCODE :MOVE (OPERAND :CVAR CWRAPPER-0) CWRAPPER)
    (FLATTEN-LAP (OPCODE :MOVE (OPERAND :CVAR CWRAPPER-0) CWRAPPER)
                 (OPCODE :NEQ WRAPPER CWRAPPER ...))
EMIT-CHECK-1-CLASS-WRAPPER not compiled due to errors.
Error in EMIT-CHECK-2-CLASS-WRAPPER
  Function must be a symbol or lambda form: (CWRAPPER VECTOR)
  Surrounding forms:
    ((CWRAPPER VECTOR))
    (WITH-LAP-REGISTERS ((CWRAPPER VECTOR))
     (FLATTEN-LAP (OPCODE :MOVE # CWRAPPER) (OPCODE :EQ WRAPPER CWRAPPER ...)
                  (OPCODE :MOVE # CWRAPPER) ...))
    (BLOCK EMIT-CHECK-2-CLASS-WRAPPER
      (WITH-LAP-REGISTERS (#) (FLATTEN-LAP # # # ...)))
Warning in EMIT-CHECK-2-CLASS-WRAPPER
  CWRAPPER not declared special or bound lexically, assuming special.
  Surrounding forms:
    CWRAPPER
    (OPCODE :MOVE (OPERAND :CVAR CWRAPPER-0) CWRAPPER)
    (FLATTEN-LAP (OPCODE :MOVE (OPERAND :CVAR CWRAPPER-0) CWRAPPER)
                 (OPCODE :EQ WRAPPER CWRAPPER ...)
                 (OPCODE :MOVE (OPERAND :CVAR CWRAPPER-1) CWRAPPER) ...)
EMIT-CHECK-2-CLASS-WRAPPER not compiled due to errors.
Error in EMIT-GET-SLOT
  Function must be a symbol or lambda form: (VAL T :REUSE TEMP)
  Surrounding forms:
    ((VAL T :REUSE TEMP))
    (WITH-LAP-REGISTERS ((VAL T :REUSE TEMP))
     (FLATTEN-LAP (OPCODE :MOVE # VAL) (OPCODE :EQ VAL SLOT-UNBOUND ...)
                  (OPCODE :RETURN VAL)))
    (LET ((SLOT-UNBOUND #)) (WITH-LAP-REGISTERS (#) (FLATTEN-LAP # # #)))
Warning in EMIT-GET-SLOT
  VAL not declared special or bound lexically, assuming special.
  Surrounding forms:
    VAL
    (OPCODE :MOVE (OPERAND :IREF SLOTS INDEX) VAL)
    (FLATTEN-LAP (OPCODE :MOVE (OPERAND :IREF SLOTS INDEX) VAL)
                 (OPCODE :EQ VAL SLOT-UNBOUND ...) (OPCODE :RETURN VAL))
Warning in EMIT-GET-SLOT
  TEMP bound but value not used.
EMIT-GET-SLOT not compiled due to errors.
Error in EMIT-SET-SLOT
  Function must be a symbol or lambda form: (NEW-VAL T :REUSE TEMP)
  Surrounding forms:
    ((NEW-VAL T :REUSE TEMP))
    (WITH-LAP-REGISTERS ((NEW-VAL T :REUSE TEMP))
     (FLATTEN-LAP (OPCODE :MOVE # NEW-VAL) (OPCODE :MOVE NEW-VAL #)
                  (OPCODE :RETURN NEW-VAL)))
    (BLOCK EMIT-SET-SLOT (WITH-LAP-REGISTERS (#) (FLATTEN-LAP # # #)))
Warning in EMIT-SET-SLOT
  NEW-VAL not declared special or bound lexically, assuming special.
  Surrounding forms:
    NEW-VAL
    (OPCODE :MOVE (OPERAND :ARG NEW-VALUE-ARG) NEW-VAL)
    (FLATTEN-LAP (OPCODE :MOVE (OPERAND :ARG NEW-VALUE-ARG) NEW-VAL)
                 (OPCODE :MOVE NEW-VAL (OPERAND :IREF SLOTS INDEX))
                 (OPCODE :RETURN NEW-VAL))
Warning in EMIT-SET-SLOT
  TEMP bound but value not used.
EMIT-SET-SLOT not compiled due to errors.
Error in EMIT-GET-CLASS-SLOT
  Function must be a symbol or lambda form: (VAL T :REUSE TEMP)
  Surrounding forms:
    ((VAL T :REUSE TEMP))
    (WITH-LAP-REGISTERS ((VAL T :REUSE TEMP))
     (FLATTEN-LAP (OPCODE :MOVE # VAL) (OPCODE :EQ VAL SLOT-UNBOUND ...)
                  (OPCODE :RETURN VAL)))
    (LET ((SLOT-UNBOUND #)) (WITH-LAP-REGISTERS (#) (FLATTEN-LAP # # #)))
Warning in EMIT-GET-CLASS-SLOT
  VAL not declared special or bound lexically, assuming special.
  Surrounding forms:
    VAL
    (OPCODE :MOVE (OPERAND :CDR INDEX) VAL)
    (FLATTEN-LAP (OPCODE :MOVE (OPERAND :CDR INDEX) VAL)
                 (OPCODE :EQ VAL SLOT-UNBOUND ...) (OPCODE :RETURN VAL))
Warning in EMIT-GET-CLASS-SLOT
  TEMP bound but value not used.
EMIT-GET-CLASS-SLOT not compiled due to errors.
Error in EMIT-SET-CLASS-SLOT
  Function must be a symbol or lambda form: (NEW-VAL T :REUSE TEMP)
  Surrounding forms:
    ((NEW-VAL T :REUSE TEMP))
    (WITH-LAP-REGISTERS ((NEW-VAL T :REUSE TEMP))
     (FLATTEN-LAP (OPCODE :MOVE # NEW-VAL) (OPCODE :MOVE NEW-VAL #)
                  (OPCODE :RETURN NEW-VAL)))
    (BLOCK EMIT-SET-CLASS-SLOT (WITH-LAP-REGISTERS (#) (FLATTEN-LAP # # #)))
Warning in EMIT-SET-CLASS-SLOT
  NEW-VAL not declared special or bound lexically, assuming special.
  Surrounding forms:
    NEW-VAL
    (OPCODE :MOVE (OPERAND :ARG NEW-VALUE-ARG) NEW-VAL)
    (FLATTEN-LAP (OPCODE :MOVE (OPERAND :ARG NEW-VALUE-ARG) NEW-VAL)
                 (OPCODE :MOVE NEW-VAL (OPERAND :CDR INDEX))
                 (OPCODE :RETURN NEW-VAL))
Warning in EMIT-SET-CLASS-SLOT
  TEMP bound but value not used.
EMIT-SET-CLASS-SLOT not compiled due to errors.
Error in EMIT-MISS
  Function must be a symbol or lambda form: (MISS-FN-REG T)
  Surrounding forms:
    ((MISS-FN-REG T))
    (WITH-LAP-REGISTERS ((MISS-FN-REG T))
     (FLATTEN-LAP (OPCODE :MOVE # MISS-FN-REG) (OPCODE :JMP MISS-FN-REG)))
    (BLOCK EMIT-MISS (WITH-LAP-REGISTERS (#) (FLATTEN-LAP # #)))
Warning in EMIT-MISS
  MISS-FN-REG not declared special or bound lexically, assuming special.
  Surrounding forms:
    MISS-FN-REG
    (OPCODE :MOVE (OPERAND :CVAR MISS-FN) MISS-FN-REG)
    (FLATTEN-LAP (OPCODE :MOVE (OPERAND :CVAR MISS-FN) MISS-FN-REG)
                 (OPCODE :JMP MISS-FN-REG))
EMIT-MISS not compiled due to errors.
EMIT-DLAP compiled.
EMIT-DLAP-INTERNAL compiled.
; Starting full GC ...
; ... Full GC finished

Error in EMIT-1-NIL-DLAP
  Function must be a symbol or lambda form: (LOCATION INDEX)
  Surrounding forms:
    ((LOCATION INDEX) (PRIMARY INDEX) (CACHE VECTOR))
    (WITH-LAP-REGISTERS ((LOCATION INDEX) (PRIMARY INDEX) (CACHE VECTOR))
     (FLATTEN-LAP WRAPPER-MOVE (OPCODE :MOVE # CACHE)
                  (WITH-LAP-REGISTERS # #) ...))
    (BLOCK EMIT-1-NIL-DLAP
      (WITH-LAP-REGISTERS (# # #) (FLATTEN-LAP WRAPPER-MOVE # # ...)))
Warning in EMIT-1-NIL-DLAP
  CACHE not declared special or bound lexically, assuming special.
  Surrounding forms:
    CACHE
    (OPCODE :MOVE (OPERAND :CVAR 'CACHE) CACHE)
    (FLATTEN-LAP WRAPPER-MOVE (OPCODE :MOVE (OPERAND :CVAR 'CACHE) CACHE)
                 (WITH-LAP-REGISTERS (#) (FLATTEN-LAP # # # ...)) ...)
Error in EMIT-1-NIL-DLAP
  Function must be a symbol or lambda form: (WRAPPER-CACHE-NO INDEX)
  Surrounding forms:
    ((WRAPPER-CACHE-NO INDEX))
    (WITH-LAP-REGISTERS ((WRAPPER-CACHE-NO INDEX))
     (FLATTEN-LAP (EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION WRAPPER
                   PRIMARY WRAPPER-CACHE-NO)
                  (OPCODE :MOVE PRIMARY LOCATION)
                  (EMIT-CHECK-1-WRAPPER-IN-CACHE CACHE LOCATION
                   WRAPPER ...) ...))
    (FLATTEN-LAP WRAPPER-MOVE (OPCODE :MOVE (OPERAND :CVAR 'CACHE) CACHE)
                 (WITH-LAP-REGISTERS (#) (FLATTEN-LAP # # # ...)) ...)
Warning in EMIT-1-NIL-DLAP
  PRIMARY not declared special or bound lexically, assuming special.
  Surrounding forms:
    PRIMARY
    (EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION WRAPPER PRIMARY
     WRAPPER-CACHE-NO)
    (FLATTEN-LAP (EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION WRAPPER
                  PRIMARY WRAPPER-CACHE-NO)
                 (OPCODE :MOVE PRIMARY LOCATION)
                 (EMIT-CHECK-1-WRAPPER-IN-CACHE CACHE LOCATION
                  WRAPPER ...) ...)
Warning in EMIT-1-NIL-DLAP
  WRAPPER-CACHE-NO not declared special or bound lexically, assuming special.
  Surrounding forms:
    WRAPPER-CACHE-NO
    (EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION WRAPPER PRIMARY
     WRAPPER-CACHE-NO)
    (FLATTEN-LAP (EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION WRAPPER
                  PRIMARY WRAPPER-CACHE-NO)
                 (OPCODE :MOVE PRIMARY LOCATION)
                 (EMIT-CHECK-1-WRAPPER-IN-CACHE CACHE LOCATION
                  WRAPPER ...) ...)
Warning in EMIT-1-NIL-DLAP
  LOCATION not declared special or bound lexically, assuming special.
  Surrounding forms:
    LOCATION
    (OPCODE :MOVE PRIMARY LOCATION)
    (FLATTEN-LAP (EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION WRAPPER
                  PRIMARY WRAPPER-CACHE-NO)
                 (OPCODE :MOVE PRIMARY LOCATION)
                 (EMIT-CHECK-1-WRAPPER-IN-CACHE CACHE LOCATION
                  WRAPPER ...) ...)
Error in EMIT-1-NIL-DLAP
  Function must be a symbol or lambda form: (SIZE INDEX)
  Surrounding forms:
    ((SIZE INDEX))
    (WITH-LAP-REGISTERS ((SIZE INDEX))
     (FLATTEN-LAP (OPCODE :MOVE # SIZE) (OPCODE :LABEL 'LOOP)
                  (OPCODE :MOVE # LOCATION) ...))
    (FLATTEN-LAP WRAPPER-MOVE (OPCODE :MOVE (OPERAND :CVAR 'CACHE) CACHE)
                 (WITH-LAP-REGISTERS (#) (FLATTEN-LAP # # # ...)) ...)
Warning in EMIT-1-NIL-DLAP
  SIZE not declared special or bound lexically, assuming special.
  Surrounding forms:
    SIZE
    (OPCODE :MOVE (OPERAND :CVAR 'SIZE) SIZE)
    (FLATTEN-LAP (OPCODE :MOVE (OPERAND :CVAR 'SIZE) SIZE)
                 (OPCODE :LABEL 'LOOP)
                 (OPCODE :MOVE (OPERAND :I1+ LOCATION) LOCATION) ...)
EMIT-1-NIL-DLAP not compiled due to errors.
Error in EMIT-1-T-DLAP
  Function must be a symbol or lambda form: (LOCATION INDEX)
  Surrounding forms:
    ((LOCATION INDEX) (PRIMARY INDEX) (CACHE VECTOR)
     (INITIAL-LOCK-COUNT INDEX))
    (WITH-LAP-REGISTERS
     ((LOCATION INDEX) (PRIMARY INDEX) (CACHE VECTOR)
      (INITIAL-LOCK-COUNT INDEX))
     (FLATTEN-LAP WRAPPER-MOVE (OPCODE :MOVE # CACHE)
                  (WITH-LAP-REGISTERS # #) ...))
    (BLOCK EMIT-1-T-DLAP
      (WITH-LAP-REGISTERS (# # # #) (FLATTEN-LAP WRAPPER-MOVE # # ...)))
Warning in EMIT-1-T-DLAP
  CACHE not declared special or bound lexically, assuming special.
  Surrounding forms:
    CACHE
    (OPCODE :MOVE (OPERAND :CVAR 'CACHE) CACHE)
    (FLATTEN-LAP WRAPPER-MOVE (OPCODE :MOVE (OPERAND :CVAR 'CACHE) CACHE)
                 (WITH-LAP-REGISTERS (#) (FLATTEN-LAP # # # ...)) ...)
Error in EMIT-1-T-DLAP
  Function must be a symbol or lambda form: (WRAPPER-CACHE-NO INDEX)
  Surrounding forms:
    ((WRAPPER-CACHE-NO INDEX))
    (WITH-LAP-REGISTERS ((WRAPPER-CACHE-NO INDEX))
     (FLATTEN-LAP (EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION WRAPPER
                   PRIMARY WRAPPER-CACHE-NO)
                  (OPCODE :MOVE PRIMARY LOCATION)
                  (OPCODE :MOVE # INITIAL-LOCK-COUNT) ...))
    (FLATTEN-LAP WRAPPER-MOVE (OPCODE :MOVE (OPERAND :CVAR 'CACHE) CACHE)
                 (WITH-LAP-REGISTERS (#) (FLATTEN-LAP # # # ...)) ...)
Warning in EMIT-1-T-DLAP
  PRIMARY not declared special or bound lexically, assuming special.
  Surrounding forms:
    PRIMARY
    (EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION WRAPPER PRIMARY
     WRAPPER-CACHE-NO)
    (FLATTEN-LAP (EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION WRAPPER
                  PRIMARY WRAPPER-CACHE-NO)
                 (OPCODE :MOVE PRIMARY LOCATION)
                 (OPCODE :MOVE (OPERAND :CREF CACHE 0)
                         INITIAL-LOCK-COUNT) ...)
Warning in EMIT-1-T-DLAP
  WRAPPER-CACHE-NO not declared special or bound lexically, assuming special.
  Surrounding forms:
    WRAPPER-CACHE-NO
    (EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION WRAPPER PRIMARY
     WRAPPER-CACHE-NO)
    (FLATTEN-LAP (EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION WRAPPER
                  PRIMARY WRAPPER-CACHE-NO)
                 (OPCODE :MOVE PRIMARY LOCATION)
                 (OPCODE :MOVE (OPERAND :CREF CACHE 0)
                         INITIAL-LOCK-COUNT) ...)
Warning in EMIT-1-T-DLAP
  LOCATION not declared special or bound lexically, assuming special.
  Surrounding forms:
    LOCATION
    (OPCODE :MOVE PRIMARY LOCATION)
    (FLATTEN-LAP (EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION WRAPPER
                  PRIMARY WRAPPER-CACHE-NO)
                 (OPCODE :MOVE PRIMARY LOCATION)
                 (OPCODE :MOVE (OPERAND :CREF CACHE 0)
                         INITIAL-LOCK-COUNT) ...)
Warning in EMIT-1-T-DLAP
  INITIAL-LOCK-COUNT not declared special or bound lexically, assuming special.
  Surrounding forms:
    INITIAL-LOCK-COUNT
    (OPCODE :MOVE (OPERAND :CREF CACHE 0) INITIAL-LOCK-COUNT)
    (FLATTEN-LAP (EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION WRAPPER
                  PRIMARY WRAPPER-CACHE-NO)
                 (OPCODE :MOVE PRIMARY LOCATION)
                 (OPCODE :MOVE (OPERAND :CREF CACHE 0)
                         INITIAL-LOCK-COUNT) ...)
Error in EMIT-1-T-DLAP
  Function must be a symbol or lambda form: (SIZE INDEX)
  Surrounding forms:
    ((SIZE INDEX))
    (WITH-LAP-REGISTERS ((SIZE INDEX))
     (FLATTEN-LAP (OPCODE :MOVE # SIZE) (OPCODE :LABEL 'LOOP)
                  (OPCODE :MOVE # LOCATION) ...))
    (FLATTEN-LAP WRAPPER-MOVE (OPCODE :MOVE (OPERAND :CVAR 'CACHE) CACHE)
                 (WITH-LAP-REGISTERS (#) (FLATTEN-LAP # # # ...)) ...)
Warning in EMIT-1-T-DLAP
  SIZE not declared special or bound lexically, assuming special.
  Surrounding forms:
    SIZE
    (OPCODE :MOVE (OPERAND :CVAR 'SIZE) SIZE)
    (FLATTEN-LAP (OPCODE :MOVE (OPERAND :CVAR 'SIZE) SIZE)
                 (OPCODE :LABEL 'LOOP)
                 (OPCODE :MOVE (OPERAND :I1+ LOCATION) LOCATION) ...)
EMIT-1-T-DLAP not compiled due to errors.
Error in EMIT-GREATER-THAN-1-DLAP
  Function must be a symbol or lambda form: (LOCATION INDEX)
  Surrounding forms:
    ((LOCATION INDEX) (PRIMARY INDEX) (CACHE VECTOR)
     (INITIAL-LOCK-COUNT INDEX) ...)
    (WITH-LAP-REGISTERS
     ((LOCATION INDEX) (PRIMARY INDEX) (CACHE VECTOR)
      (INITIAL-LOCK-COUNT INDEX) ...)
     (FLATTEN-LAP (APPLY #'FLATTEN-LAP WRAPPER-MOVES)
                  (OPCODE :MOVE # LINE-SIZE) (OPCODE :MOVE # CACHE) ...))
    (LET ((CACHE-LINE-SIZE #))
      (WITH-LAP-REGISTERS (# # # # ...) (FLATTEN-LAP # # # ...)))
Warning in EMIT-GREATER-THAN-1-DLAP
  LINE-SIZE not declared special or bound lexically, assuming special.
  Surrounding forms:
    LINE-SIZE
    (OPCODE :MOVE (OPERAND :CONSTANT CACHE-LINE-SIZE) LINE-SIZE)
    (FLATTEN-LAP (APPLY #'FLATTEN-LAP WRAPPER-MOVES)
                 (OPCODE :MOVE (OPERAND :CONSTANT CACHE-LINE-SIZE) LINE-SIZE)
                 (OPCODE :MOVE (OPERAND :CVAR 'CACHE) CACHE) ...)
Warning in EMIT-GREATER-THAN-1-DLAP
  CACHE not declared special or bound lexically, assuming special.
  Surrounding forms:
    CACHE
    (OPCODE :MOVE (OPERAND :CVAR 'CACHE) CACHE)
    (FLATTEN-LAP (APPLY #'FLATTEN-LAP WRAPPER-MOVES)
                 (OPCODE :MOVE (OPERAND :CONSTANT CACHE-LINE-SIZE) LINE-SIZE)
                 (OPCODE :MOVE (OPERAND :CVAR 'CACHE) CACHE) ...)
Warning in EMIT-GREATER-THAN-1-DLAP
  PRIMARY not declared special or bound lexically, assuming special.
  Surrounding forms:
    PRIMARY
    (EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION WRAPPERS PRIMARY
     MISS-LABEL)
    (FLATTEN-LAP (APPLY #'FLATTEN-LAP WRAPPER-MOVES)
                 (OPCODE :MOVE (OPERAND :CONSTANT CACHE-LINE-SIZE) LINE-SIZE)
                 (OPCODE :MOVE (OPERAND :CVAR 'CACHE) CACHE) ...)
Warning in EMIT-GREATER-THAN-1-DLAP
  LOCATION not declared special or bound lexically, assuming special.
  Surrounding forms:
    LOCATION
    (OPCODE :MOVE PRIMARY LOCATION)
    (FLATTEN-LAP (APPLY #'FLATTEN-LAP WRAPPER-MOVES)
                 (OPCODE :MOVE (OPERAND :CONSTANT CACHE-LINE-SIZE) LINE-SIZE)
                 (OPCODE :MOVE (OPERAND :CVAR 'CACHE) CACHE) ...)
Warning in EMIT-GREATER-THAN-1-DLAP
  NEXT-LOCATION not declared special or bound lexically, assuming special.
  Surrounding forms:
    NEXT-LOCATION
    (OPCODE :MOVE LOCATION NEXT-LOCATION)
    (FLATTEN-LAP (APPLY #'FLATTEN-LAP WRAPPER-MOVES)
                 (OPCODE :MOVE (OPERAND :CONSTANT CACHE-LINE-SIZE) LINE-SIZE)
                 (OPCODE :MOVE (OPERAND :CVAR 'CACHE) CACHE) ...)
Warning in EMIT-GREATER-THAN-1-DLAP
  INITIAL-LOCK-COUNT not declared special or bound lexically, assuming special.
  Surrounding forms:
    INITIAL-LOCK-COUNT
    (OPCODE :MOVE (OPERAND :CREF CACHE 0) INITIAL-LOCK-COUNT)
    (FLATTEN-LAP (APPLY #'FLATTEN-LAP WRAPPER-MOVES)
                 (OPCODE :MOVE (OPERAND :CONSTANT CACHE-LINE-SIZE) LINE-SIZE)
                 (OPCODE :MOVE (OPERAND :CVAR 'CACHE) CACHE) ...)
Error in EMIT-GREATER-THAN-1-DLAP
  Function must be a symbol or lambda form: (SIZE INDEX)
  Surrounding forms:
    ((SIZE INDEX))
    (WITH-LAP-REGISTERS ((SIZE INDEX))
     (FLATTEN-LAP (OPCODE :MOVE # SIZE) (OPCODE :LABEL 'CONTINUE)
                  (OPCODE :MOVE # NEXT-LOCATION) ...))
    (FLATTEN-LAP (APPLY #'FLATTEN-LAP WRAPPER-MOVES)
                 (OPCODE :MOVE (OPERAND :CONSTANT CACHE-LINE-SIZE) LINE-SIZE)
                 (OPCODE :MOVE (OPERAND :CVAR 'CACHE) CACHE) ...)
Warning in EMIT-GREATER-THAN-1-DLAP
  SIZE not declared special or bound lexically, assuming special.
  Surrounding forms:
    SIZE
    (OPCODE :MOVE (OPERAND :CVAR 'SIZE) SIZE)
    (FLATTEN-LAP (OPCODE :MOVE (OPERAND :CVAR 'SIZE) SIZE)
                 (OPCODE :LABEL 'CONTINUE)
                 (OPCODE :MOVE (OPERAND :I+ LOCATION LINE-SIZE)
                         NEXT-LOCATION) ...)
EMIT-GREATER-THAN-1-DLAP not compiled due to errors.
Error in EMIT-CHECK-1-WRAPPER-IN-CACHE
  Function must be a symbol or lambda form: (CWRAPPER VECTOR)
  Surrounding forms:
    ((CWRAPPER VECTOR))
    (WITH-LAP-REGISTERS ((CWRAPPER VECTOR))
     (FLATTEN-LAP (OPCODE :MOVE # CWRAPPER)
                  (OPCODE :NEQ CWRAPPER WRAPPER ...) HIT-CODE ...))
    (LET ((EXIT-EMIT-CHECK-1-WRAPPER-IN-CACHE #))
      (WITH-LAP-REGISTERS (#) (FLATTEN-LAP # # HIT-CODE ...)))
Warning in EMIT-CHECK-1-WRAPPER-IN-CACHE
  CWRAPPER not declared special or bound lexically, assuming special.
  Surrounding forms:
    CWRAPPER
    (OPCODE :MOVE (EMIT-CACHE-REF CACHE LOCATION) CWRAPPER)
    (FLATTEN-LAP (OPCODE :MOVE (EMIT-CACHE-REF CACHE LOCATION) CWRAPPER)
                 (OPCODE :NEQ CWRAPPER WRAPPER ...) HIT-CODE ...)
EMIT-CHECK-1-WRAPPER-IN-CACHE not compiled due to errors.
Error in EMIT-CHECK-CACHE-ENTRY
  Function must be a symbol or lambda form: (CWRAPPER VECTOR)
  Surrounding forms:
    ((CWRAPPER VECTOR))
    (WITH-LAP-REGISTERS ((CWRAPPER VECTOR))
     (FLATTEN-LAP (OPCODE :MOVE # CWRAPPER)
                  (OPCODE :EQ CWRAPPER WRAPPER ...)))
    (BLOCK EMIT-CHECK-CACHE-ENTRY (WITH-LAP-REGISTERS (#) (FLATTEN-LAP # #)))
Warning in EMIT-CHECK-CACHE-ENTRY
  CWRAPPER not declared special or bound lexically, assuming special.
  Surrounding forms:
    CWRAPPER
    (OPCODE :MOVE (EMIT-CACHE-REF CACHE LOCATION) CWRAPPER)
    (FLATTEN-LAP (OPCODE :MOVE (EMIT-CACHE-REF CACHE LOCATION) CWRAPPER)
                 (OPCODE :EQ CWRAPPER WRAPPER ...))
EMIT-CHECK-CACHE-ENTRY not compiled due to errors.
Error in EMIT-CHECK-CACHE-LINE
  Compile time fatal error while executing WALKER::GET-WALKER-TEMPLATE
    Error signalled by ERROR
    Error message would have been:
"Can't get template for (CWRAPPER VECTOR)"
  Surrounding forms:
    (LET ((CHECKS #))
      (FLATTEN-LAP CHECKS (OPCODE :GO HIT-LABEL)
                   (OPCODE :LABEL 'EXIT-EMIT-CHECK-CACHE-LINE)))
    (BLOCK EMIT-CHECK-CACHE-LINE (LET (#) (FLATTEN-LAP CHECKS # #)))
Error in EMIT-LOCK-COUNT-TEST
  Function must be a symbol or lambda form: (NEW-LOCK-COUNT T)
  Surrounding forms:
    ((NEW-LOCK-COUNT T))
    (WITH-LAP-REGISTERS ((NEW-LOCK-COUNT T))
     (FLATTEN-LAP (OPCODE :MOVE # NEW-LOCK-COUNT)
                  (OPCODE :FIX= NEW-LOCK-COUNT INITIAL-LOCK-COUNT ...)))
    (BLOCK EMIT-LOCK-COUNT-TEST (WITH-LAP-REGISTERS (#) (FLATTEN-LAP # #)))
Warning in EMIT-LOCK-COUNT-TEST
  NEW-LOCK-COUNT not declared special or bound lexically, assuming special.
  Surrounding forms:
    NEW-LOCK-COUNT
    (OPCODE :MOVE (OPERAND :CREF CACHE 0) NEW-LOCK-COUNT)
    (FLATTEN-LAP (OPCODE :MOVE (OPERAND :CREF CACHE 0) NEW-LOCK-COUNT)
                 (OPCODE :FIX= NEW-LOCK-COUNT INITIAL-LOCK-COUNT ...))
EMIT-LOCK-COUNT-TEST not compiled due to errors.
EMIT-ADJUST-LOCATION compiled.

Finished compilation of file DISK$CRL:[RICK.PCL]DLAP.LSP;1
30 Errors, 47 Warnings
Errors were detected in the following functions:
 EMIT-READER/WRITER EMIT-ONE-INDEX-READERS EMIT-ONE-INDEX-WRITERS
 EMIT-N-N-READERS EMIT-N-N-WRITERS EMIT-CHECKING EMIT-CACHING
 EMIT-CHECK-1-CLASS-WRAPPER EMIT-CHECK-2-CLASS-WRAPPER EMIT-GET-SLOT
 EMIT-SET-SLOT EMIT-GET-CLASS-SLOT EMIT-SET-CLASS-SLOT EMIT-MISS
 EMIT-1-NIL-DLAP EMIT-1-T-DLAP EMIT-GREATER-THAN-1-DLAP
 EMIT-CHECK-1-WRAPPER-IN-CACHE EMIT-CHECK-CACHE-ENTRY
 EMIT-CHECK-CACHE-LINE EMIT-LOCK-COUNT-TEST
The following are assumed to be functions, but were not
declared or defined:
 WITH-LAP-REGISTERS EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION
 EMIT-CHECK-CACHE-LINE
The following are assumed to be special variables, but were
referenced free without being declared or defined:
 CACHE-NO INST WRAPPER INDEX SLOTS FUNCTION MISS-FUNCTION CWRAPPER VAL
 NEW-VAL MISS-FN-REG CACHE PRIMARY WRAPPER-CACHE-NO LOCATION SIZE
 INITIAL-LOCK-COUNT LINE-SIZE NEXT-LOCATION NEW-LOCK-COUNT
Loading binary of DLAP...
Compiling BOOT...
Starting compilation of file DISK$CRL:[RICK.PCL]BOOT.LSP;1

REDIRECT-EARLY-FUNCTION-INTERNAL compiled.
DEFGENERIC compiled.
; Starting full GC ...
; ... Full GC finished

EXPAND-DEFGENERIC compiled.
LOAD-DEFGENERIC compiled.
DEFMETHOD compiled.
METHOD-PROTOTYPE-FOR-GF compiled.
; Starting full GC ...
; ... Full GC finished

EXPAND-DEFMETHOD compiled.
; Starting full GC ...
; ... Full GC finished

EXPAND-DEFMETHOD-INTERNAL compiled.
ADD-LEXICAL-FUNCTIONS-TO-METHOD-LAMBDA compiled.
Error in MAKE-PARAMETER-REFERENCES
  Compile time fatal error while executing #:ADD-TO-&ENV-FOR-CLC-I2659
    Error signalled by ERROR
    Error message would have been:
"Invalid operation on lexical environment: #:G2183 #S(TYPE :NAME T :CODE 332 :BO
XED-SIZE 0 :UNBOXED-SIZE 0 :CATEGORY :PREDEFINED-TYPE :COMMON NIL :LAMBDA-LIST N
IL :DEFTYPE-EXPANDER NIL :PRIMITIVE-TYPE NIL :PARENT-TYPE NIL :NAMED NIL :INITIA
L-OFFSET 0 :CONC-NAME NIL :CONSTRUCTOR NIL :COPIER NIL :PRINT-FUNCTION NIL :SLOT
-DESCRIPTORS #() :PREDICATE NIL :TYPEP-LIST NIL :TYPE-OF NIL :ELEMENT-TYPE NIL :
ELEMENT-SIZE 0 :OBJECT-LIST NIL :STANDARD-P T :TYPEP-SYMBOL SYSTEM::TRUE :CANON-
ARRAY-ELEMENT-TYPE T :CANON-TYPE :SELF :TYPEP-TRANSFORM NIL :SPARE29 NIL :SPARE3
0 NIL :SPARE31 NIL :SPARE32 NIL)"
  Surrounding forms:
    (FLET ((IGNOREDP # #))
      (GATHERING (#)
        (ITERATE #
          # 
          #)))
    (BLOCK MAKE-PARAMETER-REFERENCES (FLET (#) (GATHERING # #)))
METHOD-FUNCTION-PLIST compiled.
|SETF PCL METHOD-FUNCTION-PLIST| compiled.
METHOD-FUNCTION-GET compiled.
|SETF PCL METHOD-FUNCTION-GET| compiled.
METHOD-FUNCTION-ISL compiled.
METHOD-FUNCTION-NEEDS-NEXT-METHODS-P compiled.
LOAD-DEFMETHOD compiled.
; Starting full GC ...
; ... Full GC finished

LOAD-DEFMETHOD-INTERNAL compiled.
MAKE-METHOD-SPEC compiled.
ENSURE-GENERIC-FUNCTION compiled.
GENERIC-CLOBBERS-FUNCTION compiled.
ENSURE-GENERIC-FUNCTION-USING-CLASS compiled.
EARLY-GF-P compiled.
EARLY-GF-METHODS compiled.
EARLY-GF-DISCRIMINATOR-CODE compiled.
REAL-ENSURE-GF-INTERNAL compiled.
REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION compiled.
; Starting full GC ...
; ... Full GC finished

REAL-ENSURE-GF-USING-CLASS--NULL compiled.
EARLY-MAKE-A-METHOD compiled.
REAL-MAKE-A-METHOD compiled.
EARLY-METHOD-FUNCTION compiled.
EARLY-METHOD-SPECIALIZERS compiled.
EARLY-METHOD-QUALIFIERS compiled.
EARLY-ADD-NAMED-METHOD compiled.
ADD-METHOD compiled.
REMOVE-METHOD compiled.
GET-METHOD compiled.
EARLY-UPDATE-DISCRIMINATOR-CODE compiled.
EARLY-GET-CPL compiled.
EARLY-SORT-METHODS compiled.
; Starting full GC ...
; ... Full GC finished

EARLY-DFUN compiled.
; Starting full GC ...
; ... Full GC finished
; Starting full GC ...
; ... Full GC finished

FIX-EARLY-GENERIC-FUNCTIONS compiled.
PARSE-DEFMETHOD compiled.
PARSE-SPECIALIZERS compiled.
UNPARSE-SPECIALIZERS compiled.
PARSE-METHOD-OR-SPEC compiled.
SPECIALIZED-LAMBDA-LIST-PARAMETERS compiled.
SPECIALIZED-LAMBDA-LIST-LAMBDA-LIST compiled.
SPECIALIZED-LAMBDA-LIST-SPECIALIZERS compiled.
SPECIALIZED-LAMBDA-LIST-REQUIRED-PARAMETERS compiled.
PARSE-SPECIALIZED-LAMBDA-LIST compiled.
WITH-SLOTS compiled.
; Starting full GC ...
; ... Full GC finished

WITH-ACCESSORS compiled.
EXPAND-WITH-SLOTS compiled.
EXPAND-WITH-SLOTS-INTERNAL compiled.

Finished compilation of file DISK$CRL:[RICK.PCL]BOOT.LSP;1
1 Errors, 0 Warnings
Errors were detected in the following functions:
 MAKE-PARAMETER-REFERENCES
The following are assumed to be functions, but were not
declared or defined:
 GENERIC-FUNCTION-P CLASS-PROTOTYPE GENERIC-FUNCTION-METHOD-CLASS
 CLASS-NAME CLASS-OF MAKE-PARAMETER-REFERENCES CAN-OPTIMIZE-ACCESS
 OPTIMIZE-SLOT-VALUE OPTIMIZE-SET-SLOT-VALUE SLOT-NAME-LISTS-FROM-SLOTS
 ADD-PV-BINDING INTERN-SLOT-NAME-LISTS ADD-NAMED-METHOD CLASSP
 FIND-METHOD-COMBINATION CHANGE-CLASS MAKE-INSTANCE MAKE-A-METHOD
 REAL-GET-METHOD BOOTSTRAP-GET-SLOT ALLOCATE-INSTANCE CLASS-WRAPPER
 CLASS-NO-OF-INSTANCE-SLOTS DEFAULT-INITARGS REAL-ADD-METHOD
 SET-SLOT-VALUE FIXUP-MAGIC-GENERIC-FUNCTION
 |SETF PCL GENERIC-FUNCTION-NAME| EQL-SPECIALIZER-P
 EQL-SPECIALIZER-OBJECT METHOD-SPECIALIZERS METHOD-P
 METHOD-GENERIC-FUNCTION GENERIC-FUNCTION-NAME METHOD-QUALIFIERS
 COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO
Loading binary of BOOT...
Compiling VECTOR...
Starting compilation of file DISK$CRL:[RICK.PCL]VECTOR.LSP;1
; Starting full GC ...
; ... Full GC finished

INSTANCE-SLOT-INDEX compiled.
%ISL-CACHE compiled.
%ISL-FIELD compiled.
%ISL-MASK compiled.
%ISL-SIZE compiled.
%ISL-SLOT-NAME-LISTS compiled.
MAKE-ISL compiled.
MAKE-ISL-INTERNAL compiled.
MAKE-ISL-TYPE-DECLARATION compiled.
ISLP compiled.
INTERN-SLOT-NAME-LISTS compiled.
; Starting full GC ...
; ... Full GC finished

LOOKUP-PV compiled.
MAKE-PERMUTATION-VECTOR compiled.
MAKE-PV-TYPE-DECLARATION compiled.
PVREF compiled.
CAN-OPTIMIZE-ACCESS compiled.
OPTIMIZE-SLOT-VALUE compiled.
OPTIMIZE-SET-SLOT-VALUE compiled.
OPTIMIZE-INSTANCE-ACCESS compiled.
; Starting full GC ...
; ... Full GC finished

INSTANCE-READ compiled.
INSTANCE-WRITE compiled.
PV-ACCESS-TRAP compiled.
SLOT-NAME-LISTS-FROM-SLOTS compiled.
MUTATE-SLOTS compiled.
SORT-SLOTS compiled.
; Starting full GC ...
; ... Full GC finished

ADD-PV-BINDING compiled.
COMPUTE-PRIMARY-PV-CACHE-SIZE compiled.
PV-CACHE-LIMIT-FN compiled.
; Starting full GC ...
; ... Full GC finished

PRIMARY-PV-CACHE-MISS compiled.
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STANDARD-CLASS)) (CLASS) NIL WRAPPER-FETCHER (STANDARD-CLA
SS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x279851>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STANDARD-CLASS)) (CLASS) NIL SLOTS-FETCHER (STANDARD-CLASS
))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x279851>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STANDARD-CLASS)) (CLASS) NIL RAW-INSTANCE-ALLOCATOR (STAND
ARD-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x279851>"

Finished compilation of file DISK$CRL:[RICK.PCL]VECTOR.LSP;1
3 Errors, 0 Warnings
The following are assumed to be functions, but were not
declared or defined:
 CLASS-OF |SETF PCL SLOT-VALUE-USING-CLASS| SLOT-VALUE-USING-CLASS
Loading binary of VECTOR...
Compiling SLOTS...
Starting compilation of file DISK$CRL:[RICK.PCL]SLOTS.LSP;1

GET-WRAPPER compiled.
GET-SLOTS compiled.
SET-WRAPPER compiled.
SET-SLOTS compiled.
GET-SLOT-VALUE-2 compiled.
SET-SLOT-VALUE-2 compiled.
GET-CLASS-SLOT-VALUE-1 compiled.
SET-CLASS-SLOT-VALUE-1 compiled.
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) SLOT-NAME) (CLASS SLOT-NAME) NIL CLASS-SLOT-VAL
UE (STD-CLASS T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x279851>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: ((NV (CLASS STD-CLASS) SLOT-NAME) (NV CLASS SLOT-NAME) NIL (SETF CL
ASS-SLOT-VALUE) (T STD-CLASS T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x279851>"
SLOT-VALUE compiled.
SET-SLOT-VALUE compiled.
SLOT-BOUNDP compiled.
SLOT-MAKUNBOUND compiled.
SLOT-EXISTS-P compiled.
SLOT-VALUE-OR-DEFAULT compiled.
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) (OBJECT STANDARD-OBJECT) SLOT-NAME) (CLASS OBJE
CT SLOT-NAME) NIL SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x279851>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: ((NEW-VALUE (CLASS STD-CLASS) (OBJECT STANDARD-OBJECT) SLOT-NAME) (
NEW-VALUE CLASS OBJECT SLOT-NAME) NIL (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS
 STANDARD-OBJECT T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x279851>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) (OBJECT STANDARD-OBJECT) SLOT-NAME) (CLASS OBJE
CT SLOT-NAME) NIL SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x279851>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) (OBJECT STANDARD-OBJECT) SLOT-NAME) (CLASS OBJE
CT SLOT-NAME) NIL SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x279851>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) (OBJECT STANDARD-OBJECT) SLOT-NAME) (CLASS OBJE
CT SLOT-NAME) NIL SLOT-EXISTS-P-USING-CLASS (STD-CLASS STANDARD-OBJECT T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x279851>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS T) INSTANCE SLOT-NAME OPERATION &OPTIONAL NEW-VALUE) (CLAS
S INSTANCE SLOT-NAME OPERATION) NIL SLOT-MISSING (T T T T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x279851>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS T) INSTANCE SLOT-NAME) (CLASS INSTANCE SLOT-NAME) NIL SLOT
-UNBOUND (T T T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x279851>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STANDARD-CLASS) &REST INITARGS) (CLASS) ((DECLARE (IGNORE 
INITARGS))) ALLOCATE-INSTANCE (STANDARD-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x279851>"

Finished compilation of file DISK$CRL:[RICK.PCL]SLOTS.LSP;1
10 Errors, 0 Warnings
The following are assumed to be functions, but were not
declared or defined:
 SLOT-MISSING SLOT-UNBOUND SLOT-VALUE-USING-CLASS CLASS-OF
 |SETF PCL SLOT-VALUE-USING-CLASS| SLOT-BOUNDP-USING-CLASS
 SLOT-MAKUNBOUND-USING-CLASS SLOT-EXISTS-P-USING-CLASS
; Starting full GC ...
; ... Full GC finished
Loading binary of SLOTS...
Compiling INIT...
Starting compilation of file DISK$CRL:[RICK.PCL]INIT.LSP;1

Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) &REST INITARGS) (CLASS) NIL MAKE-INSTANCE (STD-
CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS-NAME SYMBOL) &REST INITARGS) (CLASS-NAME) NIL MAKE-INSTANC
E (SYMBOL))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) SUPPLIED-INITARGS) (CLASS SUPPLIED-INITARGS) NI
L DEFAULT-INITARGS (STD-CLASS T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((INSTANCE STANDARD-OBJECT) &REST INITARGS) (INSTANCE) NIL INITIAL
IZE-INSTANCE (STANDARD-OBJECT))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((INSTANCE STANDARD-OBJECT) &REST INITARGS) (INSTANCE) NIL REINITI
ALIZE-INSTANCE (STANDARD-OBJECT))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((PREVIOUS STANDARD-OBJECT) (CURRENT STANDARD-OBJECT) &REST INITAR
GS) (PREVIOUS CURRENT) NIL UPDATE-INSTANCE-FOR-DIFFERENT-CLASS (STANDARD-OBJECT 
STANDARD-OBJECT))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((INSTANCE STANDARD-OBJECT) ADDED-SLOTS DISCARDED-SLOTS PROPERTY-L
IST &REST INITARGS) (INSTANCE ADDED-SLOTS DISCARDED-SLOTS PROPERTY-LIST) ((DECLA
RE (IGNORE DISCARDED-SLOTS PROPERTY-LIST))) UPDATE-INSTANCE-FOR-REDEFINED-CLASS 
(STANDARD-OBJECT T T T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((INSTANCE STANDARD-OBJECT) SLOT-NAMES &REST INITARGS) (INSTANCE S
LOT-NAMES) NIL SHARED-INITIALIZE (STANDARD-OBJECT T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Warning in CHECK-INITARGS-1
  VAL bound but value not used.
  Surrounding forms:
    (DOPLIST (KEY VAL) INITARGS
      (UNLESS (MEMQ KEY LEGAL)
        (ERROR "Invalid initialization argument ~S for class ~S" KEY #)))
    (PROGN
      (DOLIST (METHOD METHODS) (MULTIPLE-VALUE-BIND # # # ...)) 
      (DOPLIST (KEY VAL) INITARGS (UNLESS # #)))
    (UNLESS (GETF INITARGS :ALLOW-OTHER-KEYS)
      (DOLIST (METHOD METHODS) (MULTIPLE-VALUE-BIND # # # ...)) 
      (DOPLIST (KEY VAL) INITARGS (UNLESS # #)))
CHECK-INITARGS-1 compiled.

Finished compilation of file DISK$CRL:[RICK.PCL]INIT.LSP;1
8 Errors, 1 Warnings
The following are assumed to be functions, but were not
declared or defined:
 CLASS-SLOTS SLOTD-INITARGS FUNCTION-KEYWORDS CLASS-NAME
Loading binary of INIT...
Compiling STD-CLASS...
Starting compilation of file DISK$CRL:[RICK.PCL]STD-CLASS.LSP;1

Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((X T)) (X) NIL CLASSP (T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((X T)) (X) NIL STANDARD-CLASS-P (T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((X T)) (X) NIL FORWARD-REFERENCED-CLASS-P (T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS PCL-CLASS)) (CLASS) NIL CLASS-WRAPPER (PCL-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS PCL-CLASS)) (CLASS) NIL CLASS-PRECEDENCE-LIST (PCL-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS PCL-CLASS)) (CLASS) NIL CLASS-FINALIZED-P (PCL-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS)) (CLASS) NIL CLASS-PROTOTYPE (STD-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS)) (CLASS) NIL CLASS-DIRECT-DEFAULT-INITARGS (STD
-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS)) (CLASS) NIL CLASS-DEFAULT-INITARGS (STD-CLASS)
)
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS)) (CLASS) NIL CLASS-CONSTRUCTORS (STD-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS)) (CLASS) NIL CLASS-SLOT-CELLS (STD-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) SLOT-NAME) (CLASS SLOT-NAME) NIL FIND-SLOT-DEFI
NITION (STD-CLASS T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS CLASS) (SUBCLASS CLASS)) (CLASS SUBCLASS) NIL ADD-DIRECT-S
UBCLASS (CLASS CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS CLASS) (SUBCLASS CLASS)) (CLASS SUBCLASS) NIL REMOVE-DIREC
T-SUBCLASS (CLASS CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((METHOD METHOD) (SPECIALIZER CLASS)) (METHOD SPECIALIZER) NIL ADD
-METHOD-ON-SPECIALIZER (METHOD CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((METHOD METHOD) (SPECIALIZER CLASS)) (METHOD SPECIALIZER) NIL REM
OVE-METHOD-ON-SPECIALIZER (METHOD CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((SPECIALIZER CLASS)) (SPECIALIZER) NIL SPECIALIZER-METHODS (CLASS
))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((SPECIALIZER CLASS)) (SPECIALIZER) NIL SPECIALIZER-GENERIC-FUNCTI
ONS (CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24175F>"
; Starting full GC ...
; ... Full GC finished

Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((METHOD METHOD) (SPECIALIZER EQL-SPECIALIZER)) (METHOD SPECIALIZE
R) NIL ADD-METHOD-ON-SPECIALIZER (METHOD EQL-SPECIALIZER))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2797DD>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((METHOD METHOD) (SPECIALIZER EQL-SPECIALIZER)) (METHOD SPECIALIZE
R) NIL REMOVE-METHOD-ON-SPECIALIZER (METHOD EQL-SPECIALIZER))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2797DD>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((SPECIALIZER EQL-SPECIALIZER)) (SPECIALIZER) NIL SPECIALIZER-METH
ODS (EQL-SPECIALIZER))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2797DD>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((SPECIALIZER EQL-SPECIALIZER)) (SPECIALIZER) NIL SPECIALIZER-GENE
RIC-FUNCTIONS (EQL-SPECIALIZER))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2797DD>"
REAL-LOAD-DEFCLASS compiled.
ENSURE-CLASS compiled.
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: ((NAME (CLASS NULL) &REST ARGS &KEY) (NAME CLASS) NIL ENSURE-CLASS-
USING-CLASS (T NULL))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2797DD>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: ((NAME (CLASS PCL-CLASS) &REST ARGS &KEY) (NAME CLASS) NIL ENSURE-C
LASS-USING-CLASS (T PCL-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2797DD>"
; Starting full GC ...
; ... Full GC finished

Warning in ENSURE-CLASS-VALUES
  PROTO bound but value not used.
  Surrounding forms:
    (LET* ((INITARGS #) 
           (UNSUPPLIED #) 
           (SUPPLIED-META #) 
           (SUPPLIED-SUPERS #) ...)
      (FLET (#)
        (LOOP #)
        (LOOP #)...))
    (BLOCK ENSURE-CLASS-VALUES
      (LET* (# 
             # 
             # 
             # ...)
        (FLET #
          #
          #...)))
ENSURE-CLASS-VALUES compiled.
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) SLOT-NAMES &KEY DIRECT-SUPERCLASSES) (CLASS SLO
T-NAMES) ((DECLARE (IGNORE SLOT-NAMES))) SHARED-INITIALIZE (STD-CLASS T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24180D>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) SLOT-NAMES &KEY DIRECT-SUPERCLASSES DIRECT-SLOT
S DIRECT-DEFAULT-INITARGS) (CLASS SLOT-NAMES) ((DECLARE (IGNORE SLOT-NAMES))) SH
ARED-INITIALIZE (STD-CLASS T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24180D>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) &KEY DIRECT-SUPERCLASSES DIRECT-SLOTS DIRECT-DE
FAULT-INITARGS) (CLASS) ((DECLARE (IGNORE DIRECT-DEFAULT-INITARGS))) REINITIALIZ
E-INSTANCE (STD-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24180D>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) &REST INITARGS &KEY) (CLASS) NIL REINITIALIZE-I
NSTANCE (STD-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24180D>"
ADD-SLOT-ACCESSORS compiled.
REMOVE-SLOT-ACCESSORS compiled.
FIX-SLOT-ACCESSORS compiled.
ADD-DIRECT-SUBCLASSES compiled.
REMOVE-DIRECT-SUBCLASSES compiled.
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS)) (CLASS) NIL FINALIZE-INHERITANCE (STD-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24180D>"
UPDATE-CLASS compiled.
UPDATE-CPL compiled.
; Starting full GC ...
; ... Full GC finished

UPDATE-SLOTS compiled.
COMPUTE-STORAGE-INFO compiled.
; Starting full GC ...
; ... Full GC finished

COMPUTE-LAYOUT compiled.
COMPUTE-CLASS-SLOTS compiled.
UPDATE-INITS compiled.
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) CPL DIRECT) (CLASS CPL DIRECT) NIL COMPUTE-DEFA
ULT-INITARGS (STD-CLASS T T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24987F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) INITARGS) (CLASS INITARGS) ((DECLARE (IGNORE IN
ITARGS))) DIRECT-SLOT-DEFINITION-CLASS (STD-CLASS T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24987F>"
MAKE-DIRECT-SLOTD compiled.
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) CPL CLASS-DIRECT-SLOTS) (CLASS CPL CLASS-DIRECT
-SLOTS) NIL COMPUTE-SLOTS (STD-CLASS T T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24987F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) DSLOTDS) (CLASS DSLOTDS) NIL COMPUTE-EFFECTIVE-
SLOT-DEFINITION (STD-CLASS T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24987F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) INITARGS) (CLASS INITARGS) ((DECLARE (IGNORE IN
ITARGS))) EFFECTIVE-SLOT-DEFINITION-CLASS (STD-CLASS T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24987F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) DIRECT-SLOTDS) (CLASS DIRECT-SLOTDS) NIL COMPUT
E-EFFECTIVE-SLOT-DEFINITION-INITARGS (STD-CLASS T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24987F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) GENERIC-FUNCTION SLOT-NAME) (CLASS GENERIC-FUNC
TION SLOT-NAME) NIL ADD-READER-METHOD (STD-CLASS T T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24987F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) GENERIC-FUNCTION SLOT-NAME) (CLASS GENERIC-FUNC
TION SLOT-NAME) NIL ADD-WRITER-METHOD (STD-CLASS T T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24987F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) GENERIC-FUNCTION) (CLASS GENERIC-FUNCTION) NIL 
REMOVE-READER-METHOD (STD-CLASS T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24987F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) GENERIC-FUNCTION) (CLASS GENERIC-FUNCTION) NIL 
REMOVE-WRITER-METHOD (STD-CLASS T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24987F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STANDARD-CLASS) SLOT-NAME) (CLASS SLOT-NAME) NIL MAKE-READ
ER-METHOD-FUNCTION (STANDARD-CLASS T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24987F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STANDARD-CLASS) SLOT-NAME) (CLASS SLOT-NAME) NIL MAKE-WRIT
ER-METHOD-FUNCTION (STANDARD-CLASS T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24987F>"
MAKE-STD-READER-METHOD-FUNCTION compiled.
MAKE-STD-WRITER-METHOD-FUNCTION compiled.
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS) NAME) (CLASS NAME) NIL INFORM-TYPE-SYSTEM-ABOUT
-CLASS (STD-CLASS T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x24987F>"
; Starting full GC ...
; ... Full GC finished

MAKE-TYPE-PREDICATE compiled.
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((GENERIC-FUNCTION GENERIC-FUNCTION) (METHOD METHOD)) (GENERIC-FUN
CTION METHOD) NIL MAYBE-UPDATE-CONSTRUCTORS (GENERIC-FUNCTION METHOD))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x27996F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS)) (CLASS) NIL UPDATE-CONSTRUCTORS (STD-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x27996F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS CLASS)) (CLASS) NIL UPDATE-CONSTRUCTORS (CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x27996F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: ((CLASS PROTO-NEW-CLASS) (CLASS PROTO-NEW-CLASS) NIL COMPATIBLE-MET
A-CLASS-CHANGE-P (T T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x27996F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS T) (NEW-SUPER T)) (CLASS NEW-SUPER) NIL CHECK-SUPER-METACL
ASS-COMPATIBILITY (T T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x27996F>"
FORCE-CACHE-FLUSHES compiled.
FLUSH-CACHE-TRAP compiled.
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS STD-CLASS)) (CLASS) NIL MAKE-INSTANCES-OBSOLETE (STD-CLASS
))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x27996F>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS SYMBOL)) (CLASS) NIL MAKE-INSTANCES-OBSOLETE (SYMBOL))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x27996F>"
; Starting full GC ...
; ... Full GC finished

OBSOLETE-INSTANCE-TRAP compiled.
CHANGE-CLASS-INTERNAL compiled.
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((INSTANCE STANDARD-OBJECT) (NEW-CLASS STANDARD-CLASS)) (INSTANCE 
NEW-CLASS) NIL CHANGE-CLASS (STANDARD-OBJECT STANDARD-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2499E5>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((INSTANCE STANDARD-OBJECT) (NEW-CLASS FUNCALLABLE-STANDARD-CLASS)
) (INSTANCE NEW-CLASS) NIL CHANGE-CLASS (STANDARD-OBJECT FUNCALLABLE-STANDARD-CL
ASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2499E5>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((INSTANCE T) (NEW-CLASS-NAME SYMBOL)) (INSTANCE NEW-CLASS-NAME) N
IL CHANGE-CLASS (T SYMBOL))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2499E5>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS BUILT-IN-CLASS) SLOT-NAMES &REST INITARGS) (CLASS SLOT-NAM
ES) ((DECLARE (IGNORE SLOT-NAMES))) SHARED-INITIALIZE (BUILT-IN-CLASS T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2499E5>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS BUILT-IN-CLASS)) (CLASS) NIL CLASS-DIRECT-SLOTS (BUILT-IN-
CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2499E5>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS BUILT-IN-CLASS)) (CLASS) NIL CLASS-SLOTS (BUILT-IN-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2499E5>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS BUILT-IN-CLASS)) (CLASS) NIL CLASS-DIRECT-DEFAULT-INITARGS
 (BUILT-IN-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2499E5>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((CLASS BUILT-IN-CLASS)) (CLASS) NIL CLASS-DEFAULT-INITARGS (BUILT
-IN-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2499E5>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((C CLASS) (S BUILT-IN-CLASS)) (C S) NIL CHECK-SUPER-METACLASS-COM
PATIBILITY (CLASS BUILT-IN-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2499E5>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((C STD-CLASS) (F FORWARD-REFERENCED-CLASS)) (C F) NIL CHECK-SUPER
-METACLASS-COMPATIBILITY (STD-CLASS FORWARD-REFERENCED-CLASS))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2499E5>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((METAOBJECT DEPENDENT-UPDATE-MIXIN) DEPENDENT) (METAOBJECT DEPEND
ENT) NIL ADD-DEPENDENT (DEPENDENT-UPDATE-MIXIN T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2499E5>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((METAOBJECT DEPENDENT-UPDATE-MIXIN) DEPENDENT) (METAOBJECT DEPEND
ENT) NIL REMOVE-DEPENDENT (DEPENDENT-UPDATE-MIXIN T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2499E5>"
Error between functions
  Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
    Error signalled by ERROR
    Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
  with args: (((METAOBJECT DEPENDENT-UPDATE-MIXIN) FUNCTION) (METAOBJECT FUNCTIO
N) NIL MAP-DEPENDENTS (DEPENDENT-UPDATE-MIXIN T))
            
  apparently called by: #<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x2499E5>"

Finished compilation of file DISK$CRL:[RICK.PCL]STD-CLASS.LSP;1
62 Errors, 1 Warnings
The following are assumed to be functions, but were not
declared or defined:
 FORWARD-REFERENCED-CLASS-P CLASS-OF CLASS-PROTOTYPE CLASSP
 MAKE-INSTANCE ADD-READER-METHOD REMOVE-READER-METHOD ADD-WRITER-METHOD
 REMOVE-WRITER-METHOD SLOTD-NAME SLOTD-READERS SLOTD-WRITERS
 CLASS-DIRECT-SUBCLASSES ADD-DIRECT-SUBCLASS CLASS-DIRECT-SUPERCLASSES
 REMOVE-DIRECT-SUBCLASS CLASS-FINALIZED-P CLASS-DIRECT-SLOTS
 CLASS-DIRECT-DEFAULT-INITARGS COMPUTE-CLASS-PRECEDENCE-LIST
 COMPUTE-SLOTS COMPUTE-DEFAULT-INITARGS UPDATE-CONSTRUCTORS
 CLASS-PRECEDENCE-LIST CLASS-WRAPPER MAKE-WRAPPER
 MAKE-INSTANCES-OBSOLETE SLOTD-ALLOCATION CLASS-SLOTS CLASS-SLOT-CELLS
 DIRECT-SLOT-DEFINITION-CLASS SLOT-VALUE-USING-CLASS
 |SETF PCL SLOT-VALUE-USING-CLASS| ALLOCATE-INSTANCE
 UPDATE-INSTANCE-FOR-REDEFINED-CLASS
Loading binary of STD-CLASS...
; Starting full GC ...
; ... Full GC finished

Error in SYMBOL-FUNCTION:
Symbol has no global function definition: MAKE-INSTANCE

Control Stack Debugger
Apply #13: (SYMBOL-FUNCTION MAKE-INSTANCE) 
Debug 1> back
-- Backtrace start --
Apply #13: (SYMBOL-FUNCTION MAKE-INSTANCE) 
Apply #9: (LOAD #S(PATHNAME :HOST "CGIVB" :DEVICE "DISK$CRL" :DIRECTORY "RICK.PC
L" :NAME "std-class" :TYPE "FAS" :VERSION 1)) 
Apply #7: (OPERATE-ON-SYSTEM PCL :COMPILE NIL NIL) 
Apply #6: (COMPILE-PCL NIL) 
Eval  #5: (COMPILE-PCL) 
Apply #3: (EVAL (COMPILE-PCL)) 
Apply #1: (READ-EVAL-PRINT-LOOP "Lisp> ") 
-- Backtrace end --
Apply #13: (SYMBOL-FUNCTION MAKE-INSTANCE) 
Debug 1> show here
It is a compiled-function
Lambda-list: SYMBOL-FUNCTION system::a
    SYMBOL-FUNCTION symbol
    
      This function returns the current global function definition
      named by symbol.  Note that the definition may be a function,
      or may be an object representing a special form or macro.
      In the latter cases, it is an error to attempt to invoke the
      object as a function.
-- Arguments --
SYSTEM::A : MAKE-INSTANCE
Debug 1> down
Apply #9: (LOAD #S(PATHNAME :HOST "CGIVB" :DEVICE "DISK$CRL" :DIRECTORY "RICK.PC
L" :NAME "std-class" :TYPE "FAS" :VERSION 1)) 
Debug 1> show here
It is a compiled-function
Lambda-list: LOAD system::a &REST system::b
    LOAD filename &KEY :VERBOSE :PRINT :IF-DOES-NOT-EXIST
    
      This function loads the file named by filename into the LISP
      environment.  The file can contain LISP source code or object
      (fastload) code produced by the compiler.  Defaults for the
      filename are taken from *DEFAULT-PATHNAME-DEFAULTS*.
    
      The :VERBOSE argument (which defaults to *LOAD-VERBOSE*), if
      true, causes a log of the major loaded forms to be printed to
      *STANDARD-OUTPUT*.  The :PRINT argument (default *LOAD-PRINT*), if
      true, causes the value of each loaded form to be printed.
      See the reference book for details.
-- Arguments --
SYSTEM::B : NIL
Debug 1> down
Apply #7: (OPERATE-ON-SYSTEM PCL :COMPILE NIL NIL) 
Debug 1> show here
It is a compiled-function
Lambda-list: OPERATE-ON-SYSTEM name mode &OPTIONAL arg print-only
-- Arguments --
NAME : PCL
MODE : :COMPILE
ARG : NIL
PRINT-ONLY : NIL
Debug 1> down
Apply #6: (COMPILE-PCL NIL) 
Debug 1> show here
It is a compiled-function
Lambda-list: COMPILE-PCL &OPTIONAL m
-- Arguments --
M : NIL
Debug 1> down
Eval  #5: (COMPILE-PCL) 
Debug 1> show here
It is a compiled-function
Lambda-list: SYSTEM::INTERPRET system::a system::b system::c
Interpreter frame--can't see internal args
Debug 1> down
Apply #3: (EVAL (COMPILE-PCL)) 
Debug 1> top
Apply #13: (SYMBOL-FUNCTION MAKE-INSTANCE) 
Debug 1> (exit)