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

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

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

revision 1.1 by pfdietz, Sat Jan 8 13:29:45 2005 UTC revision 1.2 by pfdietz, Sat Jan 8 14:16:53 2005 UTC
# Line 147  Line 147 
147        (incf x)))        (incf x)))
148    0 0)    0 0)
149    
150    ;;; Scope of free declarations
151    
152    (deftest dotimes.22
153      (block done
154        (let ((x :bad))
155          (declare (special x))
156          (let ((x :good))
157            (dotimes (i (return-from done x))
158              (declare (special x))))))
159      :good)
160    
161    (deftest dotimes.23
162      (let ((x :good))
163        (declare (special x))
164        (let ((x :bad))
165          (dotimes (i 10 x)
166            (declare (special x)))))
167      :good)
168    
169  (def-macro-test dotimes.error.1  (def-macro-test dotimes.error.1
170    (dotimes (i 10)))    (dotimes (i 10)))

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