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


;;; The only sensible thing to do with this size of a program is to put it in
;;; its own package, to avoid a hyperzillion name conflicts.

(defpackage :yaq
  (:use :common-lisp))


(in-package :yaq)



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

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