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

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

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

revision 1.2 by pfdietz, Thu Oct 17 13:16:55 2002 UTC revision 1.3 by pfdietz, Tue Mar 4 14:14:31 2003 UTC
# Line 70  Line 70 
70        'bad))        'bad))
71    good)    good)
72    
73    ;;; No implicit tagbody
74    (deftest catch.13
75      (block done
76        (tagbody
77         (catch 'foo
78           (go 10)
79           10
80           (return-from done 'bad))
81         10
82         (return-from done 'good)))
83      good)
84    
85  (deftest throw-error  (deftest throw-error
86    (classify-error (throw (gensym) nil))    (classify-error (throw (gensym) nil))
87    control-error)    control-error)

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

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