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