Every time I create a new instance of a new proxy object for a
persistent class, it redefines the base-class in the previously
created instances, even when these instances are not of the same
class. For example:
PROJECT_FOO> (progn
(defpclass foo () ())
(defpclass bar () ())
(let (f b list)
(setf f (make-instance (weblocks-elephant::return-
proxy-classname 'foo)))
(weblocks::push-end (weblocks-elephant::base-
class f) list)
(setf b (make-instance (weblocks-elephant::return-
proxy-classname 'bar)))
(weblocks::push-end (weblocks-elephant::base-
class b) list)
(weblocks::push-end (weblocks-elephant::base-
class f) list)
list))
(FOO BAR BAR)
This is unexpected: the output should be (FOO BAR FOO), and it causes
serious problems. Is there something amiss in the way proxy classes
are defined?
Note: This is on SBCL 1.0.20.
Yarek
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"weblocks" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/weblocks?hl=en
-~----------~----~----~----~------~----~------~--~---
