Hello,
Suppose I have three instances of cells enabled classes.
Two instances depend on the third.
Now suppose I want to dispose of one the dependent instances.
Below one dependent instance is "named" "bar1" and the other
is "named" "bar2".
How would I dispose of one or both of these instances?
Thanks,
Ken Mckee
APP(3): (defmodel some-model ()
((a-slot :initform (c-in nil) :accessor a-slot :cell t)
))
#<STANDARD-CLASS SOME-MODEL>
APP(4): (defmodel another-model ()
((a-slot :cell t :accessor a-slot :initarg :a-slot)
(name :cell nil :accessor name :initarg :name)
))
#<STANDARD-CLASS ANOTHER-MODEL>
APP(5): (setf foo (make-instance 'some-model))
#<SOME-MODEL @ #x10727422>
APP(6): (setf bar (make-instance 'another-model :name "bar1"
:a-slot (c? (print (name self))
(a-slot foo))
))
#<ANOTHER-MODEL @ #x107289a2>
APP(7): (a-slot bar)
"bar1"
NIL
APP(8): (setf bar (make-instance 'another-model :name "bar2"
:a-slot (c? (print (name self))
(a-slot foo))
))
#<ANOTHER-MODEL @ #x105e48b2>
APP(9): (a-slot bar)
"bar2"
NIL
APP(10): (setf (a-slot foo) 5)
"bar2"
"bar1"
5
_______________________________________________
cells-devel site list
[email protected]
http://common-lisp.net/mailman/listinfo/cells-devel
