From: Kevin M. Rosenberg Date: Wed, 16 Oct 2002 23:34:33 +0000 (+0000) Subject: r3076: *** empty log message *** X-Git-Tag: v1.96~311 X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=30c2e8bd2c7043d845024395e19b3030d039eae2;hp=3f50791d43f83b9141e4022ce1fd2460edf62436;p=kmrcl.git r3076: *** empty log message *** --- 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 "~%"))