X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=pxml0.cl;h=a09f33a2f80b8a031b1b9d7d59ceffde4bb7c744;hb=2d40f4169cc89aaecf1a762cae1e2d7cd55587ab;hp=92f776edcb1a884e17aef1b0fb3253762da58f40;hpb=b5da6339c28ee272d0a32eb5c26a9f7446e71d9f;p=xmlutils.git

diff --git a/pxml0.cl b/pxml0.cl
index 92f776e..a09f33a 100644
--- a/pxml0.cl
+++ b/pxml0.cl
@@ -19,7 +19,7 @@
 ;; version) or write to the Free Software Foundation, Inc., 59 Temple Place,
 ;; Suite 330, Boston, MA  02111-1307  USA
 ;;
-;; $Id: pxml0.cl,v 1.1 2002/10/15 12:23:03 kevin Exp $
+;; $Id: pxml0.cl,v 1.3 2002/10/16 03:45:52 kevin Exp $
 
 ;; pxml.cl - parse xml
 ;;
@@ -38,6 +38,12 @@
 
 (in-package :net.xml.parser)
 
+
+#-allegro
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (defvar excl::*dribble-bug-hooks* nil)
+#+ignore (export '*dribble-bug-hooks* 'excl))
+
 (unless (fboundp 'pxml-dribble-bug-hook)
   (let ((pxml-version-strings nil))
     (defun pxml-dribble-bug-hook (stream-or-string)
@@ -47,9 +53,9 @@
 	    do (write-string string stream-or-string)
 	       (terpri stream-or-string))))
 
-    (push 'pxml-dribble-bug-hook excl:*dribble-bug-hooks*)))
+    (push 'pxml-dribble-bug-hook excl::*dribble-bug-hooks*)))
 
-(funcall 'pxml-dribble-bug-hook "$Id: pxml0.cl,v 1.1 2002/10/15 12:23:03 kevin Exp $")
+(funcall 'pxml-dribble-bug-hook "$Id: pxml0.cl,v 1.3 2002/10/16 03:45:52 kevin Exp $")
 
 (defun xml-char-p (char)
   (declare (optimize (speed 3) (safety 1)))