Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Sat Feb 8 06:23:02 2003 UTC | revision 1.5 by pfdietz, Mon Feb 17 04:22:03 2003 UTC | |
---|---|---|
# | Line 74 | Line 74 |
74 | (nthcdr 1 (cons 'a 'b)) | (nthcdr 1 (cons 'a 'b)) |
75 | b) | b) |
76 | ||
77 | (deftest nthcdr.6 | (deftest nthcdr.order.1 |
78 | (let ((i 0) x y) | (let ((i 0) x y) |
79 | (values | (values |
80 | (nthcdr (setf x (incf i)) | (nthcdr (setf x (incf i)) |
# | Line 89 | Line 89 |
89 | (rest (list 'a 'b 'c)) | (rest (list 'a 'b 'c)) |
90 | (b c)) | (b c)) |
91 | ||
92 | (deftest rest.order.1 | |
93 | (let ((i 0)) | |
94 | (values (rest (progn (incf i) '(a b))) i)) | |
95 | (b) 1) | |
96 | ||
97 | (deftest rest.error.1 | (deftest rest.error.1 |
98 | (classify-error (rest)) | (classify-error (rest)) |
99 | program-error) | program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |