Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sun Nov 3 11:07:16 2002 UTC | revision 1.2 by pfdietz, Sun Nov 3 13:21:47 2002 UTC | |
---|---|---|
# | Line 148 | Line 148 |
148 | (copy-seq #()) | (copy-seq #()) |
149 | #()) | #()) |
150 | ||
151 | (deftest copy-seq.18 | |
152 | (let* ((x (make-array '(10) :initial-contents '(a b c d e f g h i j))) | |
153 | (y (copy-seq x))) | |
154 | (equal-array x y)) | |
155 | t) | |
156 | ||
157 | ;;; Error tests | ;;; Error tests |
158 | ||
159 | (deftest copy-seq.error.1 | (deftest copy-seq.error.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |