X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fpackages.impure.lisp;h=3b5273e5cf176c8b8106239dcd1370c37ef36167;hb=a51d83191034919bc76367268929e234d62164db;hp=db5c3b2aae565e0306cdab9615b514c040c50f5f;hpb=9152e162ab62d7027a4403fb9b461c31847649a2;p=sbcl.git

diff --git a/tests/packages.impure.lisp b/tests/packages.impure.lisp
index db5c3b2..3b5273e 100644
--- a/tests/packages.impure.lisp
+++ b/tests/packages.impure.lisp
@@ -272,6 +272,11 @@ if a restart was invoked."
       (is (eq (sym "FOO" "SYM")
               (sym "BAZ" "SYM"))))))
 
+(with-test (:name unintern.2)
+  (with-packages (("FOO" (:intern "SYM")))
+    (unintern :sym "FOO")
+    (assert (find-symbol "SYM" "FOO"))))
+
 ;;; WITH-PACKAGE-ITERATOR error signalling had problems
 (with-test (:name with-package-itarator.error)
   (assert (eq :good