Drastic reworking of MEWA code using contextL. also declaimed for space, as this...
[clinton/lisp-on-lines.git] / lisp-on-lines.asd
dissimilarity index 84%
index 45cf603..c38a9da 100644 (file)
@@ -1,41 +1,27 @@
-;;; -*- lisp -*-
-
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (unless (find-package :coop.tech.lisp-on-lines.system)
-    (defpackage :coop.tech.lisp-on-lines.system
-      (:documentation "ASDF System package for meta-model.")
-      (:use :common-lisp :asdf))))
-
-(in-package :coop.tech.lisp-on-lines.system)
-
-(defsystem :meta-model
-  :components (
-               (:module :src
-                :components ((:file "packages")
-                             (:file "meta-model" :depends-on ("packages"))))
-              (:module :backend
-                :depends-on (:src)      
-               :pathname "src/backend/"
-               :components ((:file "clsql"))))
-  :depends-on (:clsql))
-
-;; this is no longer used
-(defsystem :meta-model-clsql
-  :components ()
-  :depends-on  (:meta-model :clsql))
-
-(defsystem :mewa
-  :components ((:module :src 
-               :pathname "src/mewa/"
-               :components 
-                 ((:file "mewa")
-                  (:file "presentations" :depends-on ("mewa"))
-                  (:file "slot-presentations" :depends-on ("presentations")))))
-  :depends-on (:ucw :meta-model))
-         
-(defsystem :lisp-on-lines
-  :components ((:static-file "lisp-on-lines.asd")
-              (:module :components
-               :pathname "src/components/"
-                :components ((:file "range-list"))))
-:depends-on (:meta-model :mewa))
+;;; -*- lisp -*-
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (unless (find-package :coop.tech.systems)
+    (defpackage :coop.tech.systems
+      (:documentation "ASDF System package for meta-model.")
+      (:use :common-lisp :asdf))))
+
+(in-package :coop.tech.systems)
+
+(defsystem :lisp-on-lines
+    :components ((:static-file "lisp-on-lines.asd")
+                (:file "src/packages")
+                (:module :src
+                         :components ((:file "static-presentations")
+                                      (:file "mewa")
+                                      (:file "validation")
+                                      (:file "lisp-on-lines")
+                                      (:file "presentations")
+                                      (:file "slot-presentations"))
+                         :serial t)
+                (:module :components
+                         :pathname "src/components/"
+                         :components ((:file "range-list")
+                                      (:file "ajax"))))
+    :serial t
+    :depends-on (:arnesi :ucw :meta-model :split-sequence :contextl))