I guess we don't need this patch anymore in unstable, so it's moot to
apply it. If for any reason you'd like to do this nevertheless,
don't use this patch; I have an updated version that works correctly.
If not, just ignore this.
Leslie
___
elephant-
Indeed! This was handled on the elephant-unstable development branch
by fixing some bugs in the update-instance-for-redefined-class behavior.
Darcs elephant-unstable will replace the main elephant branch in a few
weeks when my schedule allows. I've been keeping up with the patches
for the
Leslie P. Polzer writes:
> (defclass pineapple () ()
> (:metaclass persistent-metaclass))
> (let ((fruit (make-instance 'pineapple)))
> (defclass pineapple ()
> ((tree :initform 1))
> (:metaclass persistent-metaclass))
> (slot-value fruit 'tree)))
>
> Will raise unbou
> A quick test confirms that the new code base has the correct behavior,
> by the way.
Exactly which code base are you talking about?
Did you add this behaviour in one of your experimental branches?
Leslie
___
elephant-devel site list
elephant-devel
A quick test confirms that the new code base has the correct behavior,
by the way.
Ian
On Apr 3, 2008, at 7:14 AM, Leslie P. Polzer wrote:
Consider
(defclass pineapple () ()
(:metaclass persistent-metaclass))
(let ((fruit (make-instance 'pineapple)))
(defclass pineapple ()
((tre
Consider
(defclass pineapple () ()
(:metaclass persistent-metaclass))
(let ((fruit (make-instance 'pineapple)))
(defclass pineapple ()
((tree :initform 1))
(:metaclass persistent-metaclass))
(slot-value fruit 'tree)))
Will raise unbound slot hell with current code if
