From cf03b47c57b039bc868f624ea907e3829d0373da Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Tue, 23 Mar 2010 11:27:00 -0400
Subject: [PATCH] 1.661: remove buggy and redundant method
 perform-with-restarts for compile-op. Should hopefully fix Bug 545027.

---
 asdf.lisp | 22 +---------------------
 1 file changed, 1 insertion(+), 21 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index bf557d47..05bbf976 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -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)
 
-- 
GitLab