r5254: Auto commit for Debian build

diff --git a/README b/README
index 26156878bb289876bc46ccc05c4319751cf7b11d..afe3b15060448547856db33e130f61e530197b8c 100644 (file)
--- a/README
+++ b/README
@@ -2,7 +2,9 @@ This package provided the Lisp side of the interface to Marc
 Battyani's mod_lisp apache module (http://www.fractalconcept.com).
 
 It has robust support for multiprocessing and for keeping track
-of worker processes to allow for cleaning shutting down the server.
+of worker processes allow for cleaning shutting down the server
+and all associated proceses and sockets.
+
 
 
 

diff --git a/debian/changelog b/debian/changelog
index 2b8792c98eb3ad55570b2bb2d076a12e6f8c7e50..ccfe6e2fb0dd5214012b4a1ff5fc377c9a9ecbe4 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,8 +1,8 @@
 cl-modlisp (0.2-1) unstable; urgency=low
 
-  * New version
+  * New upstream version
 
- -- Kevin M. Rosenberg <kmr@debian.org>  Sat,  5 Jul 2003 19:58:31 -0600
+ -- Kevin M. Rosenberg <kmr@debian.org>  Tue,  8 Jul 2003 06:11:56 -0600
 
 cl-modlisp (0.1-1) unstable; urgency=low
 

diff --git a/impl-lispworks.lisp b/impl-lispworks.lisp
deleted file mode 100644 (file)
index 90c62ad..0000000
--- a/impl-lispworks.lisp
+++ /dev/null
@@ -1,24 +0,0 @@
-;;; -*- Mode:Lisp; Syntax:Common-lisp; Package: modlisp; Base:10 -*-
-
-(in-package #:modlisp)
-
-(defvar *processor*)
-(let ((*processor* nil))
-  
-  (defun make-socket-server (name function port listener
-                            &key wait (format :text) function-args)
-    (setq *processor* function)
-    (values
-     (comm:start-up-server
-      :service port
-      :process-name name
-      :function 'socket-worker)
-     nil))
-
-  (defun socket-worker (socket)
-    (let ((stream (make-instance 'comm:socket-stream :socket socket
-                                :direction :io
-                                :element-type 'base-char)))
-      (mp:process-run-function
-     (next-worker-name) '()
-     'apache-command-issuer stream *processor*))))