X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=web-utils.lisp;h=4fe21b9ab7e99a5c7800e2e7b872c5ff15e0a0df;hb=30c2e8bd2c7043d845024395e19b3030d039eae2;hp=2854064398afdf87367a32638eb8a6c3eae13367;hpb=64ab2587ad0923623832012abd1b8b2cf5a11a84;p=kmrcl.git diff --git a/web-utils.lisp b/web-utils.lisp index 2854064..4fe21b9 100644 --- a/web-utils.lisp +++ b/web-utils.lisp @@ -7,12 +7,13 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: web-utils.lisp,v 1.3 2002/10/09 14:24:47 kevin Exp $ +;;;; $Id: web-utils.lisp,v 1.7 2002/10/16 23:34:33 kevin Exp $ ;;;; -;;;; This file, part of Kmrcl, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; -;;;; Kmrcl users are granted the rights to distribute and use this software -;;;; as governed by the terms of the GNU General Public License. +;;;; KMRCL users are granted the rights to distribute and use this software +;;;; as governed by the terms of the Lisp Lesser GNU Public License +;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. ;;;; ************************************************************************* (in-package :kmrcl) @@ -21,13 +22,15 @@ ;;; HTML/XML constants -(defvar *std-xml-header* - (format nil - "~%~%~%")) +(defvar *standard-xml-header* + #.(format nil "~%~%~%")) -(defun std-xml-header () - *std-xml-header*) +(defvar *standard-html-header* "") +(defvar *standard-xhtml-header* + #.(format nil "~%")) + + ;;; URL Functions (defvar *base-url* "") @@ -46,4 +49,3 @@ (car var) "=" (cadr var) "&"))) vars))) ""))) -