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

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

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

revision 1.9 by pfdietz, Mon Feb 10 03:09:37 2003 UTC revision 1.10 by pfdietz, Mon Feb 17 04:22:04 2003 UTC
# Line 488  Line 488 
488    
489  ;;; Argument order tests  ;;; Argument order tests
490    
491  (deftest count-order.1  (deftest count.order.1
492    (let ((i 0) c1 c2 c3 c4 c5 c6 c7)    (let ((i 0) c1 c2 c3 c4 c5 c6 c7)
493      (values      (values
494       (count (progn (setf c1 (incf i)) nil)       (count (progn (setf c1 (incf i)) nil)
# Line 502  Line 502 
502       i c1 c2 c3 c4 c5 c6 c7))       i c1 c2 c3 c4 c5 c6 c7))
503    1 7 1 2 3 4 5 6 7)    1 7 1 2 3 4 5 6 7)
504    
505  (deftest count-order.2  (deftest count.order.2
506    (let ((i 0) c1 c2 c3 c4 c5 c6 c7)    (let ((i 0) c1 c2 c3 c4 c5 c6 c7)
507      (values      (values
508       (count (progn (setf c1 (incf i)) nil)       (count (progn (setf c1 (incf i)) nil)

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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