(defstruct foo (data nil))
(defun test () (let ((foo (make-foo))) (symbol-macrolet ((x (foo-data foo))) (setf x 99)) (foo-data foo)))
(test) ;=> NIL
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.comwrote:
(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
armedbear-devel@common-lisp.net
-
Erik Huelsmann -
James M. Lawrence