1 ;;; -*- Mode:Lisp; Syntax:Common-lisp; Package: modlisp; Base:10 -*-
6 (let ((*processor* nil))
8 (defun make-socket-server (name function port listener
9 &key wait (format :text) function-args)
10 (setq *processor* function)
15 :function 'socket-worker)
18 (defun socket-worker (socket)
19 (let ((stream (make-instance 'comm:socket-stream :socket socket
21 :element-type 'base-char)))
22 (mp:process-run-function
23 (next-worker-name) '()
24 'apache-command-issuer stream *processor*))))