From 30c2e8bd2c7043d845024395e19b3030d039eae2 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 16 Oct 2002 23:34:33 +0000 Subject: [PATCH] r3076: *** empty log message *** --- ml-class.lisp | 4 +++- package.lisp | 8 ++++---- web-utils-aserve.lisp | 4 ++-- web-utils.lisp | 8 ++++---- 4 files changed, 13 insertions(+), 11 deletions(-) diff --git a/ml-class.lisp b/ml-class.lisp index 57fd07c..902c1c1 100644 --- a/ml-class.lisp +++ b/ml-class.lisp @@ -11,7 +11,7 @@ ;;;; in Text, HTML, and XML formats. This includes hyperlinking ;;;; capability and sub-objects. ;;;; -;;;; $Id: ml-class.lisp,v 1.18 2002/10/16 22:56:07 kevin Exp $ +;;;; $Id: ml-class.lisp,v 1.19 2002/10/16 23:34:33 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -322,6 +322,8 @@ Format is ((field-name field-lookup-func other-link-params) ...)") (defparameter *default-textformat* nil) (defparameter *default-htmlformat* nil) (defparameter *default-htmlrefformat* nil) +(defparameter *default-xhtmlformat* nil) +(defparameter *default-xhtmlrefformat* nil) (defparameter *default-xmlformat* nil) (defparameter *default-xmlrefformat* nil) (defparameter *default-ie-xmlrefformat* nil) diff --git a/package.lisp b/package.lisp index 90054ec..895c1fe 100644 --- a/package.lisp +++ b/package.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: package.lisp,v 1.7 2002/10/16 22:59:27 kevin Exp $ +;;;; $Id: package.lisp,v 1.8 2002/10/16 23:34:33 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -125,9 +125,9 @@ #:start-telnet-server ;; From web-utils - #:*std-html-header* - #:*std-xhtml-header* - #:*std-xml-header* + #:*standard-html-header* + #:*standard-xhtml-header* + #:*standard-xml-header* #:xml-cdata ;; From web-utils-allegro diff --git a/web-utils-aserve.lisp b/web-utils-aserve.lisp index 19ed28c..9261cdd 100644 --- a/web-utils-aserve.lisp +++ b/web-utils-aserve.lisp @@ -8,7 +8,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: web-utils-aserve.lisp,v 1.7 2002/10/16 22:56:07 kevin Exp $ +;;;; $Id: web-utils-aserve.lisp,v 1.8 2002/10/16 23:34:33 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -124,7 +124,7 @@ `(prog1 (progn (net.html.generator:html - (princ-http *standard-xml-header* + (princ-http *standard-xml-header*) (princ-http "")) (with-tag "pagetitle" (princ-http ,title)) ,@body) diff --git a/web-utils.lisp b/web-utils.lisp index 22013e4..4fe21b9 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.6 2002/10/16 22:56:08 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 ;;;; @@ -22,12 +22,12 @@ ;;; HTML/XML constants -(defvar *std-xml-header* +(defvar *standard-xml-header* #.(format nil "~%~%~%")) -(defvar *std-html-header* "") +(defvar *standard-html-header* "") -(defvar *std-xhtml-header* +(defvar *standard-xhtml-header* #.(format nil "~%")) -- 2.34.1