Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sun Apr 20 13:17:45 2003 UTC | revision 1.2 by pfdietz, Sun Apr 20 22:59:26 2003 UTC | |
---|---|---|
# | Line 41 | Line 41 |
41 | i x y)) | i x y)) |
42 | t (a b e f) 2 1 2) | t (a b e f) 2 1 2) |
43 | ||
44 | (deftest remf.order.2 | |
45 | (let ((x (copy-seq #(nil :a :b))) | |
46 | (pa (vector (list :a 1) (list :b 2) (list :c 3) (list :d 4))) | |
47 | (i 0)) | |
48 | (values | |
49 | (not (remf (aref pa (incf i)) (aref x (incf i)))) | |
50 | pa)) | |
51 | nil #((:a 1) nil (:c 3) (:d 4))) | |
52 | ||
53 | (def-macro-test remf.error.1 (remf x 'a)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |