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

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

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

revision 1.8 by pfdietz, Sat Feb 8 06:23:02 2003 UTC revision 1.9 by pfdietz, Mon Feb 17 04:22:03 2003 UTC
# Line 29  Line 29 
29      (check-cons-copy x y))      (check-cons-copy x y))
30    t)    t)
31    
32    (deftest copy-tree.order.1
33      (let ((i 0))
34        (values
35         (copy-tree (progn (incf i) '(a b c)))
36         i))
37      (a b c) 1)
38    
39  (deftest copy-tree.error.1  (deftest copy-tree.error.1
40    (classify-error (copy-tree))    (classify-error (copy-tree))
41    program-error)    program-error)
# Line 37  Line 44 
44    (classify-error (copy-tree 'a 'b))    (classify-error (copy-tree 'a 'b))
45    program-error)    program-error)
46    
47    ;;;
48    
49  (deftest sublis.1  (deftest sublis.1
50    (check-sublis '((a b) g (d e 10 g h) 15 . g)    (check-sublis '((a b) g (d e 10 g h) 15 . g)
51                  '((e . e2) (g . 17)))                  '((e . e2) (g . 17)))
# Line 96  Line 105 
105    (2 2 b b))    (2 2 b b))
106    
107  ;;; Order of argument evaluation  ;;; Order of argument evaluation
108  (deftest sublis.9  (deftest sublis.order.1
109    (let ((i 0) w x y z)    (let ((i 0) w x y z)
110      (values      (values
111       (sublis       (sublis
# Line 110  Line 119 
119    (z b c d)    (z b c d)
120    4 1 2 3 4)    4 1 2 3 4)
121    
122  (deftest sublis.10  (deftest sublis.order.2
123    (let ((i 0) w x y z)    (let ((i 0) w x y z)
124      (values      (values
125       (sublis       (sublis
# Line 237  Line 246 
246    (2 2 b b))    (2 2 b b))
247    
248  ;;; Order of argument evaluation  ;;; Order of argument evaluation
249  (deftest nsublis.10  (deftest nsublis.order.1
250    (let ((i 0) w x y z)    (let ((i 0) w x y z)
251      (values      (values
252       (nsublis       (nsublis
# Line 251  Line 260 
260    (z b c d)    (z b c d)
261    4 1 2 3 4)    4 1 2 3 4)
262    
263  (deftest nsublis.11  (deftest nsublis.order.2
264    (let ((i 0) w x y z)    (let ((i 0) w x y z)
265      (values      (values
266       (nsublis       (nsublis
# Line 376  Line 385 
385    (a a c d a a))    (a a c d a a))
386    
387  ;;; Order of argument evaluation  ;;; Order of argument evaluation
388  (deftest subst.10  (deftest subst.order.1
389    (let ((i 0) v w x y z)    (let ((i 0) v w x y z)
390      (values      (values
391       (subst (progn (setf v (incf i)) 'b)       (subst (progn (setf v (incf i)) 'b)
# Line 388  Line 397 
397    ((10 b . b) b b c ((b)) z)    ((10 b . b) b b c ((b)) z)
398    5 1 2 3 4 5)    5 1 2 3 4 5)
399    
400  (deftest subst.11  (deftest subst.order.2
401    (let ((i 0) v w x y z)    (let ((i 0) v w x y z)
402      (values      (values
403       (subst (progn (setf v (incf i)) 'b)       (subst (progn (setf v (incf i)) 'b)
# Line 641  Line 650 
650    (a a c d a a))    (a a c d a a))
651    
652  ;;; Order of argument evaluation  ;;; Order of argument evaluation
653  (deftest nsubst.10  (deftest nsubst.order.1
654    (let ((i 0) v w x y z)    (let ((i 0) v w x y z)
655      (values      (values
656       (nsubst (progn (setf v (incf i)) 'b)       (nsubst (progn (setf v (incf i)) 'b)
# Line 653  Line 662 
662    ((10 b . b) b b c ((b)) z)    ((10 b . b) b b c ((b)) z)
663    5 1 2 3 4 5)    5 1 2 3 4 5)
664    
665  (deftest nsubst.11  (deftest nsubst.order.2
666    (let ((i 0) v w x y z)    (let ((i 0) v w x y z)
667      (values      (values
668       (nsubst (progn (setf v (incf i)) 'b)       (nsubst (progn (setf v (incf i)) 'b)

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