diff --git a/find-system.lisp b/find-system.lisp index e0d36077b4be2e9b12dc3adf6bef62919529f569..e502762a13a2c278411240917c2d8c474e2bab6a 100644 --- a/find-system.lisp +++ b/find-system.lisp @@ -200,8 +200,8 @@ contact maintainers if you need a stable API to do more than that.") but not even registered as defined" :format-arguments (list name)))))) -(defun register-immutable-system (system-name &rest keys) - "Register SYSTEM-NAME as preloaded and immutable. + (defun register-immutable-system (system-name &rest keys) + "Register SYSTEM-NAME as preloaded and immutable. It will automatically be considered as passed to FORCE-NOT in a plan." (let ((system-name (coerce-name system-name))) (apply 'register-preloaded-system system-name keys)