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

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

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

revision 1.1 by pfdietz, Fri Oct 18 13:19:16 2002 UTC revision 1.2 by pfdietz, Tue Mar 4 14:14:31 2003 UTC
# Line 70  Line 70 
70    
71  (deftest cond.14 (cond (t (values))))  (deftest cond.14 (cond (t (values))))
72    
73    ;;; No implicit tagbody
74    (deftest cond.15
75      (block done
76        (tagbody
77         (cond (t (go 10)
78                  10
79                  (return-from done 'bad)))
80         10
81         (return-from done 'good)))
82      good)

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

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