<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">Openmcl-devel@clozure.com</a><br>
<a href="https://lists.clozure.com/mailman/listinfo/openmcl-devel" rel="noreferrer" target="_blank">https://lists.clozure.com/<wbr>mailman/listinfo/openmcl-devel</a><br>
</blockquote></div><br></div>