X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fvector.pure.lisp;h=bbe03a94fd4cd8e645b82c85cfbfd88dcfdf5de8;hb=06cb0db045562ab583358e2ee7090c606e1dfe42;hp=ba4085990dcbf5c33a21ceed5376f99d5481f817;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/tests/vector.pure.lisp b/tests/vector.pure.lisp
index ba40859..bbe03a9 100644
--- a/tests/vector.pure.lisp
+++ b/tests/vector.pure.lisp
@@ -1,12 +1,14 @@
-(in-package :cl-user)
+(cl:in-package :cl-user)
 
-(defun vector-tests ()
-  (let ((simple-t (make-array 35))
-	(simple-u32 (make-array 50 :element-type '(unsigned-byte 32)))
-	(simple-character (make-string 44))
-	(complex-t (make-array 35 :fill-pointer 3))
-	(complex-u32 (make-array 88 :element-type '(unsigned-byte 32)))
-	(complex-character (make-array 14
-				       :element-type 'character
-				       :fill-pointer t)))
-    (assert (= (length simple-t) 35))))
+(funcall (lambda () 
+	   (let ((simple-t (make-array 35))
+		 (simple-u32 (make-array 50
+					 :element-type '(unsigned-byte 32)))
+		 (simple-character (make-string 44))
+		 (complex-t (make-array 35 :fill-pointer 3))
+		 (complex-u32 (make-array 88
+					  :element-type '(unsigned-byte 32)))
+		 (complex-character (make-array 14
+						:element-type 'character
+						:fill-pointer t)))
+	     (assert (= (length simple-t) 35)))))