+#+lispworks
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (hcl:toggle-source-debugging nil)
+ (setq system:*stack-overflow-behaviour* :warn)
+ (declaim (optimize (debug 0))))
;;
;; copyright (c) 1986-2000 Franz Inc, Berkeley, CA
;;
;; 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
;;
(defpackage net.xml.parser
- (:use :lisp :clos :excl :net.uri)
+ (:use :cl #+allegro :clos :excl :net.uri #+allegro :mp #-allegro :acl-mp)
(:export
#:parse-xml)
)
(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)
(loop for string in (reverse pxml-version-strings)
do (write-string string stream-or-string)
(terpri stream-or-string))))
-
+ #+excl
(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.5 2003/07/11 18:02:41 kevin Exp $")
(defun xml-char-p (char)
(declare (optimize (speed 3) (safety 1)))