[armedbear-devel] breakage in r14066

[James M. Lawrence]

(defstruct foo
  (data nil))

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

(test) ;=> NIL