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

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

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

revision 1.3 by pfdietz, Sun Oct 13 01:40:22 2002 UTC revision 1.4 by pfdietz, Tue Mar 4 14:14:31 2003 UTC
# Line 73  Line 73 
73          (progn (setf y (incf c)) nil)          (progn (setf y (incf c)) nil)
74        (values x y c)))        (values x y c)))
75    1 2 2)    1 2 2)
76    
77    ;;; No tagbody
78    
79    (deftest progv.11
80      (block nil
81        (tagbody
82         (progv nil nil (go 10) 10 (return 'bad))
83         10
84         (return 'good)))
85      good)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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