X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=modlisp.asd;h=790298f6cb0573e39e906e21dc4fb7d056b42bba;hb=a4aca48b40116aa221beefeb849bd8a9e7f14fcf;hp=88d51fbaa8aedc6dd5ccedfb471b783865c4129f;hpb=315ebc6354619483aa1be1124eb3736cee6f7ab7;p=cl-modlisp.git

diff --git a/modlisp.asd b/modlisp.asd
index 88d51fb..790298f 100644
--- a/modlisp.asd
+++ b/modlisp.asd
@@ -7,32 +7,35 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Dec 2002
 ;;;;
-;;;; $Id: modlisp.asd,v 1.3 2003/07/05 00:51:04 kevin Exp $
+;;;; $Id: modlisp.asd,v 1.7 2003/07/08 06:40:00 kevin Exp $
 ;;;; *************************************************************************
 
-(defpackage #:modlisp-system (:use #:cl #:asdf))
-(in-package #:modlisp-system)
+(in-package #:cl-user)
 
 #+(and sbcl (not sb-thread))
 (error "This package requires the multitasking version of sbcl")
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  #+sbcl (require :sb-bsd-sockets)
+  #+lispworks (require "comm")
+  #+allegro (require :socket))
+
+(defpackage #:modlisp-system (:use #:cl #:asdf))
+(in-package #:modlisp-system)
+
 #+(or allegro clisp cmu lispworks sbcl)
 (defsystem modlisp
-    :depends-on (#+sbcl :sb-bsd-sockets)
+    :depends-on (:kmrcl)
     :components
     ((:file "package")
+     (:file "compat" :depends-on ("package"))
      (:file "variables" :depends-on ("package"))
-     (:file #+allegro "impl-acl"
-	    #+clisp "impl-clisp"
-	    #+cmu "impl-cmucl"
-	    #+sbcl "impl-sbcl"
-	    #+lispworks "impl-lispworks"
-	    :depends-on ("variables"))
+     (:file #+(or allegro clisp cmu sbcl lispworks) "server"
+;;	    #+lispworks "impl-lispworks"
+	    :depends-on ("compat" "variables"))
      (:file "base"
-	    :depends-on (#+allegro "impl-acl"
-			 #+clisp "impl-clisp"
-			 #+cmu "impl-cmucl"
-			 #+lispworks "impl-lispworks"
-			 #+sbcl "impl-sbcl"))
+	    :depends-on (#+(or allegro clisp cmu sbcl lispworks) "server"
+;;			   #+lispworks "impl-lispworks"
+			   ))
      (:file "utils" :depends-on ("base"))
      (:file "demo" :depends-on ("utils"))))