/[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.11 by pfdietz, Sun Feb 23 12:19:43 2003 UTC revision 1.12 by pfdietz, Tue Mar 4 14:14:31 2003 UTC
# Line 428  Line 428 
428          collect s)          collect s)
429    nil)    nil)
430    
431    ;;; Check that FLET does not have a tagbody
432    (deftest flet.52
433      (block done
434        (tagbody
435         (flet ((%f () (go 10) 10 (return-from done 'bad)))
436           (%f))
437         10
438         (return-from done 'good)))
439      good)

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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