;;; If a fasl was stale, try to recompile and load (once).
(defmethod asdf:perform :around ((o asdf:load-op)
								 (c asdf:cl-source-file))
  (handler-case (call-next-method o c)
	;; If a fasl was stale, try to recompile and load (once).
	(sb-ext:invalid-fasl ()
						 (asdf:perform (make-instance 'asdf:compile-op) c)
						 (call-next-method))))