1.0.17.24: refactor handling of constants in the compiler

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

diff --git a/tests/info.before-xc.lisp b/tests/info.before-xc.lisp
index 9bdbfc2..34ed298 100644 (file)
--- a/tests/info.before-xc.lisp
+++ b/tests/info.before-xc.lisp
@@ -21,9 +21,7 @@
             :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")