VAX compilation errors

[Doug Ruth <RUTH@SRI-ROBOTX.ARPA>]

I'm having trouble compiling the files boot.lisp and vector.lisp on or VAX
running VAX LISP V2.1.  In boot.lisp the errors are in the functions
MAKE-PARAMETER-REFERENCES and FIX-EARLY-GENERIC-FUNCTIONS.  In vector.lisp
the error is in the function LOOKUP-PV-N.  I have included a log of the
compilation session invoked with (compile-pcl) at the end of this message.
I'd appreciate any help on this.

Thanks,
Doug Ruth
Robotics Laboratory
SRI International
(415) 859-3860

Mailing Address:	SRI International
			333 Ravenswood Avenue, EL286
			Menlo Park, CA 94025
			
ARPA Net Address:	ruth@sri-robotx.arpa

xxxxxxxxxxxxxxxxxxxx cut here xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
	.
	.
	.
Finished compilation of file USR0:[CLOS]DEFS.LISP;1
0 Errors, 7 Warnings
Loading binary of DEFS...
Compiling BOOT...
Starting compilation of file USR0:[CLOS]BOOT.LISP;1

REDIRECT-EARLY-FUNCTION-INTERNAL compiled.
DEFMETHOD compiled.
DEFMETHOD-SETF compiled.
METHOD-PROTOTYPE-FOR-GF compiled.
EXPAND-DEFMETHOD compiled.
EXPAND-DEFMETHOD-SETF compiled.
EXPAND-DEFMETHOD-INTERNAL compiled.
ADD-LEXICAL-FUNCTIONS-TO-METHOD-LAMBDA compiled.
Error in MAKE-PARAMETER-REFERENCES
  Compile time error while executing MACROEXPAND-1
    Error signalled by ERROR
    Error message would have been:
