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 listener
   9                              &key wait (format :text) function-args)
  10     (setq *processor* function)
  11     (values
  12      (comm:start-up-server
  13       :service port
  14       :process-name name
  15       :function 'socket-worker)
  16      nil))
  17
  18   (defun socket-worker (socket)
  19     (let ((stream (make-instance 'comm:socket-stream :socket socket
  20                                  :direction :io
  21                                  :element-type 'base-char)))
  22       (mp:process-run-function
  23      (next-worker-name) '()
  24      'apache-command-issuer stream *processor*))))