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

1.661: remove buggy and redundant method perform-with-restarts for compile-op.

Should hopefully fix Bug 545027.
parent 3629f60a
No related branches found
Tags 1.661
No related merge requests found
......@@ -263,7 +263,7 @@
;; This parameter isn't actually user-visible
;; -- please use the exported function ASDF:ASDF-VERSION below.
;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
(subseq "VERSION:1.660" (1+ (length "VERSION"))))
(subseq "VERSION:1.661" (1+ (length "VERSION"))))
(defun asdf-version ()
"Exported interface to the version of ASDF currently installed. A string.
......@@ -1575,26 +1575,6 @@ recursive calls to traverse.")
(call-next-method)
(setf state :success)))))))
(defmethod perform-with-restarts ((o compile-op) (c cl-source-file))
(let ((state :initial))
(loop :until (or (eq state :success)
(eq state :failure)) :do
(case state
(:recompiled
(setf state :failure)
(call-next-method)
(setf state :success))
(:failed-compile
(setf state :recompiled)
(perform-with-restarts o c))
(t
(with-simple-restart
(try-recompiling "Try recompiling ~a"
(component-name c))
(setf state :failed-compile)
(call-next-method)
(setf state :success)))))))
(defmethod perform ((operation load-op) (c static-file))
nil)
......
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