X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fpackages.impure.lisp;h=fbe8e5b6d8033800715d6e6e54cd4579abe1abb0;hb=9bdd2579f980573a74daabe03120ed64b1733b11;hp=015bca1f4ff7da665f7024c2c2702af571e24d6d;hpb=506af5859d361f5e9744ca9a177bf47746333df3;p=sbcl.git

diff --git a/tests/packages.impure.lisp b/tests/packages.impure.lisp
index 015bca1..fbe8e5b 100644
--- a/tests/packages.impure.lisp
+++ b/tests/packages.impure.lisp
@@ -499,8 +499,10 @@ if a restart was invoked."
 (with-test (:name :package-local-nicknames)
   ;; Clear slate
   (without-package-locks
-    (delete-package :package-local-nicknames-test-1)
-    (delete-package :package-local-nicknames-test-2))
+    (when (find-package :package-local-nicknames-test-1)
+      (delete-package :package-local-nicknames-test-1))
+    (when (find-package :package-local-nicknames-test-2)
+      (delete-package :package-local-nicknames-test-2)))
   (eval `(defpackage :package-local-nicknames-test-1
            (:local-nicknames (:l :cl) (:sb :sb-ext))))
   (eval `(defpackage :package-local-nicknames-test-2
@@ -638,3 +640,14 @@ if a restart was invoked."
                 (let ((*package* p1))
                   (intern "FOO" :own-nickname))))))
 
+(with-test (:name :delete-package-restart)
+  (let* (ok
+         (result
+           (handler-bind
+               ((sb-kernel:simple-package-error
+                  (lambda (c)
+                    (setf ok t)
+                    (continue c))))
+             (delete-package (gensym)))))
+    (assert ok)
+    (assert (not result))))