Fix make-array transforms.

[sbcl.git] / tests / info.before-xc.lisp

diff --git a/tests/info.before-xc.lisp b/tests/info.before-xc.lisp
index 4d91bfb..34ed298 100644 (file)
--- a/tests/info.before-xc.lisp
+++ b/tests/info.before-xc.lisp
@@ -8,7 +8,7 @@
 ;;;; While most of SBCL is derived from the CMU CL system, the test
 ;;;; files (like this one) were written from scratch after the fork
 ;;;; from CMU CL.
-;;;; 
+;;;;
 ;;;; This software is in the public domain and is provided with
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
@@ -18,12 +18,10 @@
 (/show "beginning tests/info.before-xc.lisp")
 
 (assert (eq (sb!int:info :variable :kind 'sb!vm:vector-data-offset)
-           :constant))
+            :constant))
 ;;; It's possible in general for a constant to have the value NIL, but
 ;;; not for vector-data-offset, which must be a number:
-(multiple-value-bind (value successp)
-    (sb!int:info :variable :constant-value 'sb!vm:vector-data-offset)
-  (assert value)
-  (assert successp))
+(assert (boundp 'sb!vm:vector-data-offset))
+(assert (integerp (symbol-value 'sb!vm:vector-data-offset)))
 
 (/show "done with tests/info.before-xc.lisp")