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

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

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

revision 1.2 by pfdietz, Sat Oct 12 21:03:42 2002 UTC revision 1.3 by pfdietz, Sat Nov 2 16:57:29 2002 UTC
# Line 113  Line 113 
113       a)       a)
114      result)      result)
115    20)    20)
116    
117    ;;; Test that integers are accepted as go tags
118    
119    (deftest tagbody.13
120      (block done
121        (tagbody
122         (go around)
123         10
124         (return-from done 'good)
125         around
126         (go 10)))
127      good)
128    
129    (deftest tagbody.14
130      (block done
131        (tagbody
132         (go around)
133         -10
134         (return-from done 'good)
135         around
136         (go -10)))
137      good)
138    
139    (deftest tagbody.15
140      (block done
141        (tagbody
142         (go around)
143         #.(1+ most-positive-fixnum)
144         (return-from done 'good)
145         around
146         (go #.(1+ most-positive-fixnum))))
147      good)
148    
149    (deftest tagbody.16
150      (let* ((t1 (1+ most-positive-fixnum))
151             (t2 (1+ most-positive-fixnum))
152             (form `(block done
153                      (tagbody
154                       (go around)
155                       ,t1
156                       (return-from done 'good)
157                       around
158                       (go ,t2)))))
159        (eval form))
160      good)
161    

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