[Git][cmucl/cmucl][master] Expand on some docstrings

[Raymond Toy]

Raymond Toy pushed to branch master at cmucl / cmucl


Commits:
00ec87ed by Raymond Toy at 2016-05-21T12:06:42-07:00
Expand on some docstrings

Describe better the following:

sys::*runtime-features*
register-lisp-feature
register-lisp-runtime-feature

- - - - -


2 changed files:

- src/code/lispinit.lisp
- src/code/sysmacs.lisp


Changes:

=====================================
src/code/lispinit.lisp
=====================================
--- a/src/code/lispinit.lisp
+++ b/src/code/lispinit.lisp
@@ -29,7 +29,7 @@
 (export '(compiler-version scrub-control-stack *runtime-features*))
 
 (defvar *runtime-features* nil
-  "Features affecting the runtime")
+  "Features affecting the runtime.  These are written to internals.h.")
 
 (in-package :extensions)
 (export '(quit *prompt*))


=====================================
src/code/sysmacs.lisp
=====================================
--- a/src/code/sysmacs.lisp
+++ b/src/code/sysmacs.lisp
@@ -20,12 +20,14 @@
 	  register-lisp-feature register-lisp-runtime-feature))
 
 (defmacro register-lisp-feature (feature)
-  "Register the feature as having influenced the CMUCL build process."
+  "Register the feature as having influenced the CMUCL build
+  process. Feature is added to *feature*"
   `(pushnew ,feature *features*))
 
 (defmacro register-lisp-runtime-feature (feature)
   "Register the feature as having influenced the CMUCL build process,
-and also the CMUCL C runtime."
+and also the CMUCL C runtime. Feature is added to*features* and
+sys::*runtime-features*."
   (let ((f (gensym)))
     `(progn
       (let ((,f ,feature))



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/00ec87ed626beaa99ae6c3ff17bf7d990c1d8164
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20160521/59d47c18/attachment.html>