dep.lisp (%dep-value): Document why this is a separate function.

[lisp] / dep.lisp

diff --git a/dep.lisp b/dep.lisp
index 3a1520f04a5c89d29a9748ef969681c70b711be5..ecd16283ef72c15e2aeb2f34921d5bde020981d1 100644 (file)
--- a/dep.lisp
+++ b/dep.lisp
@@ -228,7 +228,9 @@ (defun force-dep-value (dep)
               (progn (setf (dep-flags dep) flags) nil))))))
 
 (defun %dep-value (dep)
-  "Do the difficult work of retrieving the current value of a DEP."
+  "Do the difficult work of retrieving the current value of a DEP.
+
+   This is the unhappy path of `dep-value'."
   (force-dep-value dep)
   (when *evaluating-dep*
     (pushnew (dep-weak-pointer *evaluating-dep*) (dep-dependents dep))