suzanne.soy/2010-m1s1-compilation
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Georges Dupéron 2010-11-01 15:30:35 +01:00
parent 5652d4deba
commit 9550ca53ce
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
environnement.lisp
View File

@ -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"))))

3
test-unitaire.lisp
View File

@ -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)