From a890540a429a0707b9f446c2fb6e723abf5446a7 Mon Sep 17 00:00:00 2001
From: "Pierre R. Mai" <pmai@pmsf.de>
Date: Fri, 14 Apr 2000 00:07:13 +0000
Subject: [PATCH] Added a version of the simple CMUCL driver that uses
 SERVE-EVENT, for all versions of CMUCL that don't provide multi-processing
 support, like on all non-x86 platforms.  Tested on an UltraSparc running
 Solaris 2.7 (hawk) and a mid-1999 version of CMUCL 18b+.

---
 CLASH.system | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/CLASH.system b/CLASH.system
index dbcb6bc..c6f75f1 100644
--- a/CLASH.system
+++ b/CLASH.system
@@ -14,15 +14,6 @@
 ;;;; 
 ;;;; 
 
-#+NIL
-(defsystem "CLASH-SYS"
-    :source-pathname "src/sys"
-    :source-extension "cl"
-    :components
-    ((:file "package")
-     (:file "mp" :depends-on ("package"))
-     (:file "socket" :depends-on ("package"))))
-
 (defsystem "CLASH"
     :source-pathname #.(merge-pathnames
 			"src/"
@@ -63,5 +54,8 @@
 	      :depends-on ("base"))
      (:module "driver"
 	      :source-pathname "drivers"
-	      :components (#+CMU (:file "simple-cmu"))
+	      :components (#+(and :CMU :MP (not :CLASH-EVENT))
+	                   (:file "simple-cmu")
+	                   #+(or :CLASH-EVENT (and :CMU (not :MP)))
+			   (:file "event-cmu"))
 	      :depends-on ("base" "main"))))