;;; Aux function to load the YAQ and catch errors.
;;; Antti J Ylikoski 12-27-2010.




(handler-case
    (progn
      (load "c:\\yaq83\\yaq83.lsp")
      (print 'loaded))
  (condition (con) (recover con)))

(defun recover (conditio)
  (format t "Tapahtunut virhe: ~S" conditio))