From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 9 Oct 2002 14:30:57 +0000 (+0000)
Subject: r2958: *** empty log message ***
X-Git-Tag: v1.96~338
X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=64ab2587ad0923623832012abd1b8b2cf5a11a84

r2958: *** empty log message ***
---

diff --git a/package.lisp b/package.lisp
index 02a0285..ae3d14a 100644
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: package.lisp,v 1.2 2002/10/06 13:57:54 kevin Exp $
+;;;; $Id: package.lisp,v 1.3 2002/10/09 14:24:47 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -153,6 +153,7 @@
 	  #:ml-class-title
 	  #:load-all-subobjects
 	  #:display-ml-class
+	  #:xml-cdata
 	  ))
 
 
diff --git a/web-utils-aserve.lisp b/web-utils-aserve.lisp
index 13782e3..e7ae505 100644
--- a/web-utils-aserve.lisp
+++ b/web-utils-aserve.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: web-utils-aserve.lisp,v 1.2 2002/10/06 13:30:17 kevin Exp $
+;;;; $Id: web-utils-aserve.lisp,v 1.3 2002/10/09 14:24:47 kevin Exp $
 ;;;;
 ;;;; This file, part of Kmrcl, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -18,7 +18,7 @@
 
 
 (in-package :kmrcl)
-(declaim (optimize (speed 3) (safety 1)))
+(declaim (optimize (speed 3) (safety 1) (compilation-speed 0) (debug 3)))
 
 
 ;;; AllegroServe interaction functions
diff --git a/web-utils.lisp b/web-utils.lisp
index 52d94fb..2854064 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.2 2002/10/06 13:30:17 kevin Exp $
+;;;; $Id: web-utils.lisp,v 1.3 2002/10/09 14:24:47 kevin Exp $
 ;;;;
 ;;;; This file, part of Kmrcl, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -16,7 +16,7 @@
 ;;;; *************************************************************************
 
 (in-package :kmrcl)
-(declaim (optimize (speed 3) (safety 1)))
+(declaim (optimize (speed 3) (safety 1) (compilation-speed 0) (debug 3)))
 
 
 ;;; HTML/XML constants
diff --git a/xml-utils.lisp b/xml-utils.lisp
index 3214d06..223b9c8 100644
--- a/xml-utils.lisp
+++ b/xml-utils.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: xml-utils.lisp,v 1.2 2002/10/06 13:30:17 kevin Exp $
+;;;; $Id: xml-utils.lisp,v 1.3 2002/10/09 14:24:47 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -84,3 +84,6 @@ and position of character following end tag."
 	(values (subseq xmlstr startpos endpos) nextpos)
       (values nil nil))))
 
+(defun xml-cdata (str)
+  (concatenate 'string "<![CDATA[" str "]]>"))
+