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