;;; -*- Mode: Lisp -*-


;;; Setting up the logical pathname.

(eval-when (:load-toplevel :execute)
  (setf (logical-pathname-translations "CLARITY")
        `(("*.*" ,(make-pathname :name :wild :type :wild
                                 :defaults *load-pathname*))
          ("*.*.*" ,(make-pathname :name :wild :type :wild :version :wild
                                   :defaults *load-pathname*))
          ("**;*.*" ,(merge-pathnames
                      (make-pathname :directory '(:relative :wild-inferiors)
                                     :name :wild
                                     :type :wild
                                     :version :wild)
                      *load-pathname*
                      ))
          ("**;*.*.*" ,(merge-pathnames
                        (make-pathname :directory '(:relative :wild-inferiors)
                                       :name :wild
                                       :type :wild
                                       :version :wild
                                       :version :wild)
                        *load-pathname*
                        ))
          )))



;;; Adding registry locations.

#|(eval-when (:load-toplevel :execute)
  (mk:add-registry-location
   (merge-pathnames (pathname "gui/")
                    (make-pathname :name nil :type nil
                                   :defaults *load-pathname*)))

  (mk:add-registry-location (translate-logical-pathname "CLARITY:")))|#


(mk:defsystem "CLARITY-GUI"
  :components ("clarity-gui-package"
               "insert-data-interface"
               "clarity-interface"
               "clarity-interface-functions"
               "start-gui"
               "clarity-database-setup-interface"
               )
  )

;;; end of file -- clarity-gui.system --