Skip to content
Snippets Groups Projects
Commit 00ec87ed authored by Raymond Toy's avatar Raymond Toy
Browse files

Expand on some docstrings

Describe better the following:

sys::*runtime-features*
register-lisp-feature
register-lisp-runtime-feature
parent 2810be34
No related branches found
No related tags found
No related merge requests found
...@@ -29,7 +29,7 @@ ...@@ -29,7 +29,7 @@
(export '(compiler-version scrub-control-stack *runtime-features*)) (export '(compiler-version scrub-control-stack *runtime-features*))
(defvar *runtime-features* nil (defvar *runtime-features* nil
"Features affecting the runtime") "Features affecting the runtime. These are written to internals.h.")
(in-package :extensions) (in-package :extensions)
(export '(quit *prompt*)) (export '(quit *prompt*))
......
...@@ -20,12 +20,14 @@ ...@@ -20,12 +20,14 @@
register-lisp-feature register-lisp-runtime-feature)) register-lisp-feature register-lisp-runtime-feature))
(defmacro register-lisp-feature (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*)) `(pushnew ,feature *features*))
(defmacro register-lisp-runtime-feature (feature) (defmacro register-lisp-runtime-feature (feature)
"Register the feature as having influenced the CMUCL build process, "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))) (let ((f (gensym)))
`(progn `(progn
(let ((,f ,feature)) (let ((,f ,feature))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment