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

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

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

revision 1.6 by pfdietz, Mon Feb 10 00:05:26 2003 UTC revision 1.7 by pfdietz, Mon Feb 17 04:22:03 2003 UTC
# Line 57  Line 57 
57         (values indicator value tail))))         (values indicator value tail))))
58    g h (g h a c))    g h (g h a c))
59    
60  (deftest get-properties.10  (deftest get-properties.order.1
61    (let ((i 0) x y)    (let ((i 0) x y)
62      (values      (values
63       (multiple-value-list       (multiple-value-list
# Line 105  Line 105 
105       x))       x))
106    b 1)    b 1)
107    
108  (deftest getf.6  (deftest getf.order.1
109    (let ((i 0) x y)    (let ((i 0) x y)
110      (values      (values
111       (getf (progn (setf x (incf i)) '(a b))       (getf (progn (setf x (incf i)) '(a b))
# Line 113  Line 113 
113       i x y))       i x y))
114    b 2 1 2)    b 2 1 2)
115                                        
116  (deftest getf.7  (deftest getf.order.2
117    (let ((i 0) x y z)    (let ((i 0) x y z)
118      (values      (values
119       (getf (progn (setf x (incf i)) '(a b))       (getf (progn (setf x (incf i)) '(a b))
# Line 200  Line 200 
200       foo))       foo))
201    t)    t)
202    
203  (deftest setf-getf.6  (deftest setf-getf.order.1
204    (let ((p (list (copy-list '(a 1 b 2))))    (let ((p (list (copy-list '(a 1 b 2))))
205          (cnt1 0) (cnt2 0) (cnt3 0))          (cnt1 0) (cnt2 0) (cnt3 0))
206      (setf (getf (car (progn (incf cnt1) p)) 'c (incf cnt3))      (setf (getf (car (progn (incf cnt1) p)) 'c (incf cnt3))
# Line 221  Line 221 
221       t))       t))
222    t)    t)
223    
224  (deftest setf-getf.7  (deftest setf-getf.order.2
225    (let ((p (list (copy-list '(a 1 b 2))))    (let ((p (list (copy-list '(a 1 b 2))))
226          (i 0) x y z w)          (i 0) x y z w)
227      (setf (getf (car (progn (setf x (incf i)) p))      (setf (getf (car (progn (setf x (incf i)) p))
# Line 323  Line 323 
323        (not (eqt (car ptr) 'a)))))        (not (eqt (car ptr) 'a)))))
324    t 0)    t 0)
325    
326  (deftest remf.5  (deftest remf.order.1
327    (let ((i 0) x y    (let ((i 0) x y
328          (p (make-array 1 :initial-element (copy-list '(a b c d e f)))))          (p (make-array 1 :initial-element (copy-list '(a b c d e f)))))
329      (values      (values

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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