impl-lispworks.lisp

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