/[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.2 by ihatchondo, Mon Mar 1 14:54:04 2004 UTC revision 1.3 by ihatchondo, Tue Mar 16 18:20:36 2004 UTC
# Line 2  Line 2 
2    
3  (defvar *sm-lib-src-directory* (directory-namestring *load-truename*))  (defvar *sm-lib-src-directory* (directory-namestring *load-truename*))
4    
5    (defpackage :sm-lib-system (:use :common-lisp #+:asdf :asdf))
6    (in-package :sm-lib-system)
7    
8    #+:asdf (defclass sm-lib-source-file (ice-lib-system::ice-lib-source-file) ())
9    
10  (macrolet  (macrolet
11      ((sm-lib-defsystem ((module &key depends-on) &rest components)      ((sm-lib-defsystem ((module &key depends-on) &rest components)
12         `(progn         `(progn
13           #+mk-defsystem           #+mk-defsystem
14           (mk:defsystem ,module           (mk:defsystem ,module
15               :source-pathname *sm-lib-src-directory*               :source-pathname cl-user::*sm-lib-src-directory*
16               :source-extension "lisp"               :source-extension "lisp"
17               ,@(and depends-on `(:depends-on ,depends-on))               ,@(and depends-on `(:depends-on ,depends-on))
18               :components (:serial ,@components))               :components (:serial ,@components))
# Line 15  Line 20 
20           (asdf:defsystem ,module           (asdf:defsystem ,module
21               ,@(and depends-on `(:depends-on ,depends-on))               ,@(and depends-on `(:depends-on ,depends-on))
22               :serial t               :serial t
23                 :default-component-class sm-lib-source-file
24               :components               :components
25               (,@(loop for c in components               (,@(loop for c in components
26                        for p = (merge-pathnames                        for p = (merge-pathnames
27                                 (parse-namestring c)                                 (parse-namestring c)
28                                 (make-pathname                                 (make-pathname
29                                  :type "lisp"                                  :type "lisp"
30                                  :defaults *sm-lib-src-directory*))                                  :defaults cl-user::*sm-lib-src-directory*))
31                        collect `(:file ,(pathname-name p) :pathname ,p)))))))                        collect `(:file ,(pathname-name p) :pathname ,p)))))))
32    
33    (sm-lib-defsystem (:sm-lib :depends-on (:ice-lib))    (sm-lib-defsystem (:sm-lib :depends-on (:ice-lib))
34      "package.lisp" "sm.lisp"))      "package.lisp"
35        "sm.lisp"))

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

  ViewVC Help
Powered by ViewVC 1.1.5