/[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.19 by pfdietz, Sat Jan 8 11:11:05 2005 UTC revision 1.20 by pfdietz, Sat Jan 8 13:35:39 2005 UTC
# Line 503  Line 503 
503          x)))          x)))
504    :good)    :good)
505    
                   
506    (deftest flet.67
507      (let ((x :bad))
508        (declare (special x))
509        (let ((x :good))
510          (flet ((%f (&aux (y x))
511                     (declare (special x))
512                     y))
513            (%f))))
514      :good)
515    
516    (deftest flet.68
517      (let ((x :bad))
518        (declare (special x))
519        (let ((x :good))
520          (flet ((%f () x))
521            (declare (special x))
522            (%f))))
523      :good)

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

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