Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Sun Jun 20 20:06:23 2004 UTC | revision 1.5 by pfdietz, Tue Jun 14 03:05:19 2005 UTC | |
---|---|---|
# | Line 62 | Line 62 |
62 | (let ((i 0)) (values (append (incf i)) i)) | (let ((i 0)) (values (append (incf i)) i)) |
63 | 1 1) | 1 1) |
64 | ||
65 | (def-fold-test append.fold.1 (append '(a b c) nil)) | |
66 | (def-fold-test append.fold.2 (append nil '(x) nil)) | |
67 | ||
68 | ;;; Error tests | |
69 | ||
70 | (deftest append.error.1 | (deftest append.error.1 |
71 | (signals-error (append '(a . b) '(z)) | (signals-error (append '(a . b) '(z)) |
72 | type-error) | type-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |