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

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

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

revision 1.2 by pfdietz, Sun Aug 31 09:28:56 2003 UTC revision 1.3 by pfdietz, Sun Aug 31 15:35:20 2003 UTC
# Line 361  Line 361 
361           collect (list i j x y (* cx cy))))           collect (list i j x y (* cx cy))))
362    nil)    nil)
363    
   
364  (deftest times.order.1  (deftest times.order.1
365    (let ((i 0) x y)    (let ((i 0) x y)
366      (values      (values
# Line 378  Line 377 
377          (progn (setf z (incf i)) 5))          (progn (setf z (incf i)) 5))
378       i x y z))       i x y z))
379    30 3 1 2 3)    30 3 1 2 3)
   

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