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

Diff of /gcl/ansi-tests/cons-test-24.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:03 2003 UTC
# Line 128  Line 128 
128    
129  ;;; Order of argument evaluation tests  ;;; Order of argument evaluation tests
130    
131  (deftest subsetp.16  (deftest subsetp.order.1
132    (let ((i 0) x y)    (let ((i 0) x y)
133      (values      (values
134       (notnot (subsetp (progn (setf x (incf i))       (notnot (subsetp (progn (setf x (incf i))
# Line 138  Line 138 
138       i x y))       i x y))
139    t 2 1 2)    t 2 1 2)
140    
141  (deftest subsetp.17  (deftest subsetp.order.2
142    (let ((i 0) x y z w)    (let ((i 0) x y z w)
143      (values      (values
144       (notnot (subsetp (progn (setf x (incf i))       (notnot (subsetp (progn (setf x (incf i))
# Line 150  Line 150 
150       i x y z w))       i x y z w))
151    t 4 1 2 3 4)    t 4 1 2 3 4)
152    
153  (deftest subsetp.18  (deftest subsetp.order.3
154    (let ((i 0) x y z w)    (let ((i 0) x y z w)
155      (values      (values
156       (notnot (subsetp (progn (setf x (incf i))       (notnot (subsetp (progn (setf x (incf i))
# Line 162  Line 162 
162       i x y z w))       i x y z w))
163    t 4 1 2 3 4)    t 4 1 2 3 4)
164    
   
   
165  ;;; Keyword tests  ;;; Keyword tests
166    
167  (deftest subsetp.allow-other-keys.1  (deftest subsetp.allow-other-keys.1

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