[Sbcl-devel] sbcl bug: missing error if a defclass option is repeated

[Bruno H. <br...@cl...>]

Hi,

The MOP says about user-defined defclass options:
  "Any other class options become the value of keyword arguments with
   the same name. The value of the keyword argument is the tail of the
   class option. An ERROR is SIGNALled if any class option appears more
   than once in the DEFCLASS form."

But SBCL does not signal an error here. Test case:

  (defclass option-class (standard-class)
    ((option :accessor cl-option :initarg :my-option)))
  (defmethod sb-pcl:validate-superclass ((c1 option-class) (c2 standard-class))
    t)
  (defclass testclass02b ()
    ()
    (:my-option bar)
    (:my-option baz)
    (:metaclass option-class))
Expected: ERROR
Got: #<OPTION-CLASS TESTCLASS02B>

This works in CLISP CVS and OpenMCL.

Bruno