/[eclipse]/eclipse/lib/sm/system.lisp
ViewVC logotype

Contents of /eclipse/lib/sm/system.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Mon Mar 1 14:54:04 2004 UTC (10 years, 1 month ago) by ihatchondo
Branch: MAIN
Changes since 1.1: +24 -10 lines
- system def and packages updated.
- fix theme defualt value for title bar position.
- minor hack for frame edges.
1 (common-lisp:in-package :common-lisp-user)
2
3 (defvar *sm-lib-src-directory* (directory-namestring *load-truename*))
4
5 (macrolet
6 ((sm-lib-defsystem ((module &key depends-on) &rest components)
7 `(progn
8 #+mk-defsystem
9 (mk:defsystem ,module
10 :source-pathname *sm-lib-src-directory*
11 :source-extension "lisp"
12 ,@(and depends-on `(:depends-on ,depends-on))
13 :components (:serial ,@components))
14 #+asdf
15 (asdf:defsystem ,module
16 ,@(and depends-on `(:depends-on ,depends-on))
17 :serial t
18 :components
19 (,@(loop for c in components
20 for p = (merge-pathnames
21 (parse-namestring c)
22 (make-pathname
23 :type "lisp"
24 :defaults *sm-lib-src-directory*))
25 collect `(:file ,(pathname-name p) :pathname ,p)))))))
26 (sm-lib-defsystem (:sm-lib :depends-on (:ice-lib))
27 "package.lisp" "sm.lisp"))

  ViewVC Help
Powered by ViewVC 1.1.5