;; 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
;;
(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)
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)))