In system.lisp, definition of defstruct-exported is wrong.

[crlf0710]

According to CLHS, defstruct doesn't have the "superclasses" parameter.

[crlf0710]

diff src2/system.lisp src/system.lisp
59c59,64
<   (let ((struct (gensym)))  
---
>   (let ((struct (gensym))
>   structname)
>     (if (atom options)
>   (setf structname options)
>   (loop for option in options
>        do (if (atom option) (setf structname option))))
63c68
<        (let ((,struct (defstruct ,structname ,superclasses ,slots ,@options)))
---
>        (let ((,struct (defstruct ,options ,@slots)))