/[gcl]/gcl/ansi-tests/make-sequence.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/make-sequence.lsp

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

revision 1.5 by pfdietz, Wed Jan 29 02:11:55 2003 UTC revision 1.6 by pfdietz, Fri Feb 14 05:10:36 2003 UTC
# Line 249  Line 249 
249  (deftest make-sequence.error.14  (deftest make-sequence.error.14
250    (classify-error (locally (make-sequence 'symbol 10) t))    (classify-error (locally (make-sequence 'symbol 10) t))
251    type-error)    type-error)
252    
253    ;;; Order of execution tests
254    
255    (deftest make-sequence.order.1
256      (let ((i 0) a b c)
257        (values
258         (make-sequence (progn (setf a (incf i)) 'list)
259                        (progn (setf b (incf i)) 5)
260                        :initial-element (progn (setf c (incf i)) 'a))
261         i a b c))
262      (a a a a a) 3 1 2 3)
263    
264    (deftest make-sequence.order.2
265      (let ((i 0) a b c d e)
266        (values
267         (make-sequence (progn (setf a (incf i)) 'list)
268                        (progn (setf b (incf i)) 5)
269                        :allow-other-keys (setf c (incf i))
270                        :initial-element (progn (setf d (incf i)) 'a)
271                        :foo (setf e (incf i)))
272         i a b c d e))
273      (a a a a a) 5 1 2 3 4 5)

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