From a4aca48b40116aa221beefeb849bd8a9e7f14fcf Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 8 Jul 2003 12:12:24 +0000 Subject: [PATCH] r5254: Auto commit for Debian build --- README | 4 +++- debian/changelog | 4 ++-- impl-lispworks.lisp | 24 ------------------------ 3 files changed, 5 insertions(+), 27 deletions(-) delete mode 100644 impl-lispworks.lisp diff --git a/README b/README index 2615687..afe3b15 100644 --- 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 2b8792c..ccfe6e2 100644 --- 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 Sat, 5 Jul 2003 19:58:31 -0600 + -- Kevin M. Rosenberg 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 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*)))) -- 2.34.1