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

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

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

revision 1.2 by pfdietz, Mon Feb 17 13:25:22 2003 UTC revision 1.3 by pfdietz, Tue Mar 4 14:14:31 2003 UTC
# Line 34  Line 34 
34       x))       x))
35    a 1)    a 1)
36    
37    ;;; No implicit tagbody
38    (deftest when.8
39      (block done
40        (tagbody
41         (when t
42           (go 10)
43           10
44           (return-from done 'bad))
45         10
46         (return-from done 'good)))
47      good)
48    
49    
50  ;;; (deftest when.error.1  ;;; (deftest when.error.1
51  ;;;  (classify-error (when))  ;;;  (classify-error (when))
52  ;;;  program-error)  ;;;  program-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