VAXLisp V2.1 Compilation Error

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

I still have problems compiling the file boot.lisp with the latest (8/24)
release.  Specifically the function MAKE-PARAMETER-REFERENCES will not compile.
The VAXLisp compile debug switch does not seem to work when using the function
COMPILE-PCL to compile the file.  So I loaded the source boot.lisp (after
loading the required binary files) and then invoked 
(COMPILE 'MAKE-PARAMETER-REFERENCES) to produce the traceback info included
at the end of this message. 

Thanks for your help,
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

xxxxxxxxxxxxxxxxxxxxxxxxx cut here xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Dribbling to USR0:[CLOS.V082488]CF.LOG;2
Lisp> 
(load "boot.lisp")
; Loading contents of file USR0:[CLOS.V082488]BOOT.LISP;1
;   DEFMETHOD
;   METHOD-PROTOTYPE-FOR-GF
;   EXPAND-DEFMETHOD
;   EXPAND-DEFMETHOD-INTERNAL
;   ADD-LEXICAL-FUNCTIONS-TO-METHOD-LAMBDA
;   MAKE-PARAMETER-REFERENCES
;   METHOD-FUNCTION-PLIST
;   |SETF METHOD-FUNCTION-PLIST|
;   METHOD-FUNCTION-GET
;   |SETF METHOD-FUNCTION-GET|
;   METHOD-FUNCTION-ISL
;   METHOD-FUNCTION-NEEDS-NEXT-METHODS-P
;   LOAD-DEFMETHOD
;   LOAD-DEFMETHOD-INTERNAL
;   MAKE-METHOD-SPEC
;   ENSURE-GENERIC-FUNCTION
;   EARLY-ENSURE-GF-INTERNAL
;   EARLY-GF-P
;   EARLY-GF-METHODS
;   EARLY-GF-DISCRIMINATOR-CODE
;   REAL-ENSURE-GF-INTERNAL
;   EARLY-MAKE-A-METHOD
;   REAL-MAKE-A-METHOD
;   EARLY-METHOD-SPECIALIZERS
;   EARLY-ADD-NAMED-METHOD
;   ADD-METHOD
;   REMOVE-METHOD
;   GET-METHOD
;   EARLY-UPDATE-DISCRIMINATOR-CODE
;   EARLY-LOOKUP-METHOD
;   FIX-EARLY-GENERIC-FUNCTIONS
;   MAKE-TOP-LEVEL-FORM
;   MAKE-PROGN
;   PARSE-DEFMETHOD
;   PARSE-SPECIALIZERS
;   UNPARSE-SPECIALIZERS
;   PARSE-METHOD-OR-SPEC
;   SPECIALIZED-LAMBDA-LIST-PARAMETERS
;   SPECIALIZED-LAMBDA-LIST-LAMBDA-LIST
;   SPECIALIZED-LAMBDA-LIST-SPECIALIZERS
;   PARSE-SPECIALIZED-LAMBDA-LIST
;   WITH-SLOTS
;   WITH-ACCESSORS
;   EXPAND-WITH-SLOTS
;   EXPAND-WITH-SLOTS-INTERNAL
; Finished loading USR0:[CLOS.V082488]BOOT.LISP;1
T
Lisp> 
(compile 'make-parameter-references)

Fatal error in function MACROEXPAND-1 (signaled with ERROR).
Argument must be a list: #((SYSTEM::%COMPILED-CLOSURE%
(#((SYSTEM::%COMPILED-CLOSURE% (#(NIL NIL ((#:G5235 ((SYSTEM::%COMPILED-CLOSURE%
(#(NIL ((ITERATE::TAIL . #:G5400) (ITERATE::HEAD . #:G5399)) NIL)) #<Compiled
Function #:RENAME-AND-CAPTURE-VARIABLES-I2123 #x4711A4>) NIL NIL NIL)))))
#<Compiled Function #:WITH-AUGMENTED-ENVIRONMENT-INTERNAL-I39 #x450EB0>) NIL
((#:G5235 ((SYSTEM::%COMPILED-CLOSURE% (#(NIL ((ITERATE::TAIL . #:G5400)
(ITERATE::HEAD . #:G5399)) NIL)) #<Compiled Function
#:RENAME-AND-CAPTURE-VARIABLES-I2123 #x4711A4>) NIL NIL (ITERATE::VALUE))))))
#<Compiled Function #:WITH-AUGMENTED-ENVIRONMENT-INTERNAL-I39 #x450EB0>) NIL
((#:G5235 ((SYSTEM::%COMPILED-CLOSURE% (#(NIL ((ITERATE::TAIL . #:G5400)
(ITERATE::HEAD . #:G5399)) NIL)) #<Compiled Function
#:RENAME-AND-CAPTURE-VARIABLES-I2123 #x4711A4>) (NULL ITERATE::HEAD) NIL
(ITERATE::VALUE)))))

Control Stack Debugger
Frame #28: (MACROEXPAND-1 (NULL ITERATE::HEAD) (SYSTEM::%COMPILED-CLOSURE%
(#((SYSTEM::%COMPILED-CLOSURE% (#((SYSTEM::%COMPILED-CLOSURE% (#(NIL NIL
((#:G5235 ((SYSTEM::%COMPILED-CLOSURE% (#(NIL ((ITERATE::TAIL . #:G5400)
(ITERATE::HEAD . #:G5399)) NIL)) #<Compiled Function
#:RENAME-AND-CAPTURE-VARIABLES-I2123 #x4711A4>) NIL NIL NIL))))) #<Compiled
Function #:WITH-AUGMENTED-ENVIRONMENT-INTERNAL-I39 #x450EB0>) NIL ((#:G5235
((SYSTEM::%COMPILED-CLOSURE% (#(NIL ((ITERATE::TAIL . #:G5400) (ITERATE::HEAD .
#:G5399)) NIL)) #<Compiled Function #:RENAME-AND-CAPTURE-VARIABLES-I2123
#x4711A4>) NIL NIL (ITERATE::VALUE)))))) #<Compiled Function
#:WITH-AUGMENTED-ENVIRONMENT-INTERNAL-I39 #x450EB0>) NIL ((#:G5235
((SYSTEM::%COMPILED-CLOSURE% (#(NIL ((ITERATE::TAIL . #:G5400) (ITERATE::HEAD .
#:G5399)) NIL)) #<Compiled Function #:RENAME-AND-CAPTURE-VARIABLES-I2123
#x4711A4>) (NULL ITERATE::HEAD) NIL (ITERATE::VALUE)))))) #<Compiled Function
#:WITH-AUGMENTED-ENVIRONMENT-INTERNAL-I39 #x450EB0>)) 
Debug 1> backtrace
-- Backtrace start --
Frame #28: (MACROEXPAND-1 (NULL ITERATE::HEAD) (SYSTEM::%COMPILED-CLOSURE%
(#((SYSTEM::%COMPILED-CLOSURE% (#((SYSTEM::%COMPILED-CLOSURE% (#(NIL NIL
((#:G5235 ((SYSTEM::%COMPILED-CLOSURE% (#(NIL ((ITERATE::TAIL . #:G5400)
(ITERATE::HEAD . #:G5399)) NIL)) #<Compiled Function
#:RENAME-AND-CAPTURE-VARIABLES-I2123 #x4711A4>) NIL NIL NIL))))) #<Compiled
Function #:WITH-AUGMENTED-ENVIRONMENT-INTERNAL-I39 #x450EB0>) NIL ((#:G5235
((SYSTEM::%COMPILED-CLOSURE% (#(NIL ((ITERATE::TAIL . #:G5400) (ITERATE::HEAD .
#:G5399)) NIL)) #<Compiled Function #:RENAME-AND-CAPTURE-VARIABLES-I2123
#x4711A4>) NIL NIL (ITERATE::VALUE)))))) #<Compiled Function
#:WITH-AUGMENTED-ENVIRONMENT-INTERNAL-I39 #x450EB0>) NIL ((#:G5235
((SYSTEM::%COMPILED-CLOSURE% (#(NIL ((ITERATE::TAIL . #:G5400) (ITERATE::HEAD .
#:G5399)) NIL)) #<Compiled Function #:RENAME-AND-CAPTURE-VARIABLES-I2123
#x4711A4>) (NULL ITERATE::HEAD) NIL (ITERATE::VALUE)))))) #<Compiled Function
#:WITH-AUGMENTED-ENVIRONMENT-INTERNAL-I39 #x450EB0>))
Frame #19: (GATHERING (GATHERING ((REFERENCES (COLLECTING))) (ITERATE ((S
(LIST-ELEMENTS SPECIALIZED-LAMBDA-LIST)) (P (LIST-ELEMENTS
REQUIRED-PARAMETERS))) (COND ((NOT (LISTP S))) ((IGNOREDP (CAR S)) (WARN "In
defmethod ~S ~S, there is a~%~
                      redundant ignore declaration for the parameter ~S."
GENERIC-FUNCTION-NAME SPECIALIZERS (CAR S))) (T (GATHER (CAR S) REFERENCES)))))
NIL)
Frame #18: (SYSTEM::TRANSFORM (GATHERING ((REFERENCES (COLLECTING))) (ITERATE
((S (LIST-ELEMENTS SPECIALIZED-LAMBDA-LIST)) (P (LIST-ELEMENTS
REQUIRED-PARAMETERS))) (COND ((NOT (LISTP S))) ((IGNOREDP (CAR S)) (WARN "In
defmethod ~S ~S, there is a~%~
                      redundant ignore declaration for the parameter ~S."
GENERIC-FUNCTION-NAME SPECIALIZERS (CAR S))) (T (GATHER (CAR S) REFERENCES))))))
Frame #3: (COMPILE MAKE-PARAMETER-REFERENCES NIL)
Frame #1: (EVAL (COMPILE (QUOTE MAKE-PARAMETER-REFERENCES)))
-- Backtrace end --
Frame #28: (MACROEXPAND-1 (NULL ITERATE::HEAD) (SYSTEM::%COMPILED-CLOSURE%
(#((SYSTEM::%COMPILED-CLOSURE% (#((SYSTEM::%COMPILED-CLOSURE% (#(NIL NIL
((#:G5235 ((SYSTEM::%COMPILED-CLOSURE% (#(NIL ((ITERATE::TAIL . #:G5400)
(ITERATE::HEAD . #:G5399)) NIL)) #<Compiled Function
#:RENAME-AND-CAPTURE-VARIABLES-I2123 #x4711A4>) NIL NIL NIL))))) #<Compiled
Function #:WITH-AUGMENTED-ENVIRONMENT-INTERNAL-I39 #x450EB0>) NIL ((#:G5235
((SYSTEM::%COMPILED-CLOSURE% (#(NIL ((ITERATE::TAIL . #:G5400) (ITERATE::HEAD .
#:G5399)) NIL)) #<Compiled Function #:RENAME-AND-CAPTURE-VARIABLES-I2123
#x4711A4>) NIL NIL (ITERATE::VALUE)))))) #<Compiled Function
#:WITH-AUGMENTED-ENVIRONMENT-INTERNAL-I39 #x450EB0>) NIL ((#:G5235
((SYSTEM::%COMPILED-CLOSURE% (#(NIL ((ITERATE::TAIL . #:G5400) (ITERATE::HEAD .
#:G5399)) NIL)) #<Compiled Function #:RENAME-AND-CAPTURE-VARIABLES-I2123
#x4711A4>) (NULL ITERATE::HEAD) NIL (ITERATE::VALUE)))))) #<Compiled Function
#:WITH-AUGMENTED-ENVIRONMENT-INTERNAL-I39 #x450EB0>)) 
Debug 1> quit
Lisp> (dribble)
xxxxxxxxxxxxxxxxxxxxxxxxx cut here xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-------