X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Froom.lisp;h=6c8625a1f6d0479af19598ddac4ef9b6765a75f5;hb=5d0643d3b70aade43037e8b7cdf39b7e12f5d3fd;hp=4dbefe7f41dd2eb4107f99f6dbc465325296ef7d;hpb=2d3cb6dba6461e98744eca2a1df4f770cea468ca;p=sbcl.git

diff --git a/src/code/room.lisp b/src/code/room.lisp
index 4dbefe7..6c8625a 100644
--- a/src/code/room.lisp
+++ b/src/code/room.lisp
@@ -132,7 +132,8 @@
      (values (int-sap read-only-space-start)
 	     (int-sap (* *read-only-space-free-pointer* n-word-bytes))))
     (:dynamic
-     (values (int-sap dynamic-space-start)
+     (values (int-sap #!+gencgc dynamic-space-start 
+		      #!-gencgc (current-dynamic-space-start))
 	     (dynamic-space-free-pointer)))))
 
 ;;; Return the total number of bytes used in SPACE.