Re: change-class on identical classes

[Sam S. <sd...@gn...>]

> * Bruno Haible <oe...@py...t> [2004-05-04 12:29:59 +0200]:
>
>> (defclass Strong-FOO (FOO) ())
>> (defclass Weak-FOO (FOO) ())
>>
>> (setq f (make-instance 'Strong-FOO))
>>
>> (change-class f 'Weak-FOO)
>
> What do you want to optimize here? The memory allocation? CLHS 7.2.2
> says that a copy of the original instance must be produced. The
> forward reference?  It's cleaned up by the next GC anyway.

yuk.

so I guess if I want to optimize this, I will need to

(setf (sys::%record-ref f 1) (find-class 'Weak-FOO))



-- 
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.mideasttruth.com/> <http://www.honestreporting.com>
What's the difference between Apathy & Ignorance? -I don't know and don't care!