X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=pxml3.cl;h=9e1cd36ddcc9680d88b5e87555a6ebcaa56d78c4;hb=7a3f6cd041edb5d596ffb20bfd626e844d98b538;hp=aefd3d317db4309853f3a953e71f6f0a3d53d41a;hpb=b5da6339c28ee272d0a32eb5c26a9f7446e71d9f;p=xmlutils.git

diff --git a/pxml3.cl b/pxml3.cl
index aefd3d3..9e1cd36 100644
--- a/pxml3.cl
+++ b/pxml3.cl
@@ -19,11 +19,10 @@
 ;; version) or write to the Free Software Foundation, Inc., 59 Temple Place,
 ;; Suite 330, Boston, MA  02111-1307  USA
 ;;
-;; $Id: pxml3.cl,v 1.1 2002/10/15 12:23:03 kevin Exp $
 
 (in-package :net.xml.parser)
 
-(pxml-dribble-bug-hook "$Id: pxml3.cl,v 1.1 2002/10/15 12:23:03 kevin Exp $")
+(pxml-dribble-bug-hook "$Id: pxml3.cl,v 1.3 2003/07/11 18:02:41 kevin Exp $")
 
 (defvar *debug-dtd* nil)
 
@@ -148,7 +147,9 @@
 
 (defun next-dtd-token (tokenbuf
 		       external include-count external-callback)
-  (declare (:fbound parse-default-value) (optimize (speed 3) (safety 1)))
+  (declare #+allegro (:fbound parse-default-value)
+	   #+lispworks (optimize (safety 0) (debug 3))
+	   #-lispworks (optimize (speed 3) (safety 1)))
   (macrolet ((add-to-entity-buf (entity-symbol p-value)
 	       `(progn
 		  (push (make-tokenbuf :cur 0 :max (length ,p-value) :data ,p-value)
@@ -2397,7 +2398,10 @@
     ))
 
 (defun external-param-reference (tokenbuf old-coll external-callback)
-  (declare (:fbound next-token) (ignorable old-coll) (optimize (speed 3) (safety 1)))
+  (declare #+allegro (:fbound next-token)
+	   #+lispworks (optimize (safety 0) (debug 3))
+	   (ignorable old-coll)
+	   #-lispworks (optimize (speed 3) (safety 1)))
   (setf (iostruct-seen-parameter-reference tokenbuf) t)
   (macrolet ((add-to-entity-buf (entity-symbol p-value)
 	       `(progn