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
Loading
Loading
Loading
Loading
+1 −21
Original line number Diff line number Diff line
@@ -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)