impl-lispworks.lisp

   1 ;;; -*- Mode:Lisp; Syntax:Common-lisp; Package: modlisp; Base:10 -*-
   2
   3 (in-package #:modlisp)
   4
   5 (require "comm")
   6
   7 (defun make-socket-server (name port function &key wait (format :text))
   8   (comm:start-up-server
   9    :function (lambda (handle)
  10                (let ((stream (make-instance 'comm:socket-stream :socket handle
  11                                             :direction :io
  12                                             :element-type 'base-char)))
  13                  (mp:process-run-function
  14                   (next-worker-name) '()
  15                   'apache-command-issuer stream function)))
  16    :service port :process-name name))