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

Diff of /gcl/ansi-tests/prog1.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 25  Line 25 
25    (let ((x 0))    (let ((x 0))
26      (values (prog1 x (incf x)) x))      (values (prog1 x (incf x)) x))
27    0 1)    0 1)
28    
29    ;;; Test that prog1 doesn't have a tagbody
30    
31    (deftest prog1.6
32      (block nil
33        (tagbody
34         (return (prog1 'bad (go 10) 10))
35         10
36         (return 'good)))
37      good)

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