r5242: *** empty log message ***

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

diff --git a/impl-clisp.lisp b/impl-clisp.lisp
deleted file mode 100644 (file)
index d6ba39c..0000000
--- a/impl-clisp.lisp
+++ /dev/null
@@ -1,18 +0,0 @@
-;;; -*- Mode:Lisp; Syntax:Common-lisp; Package: modlisp; Base:10 -*-
-
-(in-package #:modlisp)
-
-(defun make-socket-server (name port function &key wait (format :text))
-  (declare (ignore name))
-  (let ((passive-socket (ext:socket-server port)))
-    (values (start-socket-server passive-socket function :wait wait)
-           passive-socket)))
-
-(defun start-socket-server (passive-socket function &key wait)
-  (unwind-protect
-       (loop
-       (let ((connection (ext:socket-accept passive-socket)))
-         (unwind-protect
-              (apache-command-issuer connection function)
-           (ignore-errors (close connection)))))
-    (ignore-errors (close passive-socket))))