;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
-;;;; $Id: demo.lisp,v 1.3 2003/07/10 18:58:29 kevin Exp $
+;;;; $Id: demo.lisp,v 1.4 2003/07/16 20:40:43 kevin Exp $
;;;; *************************************************************************
(in-package #:modlisp)
(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)))