export DYNAMIC-SPACE-SIZE from SB-EXT

diff --git a/doc/manual/beyond-ansi.texinfo b/doc/manual/beyond-ansi.texinfo
index 1b4e422..9e62530 100644 (file)
--- a/doc/manual/beyond-ansi.texinfo
+++ b/doc/manual/beyond-ansi.texinfo
@@ -57,6 +57,7 @@ Extensions}.
 
 @include var-sb-ext-star-gc-run-time-star.texinfo
 @include fun-sb-ext-bytes-consed-between-gcs.texinfo
+@include fun-sb-ext-dynamic-space-size.texinfo
 @include fun-sb-ext-setf-gc-logfile.texinfo
 @include fun-sb-ext-gc-logfile.texinfo
 @include fun-sb-ext-generation-average-age.texinfo

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index e27b6e8..58915b0 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -626,6 +626,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                "GC" "GET-BYTES-CONSED"
                "*GC-RUN-TIME*"
                "PURIFY"
+               "DYNAMIC-SPACE-SIZE"
                ;; Gencgc only, but symbols exist for manual building
                ;; convenience on all platforms.
                "GENERATION-AVERAGE-AGE"

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index 2d2dc84..e1ebb73 100644 (file)
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -176,6 +176,7 @@ NIL as the pathname."
         (native-pathname (cast val c-string)))))
   (declaim (inline dynamic-space-size))
   (defun dynamic-space-size ()
+    "Size of the dynamic space in bytes."
     (sb!alien:extern-alien "dynamic_space_size" os-vm-size-t)))
 \f
 ;;;; SUB-GC