From: Thomas M. Hermann <thomas.m.hermann@odonata-research.com>
Date: Thu, 18 Apr 2013 19:34:47 +0000 (-0500)
Subject: Ensure that a package object is used as the hash-key for tests and tags DB.
X-Git-Tag: Version-1.0.0~8
X-Git-Url: https://repo.or.cz/w/lisp-unit.git/commitdiff_plain/9d4759f05e126a072b25625de0f34f8b389ab4db

Ensure that a package object is used as the hash-key for tests and tags DB.
---

diff --git a/lisp-unit.lisp b/lisp-unit.lisp
index 869a8ab..392dc43 100644
--- a/lisp-unit.lisp
+++ b/lisp-unit.lisp
@@ -168,11 +168,12 @@ assertion.")
   (:report null-tests-warning-report))
 
 (defun package-table (package &optional create)
-  (cond
-   ((gethash (find-package package) *test-db*))
-   (create
-    (setf (gethash package *test-db*) (make-hash-table)))
-   (t (warn 'null-tests-warning :name (package-name package)))))
+  (let ((packobj (find-package package)))
+    (cond
+     ((gethash packobj *test-db*))
+     (create
+      (setf (gethash packobj *test-db*) (make-hash-table)))
+     (t (warn 'null-tests-warning :name (package-name package))))))
 
 (defmacro with-package-table ((table
                                &optional (package *package*) create)
@@ -202,11 +203,12 @@ assertion.")
 
 (defun package-tags (package &optional create)
   "Return the tags DB for the package."
-  (cond
-   ((gethash (find-package package) *tag-db*))
-   (create
-    (setf (gethash package *tag-db*) (make-hash-table)))
-   (t (warn 'null-tags-warning :name (package-name package)))))
+  (let ((packobj (find-package package)))
+    (cond
+     ((gethash packobj *tag-db*))
+     (create
+      (setf (gethash packobj *tag-db*) (make-hash-table)))
+     (t (warn 'null-tags-warning :name (package-name package))))))
 
 (defmacro with-package-tags ((table
                               &optional (package *package*) create)