9 Aug
2012
9 Aug
'12
5:51 p.m.
(defstruct foo (data nil))
(defun test () (let ((foo (make-foo))) (symbol-macrolet ((x (foo-data foo))) (setf x 99)) (foo-data foo)))
(test) ;=> NIL