/[gcl]/gcl/ansi-tests/macrolet.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/macrolet.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by pfdietz, Wed Jun 15 13:22:45 2005 UTC revision 1.18 by pfdietz, Sat Jun 25 02:02:10 2005 UTC
# Line 382  Line 382 
382    t)    t)
383    
384  (deftest macrolet.43  (deftest macrolet.43
385    (let ((*x* nil))    (let ((*x-in-macrolet.43* nil))
386      (declare (special *x*))      (declare (special *x-in-macrolet.43*))
387      (let ((*f* #'(lambda () *x*)))      (let ((*f* #'(lambda () *x-in-macrolet.43*)))
388        (declare (special *f*))        (declare (special *f*))
389        (eval `(macrolet ((%m (*x*)        (eval `(macrolet ((%m (*x-in-macrolet.43*)
390                              (declare (special *f*))                              (declare (special *f*))
391                              (funcall *f*)))                              (funcall *f*)))
392                 (%m t)))))                 (%m t)))))
393    nil)    nil)
394    
395  (deftest macrolet.44  (deftest macrolet.44
396    (let ((*x* nil))    (let ((*x-in-macrolet.44* nil))
397      (declare (special *x*))      (declare (special *x-in-macrolet.44*))
398      (let ((*f* #'(lambda () *x*)))      (let ((*f* #'(lambda () *x-in-macrolet.44*)))
399        (declare (special *f*))        (declare (special *f*))
400        (eval `(macrolet ((%m (*x*)        (eval `(macrolet ((%m (*x-in-macrolet.44*)
401                              (declare (special *f* *x*))                              (declare (special *f* *x-in-macrolet.44*))
402                              (funcall *f*)))                              (funcall *f*)))
403                 (%m t)))))                 (%m t)))))
404    t)    t)
405    
406  (deftest macrolet.45  (deftest macrolet.45
407    (let ((*x* nil))    (let ((*x-in-macrolet.45* nil))
408      (declare (special *x*))      (declare (special *x-in-macrolet.45*))
409      (let ((*f* #'(lambda () *x*)))      (let ((*f* #'(lambda () *x-in-macrolet.45*)))
410        (declare (special *f*))        (declare (special *f*))
411        (eval `(macrolet ((%m ((*x*))        (eval `(macrolet ((%m ((*x-in-macrolet.45*))
412                              (declare (special *f* *x*))                              (declare (special *f* *x-in-macrolet.45*))
413                              (funcall *f*)))                              (funcall *f*)))
414                 (%m (t))))))                 (%m (t))))))
415    t)    t)

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26