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

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

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

revision 1.5 by pfdietz, Thu Mar 6 03:59:34 2003 UTC revision 1.6 by pfdietz, Sun Apr 20 22:59:25 2003 UTC
# Line 131  Line 131 
131                (push #'(lambda () i) x))))                (push #'(lambda () i) x))))
132    (5 5 5 5 5))    (5 5 5 5 5))
133    
134    (def-macro-test do.error.1
135      (do ((i 0 (1+ i))) ((= i 5) 'a)))
136    
137  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
138    
139  ;;;; Tests of DO*  ;;;; Tests of DO*
# Line 250  Line 253 
253                (push #'(lambda () i) x))))                (push #'(lambda () i) x))))
254    (5 5 5 5 5))    (5 5 5 5 5))
255    
256    (def-macro-test do*.error.1
257      (do* ((i 0 (1+ i))) ((= i 5) 'a)))
258    
259  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
260    
261  ;;;; Tests for DOLIST  ;;;; Tests for DOLIST
# Line 361  Line 367 
367        (when (eq e 'c) (return x))))        (when (eq e 'c) (return x))))
368    (c b a))    (c b a))
369    
370    (def-macro-test dolist.error.1
371      (dolist (x nil)))
372    
373  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
374    
375  ;;; Tests for DOTIMES  ;;; Tests for DOTIMES
# Line 491  Line 500 
500      y)      y)
501    (3 2 1 0))    (3 2 1 0))
502    
503    (def-macro-test dotimes.error.1
504      (dotimes (i 10)))
505    
506    
507    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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