X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=pxml0.cl;h=9ec33b02117f5a445129c7e99459fcfec5d13998;hb=7a3f6cd041edb5d596ffb20bfd626e844d98b538;hp=a09f33a2f80b8a031b1b9d7d59ceffde4bb7c744;hpb=d7019014ac92cbc1098abc26c7e6d35d17390f0f;p=xmlutils.git

diff --git a/pxml0.cl b/pxml0.cl
index a09f33a..9ec33b0 100644
--- a/pxml0.cl
+++ b/pxml0.cl
@@ -1,3 +1,8 @@
+#+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
 ;;
@@ -19,8 +24,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.3 2002/10/16 03:45:52 kevin Exp $
-
 ;; pxml.cl - parse xml
 ;;
 ;; Change Log
@@ -31,19 +34,13 @@
 ;;
 
 (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
-(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)
@@ -52,10 +49,10 @@
 	(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*)))
 
-    (push 'pxml-dribble-bug-hook excl::*dribble-bug-hooks*)))
-
-(funcall 'pxml-dribble-bug-hook "$Id: pxml0.cl,v 1.3 2002/10/16 03:45:52 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)))