Commit 563f6bc6 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Use NIL for actions visited with status unknown

Use NIL instead of T as the status stored in the visited-actions hash-table
when the status is unknown, and check whether it (or a known status) is present
using the second value of GETHASH. When a known value is sought, keep checking
for the first value.
parent a21342dd
......@@ -468,8 +468,8 @@ Update the VISITED-ACTIONS table with the known status, but don't add anything t
(when (action-valid-p operation component)
(while-visiting-action (operation component) ; maintain context, handle circularity.
(let ((action (make-action operation component)))
(unless (gethash action (visited-actions *asdf-session*))
(setf (gethash action (visited-actions *asdf-session*)) t)
(unless (nth-value 1 (gethash action (visited-actions *asdf-session*)))
(setf (gethash action (visited-actions *asdf-session*)) nil)
(when (and (typep component (plan-component-type plan))
(not (action-forced-not-p (forcing plan) operation component)))
(map-direct-dependencies operation component
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment