X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmap-tests.impure.lisp;h=d61830996ea17b04fc82f3d5d1101bd2e38759c7;hb=3a10f894e7867fa2c27a3af05380abc3247f728d;hp=00a85523d58713e43709eaa6e9c95d2b96e6102c;hpb=7c07a6f965c51828d8f452b47e0620d8e6cf2959;p=sbcl.git

diff --git a/tests/map-tests.impure.lisp b/tests/map-tests.impure.lisp
index 00a8552..d618309 100644
--- a/tests/map-tests.impure.lisp
+++ b/tests/map-tests.impure.lisp
@@ -11,9 +11,8 @@
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
 
-(cl:in-package :cl-user)
-
 (load "assertoid.lisp")
+(use-package "ASSERTOID")
 
 ;;; tests of MAP
 ;;; FIXME: Move these into their own file.
@@ -104,7 +103,6 @@
 	 :fun-name oddp
 	 :arg-seqs (*vector-30*)
 	 :arg-types (vector))
-#+nil ; FIXME: dies on some sort of internal compiler error in 0.pre7.15
 (maptest :result-seq '(12 24)
 	 :fun-name +
 	 :arg-seqs (*list-2* *list-2* *vector-30*)