From 9550ca53cee98824749877b0f1ec324e9314409e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Mon, 1 Nov 2010 15:30:35 +0100 Subject: [PATCH] =?UTF-8?q?Utilisation=20de=20copy-seq=20au=20lieu=20de=20?= =?UTF-8?q?copy-tree=20(copy-seq=20marche=20aussi=20avec=20les=20cha=C3=AE?= =?UTF-8?q?nes=20etc.)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- environnement.lisp | 4 ++-- test-unitaire.lisp | 3 +-- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/environnement.lisp b/environnement.lisp index 4ea2e9d..162da09 100644 --- 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 index c24d55a..1e31d58 100644 --- 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)