X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=inline;f=demo.lisp;h=d91d1e3a3d5bedf84d5e40d2fb16695ea4f0a223;hb=2933630d7648c934c8f835a89e6ed774eaa4fbd5;hp=c9e7e0f9125a67e69c4060758a4ee24558af3225;hpb=cb60460c044d8e4c1270b30acd43853ef4ef8f94;p=cl-modlisp.git diff --git a/demo.lisp b/demo.lisp index c9e7e0f..d91d1e3 100644 --- a/demo.lisp +++ b/demo.lisp @@ -7,37 +7,37 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Dec 2002 ;;;; -;;;; $Id: demo.lisp,v 1.2 2003/07/08 06:40:00 kevin Exp $ +;;;; $Id$ ;;;; ************************************************************************* (in-package #:modlisp) -(defun demo-apache-command-processor (command) - "Sample function to process an apache command" - (let ((url (header-value command "url"))) +(defun demo-modlisp-command-processor (command) + "Sample function to process an modlisp command" + (let ((url (header-value command :url))) (cond ((equal url "/fixed.lsp") (output-html-page (fixed-html-string))) ((equal url "/precompute.lsp") (with-ml-page (:precompute t) - (write-precomputed-page))) + (write-precomputed-page))) (t (with-ml-page (:precompute nil) - (write-debug-table command)))))) + (write-debug-table command)))))) (defun write-debug-table (command) (write-string "
-Key | Value |
---|---|
~a | ~a |