Defclass crash in beta 2

[Trent Lange <lange@CS.UCLA.EDU>]

The new beta version in pcl/beta crashes in Lucid 3.0 when :documentation
is used as the first or only class-option (interestingly it works if
:default-initargs or :metaclass is used *before* it).  It also crashes
if :documentation is included (at all) as a slot-option.

Both of these worked in the original version of pcl/beta.

- Trent Lange


> (defclass a () () (:documentation ""))
>>Error: Invalid initialization argument :DOCUMENTATION for class
STANDARD-CLASS

PCL::CHECK-INITARGS-1:
   Required arg 0 (CLASS): #<Standard-Class STANDARD-CLASS 34067553>
   Required arg 1 (INITARGS): (:NAME A :DIRECT-SUPERCLASSES NIL
:DIRECT-SLOTS NIL :DEFINITION-SOURCE ((DEFCLASS A) NIL) :DOCUMENTATION
 (""))
   Required arg 2 (METHODS): (#<Standard-Method PCL::ALLOCATE-INSTANCE
(STANDARD-CLASS) 34116163> #<Standard-Method INITIALIZE-INSTANC
E (STANDARD-OBJECT) 34153723> #<Standard-Method SHARED-INITIALIZE :BEFORE
(PCL::STD-CLASS T) 34140273> #<Standard-Method SHARED-INITIA
LIZE :AFTER (PCL::STD-CLASS T) 34151353> #<Standard-Method
SHARED-INITIALIZE (STANDARD-OBJECT T) 34130413>)
:A  0: Abort to Lisp Top Level