From d1f7aa37b971b8122fce4ee4e43c46b71d4c28b0 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <>
Date: Mon, 6 Aug 2001 01:10:13 +0000
Subject: [PATCH] add minimal (and probably also insufficient) set of
 :in-order-to args to see if the dependency chasing actually works

---
 systems/db-sockets.system | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/systems/db-sockets.system b/systems/db-sockets.system
index c5f96bd0..35f77a05 100644
--- a/systems/db-sockets.system
+++ b/systems/db-sockets.system
@@ -90,7 +90,8 @@
 
 (defsystem db-sockets
     :source-pathname #p"cl-library:db-sockets;"
-    :components ((:file "defpackage"); :depends-on ("rt"))               
+    :components ((:file "defpackage"
+			:in-order-to ((compile-system (load-system "def-to-lisp"))))
 		 (:file "split" :depends-on ("defpackage"))
 		 (:unix-dso "alien"
 			    :components ((:file "undefs.c")
@@ -99,9 +100,15 @@
 		 (:file "foreign-glue" :depends-on ("defpackage" "malloc"))
 		 (:constants-file "constants"
 				  :pathname "constants.lisp"
-				  :depends-on
-				  ("defpackage" "foreign-glue" "def-to-lisp"))
-		 (:file "sockets" :depends-on ("constants" ))
+				  :in-order-to
+				  ((compile-system
+				    (load-system "def-to-lisp"
+						 "defpackage"
+						 "foreign-glue"))))
+		 (:file "sockets"
+			:in-order-to ((compile-system
+				       (load-system "malloc" "split"))))
+		 
 		 (:file "sockopt" :depends-on ("sockets"))
 		 (:file "inet" :depends-on ("sockets" "split"  "constants" ))
 		 (:file "unix" :depends-on ("sockets" "split" "constants" ))
-- 
GitLab