Hi James,<div><br></div><div>Sorry for the sloppiness. I forgot to MACROEXPAND-1 using the correct environment.<br><br>This test case is fixed in r14068. I'm running more tests to see if it also fixes other breakage I saw.</div>
<div><br></div><div>Bye,</div><div><br></div><div>Erik.<br><br><div class="gmail_quote">On Thu, Aug 9, 2012 at 7:51 PM, James M. Lawrence <span dir="ltr"><<a href="mailto:llmjjmll@gmail.com" target="_blank">llmjjmll@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">(defstruct foo<br>
  (data nil))<br>
<br>
(defun test ()<br>
  (let ((foo (make-foo)))<br>
    (symbol-macrolet ((x (foo-data foo)))<br>
      (setf x 99))<br>
    (foo-data foo)))<br>
<br>
(test) ;=> NIL<br>
<br>
_______________________________________________<br>
armedbear-devel mailing list<br>
<a href="mailto:armedbear-devel@common-lisp.net">armedbear-devel@common-lisp.net</a><br>
<a href="http://lists.common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel" target="_blank">http://lists.common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel</a><br>
</blockquote></div><br></div>