www

commit 9550ca53cee98824749877b0f1ec324e9314409e
parent 5652d4deba6496fefdd7495bc076416119db9223
Author: Georges Dupéron <jahvascriptmaniac+github@free.fr>
Date:   Mon,  1 Nov 2010 15:30:35 +0100

Utilisation de copy-seq au lieu de copy-tree (copy-seq marche aussi avec les chaînes etc.)

Diffstat:
M
environnement.lisp
 | 
4
++--
M
test-unitaire.lisp
 | 
3
+--

2 files changed, 3 insertions(+), 4 deletions(-)
diff --git a/environnement.lisp b/environnement.lisp
@@ -143,10 +143,10 @@ l'environnement top-level."
                          ("TOP-LEVEL" (X . 24) (Z . 73))))
   '(("TOP-LEVEL" (X . 24) (Z . 73))))
 (deftest environnement
-  (add-top-level-binding (copy-tree '(("TEST" (X . 42)) ("TOP-LEVEL" (Y . 56))))
+  (add-top-level-binding (copy-seq '(("TEST" (X . 42)) ("TOP-LEVEL" (Y . 56))))
                          'Z 78)
   '(("TEST" (X . 42)) ("TOP-LEVEL" (Z . 78) (Y . 56))))
 (deftest environnement
-  (set-top-level-binding (copy-tree '(("LEVEL2" (X . 42)) ("TOP-LEVEL" (Y . 56))))
+  (set-top-level-binding (copy-seq '(("LEVEL2" (X . 42)) ("TOP-LEVEL" (Y . 56))))
                          'Y "42")
   '(("LEVEL2" (X . 42)) ("TOP-LEVEL" (Y . "42"))))
diff --git a/test-unitaire.lisp b/test-unitaire.lisp
@@ -41,8 +41,7 @@
   `(progn
      (if (not (assoc ',module all-tests))
          (setf all-tests (cons (list ',module nil nil) all-tests)))
-	 ;; TODO : utiliser copy-seq ou copy-tree ???
-     (push (list ',name (list 'copy-tree ',value))
+     (push (list ',name (list 'copy-seq ',value))
            (second (assoc ',module all-tests)))))
 
 (defmacro run-tests (&rest modules)