;;; -*- Lisp -*-

;;; test asdf:try-recompiling restart

(load "script-support.lisp")

(load-asdf)

(defvar *caught-error* nil)

(with-test ()

 (asdf::delete-file-if-exists (compile-file-pathname "try-recompiling-1"))

 #-gcl

 (handler-bind ((error (lambda (c)

                         (setf *caught-error* t)
                         (multiple-value-bind (name mode)
                             (find-symbol
                              (symbol-name 'try-recompiling)
                              :asdf)
                           (assert (eq mode :external))
                           (let ((restart (find-restart name c)))
                             #+(or)
                             ;; debug
                             (print (list c restart (compute-restarts c)))
                             (when restart
                               (invoke-restart restart)))))))

   (oos 'load-op 'try-recompiling-1))

 #-gcl