[Openmcl-devel] porting BKNR to openmcl
gb at clozure.com
Thu Jun 30 13:34:41 UTC 2005
On Thu, 30 Jun 2005, [iso-8859-1] Tiarnán Ó Corráin wrote:
> I'm making some progress on my (recently resumed) port of BKNR to
> openmcl. I'm running into problems and getting this wonderful error
> "The value NIL, derived from the initform NIL, can not be used to set
> the value of the slot DESTROYED-P in #<GORILLA #x673FB76>, because it
> is not of type NIL.
> [Condition of type CCL::BAD-SLOT-TYPE-FROM-INITFORM]"
> I think it is triggered by the following, which attempts to add a new
> slot to an indexed-class.
> (defmethod compute-slots ((class indexed-class))
> (let* ((normal-slots (call-next-method)))
> (let ((destroyed-p-slot #.`(make-instance 'index-effective-slot-definition
> :name 'destroyed-p
> :initform nil
> :class class
> #+(or cmu openmcl)
> ,@'(:readers nil :writers nil)
> :initfunction #'(lambda () nil)
> (cons destroyed-p-slot normal-slots))))
> Can anyone see anything fishy about the above? The "cons" at the end
> seems bizarre to me, but I'm no expert.
What does the DEFCLASS form for INDEX-EFFECTIVE-SLOT-DEFINITION look like ?
> Openmcl-devel mailing list
> Openmcl-devel at clozure.com
More information about the Openmcl-devel