X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Froom.lisp;h=4ba273d315a1a036a914caa495f0730c0b385d3a;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=9827be894ab732cf8d77d0d7ad266bf60b3c1d93;hpb=b27034c44f6f8465fd19964525794615a34b5d41;p=sbcl.git

diff --git a/src/code/room.lisp b/src/code/room.lisp
index 9827be8..4ba273d 100644
--- a/src/code/room.lisp
+++ b/src/code/room.lisp
@@ -10,9 +10,6 @@
 ;;;; files for more information.
 
 (in-package "SB!VM")
-
-(file-comment
-  "$Header$")
 
 ;;;; type format database
 
@@ -120,13 +117,13 @@
   (declare (type spaces space))
   (ecase space
     (:static
-     (values (int-sap *static-space-start*)
+     (values (int-sap static-space-start)
 	     (int-sap (* *static-space-free-pointer* word-bytes))))
     (:read-only
-     (values (int-sap *read-only-space-start*)
+     (values (int-sap read-only-space-start)
 	     (int-sap (* *read-only-space-free-pointer* word-bytes))))
     (:dynamic
-     (values (int-sap (current-dynamic-space-start))
+     (values (int-sap dynamic-space-start)
 	     (dynamic-space-free-pointer)))))
 
 ;;; Return the total number of bytes used in SPACE.