X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=impl-lispworks.lisp;fp=impl-lispworks.lisp;h=0000000000000000000000000000000000000000;hb=a4aca48b40116aa221beefeb849bd8a9e7f14fcf;hp=90c62ad9586b081e5951b59c8b8e7f17e567bfb0;hpb=be22beac4a99bf6f426c34fbd29b5820e7c57e40;p=cl-modlisp.git

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