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)