Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Thu Sep 26 16:53:37 2002 UTC | revision 1.2 by pfdietz, Sun Oct 13 16:44:49 2002 UTC | |
---|---|---|
# | Line 139 | Line 139 |
139 | ;;; nreconc | ;;; nreconc |
140 | ||
141 | (deftest nreconc-1 | (deftest nreconc-1 |
142 | (let* ((x (list 'a 'b 'c)) | (let* ((x (list 'a 'b 'c)) |
143 | (y (nreverse (loop for e on x collect e)))) | (y (copy-tree '(d e f))) |
144 | (setf x (nreconc x (copy-tree '(d e f)))) | (result (nreconc x y))) |
145 | (and (eq x (car y)) | (and (equal y '(d e f)) |
146 | (eq (cdr x) (cadr y)) | result)) |
(eq (cddr x) (caddr y)) | ||
x)) | ||
147 | (c b a d e f)) | (c b a d e f)) |
148 | ||
149 | (deftest nreconc-2 | (deftest nreconc-2 |
150 | (handler-case | (nreconc nil 'a) |
(nreconc nil 'a) | ||
(error (c) c)) | ||
151 | a) | a) |
152 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |