Drastic reworking of MEWA code using contextL. also declaimed for space, as this...

[clinton/lisp-on-lines.git] / lisp-on-lines.asd

diff --git a/lisp-on-lines.asd b/lisp-on-lines.asd
dissimilarity index 66%
index e4daa46..c38a9da 100644 (file)
--- a/lisp-on-lines.asd
+++ b/lisp-on-lines.asd
@@ -1,35 +1,27 @@
-;;; -*- 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 :mewa
-  :components ((:module :src 
-               :pathname "src/mewa/"
-               :components 
-               ((:file "packages")
-                (:file "static-presentations")
-                (:file "mewa")
-                (:file "presentations" )
-                (:file "slot-presentations"))
-               :serial t))
-  :depends-on (:ucw :meta-model))
-         
-(defsystem :lisp-on-lines
-  :components ((:static-file "lisp-on-lines.asd")
-              (:module :src
-                       :components ((:file "packages")
-                                    (:file "lisp-on-lines"))
-                       :serial t)
-                       
-              (:module :components
-               :pathname "src/components/"
-                :components ((:file "range-list")
-                            (:file "ajax"))))
-: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))