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

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

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

revision 1.3 by pfdietz, Mon Feb 17 13:25:22 2003 UTC revision 1.4 by pfdietz, Tue Mar 4 14:14:31 2003 UTC
# Line 64  Line 64 
64      'bad)      'bad)
65    good)    good)
66    
67    ;;; Block has no tagbody
68    (deftest block.11
69      (block done
70        (tagbody
71         (block nil
72           (go 10)
73           10
74           (return-from done 'bad))
75         10
76         (return-from done 'good)))
77      good)
78    
79  #|  #|
80  (deftest return.error.1  (deftest return.error.1
81    (classify-error    (classify-error

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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