r5292: *** empty log message ***

[xmlutils.git] / pxml0.cl

diff --git a/pxml0.cl b/pxml0.cl
index 93ba24856ae3a8a3b5298d6f838bd57d752c02cf..9ec33b02117f5a445129c7e99459fcfec5d13998 100644 (file)
--- 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
 ;;
@@ -29,7 +34,7 @@
 ;;
 
 (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)
   )
@@ -44,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*)))
 
-(funcall 'pxml-dribble-bug-hook "$Id: pxml0.cl,v 1.4 2003/06/20 02:21:23 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)))