pcl 4/29 prime and sclisp-2.0.3

[Rob Pettengill <rcp@MCC.COM>]

We finally got set up with Lucid SCLISP version 2.0.3 here, but
we still have a problem


Implementation: Lucid Common Lisp version Development Environment
Version 2.0.3
Machine Type:   Sun2 version 68010
Software Type:  UNIX4.2 version 3.2
Site:           perseus @ MCC Software Technology Program
Features:       FLAVORS, WINDOWS, EDITOR, FOREIGN-FUNCTION-CALL, 
                FLOATING-POINT, COMPILER, MC68000, SUN, UNIX, LUCID, 
Modules:        
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Comments:
;;; I finally got sclisp-2.0.3 and did compile-pcl.  This error
;;; happened while loading the binary of fixup.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; Wrote output file #P"/usr/deli/src/pcl/pcl-04-29-87/fixup.lbin"
;;; Warning: The following functions are not known to be defined:
;;; COMBINE-METHODS was referenced by toplevel forms
;;; DS-OPTIONS-CONSTRUCTORS was referenced by toplevel forms
;;; EXPAND-CALL-NEXT-METHOD was referenced by #:G26305
Loading binary of FIXUP...
>>Error: #<Compiled-Function (METHOD NO-MATCHING-METHOD NIL) C01A8F>
should be of type STRUCTURE

PUT-SLOT-USING-CLASS--CLASS-INTERNAL:
   Required arg 0 (CLASS): #1=#<instance ?? 57762253>
   Required arg 1 (OBJECT): #<Compiled-Function (METHOD
NO-MATCHING-METHOD NIL) C01A8F>
   Required arg 2 (SLOT-NAME): NAME
   Required arg 3 (NEW-VALUE): NIL
   Required arg 4 (DONT-CALL-SLOT-MISSING-P): NIL

:A    Abort to Lisp Top Level
:C    Supply a new value


STACK DUMP:
[LUCID::SPECIAL-BINDING]
[UNWIND-PROTECT]
[catch tag: LUCID::ENTER-DEBUGGER]
[LUCID::SPECIAL-BINDING]
[LUCID::SPECIAL-BINDING]
[LUCID::SPECIAL-BINDING]
[UNWIND-PROTECT]
[LUCID::SPECIAL-BINDING]
[UNWIND-PROTECT]
[LUCID::SPECIAL-BINDING]
[LUCID::SPECIAL-BINDING]
CERROR:
   Required arg 0 (CONTINUE-FORMAT-STRING): "Supply a new value"
   Required arg 1 (FORMAT-STRING): "~S should be of type ~A"
   Rest arg (FORMAT-ARGS): (#<Compiled-Function (METHOD
NO-MATCHING-METHOD NIL) C01A8F> STRUCTURE)
SYSTEM:CHECK-TYPE-RUNTIME:
   Required arg 0 (VALUE): #<Compiled-Function (METHOD
NO-MATCHING-METHOD NIL) C01A8F>
   Required arg 1 (TYPE): STRUCTURE
   Optional arg 2 (STRING): NIL
LUCID::STRUCTURE-REF:
   Required arg 0 (S): #<Compiled-Function (METHOD NO-MATCHING-METHOD
NIL) C01A8F>
   Required arg 1 (I): 0
   Required arg 2 (TYPE): IWMC-CLASS
PUT-SLOT-USING-CLASS--CLASS-INTERNAL:
   Required arg 0 (CLASS): #1=#<instance ?? 57762253>
   Required arg 1 (OBJECT): #<Compiled-Function (METHOD
NO-MATCHING-METHOD NIL) C01A8F>
   Required arg 2 (SLOT-NAME): NAME
   Required arg 3 (NEW-VALUE): NIL
   Required arg 4 (DONT-CALL-SLOT-MISSING-P): NIL
   Local 5: 0
   Local 6: NIL
   Local 7: NIL
(METHOD INITIALIZE-FROM-DEFAULTS (OBJECT)):
   Required arg 0 (SELF): #<Compiled-Function (METHOD NO-MATCHING-METHOD
NIL) C01A8F>
   Local 1: #1=#<instance ?? 57762223>
   Local 2: #1=(#2=#<instance ?? 57762223> #3=#4=#<instance ??#5=
57763373#6=> #7=