Re: [Sbcl-devel] sbcl bug: defclass slot options are not cumulated

[Nikodemus S. <tsi...@cc...>]

On Wed, 17 Nov 2004, Bruno Haible wrote:

> (progn
>  (defclass option-slot-definition (sb-pcl:standard-direct-slot-definition)
>    ((option :accessor sl-option :initarg :my-option)))
>  (defclass option-slot-class (standard-class)
>    ())
>  (defmethod sb-pcl:direct-slot-definition-class ((c option-slot-class) &rest args)
>    (declare (ignore args))
>    (find-class 'option-slot-definition))
>  (defmethod sb-pcl:validate-superclass ((c1 option-slot-class) (c2 standard-class))
>    t)
>  (eval '(defclass testclass03b ()
>           ((x :my-option bar :my-option baz))
>           (:metaclass option-slot-class)))
>  (sl-option (first (sb-pcl:class-direct-slots (find-class 'testclass03b)))))
> Expected: (BAR BAZ)
> Got:      BAR

Fixed in SBCL 0.8.16.43. Thanks for the report.

Cheers,

  -- Nikodemus              Schemer: "Buddha is small, clean, and serious."
                   Lispnik: "Buddha is big, has hairy armpits, and laughs."