X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=demo.lisp;h=d91d1e3a3d5bedf84d5e40d2fb16695ea4f0a223;hb=020591a159bfb3b732b857b20de5be2b3ad17057;hp=cbe5fa61d78dc54fa531aac1aefb6700557db7ba;hpb=fa641fe08adb5cede535a6dd79a79047c78ecf8a;p=cl-modlisp.git
diff --git a/demo.lisp b/demo.lisp
index cbe5fa6..d91d1e3 100644
--- a/demo.lisp
+++ b/demo.lisp
@@ -7,7 +7,7 @@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
-;;;; $Id: demo.lisp,v 1.3 2003/07/10 18:58:29 kevin Exp $
+;;;; $Id$
;;;; *************************************************************************
(in-package #:modlisp)
@@ -15,16 +15,16 @@
(defun demo-modlisp-command-processor (command)
"Sample function to process an modlisp command"
- (let ((url (header-value command "url")))
+ (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 "
@@ -36,7 +36,7 @@
Key Value