[Portableaserve-cvslog] CVS: portableaserve/aserve defsys.cl,1.2,1.3 publish.cl,1.4,1.5

[Jochen S. <neo...@us...>]

Update of /cvsroot/portableaserve/portableaserve/aserve
In directory usw-pr-cvs1:/tmp/cvs-serv9378/aserve

Modified Files:
	defsys.cl publish.cl 
Log Message:
- Use Dimitris' dependency enhancements for the defsystems
- fixed nil clause in case statement to (nil)


Index: defsys.cl
===================================================================
RCS file: /cvsroot/portableaserve/portableaserve/aserve/defsys.cl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- defsys.cl	9 Aug 2001 08:27:35 -0000	1.2
+++ defsys.cl	20 Jun 2002 06:39:44 -0000	1.3
@@ -19,30 +19,59 @@
    ((:in-order-to :compile "macs"
 		  (:caused-by (:compile "htmlgen"))
 		  (:requires (:load "htmlgen")))
+   (:in-order-to :load "macs"
+    (:requires (:load "htmlgen")))
+   
     (:in-order-to :compile "main"
 		  (:caused-by (:compile "macs"))
 		  (:requires (:load "macs")))
+   (:in-order-to :load "main"
+    (:requires (:load "macs")))
+   
     (:in-order-to :compile "headers"
 		  (:caused-by (:compile "main"))
 		  (:requires (:load "main")))
+   (:in-order-to :load "headers"
+    (:requires (:load "main")))
+   
     (:in-order-to :compile "parse"
 		  (:caused-by (:compile "headers"))
 		  (:requires (:load "headers")))
+   (:in-order-to :load "parse"
+    (:requires (:load "headers")))
+   
     (:in-order-to :compile "decode"
 		  (:caused-by (:compile "parse"))
 		  (:requires (:load "parse")))
+   (:in-order-to :load "decode"
+    (:requires (:load "parse")))
+   
     (:in-order-to :compile "publish"
 		  (:caused-by (:compile "decode"))
 		  (:requires (:load "decode")))
+   (:in-order-to :load "publish"
+    (:requires (:load "decode")))
+   
     (:in-order-to :compile "authorize"
 		  (:caused-by (:compile "publish"))
 		  (:requires (:load "publish")))
+   (:in-order-to :load "authorize"
+    (:requires (:load "publish")))
+   
     (:in-order-to :compile "log"
 		  (:caused-by (:compile "authorize"))
 		  (:requires (:load "authorize")))
+   (:in-order-to :load "log"
+    (:requires (:load "authorize")))
+   
     (:in-order-to :compile "client"
 		  (:caused-by (:compile "log"))
 		  (:requires (:load "log")))
+   (:in-order-to :load "client"
+    (:requires (:load "log")))
+   
     (:in-order-to :compile "proxy"
 		  (:caused-by (:compile "client"))
+    (:requires (:load "client")))
+   (:in-order-to :load "proxy"
 		  (:requires (:load "client")))))

Index: publish.cl
===================================================================
RCS file: /cvsroot/portableaserve/portableaserve/aserve/publish.cl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -r1.4 -r1.5
--- publish.cl	9 Jun 2002 11:35:00 -0000	1.4
+++ publish.cl	20 Jun 2002 06:39:44 -0000	1.5
@@ -1713,7 +1713,7 @@
 						 (getf (cdr inf) :deny))))
 	      (case new-state
 		(:allow (setq state :allow))
-		(nil ; state unchanged
+		((nil) ; state unchanged
 		 )
 		(:deny (return-from check-allow-deny-info :deny)))))))