From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Sat, 19 Nov 2011 14:37:03 +0000 (+0200)
Subject: export DYNAMIC-SPACE-SIZE from SB-EXT
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=b43491a8a0411a13535558aa1b975ae082acc1f7;p=sbcl.git

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
--- 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
--- 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
--- 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)))
 
 ;;;; SUB-GC