X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Finfo.before-xc.lisp;h=34ed298e4911488540bd1aad2ed03edfb7224b43;hb=1cba0af01f5107ab384d0d8b94b1f6330b3d0ef4;hp=9bdbfc2c3b9471e48893cd5485cf6cb29c8144ac;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

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