/[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.20 by pfdietz, Sat Jan 8 13:35:39 2005 UTC revision 1.21 by pfdietz, Sat May 14 12:16:28 2005 UTC
# Line 521  Line 521 
521          (declare (special x))          (declare (special x))
522          (%f))))          (%f))))
523    :good)    :good)
524    
525    (deftest flet.69
526      (let ((*x* 0))
527        (declare (special *x*))
528        (flet ((%f (i)
529                   #'(lambda (arg)
530                       (declare (ignore arg))
531                       (incf *x* i))))
532          (values
533           (mapcar (%f 1) '(a b c))
534           (mapcar (%f 2) '(a b c)))))
535      (1 2 3)
536      (5 7 9))

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

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