X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Finfo.before-xc.lisp;h=34ed298e4911488540bd1aad2ed03edfb7224b43;hb=b111015a7111501231c7b61990c61c046392796b;hp=4d91bfb0460b9f555ccdf3168acdfd8e746f65f6;hpb=409c08485fd358c78107d91f9e3aec4d17b3fd0d;p=sbcl.git

diff --git a/tests/info.before-xc.lisp b/tests/info.before-xc.lisp
index 4d91bfb..34ed298 100644
--- 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")