X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=web-utils.lisp;fp=web-utils.lisp;h=22013e47a6933fbe0db039c3d970f4a2b3ace4e0;hp=f8c073b43c3d1a0b7e7e682af701c540c2d48705;hb=3f50791d43f83b9141e4022ce1fd2460edf62436;hpb=4a7372ef4000eaaa86a987bc9668ccecf7d0489f diff --git a/web-utils.lisp b/web-utils.lisp index f8c073b..22013e4 100644 --- a/web-utils.lisp +++ b/web-utils.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: web-utils.lisp,v 1.5 2002/10/16 17:37:18 kevin Exp $ +;;;; $Id: web-utils.lisp,v 1.6 2002/10/16 22:56:08 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -23,12 +23,14 @@ ;;; HTML/XML constants (defvar *std-xml-header* - (format nil - "~%~%~%")) + #.(format nil "~%~%~%")) -(defun std-xml-header () - *std-xml-header*) +(defvar *std-html-header* "") +(defvar *std-xhtml-header* + #.(format nil "~%")) + + ;;; URL Functions (defvar *base-url* "") @@ -47,4 +49,3 @@ (car var) "=" (cadr var) "&"))) vars))) ""))) -