"Argument must be a list: #((SYSTEM::%COMPILED-CLOSURE%
(#((SYSTEM::%COMPILED-CLOSURE% (#(NIL NIL ((#:G5683 ((SYSTEM::%COMPILED-CLOSURE%
(#(NIL ((ITERATE::TAIL . #:G8556) (ITERATE::HEAD . #:G8555)) NIL)) #<Compiled
Function #:RENAME-AND-CAPTURE-VARIABLES-I2120 #x48A0B0>) NIL NIL NIL)))))
#<Compiled Function #:WITH-AUGMENTED-ENVIRONMENT-INTERNAL-I34 #x48A19C>) NIL
((#:G5683 ((SYSTEM::%COMPILED-CLOSURE% (#(NIL ((ITERATE::TAIL . #:G8556)
(ITERATE::HEAD . #:G8555)) NIL)) #<Compiled Function
#:RENAME-AND-CAPTURE-VARIABLES-I2120 #x48A0B0>) NIL NIL (ITERATE::VALUE))))))
#<Compiled Function #:WITH-AUGMENTED-ENVIRONMENT-INTERNAL-I34 #x48A19C>) NIL
((#:G5683 ((SYSTEM::%COMPILED-CLOSURE% (#(NIL ((ITERATE::TAIL . #:G8556)
(ITERATE::HEAD . #:G8555)) NIL)) #<Compiled Function
#:RENAME-AND-CAPTURE-VARIABLES-I2120 #x48A0B0>) (NULL ITERATE::HEAD) NIL
(ITERATE::VALUE)))))"
METHOD-FUNCTION-PLIST compiled.
|SETF METHOD-FUNCTION-PLIST| compiled.
METHOD-FUNCTION-GET compiled.
|SETF METHOD-FUNCTION-GET| compiled.
METHOD-FUNCTION-ISL compiled.
METHOD-FUNCTION-NEEDS-NEXT-METHODS-P compiled.
LOAD-DEFMETHOD compiled.
LOAD-DEFMETHOD-SETF compiled.
LOAD-DEFMETHOD-INTERNAL compiled.
MAKE-METHOD-SPEC compiled.
Warning in ENSURE-GENERIC-FUNCTION
  GENERIC-FUNCTION-CLASS bound but value not used.
ENSURE-GENERIC-FUNCTION compiled.
EARLY-ENSURE-GF-INTERNAL compiled.
EARLY-GF-METHODS compiled.
EARLY-GF-DISCRIMINATOR-CODE compiled.
Warning in REAL-ENSURE-GF-INTERNAL
  METHOD-COMBINATION bound but value not used.
Warning in REAL-ENSURE-GF-INTERNAL
  DOCUMENTATION bound but value not used.
Warning in REAL-ENSURE-GF-INTERNAL
  DECLARATIONS bound but value not used.
Warning in REAL-ENSURE-GF-INTERNAL
  ARGUMENT-PRECEDENCE-ORDER bound but value not used.
Warning in REAL-ENSURE-GF-INTERNAL
  LAMBDA-LIST bound but value not used.
REAL-ENSURE-GF-INTERNAL compiled.
EARLY-MAKE-A-METHOD compiled.
REAL-MAKE-A-METHOD compiled.
EARLY-METHOD-SPECIALIZERS compiled.
EARLY-ADD-NAMED-METHOD compiled.
ADD-METHOD compiled.
REMOVE-METHOD compiled.
EARLY-UPDATE-DISCRIMINATOR-CODE compiled.
EARLY-LOOKUP-METHOD compiled.
Error in FIX-EARLY-GENERIC-FUNCTIONS
  Compile time error while executing CONS
    Error signalled by ERROR
    Error message would have been:
"Too many arguments, 3, to function #<Compiled Function CONS #x27653C>"
Warning in MAKE-TOP-LEVEL-FORM
  NAME bound but value not used.
MAKE-TOP-LEVEL-FORM compiled.
MAKE-PROGN 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.
PARSE-SPECIALIZED-LAMBDA-LIST compiled.
WITH-SLOTS compiled.
WITH-ACCESSORS compiled.
EXPAND-WITH-SLOTS compiled.
EXPAND-WITH-SLOTS-INTERNAL compiled.

Finished compilation of file USR0:[CLOS]BOOT.LISP;1
2 Errors, 7 Warnings
Errors were detected in the following functions:
 MAKE-PARAMETER-REFERENCES FIX-EARLY-GENERIC-FUNCTIONS
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
 OPTIMIZE-STANDARD-INSTANCE-ACCESS SORT-SLOTS-INTO-ISL ADD-PV-BINDING
 INTERN-SLOT-LISTS ADD-NAMED-METHOD MAKE-INSTANCE MAKE-A-METHOD
 BOOTSTRAP-GET-SLOT ALLOCATE-INSTANCE CLASS-WRAPPER
 CLASS-NO-OF-INSTANCE-SLOTS INITIALIZE REAL-ADD-METHOD SET-SLOT-VALUE
 CLASSP METHOD-TYPE-SPECIFIERS METHOD-P METHOD-GENERIC-FUNCTION
 GENERIC-FUNCTION-NAME METHOD-QUALIFIERS GET-METHOD
Loading binary of BOOT...
Compiling VECTOR...
Starting compilation of file USR0:[CLOS]VECTOR.LISP;1

MAKE-INTERN-LIST-TABLE compiled.
INTERN-IN-LIST-TABLE compiled.
INTERN-SLOT-LISTS-1 compiled.
INTERN-SLOT-LISTS-2 compiled.
INTERN-SLOT-LISTS compiled.
LOOKUP-PV compiled.
LOOKUP-PV-1 compiled.
LOOKUP-PV-2 compiled.
LOOKUP-PV-3 compiled.
Error in LOOKUP-PV-N
  Compile time error while executing MACROEXPAND-1
    Error signalled by ERROR
    Error message would have been:
"Argument must be a list: #((SYSTEM::%COMPILED-CLOSURE%
(#((SYSTEM::%COMPILED-CLOSURE% (#(NIL NIL ((#:G5683 ((SYSTEM::%COMPILED-CLOSURE%
(#(NIL ((ITERATE::TAIL . #:G9278) (ITERATE::HEAD . #:G9277)) NIL)) #<Compiled
Function #:RENAME-AND-CAPTURE-VARIABLES-I2120 #x6136D0>) NIL NIL NIL)))))
#<Compiled Function #:WITH-AUGMENTED-ENVIRONMENT-INTERNAL-I34 #x6137BC>) NIL
((#:G5683 ((SYSTEM::%COMPILED-CLOSURE% (#(NIL ((ITERATE::TAIL . #:G9278)
(ITERATE::HEAD . #:G9277)) NIL)) #<Compiled Function
#:RENAME-AND-CAPTURE-VARIABLES-I2120 #x6136D0>) NIL NIL (ITERATE::VALUE))))))
#<Compiled Function #:WITH-AUGMENTED-ENVIRONMENT-INTERNAL-I34 #x6137BC>) NIL
((#:G5683 ((SYSTEM::%COMPILED-CLOSURE% (#(NIL ((ITERATE::TAIL . #:G9278)
(ITERATE::HEAD . #:G9277)) NIL)) #<Compiled Function
#:RENAME-AND-CAPTURE-VARIABLES-I2120 #x6136D0>) (NULL ITERATE::HEAD) NIL
(ITERATE::VALUE)))))"
	.
	.
	.
xxxxxxxxxxxxxxxxxxxx cut here xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-------