Re: :initform and :allocation :class

[kanderso@WILMA.BBN.COM]

I changed your "(EVAL INITFORM)" to "(FUNCALL INITFUNCTION)" which is
a little more consistent, though maybe this patch should go somewhere
else altogether.

k

(defmethod PARSE-CLASS-SLOT ((class standard-class) slot)
	.
	.
	.

    (make-slotd class
		:name name
		:keyword (make-keyword name)
		:initform (IF (EQ ALLOCATION :CLASS)
			      (FUNCALL INITFUNCTION)
	                      initform)
		:initfunction initfunction
		:initargs initargs
		:allocation allocation
		:type type
		:accessors accessors
		:readers readers)))