DEFCLASS :metaclass structure-class in Allegro

[lisping-forever]

Does anyone know how to define subclasses of structure-classes
as in the example:

(defclass foo ()
((a :initarg :a :accessor a))
(:metaclass structure-class))

This defclass is fine in CMUCL, but fails in Allegro 6.2 with the
error:

:DIRECT-SUPERCLASSES :DIRECT-SLOTS are invalid initargs to
make-instance of class #<STANDARD-CLASS STRUCTURE-CLASS>. The valid
initargs are :PLIST :NAME.

[Rahul Jain]

"lisping-forever" <qu...@ai.sri.com> writes:

> This defclass is fine in CMUCL, but fails in Allegro 6.2 with the
> error:
>
> :DIRECT-SUPERCLASSES :DIRECT-SLOTS are invalid initargs to
> make-instance of class #<STANDARD-CLASS STRUCTURE-CLASS>. The valid
> initargs are :PLIST :NAME.

The behavior (initargs, slots, etc) of STRUCTURE-CLASS is unspecified.

--
Rahul Jain
rj...@nyct.net
Professional Software Developer, Amateur Quantum Mechanicist