[cclan-list] added a recompile restart to ASDF

[Gary K. <gw...@me...>]

This has been working for me... It adds a "try recompiling" restart to  
the load operation. Are there issues I'm missing or would this be a  
good thing to add...

(defmethod perform :around ((o load-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-load
	    (setf state :recompiled)
	    (perform (make-instance 'asdf:compile-op) c))
	   (t
	    (with-simple-restart
		(:try-recompiling "Recompile ~a and try loading it again"
				  (component-name c))
	      (setf state :failed-load)
	      (call-next-method)
	      (setf state :success)))))))


--
Gary Warren King, metabang.com
Cell: (413) 559 8738
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM