www

commit dabeb07ef4dcbfbabb1e514b4a52eeb86a63b4e0
parent b85138b05f59564a8743513b15a9496e28e42b23
Author: Georges Dupéron <jahvascriptmaniac+github@free.fr>
Date:   Mon,  1 Nov 2010 16:17:02 +0100

(erase-tests module) fonctionne même si module n'existe pas encore.

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

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/test-unitaire.lisp b/test-unitaire.lisp
@@ -73,7 +73,9 @@
 
 (defun erase-tests-1 (module)
   (if module
-      (setf (cdr (assoc module all-tests)) (list nil nil))
+      (let ((association (assoc module all-tests)))
+        (when association
+          (setf (cdr association) (list nil nil))))
       (setf all-tests nil)))
 
 (defmacro erase-tests (&optional module)