[Openmcl-devel] porting BKNR to openmcl

[Gary Byers]

On Thu, 30 Jun 2005, [iso-8859-1] Tiarnán Ó Corráin wrote:

> Hi--
>
> I'm making some progress on my (recently resumed) port of BKNR to
> openmcl. I'm running into problems and getting this wonderful error
> message:
>
> "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 ?

>
> thanks
>
> -- 
> Tiarnán
>
> _______________________________________________
> Openmcl-devel mailing list
> Openmcl-devel at clozure.com
> http://clozure.com/mailman/listinfo/openmcl-devel
>
>