I almost committed a change which folded this into `dep-value' before
noticing that the latter is marked `inline'.
(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))