ASDF enhancement

The following:

(in-package asdf)

(defmethod perform :around ((o load-op) (c cl-source-file))
   (restart-case
     (call-next-method)
     (recompile ()
                :report
                (lambda (s)
                  (format s "~@<Recompile ~S.~@:>" c))
                (perform (make-instance 'compile-op) c))))

Adds a handy recompile restart for when a load fails for some reason  
(e.g, wrong FASL's).

Thoughts?
-- 
Gary Warren King
metabang.com
http://www.metabang.com/