Add validation code.

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

diff --git a/lisp-on-lines.asd b/lisp-on-lines.asd
index 4e98728..04a4d55 100644 (file)
--- a/lisp-on-lines.asd
+++ b/lisp-on-lines.asd
@@ -3,14 +3,14 @@
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (unless (find-package :coop.tech.systems)
     (defpackage :coop.tech.systems
-      (:documentation "ASDF System package for meta-model.")
+      (:documentation "ASDF System package for Lisp On Lines")
       (:use :common-lisp :asdf))))
 
 (in-package :coop.tech.systems)
 
 (defsystem :lisp-on-lines
   :license 
-"Copyright (c) 2004-2007 Drew Crampsie
+  "Copyright (c) 2004-2007 Drew Crampsie
 
 Contains portions of ContextL: 
 Copyright (c) 2005 - 2007 Pascal Costanza
@@ -38,53 +38,61 @@ OTHER DEALINGS IN THE SOFTWARE."
   :components ((:static-file "lisp-on-lines.asd")
               
               (:module :src
-                       :components ((:file "packages")
+                       :components ((:file "contextl-hacks")
+
+                                    (:file "packages")
+                                    
+
                                     (:file "utilities")
+                                    
                                     (:file "display")
                                     
-                                    (:file "attributes")
-
+                                    (:file "attribute")
+                                   
                                     (:file "description-class")
                                     (:file "description")
+
+
+
+                                   (:module :standard-descriptions
+                                             :components ((:file "t")
+                                                          (:file "inline")
+                                                          (:file "edit")
+                                                          (:file "symbol")
+                                                          (:file "list")
+                                                          (:file "null")
+                                                          (:file "clos")
+                                                          (:file "validate")
+                                                          )
+                                                          
+                                             :serial t))
                                     
+                                    :serial t))
+  :serial t
+  :depends-on (:contextl :arnesi :alexandria :parse-number :yaclml :trivial-garbage
+ ))
+
 
+(defsystem :lisp-on-lines.test
+  :components ((:module :src
+                       :components ((:file "packages-test")
                                     (:file "description-test")
                                     (:file "attribute-test")
-#|                                  (:file "mewa")
-                                    (: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 :displays
-                                             :components ((:file "inspector"))
-                                             
-                                                          :serial t)
-                                    (:module :validation
-                                             :components
-                                             ((:file "validation")
-                                              (:file "standard-validation")
-                                              (:file "email-address"))
-                                             :serial t)|#
-                                    )
-                       :serial t))
+                                    (:file "display-test")
+                                    (:module :standard-descriptions
+                                     :components ((:file "edit-test"))
+                                     :serial t)
+                                    (:module :ucw
+                                     :components ((:file "ucw-test"))
+                                     :serial t))
+                       :serial t)
+              (:module :tests
+                       :components ((:module :bug
+                                             :components ((:file "0"))))))
   :serial t
-  :depends-on (:contextl
-              :stefil
-              :arnesi ;:ucw :stefil :meta-model :split-sequence  :cl-ppcre :cl-fad
-              ))
 
-(defsystem :lisp-on-lines.example
-    :components (
-                (:file "reddit-example"))
 
-    :depends-on (:lisp-on-lines))
+  :depends-on (:lisp-on-lines :lisp-on-lines-ucw :stefil))
+
+
+