/[gcl]/gcl/ansi-tests/cons-test-07.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-07.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26