0.9.1.60:

[sbcl.git] / tests / map-tests.impure.lisp

diff --git a/tests/map-tests.impure.lisp b/tests/map-tests.impure.lisp
index 00a8552..d618309 100644 (file)
--- 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*)