Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sun Apr 20 13:17:45 2003 UTC | revision 1.2 by pfdietz, Wed May 28 13:19:05 2003 UTC | |
---|---|---|
# | Line 40 | Line 40 |
40 | (append-6-body) | (append-6-body) |
41 | 0) | 0) |
42 | ||
43 | ;;; Test suggested by Peter Graves | |
44 | (deftest append.7 | |
45 | (let ((x (list 'a 'b 'c 'd))) | |
46 | (eq (append x nil) x)) | |
47 | nil) | |
48 | ||
49 | ;;; Order of evaluation tests | |
50 | ||
51 | (deftest append.order.1 | (deftest append.order.1 |
52 | (let ((i 0) x y z) | (let ((i 0) x y z) |
53 | (values | (values |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |