1 (in-package :common-lisp-user)
3 (defparameter *gsharp-directory* (directory-namestring *load-truename*))
5 (defmacro gsharp-defsystem ((module &key depends-on) &rest components)
9 :source-pathname *gsharp-directory*
10 ,@(and depends-on `(:depends-on ,depends-on))
11 :components (:serial ,@components))
13 (asdf:defsystem ,module
14 ,@(and depends-on `(:depends-on ,depends-on))
16 :components (,@(loop for c in components
17 for p = (merge-pathnames
19 (make-pathname :type "lisp"
20 :defaults *gsharp-directory*))
21 collect `(:file ,(pathname-name p) :pathname ,p))))))
23 (gsharp-defsystem (:gsharp :depends-on (:mcclim :clim-listener :flexichain :midi :puri :cxml))
46 #+sbcl "Mxml/commands")