projects / kmrcl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 3f50791)
r3076: *** empty log message ***
authorKevin M. Rosenberg <kevin@rosenberg.net>
Wed, 16 Oct 2002 23:34:33 +0000 (23:34 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Wed, 16 Oct 2002 23:34:33 +0000 (23:34 +0000)
ml-class.lisp patch | blob | history
package.lisp patch | blob | history
web-utils-aserve.lisp patch | blob | history
web-utils.lisp patch | blob | history

diff --git a/ml-class.lisp b/ml-class.lisp
index 57fd07cb5a52bec2ba79ad55f7d3fabb0a252b98..902c1c134422676cd7f62584237e9ffb95337fd2 100644 (file)
--- 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 90054ecaf14ab122ecda47a90292ce5706e0aea0..895c1fe895b806f6203c429b2d4ac19c71ccda5f 100644 (file)
--- 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 19ed28c5d92997bce5ada3f8d9df283a42e740d2..9261cddc4198d149d8e67c26b4c47b33e90b765e 100644 (file)
--- 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 "<pagedata xmlns:xlink=\"http://www.w3.org/1999/xlink\" xmlns:html=\"http://www.w3.org/TR/REC-html40\">"))
            (with-tag "pagetitle" (princ-http ,title))
            ,@body)
diff --git a/web-utils.lisp b/web-utils.lisp
index 22013e47a6933fbe0db039c3d970f4a2b3ace4e0..4fe21b9ab7e99a5c7800e2e7b872c5ff15e0a0df 100644 (file)
--- 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 "<?xml version=\"1.0\" ?>~%<?xml-stylesheet type=\"text/css\" href=\"http://b9.com/umlsxml.css\" ?>~%~%"))
 
-(defvar *std-html-header* "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">")
+(defvar *standard-html-header* "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">")
 
-(defvar *std-xhtml-header*
+(defvar *standard-xhtml-header*
   #.(format nil "<?xml version=\"1.0\" standalone=\"yes\"?>~%<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3c.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">"))
 
   
Common library for KMR lisp projects