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