On Mon, Apr 21, 2008 at 10:12 AM, Peter Hildebrandt
<[EMAIL PROTECTED]> wrote:
> - fix it in cells and change not-to-be there so it does not only
> recurse down kids, but all owned slots?
As a proof of concept, I changed not-to-be to be
(defmethod not-to-be :before ((fm family))
(loop for (slot . nil) in (get (type-of fm) :ownings)
do (let ((owned (slot-value fm slot)))
(when (listp owned)
(mapc #'not-to-be owned)))))
It used to be:
(defmethod not-to-be :before ((fm family))
(let ((sv-kids (slot-value fm '.kids)))
(when (listp sv-kids)
(dolist ( kid sv-kids)
(not-to-be kid))))
I haven't committed it yet, because I'd like to hear your opinion,
especially on what this might break :-)
Peter
_______________________________________________
cells-devel site list
[email protected]
http://common-lisp.net/mailman/listinfo/cells-devel
