Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Mon Jun 30 23:47:15 2003 UTC | revision 1.3 by pfdietz, Tue Jul 1 12:16:10 2003 UTC | |
---|---|---|
# | Line 47 | Line 47 |
47 | (nbutlast (list 'a 'b 'c 'd) (1+ most-positive-fixnum)) | (nbutlast (list 'a 'b 'c 'd) (1+ most-positive-fixnum)) |
48 | nil) | nil) |
49 | ||
50 | (deftest nbutlast.8 | |
51 | (nbutlast (list 'a 'b 'c 'd) most-positive-fixnum) | |
52 | nil) | |
53 | ||
54 | (deftest nbutlast.9 | |
55 | (nbutlast (list 'a 'b 'c 'd) (1- most-positive-fixnum)) | |
56 | nil) | |
57 | ||
58 | (deftest nbutlast.order.1 | (deftest nbutlast.order.1 |
59 | (let ((i 0) x y) | (let ((i 0) x y) |
60 | (values | (values |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |