Commit 22865e39 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Simplify operation-forced

Don't use operation-original-initargs in operation-forced.
operation-original-initargs is deprecated, and so is operation-forced.
The only, misguided, user of operation-forced is swank.asd,
which conditionally loads the code only if the operation is forced;
but the perform method that does the check will only be called twice
if the operation is forced, anyway, so the correct answer is T.
(And the first time around, it's OK to return T, too.)
parent 84c22e22
......@@ -52,9 +52,7 @@
;; More generally, if you have to do something when the operation was forced,
;; you should also do it when not, and vice-versa, because it really shouldn't matter.
;; Thus, the backward-compatible thing to do is to always return T.
;;
;; TODO: change this function to a defun that always returns T.
(defmethod operation-forced ((o operation)) (getf (operation-original-initargs o) :force))
(defmethod operation-forced ((o operation)) t)
;; These old interfaces from ASDF1 have never been very meaningful
......
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