From d7d90fbdb9b09d23c56cc3fa94cc27282005513b Mon Sep 17 00:00:00 2001
From: "Pierre R. Mai" <pmai@pmsf.de>
Date: Fri, 28 Jan 2000 07:22:31 +0000
Subject: [PATCH] Modified base path selection mechanism to support loading
 from non-working directories, added utility.cl and move around some
 dependencies to make implementation clearer.

---
 CLASH.system | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/CLASH.system b/CLASH.system
index 9db5fb6..dbcb6bc 100644
--- a/CLASH.system
+++ b/CLASH.system
@@ -24,16 +24,20 @@
      (:file "socket" :depends-on ("package"))))
 
 (defsystem "CLASH"
-    :source-pathname "src"
+    :source-pathname #.(merge-pathnames
+			"src/"
+			(make-pathname :name nil :type nil :version nil
+				       :defaults *load-truename*))
     :source-extension "cl"
     :components
     ((:module "base"
 	      :source-pathname ""
-	      :components ((:file "package")))
+	      :components ((:file "package")
+			   (:file "utility" :depends-on ("package"))))
      (:module "main"
 	      :source-pathname "main"
-	      :components ((:file "conditions")
-			   (:file "status-codes")
+	      :components ((:file "status-codes")
+			   (:file "conditions" :depends-on ("status-codes"))
 			   (:file "url"
 				  :depends-on ("conditions" "status-codes"))
 			   (:file "version"
@@ -43,14 +47,14 @@
 			   (:file "connection"
 				  :depends-on ("http-io"))
 			   (:file "method")
-			   (:file "namespace"
-				  :depends-on ("url"))
 			   (:file "messages"
 				  :depends-on ("url" "version"))
 			   (:file "entity"
 				  :depends-on ("http-io" "url"))
 			   (:file "resource"
 				  :depends-on ("entity" "method"))
+			   (:file "namespace"
+				  :depends-on ("url" "resource"))
 			   (:file "server"
 				  :depends-on ("namespace" "messages"
 							   "resource"))