fixed up display mechanism

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

diff --git a/lisp-on-lines.asd b/lisp-on-lines.asd
dissimilarity index 61%
index a5961c7..99b9a69 100644 (file)
--- a/lisp-on-lines.asd
+++ b/lisp-on-lines.asd
@@ -1,26 +1,46 @@
-;;; -*- 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 "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))
+;;; -*- 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")
+              (:module :patches                          
+                       :components ((:file "yaclml")
+                                    (:file "ucw")))
+              (:module :src
+                       :components ((:file "packages")
+                                    (:file "special-initargs")
+                                    (:file "properties")                                      
+                                    (:file "mewa")
+                                    (:file "validation")
+                                    (:file "lisp-on-lines")  
+                                    (:file "defdisplay")
+                                    (:file "standard-display")
+                                    (:file "standard-occurence")
+                                    (:file "standard-wrappers")
+                                    (:file "lines")
+                                    (:file "defdescription")
+                                    (:module :attributes
+                                             :components (
+                                                          (:file "standard-attributes")
+                                                          (:file "numbers")
+                                                          (:file "relational-attributes")
+                                                          (:file "dojo-attributes"))
+                                             :serial t)
+                                    (:module :components
+                                             :components ((:file "crud"))))
+                       :serial t))
+  :serial t
+  :depends-on (:arnesi :ucw :meta-model :split-sequence :contextl :cl-ppcre :cl-fad))
+
+(defsystem :lisp-on-lines.example
+    :components (
+                (:file "reddit-example"))
+
+    :depends-on (:lisp-on-lines))