🚀 go-pugleaf

When I try compiling PCL, this is what I get:

    g9]pcl% cl
    Allegro CL 3.1.13.1 [Sun4] (0/0/0)
    Copyright (C) 1985-1990, Franz Inc., Berkeley, CA, USA
    <cl> (load "defsys")

    ; Loading /usr0/sbk/pcl/defsys.lisp.

    T
    <cl> (pcl::compile-pcl)
    
    Loading binary of PKG...
    Loading binary of WALK...
    Loading binary of ITERATE...
    Loading binary of MACROS...
    Loading binary of LOW...
    Loading binary of EXCL-LOW...
    Loading binary of FIN...
    Loading binary of DEFCLASS...
    Loading binary of DEFS...
    Loading binary of FNGEN...
    Loading binary of CACHE...
    Loading binary of DLISP...
    Loading binary of DLISP2...
    Loading binary of BOOT...
    Loading binary of VECTOR...
    Loading binary of SLOTS-BOOT...
    Loading binary of COMBIN...
    Loading binary of DFUN...
    Loading binary of FAST-INIT...
    Compiling BRAID...
    ; --- Compiling file /usr0/sbk/pcl/braid.lisp ---
    ; Compiling ALLOCATE-STANDARD-INSTANCE
    ; Compiling ALLOCATE-FUNCALLABLE-INSTANCE-SLOTS
    ; Compiling ALLOCATE-FUNCALLABLE-INSTANCE
    ; Compiling ALLOCATE-STRUCTURE-INSTANCE
    ; Compiling INITIAL-CLASSES-AND-WRAPPERS
    ; Compiling BOOTSTRAP-META-BRAID
    ; Compiling BOOTSTRAP-ACCESSOR-DEFINITION
    ; Compiling BOOTSTRAP-ACCESSOR-DEFINITIONS
    ; Compiling BOOTSTRAP-INITIALIZE-CLASS
    ; Compiling BOOTSTRAP-MAKE-SLOT-DEFINITIONS
    ; Compiling BOOTSTRAP-MAKE-SLOT-DEFINITION
    ; Compiling EARLY-INITIALIZE-SLOT-GFS
    ; Compiling EARLY-INITIALIZE-CLASS-PREDICATES
    ; Compiling BOOTSTRAP-BUILT-IN-CLASSES
    ; Compiling WRAPPER-FOR-STRUCTURE
    ; Compiling BUILT-IN-OR-STRUCTURE-WRAPPER1
    ; Compiling WRAPPER-OF-MACRO
    ; Compiling CLASS-OF
    ; Compiling WRAPPER-OF
    ; Compiling STRUCTURE-WRAPPER
    ; Compiling EVAL-FORM
    ; Compiling SLOT-INITARGS-FROM-STRUCTURE-SLOTD
    ; Compiling FIND-STRUCTURE-CLASS
    ; Compiling BUILT-IN-WRAPPER-OF
    ; Compiling METHOD-FUNCTION-RETURNING-NIL
    ; Compiling METHOD-FUNCTION-RETURNING-T
    ; Compiling MAKE-CLASS-PREDICATE
    ; Compiling (:PROPERTY SLOT-OBJECT EXCL::DEFTYPE-EXPANDER)
    ; Compiling |(FAST-METHOD NO-APPLICABLE-METHOD (T))|
    ; Writing fasl file "/usr0/sbk/pcl/braid.fasl"
    ; Fasl write complete
    Loading binary of BRAID...
    Error: Wrong number of args passed to CHECK-WRAPPER-VALIDITY
    
    [changing package from "USER" to "PCL"]
    [1] <cl>

It appears that it failed when trying to evaluate (bootstrap-built-in-classes)
near the end of file braid.lisp. I am running this in a Sun4 SPARCstation 1+ 
in Allegro CL 3.1.13.1.

Thanks.

Sing Bing Kang
The Robotics Institute
Carnegie Mellon University
Pittsburgh, PA 15213