r5254: Auto commit for Debian build

[cl-modlisp.git] / impl-lispworks.lisp

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*))))