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

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

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

revision 1.18 by pfdietz, Sat Jan 8 02:41:29 2005 UTC revision 1.19 by pfdietz, Sat Jan 8 11:11:05 2005 UTC
# Line 478  Line 478 
478                   y))                   y))
479          (%f))))          (%f))))
480    :good)    :good)
481    
482    (deftest flet.64
483      (let ((x :bad))
484        (declare (special x))
485        (let ((x :good))
486          (flet () (declare (special x)))
487          x))
488      :good)
489    
490    (deftest flet.65
491      (let ((x :bad))
492        (declare (special x))
493        (let ((x :good))
494          (flet ((%f () (declare (special x)))))
495          x))
496      :good)
497    
498    (deftest flet.66
499      (let ((x :bad))
500        (declare (special x))
501        (let ((x :good))
502          (flet ((%f () (declare (special x))))
503            x)))
504      :good)
505    
506                    

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

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