;;;;
;;;; This file and Wol are Copyright (c) 2001-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
;;;;
;;;; This file and Wol are Copyright (c) 2001-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
(defun wol-ml-processor (command)
"Processes an incoming modlisp command"
(let* ((req (command->request command
(defun wol-ml-processor (command)
"Processes an incoming modlisp command"
(let* ((req (command->request command
(let ((proj (entity-project ent)))
(if (is-index-request req ent)
(redirect-entity (project-index proj) req ent)
(let ((proj (entity-project ent)))
(if (is-index-request req ent)
(redirect-entity (project-index proj) req ent)
(when (and (eq (project-server project)
(or (request-aserve-server req)
(request-ml-server req)))
(when (and (eq (project-server project)
(or (request-aserve-server req)
(request-ml-server req)))
&body body)
`(if (request-aserve-server ,req)
(net.aserve:with-http-response
((aserve-request ,req)
(entity-aserve-entity ,ent)
:content-type (ml::format-string ,format)
&body body)
`(if (request-aserve-server ,req)
(net.aserve:with-http-response
((aserve-request ,req)
(entity-aserve-entity ,ent)
:content-type (ml::format-string ,format)