PCL on VAXLisp Ver 2.0

["Uttam K. Sengupta" <sengupta@asu.edu>]

Tried to compile PCL (latest version) on our VAX VMS running VAXLisp 2.0, and
had compilation errors in the LOW module. Has anybody come across this problem
and if they have cracked this one, could they share their expertise with us.
Would sure appreciate any help. In the meantime we will continue to work on this
and keep you all posted about our progress (or lack thereof).

Thanks, 

Uttam Sengupta,
AI Laboratory, 
Computer Science Department,
Arizona State University, 
Tempe, AZ 85287.                      e-mail : sengupta@asu.csnet


;;; **********************************************************************


Dribbling to SYS$VMSC_USER:[UD.GCSS.SENGUPTA.PCL]SCRIPT2.;1

NIL
--------------------------------------------------------------------------------
==>  (pcl::compile-pcl)
Compiling PKG...
Starting compilation of file SYS$VMSC_USER:[UD.GCSS.SENGUPTA.PCL]PKG.LSP;1


Finished compilation of file SYS$VMSC_USER:[UD.GCSS.SENGUPTA.PCL]PKG.LSP;1
0 Errors, 0 Warnings
Loading binary of PKG...

Compiling WALK...
Starting compilation of file SYS$VMSC_USER:[UD.GCSS.SENGUPTA.PCL]WALK.LSP;1

Finished compilation of file SYS$VMSC_USER:[UD.GCSS.SENGUPTA.PCL]WALK.LSP;1
0 Errors, 0 Warnings
Loading binary of WALK...

Compiling MACROS...
Starting compilation of file SYS$VMSC_USER:[UD.GCSS.SENGUPTA.PCL]MACROS.LSP;1

Finished compilation of file SYS$VMSC_USER:[UD.GCSS.SENGUPTA.PCL]MACROS.LSP;1
0 Errors, 0 Warnings
Loading binary of MACROS...

Compiling LOW...
Starting compilation of file SYS$VMSC_USER:[UD.GCSS.SENGUPTA.PCL]LOW.LSP;1

Error in %INSTANCE-CLASS-OF
  Compile time error while executing MACROEXPAND-1
    Error signalled by ERROR
    Error message would have been:
"Argument must be a list: #((SYSTEM::%COMPILED-CLOSURE% (#(NIL NIL ((#:G5043 
((SYSTEM::%LEXICAL-CLOSURE% (LAMBDA (FORM CONTEXT ENV &AUX AUX) (DECLARE 
(IGNORE CONTEXT ENV)) (OR (AND (LISTP FORM) (SETQ AUX (ASSQ (CAR FORM) 
*ITERATE-RESULT-TYPES*)) (SETQ RESULT-TYPE (IF (NULL RESULT-TYPE) (FUNCALL 
(CDR AUX) FORM NIL (QUOTE CREATE-RESULT-TYPE)) (FUNCALL (CDR AUX) FORM 
RESULT-TYPE (QUOTE CHECK-RESULT-TYPE)))) (FUNCALL (CDR AUX) FORM RESULT-TYPE 
(QUOTE MACROEXPAND))) FORM)) ((BINDS MC) (VAR-INIT-STEPS (#:G12456 
*META-CLASSES* (CDR #:G12456))) (PRE-END-TESTS (NULL #:G12456)) 
(POST-END-TESTS) (PRE-BODIES (SETQ MC (CAR #:G12456))) (POST-BODIES) 
(RESULT-TYPE COLLECT #:G12457 ((#:G12457 NIL)) (NREVERSE #:G12457)) (BODY 
(COLLECT (CONS (CONS (QUOTE EQ) (CONS (CONS (QUOTE %INSTANCE-META-CLASS) 
(CONS ARG (QUOTE NIL))) (CONS (CONS (QUOTE LOAD-TIME-EVAL) (CONS (CONS 
(QUOTE CLASS-NAMED) (CONS (CONS (QUOTE QUOTE) (CONS (CAR MC) (QUOTE NIL))) 
(QUOTE NIL))) (QUOTE NIL))) (QUOTE NIL)))) (CONS (CONS (QUOTE FUNCALL) (CONS 
(CONS (QUOTE FUNCTION) (CONS (CDR MC) (QUOTE NIL))) (CONS ARG (QUOTE NIL)))) 
(QUOTE NIL))))) (CONTROLS (MC IN *META-CLASSES*)) (ENV) (SYSTEM::<MACRO-FORM> 
ITERATE ((MC IN *META-CLASSES*)) (COLLECT (CONS (CONS (QUOTE EQ) (CONS (CONS 
(QUOTE %INSTANCE-META-CLASS) (CONS ARG (QUOTE NIL))) (CONS (CONS (QUOTE 
LOAD-TIME-EVAL) (CONS (CONS (QUOTE CLASS-NAMED) (CONS (CONS (QUOTE QUOTE) 
(CONS (CAR MC) (QUOTE NIL))) (QUOTE NIL))) (QUOTE NIL))) (QUOTE NIL)))) 
(CONS (CONS (QUOTE FUNCALL) (CONS (CONS (QUOTE FUNCTION) (CONS (CDR MC) 
(QUOTE NIL))) (CONS ARG (QUOTE NIL)))) (QUOTE NIL)))))) NIL ((ITERATE)) NIL) 
NIL NIL NIL))))) #<Compiled Function #:WITH-AUGMENTED-ENVIRONMENT-INTERNAL-
I33 #x7EEFA4>) NIL ((#:G5043 ((SYSTEM::%LEXICAL-CLOSURE% (LAMBDA (FORM 
CONTEXT ENV &AUX AUX) (DECLARE (IGNORE CONTEXT ENV)) (OR (AND (LISTP FORM) 
(SETQ AUX (ASSQ (CAR FORM) *ITERATE-RESULT-TYPES*)) (SETQ RESULT-TYPE (IF 
(NULL RESULT-TYPE) (FUNCALL (CDR AUX) FORM NIL (QUOTE CREATE-RESULT-TYPE)) 
(FUNCALL (CDR AUX) FORM RESULT-TYPE (QUOTE CHECK-RESULT-TYPE)))) (FUNCALL 
(CDR AUX) FORM RESULT-TYPE (QUOTE MACROEXPAND))) FORM)) ((BINDS MC) 
(VAR-INIT-STEPS (#:G12456 *META-CLASSES* (CDR #:G12456))) (PRE-END-TESTS 
(NULL #:G12456)) (POST-END-TESTS) (PRE-BODIES (SETQ MC (CAR #:G12456))) 
(POST-BODIES) (RESULT-TYPE COLLECT #:G12457 ((#:G12457 NIL)) 
(NREVERSE #:G12457)) (BODY (COLLECT (CONS (CONS (QUOTE EQ) (CONS (CONS (QUOTE 
%INSTANCE-META-CLASS) (CONS ARG (QUOTE NIL))) (CONS (CONS (QUOTE LOAD-TIME-
EVAL) (CONS (CONS (QUOTE CLASS-NAMED) (CONS (CONS (QUOTE QUOTE) (CONS (CAR MC)
 (QUOTE NIL))) (QUOTE NIL))) (QUOTE NIL))) (QUOTE NIL)))) (CONS (CONS (QUOTE F
UNCALL) (CONS (CONS (QUOTE FUNCTION) (CONS (CDR MC) (QUOTE NIL))) (CONS ARG 
(QUOTE NIL)))) (QUOTE NIL))))) (CONTROLS (MC IN *META-CLASSES*)) (ENV) 
(SYSTEM::<MACRO-FORM> ITERATE ((MC IN *META-CLASSES*)) (COLLECT (CONS (CONS 
(QUOTE EQ) (CONS (CONS (QUOTE %INSTANCE-META-CLASS) (CONS ARG (QUOTE NIL))) 
(CONS (CONS (QUOTE LOAD-TIME-EVAL) (CONS (CONS (QUOTE CLASS-NAMED) (CONS 
(CONS (QUOTE QUOTE) (CONS (CAR MC) (QUOTE NIL))) (QUOTE NIL))) (QUOTE NIL))) 
(QUOTE NIL)))) (CONS (CONS (QUOTE FUNCALL) (CONS (CONS (QUOTE FUNCTION) 
(CONS (CDR MC) (QUOTE NIL))) (CONS ARG (QUOTE NIL)))) (QUOTE NIL)))))) NIL 
((ITERATE)) NIL) (PUSH (CONS (CONS (QUOTE EQ) (CONS (CONS 
(QUOTE %INSTANCE-META-CLASS) (CONS ARG (QUOTE NIL))) (CONS (CONS 
(QUOTE LOAD-TIME-EVAL) (CONS (CONS (QUOTE CLASS-NAMED) (CONS (CONS (QUOTE 
QUOTE) (CONS (CAR MC) (QUOTE NIL))) (QUOTE NIL))) (QUOTE NIL))) (QUOTE NIL))))
 (CONS (CONS (QUOTE FUNCALL) (CONS (CONS (QUOTE FUNCTION) (CONS (CDR MC) 
(QUOTE NIL))) (CONS ARG (QUOTE NIL)))) (QUOTE NIL))) #:G12457) NIL NIL))))"

Finished compilation of file SYS$VMSC_USER:[UD.GCSS.SENGUPTA.PCL]LOW.LSP;1
1 Errors, 0 Warnings
Errors were detected in the following functions:
 %INSTANCE-CLASS-OF
The following are assumed to be functions, but were not
declared or defined:
 CLASS-OF
Loading binary of LOW...

Compiling VAXL-LOW...Error using function COMPILE-FILE
   (signaled by CERROR).
Prompt for new file name.
Input file does not exist: SYS$USERDISK:[UD.GCSS.SENGUPTA.PCL]vaxl_low.LSP;0
SYS$USERDISK:[UD.GCSS.SENGUPTA.PCL]vaxl_low.LSP;0
--------------------------------------------------------------------------------
==>  
(dribble)