From e9de36a94935ac203b8e7b210b1a4d66c3b9315e Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sat, 30 Jun 2018 21:38:43 +0100 Subject: [PATCH] dep.lisp (recompute-dep-value): Refactor the flag calculation. Not sure why I wrote it like that. --- dep.lisp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/dep.lisp b/dep.lisp index ecd1628..15f6e0b 100644 --- a/dep.lisp +++ b/dep.lisp @@ -189,15 +189,16 @@ We assume that DEP's dependencies are up-to-date already, and that DEP's +RECOMPUTING+ flag is set. In the former case, DEP's dependents and listeners are notified, using PROPAGATE-TO-DEPENDENTS." - (let ((winning nil) (queued (logand (dep-%flags dep) +queued+))) + (let ((winning nil) + (new-flags (logior (logand (dep-%flags dep) +queued+) + +value+ +deps+))) (flet ((update (value) (cond ((update-dep dep value) - (setf (dep-flags dep) (logior +value+ +deps+ +changed+ - queued)) + (setf (dep-flags dep) (logior new-flags +changed+)) (propagate-to-dependents dep) t) (t - (setf (dep-flags dep) (logior +value+ +deps+ queued)) + (setf (dep-flags dep) new-flags) nil)))) (unwind-protect (prog1 (update (new-dep-value dep)) (setf winning t)) -- 2.11.0