/[gcl]/gcl/ansi-tests/cons-test-17.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-17.lsp

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

revision 1.8 by pfdietz, Mon Feb 17 04:22:03 2003 UTC revision 1.9 by pfdietz, Thu Feb 20 23:57:53 2003 UTC
# Line 206  Line 206 
206      (values      (values
207       (rassoc (progn (setf x (incf i)) 'c)       (rassoc (progn (setf x (incf i)) 'c)
208               (progn (setf y (incf i)) '((1 . a) (2 . b) (3 . c) (4 . c)))               (progn (setf y (incf i)) '((1 . a) (2 . b) (3 . c) (4 . c)))
209               :test (progn (setf z (incf i)) #'eq))               :test (progn (setf z (incf i)) #'eql))
210       i x y z))       i x y z))
211    (3 . c) 3 1 2 3)    (3 . c) 3 1 2 3)
212    
# Line 215  Line 215 
215      (values      (values
216       (rassoc (progn (setf x (incf i)) 'c)       (rassoc (progn (setf x (incf i)) 'c)
217              (progn (setf y (incf i)) '((1 . a) (2 . b) (3 . c) (4 . c)))              (progn (setf y (incf i)) '((1 . a) (2 . b) (3 . c) (4 . c)))
218              :test #'eq)              :test #'eql)
219       i x y))       i x y))
220    (3 . c) 2 1 2)    (3 . c) 2 1 2)
221    

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

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