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