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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by ihatchondo, Mon Jan 12 11:10:52 2004 UTC revision 1.2 by ihatchondo, Mon Mar 1 14:54:04 2004 UTC
# Line 1  Line 1 
1  (common-lisp:in-package :common-lisp-user)  (common-lisp:in-package :common-lisp-user)
2    
3  #+mk-defsystem (use-package "MK")  (defvar *sm-lib-src-directory* (directory-namestring *load-truename*))
4    
5  (defsystem :sm-lib #-mk-defsystem ()  (macrolet
6    #+mk-defsystem :source-pathname (directory-namestring *load-truename*)      ((sm-lib-defsystem ((module &key depends-on) &rest components)
7    #+mk-defsystem :source-extension "lisp"         `(progn
8    #+mk-defsystem :depends-on (:ice-lib)           #+mk-defsystem
9    :components           (mk:defsystem ,module
10    (:serial               :source-pathname *sm-lib-src-directory*
11     #-mk-defsystem :ice-lib               :source-extension "lisp"
12     "package.lisp"               ,@(and depends-on `(:depends-on ,depends-on))
13     "sm.lisp"))               :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"))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5