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

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

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

revision 1.7 by pfdietz, Sat Feb 8 06:23:02 2003 UTC revision 1.8 by pfdietz, Mon Feb 17 04:22:03 2003 UTC
# Line 61  Line 61 
61           'foo)           'foo)
62    (a c e . foo))    (a c e . foo))
63    
64  (deftest nconc.8  (deftest nconc.order.1
65    (let ((i 0) x y z)    (let ((i 0) x y z)
66      (values      (values
67       (nconc (progn (setf x (incf i)) (copy-list '(a b c)))       (nconc (progn (setf x (incf i)) (copy-list '(a b c)))
# Line 69  Line 69 
69              (progn (setf z (incf i)) (copy-list '(g h i))))              (progn (setf z (incf i)) (copy-list '(g h i))))
70       i x y z))       i x y z))
71    (a b c d e f g h i) 3 1 2 3)    (a b c d e f g h i) 3 1 2 3)
72                
73    (deftest nconc.order.2
74      (let ((i 0))
75        (values
76         (nconc (incf i))
77         i))
78      1 1)      
79    
80  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
81  ;;; append  ;;; append
# Line 108  Line 114 
114    (append-6-body)    (append-6-body)
115    0)    0)
116    
117  (deftest append.7  (deftest append.order.1
118    (let ((i 0) x y z)    (let ((i 0) x y z)
119      (values      (values
120       (append (progn (setf x (incf i)) (copy-list '(a b c)))       (append (progn (setf x (incf i)) (copy-list '(a b c)))
# Line 117  Line 123 
123       i x y z))       i x y z))
124    (a b c d e f g h i) 3 1 2 3)    (a b c d e f g h i) 3 1 2 3)
125    
126    (deftest append.order.2
127      (let ((i 0)) (values (append (incf i)) i))
128      1 1)
129    
130  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
131  ;;; revappend  ;;; revappend
132    
# Line 146  Line 156 
156      (revappend (copy-tree '(a (b c) d)) nil)      (revappend (copy-tree '(a (b c) d)) nil)
157    (d (b c) a))    (d (b c) a))
158    
159  (deftest revappend.5  (deftest revappend.order.1
160    (let ((i 0) x y)    (let ((i 0) x y)
161      (values      (values
162       (revappend (progn (setf x (incf i)) (copy-list '(a b c)))       (revappend (progn (setf x (incf i)) (copy-list '(a b c)))
# Line 181  Line 191 
191    (nreconc nil 'a)    (nreconc nil 'a)
192    a)    a)
193    
194  (deftest nreconc.3  (deftest nreconc.order.1
195    (let ((i 0) x y)    (let ((i 0) x y)
196      (values      (values
197       (nreconc (progn (setf x (incf i)) (copy-list '(a b c)))       (nreconc (progn (setf x (incf i)) (copy-list '(a b c)))

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

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