[Ecls-list] Class bug.

[David Brown]

The following code provokes an unusual bug in ECL:

	(defclass parent ()
	  ((slot :reader parent-slot
		 ;; Putting this in, eliminates the failure.
		 ;; :allocation :class
		 )))

	(defclass child (parent)
	  ((slot :allocation :class :initform 64)))

	;; Failure.
	(parent-slot (make-instance 'child))

It seems to be a problem if the parent class has an instance
allocation of the slot, and it is overridden by a class allocation in
a subclass.

The error I get is:

	An error occurred during initialization:
	(64) cannot be coerced to a C int..

David