/[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.3 by pfdietz, Fri Jan 24 04:22:54 2003 UTC revision 1.4 by pfdietz, Mon Feb 10 03:09:37 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
55      (let ((i 0) x y)
56        (values
57         (eql (setf x (incf i)) (setf y (incf i)))
58         i x y))
59      nil 2 1 2)
60    
61  (deftest eql.error.1  (deftest eql.error.1
62    (classify-error (eql))    (classify-error (eql))
63    program-error)    program-error)

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

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