/[clarity]/clarity.system
ViewVC logotype

Contents of /clarity.system

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (hide annotations)
Wed Aug 16 20:18:39 2006 UTC (7 years, 8 months ago) by skleinberg
File size: 2144 byte(s)
Initial import
1 skleinberg 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