Hi James,

Sorry for the sloppiness. I forgot to MACROEXPAND-1 using the correct environment.

This test case is fixed in r14068. I'm running more tests to see if it also fixes other breakage I saw.

Bye,

Erik.

On Thu, Aug 9, 2012 at 7:51 PM, James M. Lawrence <llmjjmll@gmail.com> wrote:
(defstruct foo
  (data nil))

(defun test ()
  (let ((foo (make-foo)))
    (symbol-macrolet ((x (foo-data foo)))
      (setf x 99))
    (foo-data foo)))

(test) ;=> NIL

_______________________________________________
armedbear-devel mailing list
armedbear-devel@common-lisp.net
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel