Skip to content
Snippets Groups Projects
Commit 5153251e authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

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 50832654
No related branches found
No related tags found
No related merge requests found
...@@ -468,8 +468,8 @@ Update the VISITED-ACTIONS table with the known status, but don't add anything t ...@@ -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) (when (action-valid-p operation component)
(while-visiting-action (operation component) ; maintain context, handle circularity. (while-visiting-action (operation component) ; maintain context, handle circularity.
(let ((action (make-action operation component))) (let ((action (make-action operation component)))
(unless (gethash action (visited-actions *asdf-session*)) (unless (nth-value 1 (gethash action (visited-actions *asdf-session*)))
(setf (gethash action (visited-actions *asdf-session*)) t) (setf (gethash action (visited-actions *asdf-session*)) nil)
(when (and (typep component (plan-component-type plan)) (when (and (typep component (plan-component-type plan))
(not (action-forced-not-p (forcing plan) operation component))) (not (action-forced-not-p (forcing plan) operation component)))
(map-direct-dependencies operation component (map-direct-dependencies operation component
......
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