r2958: *** empty log message ***

diff --git a/package.lisp b/package.lisp
index 02a0285c8757e49ba2962e8da50a121bc8f2f4b8..ae3d14acd06d56c0cde09bf3b979d909c8f547cb 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
 ;;;; 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
 ;;;;
 ;;;;
 ;;;; 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
          #:ml-class-title
          #:load-all-subobjects
          #:display-ml-class

+         #:xml-cdata

          ))
 
 
          ))
 
 

diff --git a/web-utils-aserve.lisp b/web-utils-aserve.lisp
index 13782e36b02026f3b3f3cceab72daf75a2ab4e23..e7ae505970010eae142620ef16afbdd1c9357cad 100644 (file)
--- a/web-utils-aserve.lisp
+++ b/web-utils-aserve.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
 ;;;; 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
 ;;;;
 ;;;;
 ;;;; This file, part of Kmrcl, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;


@@ -18,7 +18,7 @@
 
 
 (in-package :kmrcl)
 
 
 (in-package :kmrcl)

-(declaim (optimize (speed 3) (safety 1)))
+(declaim (optimize (speed 3) (safety 1) (compilation-speed 0) (debug 3)))

 
 
 ;;; AllegroServe interaction functions
 
 
 ;;; AllegroServe interaction functions

diff --git a/web-utils.lisp b/web-utils.lisp
index 52d94fb41dffdc907cfef6c9e6e533602ae7de14..2854064398afdf87367a32638eb8a6c3eae13367 100644 (file)
--- a/web-utils.lisp
+++ b/web-utils.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
 ;;;; 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
 ;;;;
 ;;;;
 ;;;; This file, part of Kmrcl, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;


@@ -16,7 +16,7 @@
 ;;;; *************************************************************************
 
 (in-package :kmrcl)
 ;;;; *************************************************************************
 
 (in-package :kmrcl)

-(declaim (optimize (speed 3) (safety 1)))
+(declaim (optimize (speed 3) (safety 1) (compilation-speed 0) (debug 3)))

 
 
 ;;; HTML/XML constants
 
 
 ;;; HTML/XML constants

diff --git a/xml-utils.lisp b/xml-utils.lisp
index 3214d06d0d17d05bc8573b3c61f3d6448ca65a97..223b9c8afaa1817ef2fb7eda24c15a370c776bfd 100644 (file)
--- a/xml-utils.lisp
+++ b/xml-utils.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
 ;;;; 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
 ;;;;
 ;;;;
 ;;;; 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))))
 
        (values (subseq xmlstr startpos endpos) nextpos)
       (values nil nil))))
 

+(defun xml-cdata (str)
+  (concatenate 'string "<![CDATA[" str "]]>"))
+