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

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

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

revision 1.2 by pfdietz, Sat Oct 19 16:25:28 2002 UTC revision 1.3 by pfdietz, Tue Mar 4 14:14:31 2003 UTC
# Line 34  Line 34 
34       (prog2 (incf x (1+ x)) (incf x (+ 2 x)) (incf x 100))       (prog2 (incf x (1+ x)) (incf x (+ 2 x)) (incf x 100))
35       x))       x))
36    8 108)    8 108)
37    
38    ;;; Test that prog2 doesn't have a tagbody
39    
40    (deftest prog2.7
41      (block nil
42        (tagbody
43         (return (prog2 17 'bad (go 10) 10))
44         10
45         (return 'good)))
46      good)
47    
48    

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