Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Sun Jun 20 20:06:23 2004 UTC | revision 1.4 by pfdietz, Mon Nov 29 13:23:38 2004 UTC | |
---|---|---|
# | Line 52 | Line 52 |
52 | pa)) | pa)) |
53 | nil #((:a 1) nil (:c 3) (:d 4))) | nil #((:a 1) nil (:c 3) (:d 4))) |
54 | ||
55 | (deftest remf.order.3 | |
56 | (let ((x (list 'a 'b 'c 'd))) | |
57 | (progn | |
58 | "See CLtS 5.1.3" | |
59 | (values | |
60 | (remf x (progn (setq x (list 'e 'f)) 'a)) | |
61 | x))) | |
62 | nil (e f)) | |
63 | ||
64 | (def-macro-test remf.error.1 (remf x 'a)) | (def-macro-test remf.error.1 (remf x 'a)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |