/[clarity]/clarity.system
ViewVC logotype

Contents of /clarity.system

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (show annotations)
Wed Aug 16 20:18:39 2006 UTC (7 years, 8 months ago) by skleinberg
File size: 2144 byte(s)
Initial import
1 ;;; -*- Mode: Lisp -*-
2
3
4 ;;; Setting up the logical pathname.
5
6 (eval-when (:load-toplevel :execute)
7 (setf (logical-pathname-translations "CLARITY")
8 `(("*.*" ,(make-pathname :name :wild :type :wild
9 :defaults *load-pathname*))
10 ("*.*.*" ,(make-pathname :name :wild :type :wild :version :wild
11 :defaults *load-pathname*))
12 ("**;*.*" ,(merge-pathnames
13 (make-pathname :directory '(:relative :wild-inferiors)
14 :name :wild
15 :type :wild
16 :version :wild)
17 *load-pathname*
18 ))
19 ("**;*.*.*" ,(merge-pathnames
20 (make-pathname :directory '(:relative :wild-inferiors)
21 :name :wild
22 :type :wild
23 :version :wild
24 :version :wild)
25 *load-pathname*
26 ))
27 )))
28
29
30
31 ;;; Adding registry locations.
32
33 (eval-when (:load-toplevel :execute)
34 (mk:add-registry-location
35 (merge-pathnames (pathname "gui/")
36 (make-pathname :name nil :type nil
37 :defaults *load-pathname*)))
38
39 (mk:add-registry-location (translate-logical-pathname "CLARITY:")))
40
41
42 (mk:defsystem "CLARITY"
43 :components ("clarity-package"
44 (:system "cl-data-files")
45 "decimal-number"
46 (:file "database-functions" :depends-on ("clarity-package"))
47 "alignment-functions"
48 )
49 )
50
51
52 #+sysdeps
53 (mk:defsystem "CLARITY"
54 :components ((:subsystem "clarity-gui" :source-pathname "gui/")
55 "decimal-number"
56 "database-functions"
57 "alignment-functions"
58 "cl-data-files"
59 "clarity-package")
60 :depends-on ("CL-DATA-FILES"))
61
62 ;;; end of file -- clarity.system --

  ViewVC Help
Powered by ViewVC 1.1.5