Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sun Apr 20 13:17:45 2003 UTC | revision 1.2 by pfdietz, Mon Jun 30 23:47:15 2003 UTC | |
---|---|---|
# | Line 45 | Line 45 |
45 | (butlast (copy-tree '(a b c . d)) 1) | (butlast (copy-tree '(a b c . d)) 1) |
46 | (a b)) | (a b)) |
47 | ||
48 | (deftest butlast.6 | |
49 | (butlast '(a b c d e) (1+ most-positive-fixnum)) | |
50 | nil) | |
51 | ||
52 | (deftest butlast.order.1 | (deftest butlast.order.1 |
53 | (let ((i 0) x y) | (let ((i 0) x y) |
54 | (values | (values |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |