bootstrap-meta-braid in lucid

[Dan Carnese <Carnese@SPAR-20.ARPA>]

It dies trying to do a setf of (class-named 'class), but no such class
apparently exists.  I really didn't want to compile pcl, but the
lucid/sun
directory appears empty and the ftp bug hasn't been fixed yet anyway.

-- Dan

BUG REPORT:
"Development Environment Version 2.0.4"
"Sun2"
"68010"
"zonker"
"UNIX4.2"
"3.2"
"Schlumberger Palo Alto Research"
(:WINDOWS :EDITOR :FOREIGN-FUNCTION-CALL :FLOATING-POINT :COMPILER
:MC68000 :SUN :UNIX :LUCID :COMMON-LISP)
----------

User's comments:
Just at the start of braid2

----------
CERROR:
   Required arg 0 (CONTINUE-FORMAT-STRING): "Try evaluating ~S again"
   Required arg 1 (FORMAT-STRING): "~S has no global value"
   Rest arg (FORMAT-ARGS): (NAME)
SYMBOL-VALUE:
   Required arg 0 (S): NAME
   Local 1: #<Unbound 1E>
LUCID::LRUN-FUNCALL:
   Required arg 0 (LCODE): #S(LUCID::LCODE-FUNCALL NIL
#<Compiled-Function LUCID::LRUN-FUNCALL 1E0007> NIL NAME NIL
(#S(LUCID::CONTOUR NIL 0 NIL (#:G3769 CLASS))) NIL
#S(LUCID::LCODE-GLOBAL-FUNCTION-REFERENCE NIL #<Compiled-Function
FUNCTION 1E0067> NIL (FUNCTION SYMBOL-VALUE) NIL (#S(LUCID::CONTOUR NIL
0 NIL (#:G3769 CLASS))) NIL SYMBOL-VALUE) NIL #<Simple-Vector T 1
A8CB6B>)
   Required arg 1 (ENVIRONMENT): (((CLASS-NAMED #:G7822) #:G7821))
   Local 2: #<Compiled-Function SYMBOL-VALUE 1E016F>
   Local 3: #<Simple-Vector T 1 A8CB6B>
   Local 4: 1
   Local 5: NAME
[... lots of lucid:lrun frames ...]
PROGN:
Original code: (PROGN (SYSTEM:BQ-LIST (QUOTE SET-CLASS-NAMED) NAME
CLASS) (LET* ((#:G3770 (CDR #:G3769)) (NAME (SYSTEM:CAR-REF #:G3770 #
#)) (#:G3771 (SYSTEM:CDR-REF #:G3770 # #)) (IGNORE (SYSTEM:SCAR-REF
#:G3771 NIL # #)) (#:G3772 (SYSTEM:END-REF-1 # # #))) (DECLARE (IGNORE
IGNORE)) (SYSTEM:BQ-LIST (QUOTE SET-CLASS-NAMED) NAME CLASS)))
[... lots more lucid:lrun frames ...]
GET-SETF-METHOD-MULTIPLE-VALUE:
   Required arg 0 (FORM): (CLASS-NAMED (QUOTE CLASS))
   Optional arg 1 (ENVIRONMENT): ((#S(LUCID::%ANODE NIL LAMBDA NIL NIL
NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL (VALUES
&REST T) NIL NIL)) (#S(LUCID::%ANODE NIL LAMBDA NIL NIL NIL NIL NIL NIL
NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL (VALUES &REST T) NIL NIL))
NIL NIL NIL NIL NIL LUCID::%ALPHALEX)
   Local 2: #<Interpreted-Function (LAMBDA (#:G3769 CLASS) (DECLARE
(IGNORE IGNORE)) (SYSTEM:BQ-LIST (QUOTE SET-CLASS-NAMED) NAME CLASS)
(LET* ((#:G3770 (CDR #:G3769)) (NAME (SYSTEM:CAR-REF #:G3770 # #))
(#:G3771 (SYSTEM:CDR-REF #:G3770 # #)) (IGNORE (SYSTEM:SCAR-REF #:G3771
NIL # #)) (#:G3772 (SYSTEM:END-REF-1 # # #))) (DECLARE (IGNORE IGNORE))
(SYSTEM:BQ-LIST (QUOTE SET-CLASS-NAMED) NAME CLASS))) A0AEAF>
   Local 3: #:G7821
   Local 4: NIL
   Local 5: (#:G7822)
   Local 6: (CLASS-NAMED #:G7822)
   Local 7: (#:G7822)
   Local 8: ((QUOTE CLASS))
   Local 9: (#:G7821)
GET-SETF-METHOD:
   Required arg 0 (FORM): (CLASS-NAMED (QUOTE CLASS))
   Optional arg 1 (ENVIRONMENT): ((#S(LUCID::%ANODE NIL LAMBDA NIL NIL
NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL (VALUES
&REST T) NIL NIL)) (#S(LUCID::%ANODE NIL LAMBDA NIL NIL NIL NIL NIL NIL
NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL (VALUES &REST T) NIL NIL))
NIL NIL NIL NIL NIL LUCID::%ALPHALEX)
SETF:
   Required arg 0 (FORM): (SETF (CLASS-NAMED (QUOTE CLASS)) I)
   Required arg 1 (ENVIRONMENT): ((#S(LUCID::%ANODE NIL LAMBDA NIL NIL
NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL (VALUES
&REST T) NIL NIL)) (#S(LUCID::%ANODE NIL LAMBDA NIL NIL NIL NIL NIL NIL
NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL (VALUES &REST T) NIL NIL))
NIL NIL NIL NIL NIL LUCID::%ALPHALEX)
   Local 2: ((CLASS-NAMED (QUOTE CLASS)) I)
   Local 3: NIL
LUCID::COMPILER-MACROEXPAND-1:
   Required arg 0 (FORM): (SETF (CLASS-NAMED (QUOTE CLASS)) I)
   Optional arg 1 (ENV): ((#S(LUCID::%ANODE NIL LAMBDA NIL NIL NIL NIL
NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL (VALUES &REST T) NIL
NIL)) (#S(LUCID::%ANODE NIL LAMBDA NIL NIL NIL NIL NIL NIL NIL NIL NIL
NIL NIL NIL NIL NIL NIL NIL NIL (VALUES &REST T) NIL NIL)) NIL NIL NIL
NIL NIL LUCID::%ALPHALEX)
   Optional arg 2 (REAL-MACROS-ONLY): T
   Local 3: #<Compiled-Function SETF 3A5BF7>
LUCID::PARSE-BODY:
   Required arg 0 (BODY): ((SETF (CLASS-NAMED (QUOTE CLASS)) I)
(%ALLOCATE-INSTANCE--CLASS-1 14 I) I)
   Optional arg 1 (ENVIRONMENT): ((#S(LUCID::%ANODE NIL LAMBDA NIL NIL
NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL (VALUES
&REST T) NIL NIL)) (#S(LUCID::%ANODE NIL LAMBDA NIL NIL NIL NIL NIL NIL
NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL (VALUES &REST T) NIL NIL))
NIL NIL NIL NIL NIL LUCID::%ALPHALEX)
   Optional arg 2 (DOC-STRING-ALLOWED): NIL
   Local 3: ((SETF (CLASS-NAMED (QUOTE CLASS)) I)
(%ALLOCATE-INSTANCE--CLASS-1 14 I) I)
   Local 4: NIL
   Local 5: NIL
   Local 6: (SETF (CLASS-NAMED (QUOTE CLASS)) I)
   Local 7: T
LET:
   Required arg 0 (FORM): (LET ((I (%%ALLOCATE-INSTANCE--CLASS))) (SETF
(CLASS-NAMED (QUOTE CLASS)) I) (%ALLOCATE-INSTANCE--CLASS-1 14 I) I)
   Required arg 1 (ENVIRONMENT): ((#S(LUCID::%ANODE NIL LAMBDA NIL NIL
NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL (VALUES
&REST T) NIL NIL)) (#S(LUCID::%ANODE NIL LAMBDA NIL NIL NIL NIL NIL NIL
NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL (VALUES &REST T) NIL NIL))
NIL NIL NIL NIL NIL LUCID::%ALPHALEX)
   Local 2: (((I (%%ALLOCATE-INSTANCE--CLASS))) (SETF (CLASS-NAMED
(QUOTE CLASS)) I) (%ALLOCATE-INSTANCE--CLASS-1 14 I) I)
   Local 3: ((I (%%ALLOCATE-INSTANCE--CLASS)))
   Local 4: ((SETF (CLASS-NAMED (QUOTE CLASS)) I)
(%ALLOCATE-INSTANCE--CLASS-1 14 I) I)