Parent Directory | Revision Log | Patch
revision 1.5 by pfdietz, Sun Jun 20 20:06:23 2004 UTC | revision 1.6 by pfdietz, Tue Jun 14 03:05:19 2005 UTC | |
---|---|---|
# | Line 76 | Line 76 |
76 | i)) | i)) |
77 | (a b c) 1) | (a b c) 1) |
78 | ||
79 | (def-fold-test butlast.fold.1 (butlast '(a b) 1)) | |
80 | (def-fold-test butlast.fold.2 (butlast '(a b c d e f) 3)) | |
81 | (def-fold-test butlast.fold.3 (butlast '(a b c d e f g h i) 7)) | |
82 | ||
83 | ;;; Error tests | |
84 | ||
85 | (deftest butlast.error.1 | (deftest butlast.error.1 |
86 | (signals-error (butlast (copy-tree '(a b c d)) 'a) | (signals-error (butlast (copy-tree '(a b c d)) 'a) |
87 | type-error) | type-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |