(require "xl-alexandria/test/test-base") しただけで xyzzy がクラッシュすることがある

gistfile1.diff

;; (require "xl-alexandria/test/test-base") しただけで xyzzy がクラッシュすることがある
;;
;; とりあえず以下で回避。クラッシュする原因は不明。

diff --git a/site-lisp/lisp-unit.l b/site-lisp/lisp-unit.l
index 52a9b21..4f5ccdd 100755
--- a/site-lisp/lisp-unit.l
+++ b/site-lisp/lisp-unit.l
@@ -333,7 +333,7 @@ For more information, see lisp-unit.html.
 (defun remove-all-tests (&optional (package *package*))
   (if (null package)
       (clrhash *tests*)
-    (remhash (find-package package) *tests*)))
+    (remhash package *tests*)))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -344,7 +344,7 @@ For more information, see lisp-unit.html.
 ;;; DEFINE-TEST support
 
 (defun get-package-table (package &key create)
-  (let ((table (gethash (find-package package) *tests*)))
+  (let ((table (gethash package *tests*)))
     (or table
         (and create
              (setf (gethash package *tests*)