<div dir="ltr"><div class="gmail_default" style="font-size:small">Not that I know of. I think it would work to set all the slots unbound and call initialize-instance. I’ve never grokked reinitialize-instance, even though I implemented it way back in 1990.</div></div><div class="gmail_extra"><br><div class="gmail_quote">On Tue, Feb 7, 2017 at 5:45 PM, Ron Garret <span dir="ltr"><<a href="mailto:ron@flownet.com" target="_blank">ron@flownet.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div style="word-wrap:break-word">Ah.<div><br></div><div>Is there a standard method that unconditionally calls all of the initform methods on an instance?  Or that simply restores the instance to its newly created state?  I tried INITIALIZE-INSTANCE and REINITIALIZE-INSTANCE and neither one of those seemed to work.</div><div><div class="h5"><div><br><div><div>On Feb 7, 2017, at 2:26 PM, Bill St. Clair <<a href="mailto:wws@clozure.com" target="_blank">wws@clozure.com</a>> wrote:</div><br class="m_-5791996736029390467Apple-interchange-newline"><blockquote type="cite"><div dir="ltr"><div class="gmail_default" style="font-size:small">shared-initialize only initializes UNBOUND slots:</div><div class="gmail_default" style="font-size:small"><br></div><div class="gmail_default" style="font-size:small"><div class="gmail_default">CL-USER> (slot-makunbound foo 'x)</div><div class="gmail_default">#<FOO #x302000B8CA5D></div><div class="gmail_default"><div class="gmail_default">CL-USER> (ignore-errors (foo-x foo))</div><div class="gmail_default">NIL<br></div><div class="gmail_default">#<UNBOUND-SLOT #x302000BF27FD></div></div><div class="gmail_default">CL-USER> (shared-initialize foo t)</div><div class="gmail_default">#<FOO #x302000B8CA5D></div><div class="gmail_default">CL-USER> (foo-x foo)</div><div class="gmail_default">123</div><div><br></div></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Tue, Feb 7, 2017 at 5:17 PM, Ron Garret <span dir="ltr"><<a href="mailto:ron@flownet.com" target="_blank">ron@flownet.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">? (DEFCLASS FOO () ((X :accessor foo-x :INITFORM 123)))<br>
#<STANDARD-CLASS FOO><br>
? (setf foo (make-instance 'foo))<br>
#<FOO #x302001F7ABFD><br>
? (foo-x foo)<br>
123<br>
? (setf (foo-x foo) nil)<br>
NIL<br>
? (foo-x foo)<br>
NIL<br>
? (shared-initialize foo t)          ; I would have expected this to set X back to 123<br>
#<FOO #x302001F2BAAD><br>
? (foo-x foo)<br>
NIL<br>
<br>
______________________________<wbr>_________________<br>
Openmcl-devel mailing list<br>
<a href="mailto:Openmcl-devel@clozure.com" target="_blank">Openmcl-devel@clozure.com</a><br>
<a href="https://lists.clozure.com/mailman/listinfo/openmcl-devel" rel="noreferrer" target="_blank">https://lists.clozure.com/mail<wbr>man/listinfo/openmcl-devel</a><br>
</blockquote></div><br></div>
</blockquote></div><br></div></div></div></div></blockquote></div><br></div>