;;; -*- 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" :components ("clarity-package" (:system "cl-data-files") "decimal-number" (:file "database-functions" :depends-on ("clarity-package")) "alignment-functions" ) ) #+sysdeps (mk:defsystem "CLARITY" :components ((:subsystem "clarity-gui" :source-pathname "gui/") "decimal-number" "database-functions" "alignment-functions" "cl-data-files" "clarity-package") :depends-on ("CL-DATA-FILES")) ;;; end of file -- clarity.system --