diff --git a/asdf.lisp b/asdf.lisp
index bf557d475ace33178519e5ea4eb21b9d753e41ac..05bbf9767129ebd5237f28cb0fceb4bab6194c7a 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)