Fix make-array transforms.

[sbcl.git] / tests / with-compilation-unit.impure.lisp

diff --git a/tests/with-compilation-unit.impure.lisp b/tests/with-compilation-unit.impure.lisp
index 1239f67..1a964a9 100644 (file)
--- 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*)