Parent Directory | Revision Log | Patch
revision 1.13 by pfdietz, Fri May 6 01:13:40 2005 UTC | revision 1.14 by pfdietz, Mon Jun 13 14:24:44 2005 UTC | |
---|---|---|
# | Line 227 | Line 227 |
227 | (values (copy-seq (progn (incf i) "abc")) i)) | (values (copy-seq (progn (incf i) "abc")) i)) |
228 | "abc" 1) | "abc" 1) |
229 | ||
230 | (def-fold-test copy-seq.fold.1 (copy-seq '(a b c))) | |
231 | (def-fold-test copy-seq.fold.2 (copy-seq #(a b c))) | |
232 | (def-fold-test copy-seq.fold.3 (copy-seq #*01101100)) | |
233 | (def-fold-test copy-seq.fold.4 (copy-seq "abcdef")) | |
234 | ||
235 | ;;; Error tests | ;;; Error tests |
236 | ||
237 | (deftest copy-seq.error.1 | (deftest copy-seq.error.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |