X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=pxml0.cl;h=93ba24856ae3a8a3b5298d6f838bd57d752c02cf;hb=1e8aa1df433841c85c5a0b44fbd92964672e18b5;hp=b2a87d1f1b89838674b2c0132758f10d4de82cdf;hpb=d8b217684dec9f0e22d52256f1565f14748b96c0;p=xmlutils.git

diff --git a/pxml0.cl b/pxml0.cl
index b2a87d1..93ba248 100644
--- a/pxml0.cl
+++ b/pxml0.cl
@@ -19,8 +19,6 @@
 ;; version) or write to the Free Software Foundation, Inc., 59 Temple Place,
 ;; Suite 330, Boston, MA  02111-1307  USA
 ;;
-;; $Id: pxml0.cl,v 1.2 2002/10/15 13:59:37 kevin Exp $
-
 ;; pxml.cl - parse xml
 ;;
 ;; Change Log
@@ -38,9 +36,6 @@
 
 (in-package :net.xml.parser)
 
-#-allegro (defvar excl::*dribble-bug-hooks*)
-#-allegro (export '*dribble-bug-hooks* 'excl)
-
 (unless (fboundp 'pxml-dribble-bug-hook)
   (let ((pxml-version-strings nil))
     (defun pxml-dribble-bug-hook (stream-or-string)
@@ -52,7 +47,7 @@
 
     (push 'pxml-dribble-bug-hook excl:*dribble-bug-hooks*)))
 
-(funcall 'pxml-dribble-bug-hook "$Id: pxml0.cl,v 1.2 2002/10/15 13:59:37 kevin Exp $")
+(funcall 'pxml-dribble-bug-hook "$Id: pxml0.cl,v 1.4 2003/06/20 02:21:23 kevin Exp $")
 
 (defun xml-char-p (char)
   (declare (optimize (speed 3) (safety 1)))