X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=demo.lisp;h=cbe5fa61d78dc54fa531aac1aefb6700557db7ba;hb=60356236f307eaa884ad20f05a7ae813cbaff062;hp=87c0aac00a473e58d67ce4d3e6afed2d144e1785;hpb=89ac090253571f870a5afd45559d7aa28ba1b152;p=cl-modlisp.git diff --git a/demo.lisp b/demo.lisp index 87c0aac..cbe5fa6 100644 --- a/demo.lisp +++ b/demo.lisp @@ -7,14 +7,14 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Dec 2002 ;;;; -;;;; $Id: demo.lisp,v 1.1 2003/07/05 00:59:49 kevin Exp $ +;;;; $Id: demo.lisp,v 1.3 2003/07/10 18:58:29 kevin Exp $ ;;;; ************************************************************************* (in-package #:modlisp) -(defun demo-apache-command-processor (command) - "Sample function to process an apache command" +(defun demo-modlisp-command-processor (command) + "Sample function to process an modlisp command" (let ((url (header-value command "url"))) (cond ((equal url "/fixed.lsp") @@ -30,14 +30,14 @@ (write-string "
-Key | Value |
---|---|
~a | ~a |