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

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

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

revision 1.4 by pfdietz, Mon Feb 10 03:09:37 2003 UTC revision 1.5 by pfdietz, Mon Feb 17 04:22:04 2003 UTC
# Line 51  Line 51 
51    (eqlt #c(1 -2) (- #c(-1 2)))    (eqlt #c(1 -2) (- #c(-1 2)))
52    t)    t)
53    
54  (deftest eql.12  (deftest eql.order.1
55    (let ((i 0) x y)    (let ((i 0) x y)
56      (values      (values
57       (eql (setf x (incf i)) (setf y (incf i)))       (eql (setf x (incf i)) (setf y (incf i)))

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

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