/[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.3 - (show annotations)
Tue Mar 16 18:20:36 2004 UTC (10 years, 1 month ago) by ihatchondo
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +11 -3 lines
- system(s).lisp files now handles asdsf system description as well as
 mk-defsystem. Both system are created if both package present in the lisp
 environment.

- compile.lisp has been removed. Compilation/Load operations are defined in
 eclipse/system.lisp.

- added an asdf:operate :around overload for sbcl to avoid compilation warnings
 relatives to structured constant redefinition that break the compilation and
 drop the user into the debuger.

- six new configure options added:
   - --with-load-switch : to indicate the command line argument of the lisp
    machine for loading a file.

   - --with-eval-switch : to indicate the command line argument of the lisp
    machine for evaluating forms.

   - --with-core-switch : to indicate the command line argument of the lisp
    machine to start it with an alternative image.

   - --with-save-lisp   : to indicate the function name for saving a lisp image.
   - --with-quit-form   : to indicate a particular quit form.

   - --with-lisp-system : to indicate the name (the same as the one that is
    present in *features*) of the lisp system you want to use in case we know
    it (currently sbcl and cmu are known). Use this option if you have a lisp
    system we know but its executable is not named as expected (lisp for cmucl
    and sbcl for sbcl for instance).

README updated.

sbcl is now completly supported.
1 (common-lisp:in-package :common-lisp-user)
2
3 (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
11 ((sm-lib-defsystem ((module &key depends-on) &rest components)
12 `(progn
13 #+mk-defsystem
14 (mk:defsystem ,module
15 :source-pathname cl-user::*sm-lib-src-directory*
16 :source-extension "lisp"
17 ,@(and depends-on `(:depends-on ,depends-on))
18 :components (:serial ,@components))
19 #+asdf
20 (asdf:defsystem ,module
21 ,@(and depends-on `(:depends-on ,depends-on))
22 :serial t
23 :default-component-class sm-lib-source-file
24 :components
25 (,@(loop for c in components
26 for p = (merge-pathnames
27 (parse-namestring c)
28 (make-pathname
29 :type "lisp"
30 :defaults cl-user::*sm-lib-src-directory*))
31 collect `(:file ,(pathname-name p) :pathname ,p)))))))
32
33 (sm-lib-defsystem (:sm-lib :depends-on (:ice-lib))
34 "package.lisp"
35 "sm.lisp"))

  ViewVC Help
Powered by ViewVC 1.1.5