a baby step where angels fear to tread.. I'm still heading for a

[sbcl.git] / src / code / gc.lisp

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index 7921d48..45a8a36 100644 (file)
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -42,7 +42,7 @@
 
 (defun static-space-usage ()
   (- (* sb!vm:*static-space-free-pointer* sb!vm:word-bytes)
-     sb!vm:*static-space-start*))
+     sb!vm:static-space-start))
 
 (defun read-only-space-usage ()
   (- (* sb!vm::*read-only-space-free-pointer* sb!vm:word-bytes)