X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fwith-compilation-unit.impure.lisp;h=1a964a9f2e9549722d759a4aa3191a175122ee99;hb=260de2062fca170efdac3e42491d7d866c2d2e56;hp=1239f67210f74d926b4602640d2745659f65cfed;hpb=ad0c59dd3e9a49777fce9790bf17f0a5ee7fbee6;p=sbcl.git

diff --git a/tests/with-compilation-unit.impure.lisp b/tests/with-compilation-unit.impure.lisp
index 1239f67..1a964a9 100644
--- a/tests/with-compilation-unit.impure.lisp
+++ b/tests/with-compilation-unit.impure.lisp
@@ -100,7 +100,7 @@
     (write `(defun bar () (typep 1 ',(intern "A-TYPE"))) :stream stream))
 
   (test-files (lambda ()
-                (unintern 'a-type)
+                (unintern (find-symbol "A-TYPE"))
                 (fmakunbound 'bar))))
 
 (delete-file *file-a*)