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

Diff of /gcl/ansi-tests/unless.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 44  Line 44 
44       x))       x))
45    a 1)    a 1)
46    
47    ;;; No implicit tagbody
48    (deftest unless.10
49      (block done
50        (tagbody
51         (unless nil
52           (go 10)
53           10
54           (return-from done 'bad))
55         10
56         (return-from done 'good)))
57      good)
58    
59  ;;; (deftest unless.error.1  ;;; (deftest unless.error.1
60  ;;;  (classify-error (unless))  ;;;  (classify-error (unless))
61  ;;;  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