[Portableaserve-cvslog] CVS: portableaserve/aserve example.cl,1.2,1.3

[Stig E S. <st...@us...>]

Update of /cvsroot/portableaserve/portableaserve/aserve
In directory usw-pr-cvs1:/tmp/cvs-serv14004

Modified Files:
	example.cl 
Log Message:
added thread-hack from INSTALL.lisp to START-SERVER.. will make a cleaner debian-package

Index: example.cl
===================================================================
RCS file: /cvsroot/portableaserve/portableaserve/aserve/example.cl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- example.cl	2001/08/31 01:18:36	1.2
+++ example.cl	2001/10/13 10:59:07	1.3
@@ -540,6 +540,14 @@
 
 (defun start-server (&key (port 80) (ssl nil))
 	(declare (ignore ssl))
+  ;; Stig: Added this here to make things work for debian-packages
+  ;;       it should not alter anything if this was done in INSTALL.lisp 
+  #+cmu
+  (unless (find-if
+	   #'(lambda (proc) (string= (mp:process-name proc) "Top Level Loop"))
+	   (mp:all-processes))
+    (mp::startup-idle-and-top-level-loops))
+  
 	(mp:process-run-function "aserve-example" nil
 		#'(lambda ()
 			(start :server *wserver*