From d7019014ac92cbc1098abc26c7e6d35d17390f0f Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Wed, 16 Oct 2002 03:45:52 +0000
Subject: [PATCH] r3044: *** empty log message ***

---
 debian/xmlutils.asd |  7 ++++++-
 pxml0.cl            | 13 ++++++++-----
 pxml1.cl            | 20 ++++++++++----------
 3 files changed, 24 insertions(+), 16 deletions(-)

diff --git a/debian/xmlutils.asd b/debian/xmlutils.asd
index 7f78010..18779ec 100644
--- a/debian/xmlutils.asd
+++ b/debian/xmlutils.asd
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Sep 2002
 ;;;;
-;;;; $Id: xmlutils.asd,v 1.2 2002/10/15 13:59:37 kevin Exp $
+;;;; $Id: xmlutils.asd,v 1.3 2002/10/16 03:45:52 kevin Exp $
 ;;;;
 ;;;; This file, part of cl-xmlutils, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -20,6 +20,11 @@
 
 #-allegro (require :acl-compat)
 
+#+lispworks
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (defvar system::*stack-overflow-behavior* :warn)
+  (setq system::*stack-overflow-behavior* :warn))
+
 (defsystem :xmlutils
   :name "cl-xmlutils"
   :author "Franz, Inc"
diff --git a/pxml0.cl b/pxml0.cl
index b2a87d1..a09f33a 100644
--- a/pxml0.cl
+++ b/pxml0.cl
@@ -19,7 +19,7 @@
 ;; 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 $
+;; $Id: pxml0.cl,v 1.3 2002/10/16 03:45:52 kevin Exp $
 
 ;; pxml.cl - parse xml
 ;;
@@ -38,8 +38,11 @@
 
 (in-package :net.xml.parser)
 
-#-allegro (defvar excl::*dribble-bug-hooks*)
-#-allegro (export '*dribble-bug-hooks* 'excl)
+
+#-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))
@@ -50,9 +53,9 @@
 	    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.2 2002/10/15 13:59:37 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)))
diff --git a/pxml1.cl b/pxml1.cl
index 3142ec6..d7c9252 100644
--- a/pxml1.cl
+++ b/pxml1.cl
@@ -19,7 +19,7 @@
 ;; version) or write to the Free Software Foundation, Inc., 59 Temple Place,
 ;; Suite 330, Boston, MA  02111-1307  USA
 ;;
-;; $Id: pxml1.cl,v 1.1 2002/10/15 12:23:03 kevin Exp $
+;; $Id: pxml1.cl,v 1.2 2002/10/16 03:45:52 kevin Exp $
 
 ;; Change Log 
 ;;
@@ -27,7 +27,7 @@
 
 (in-package :net.xml.parser)
 
-(pxml-dribble-bug-hook "$Id: pxml1.cl,v 1.1 2002/10/15 12:23:03 kevin Exp $")
+(pxml-dribble-bug-hook "$Id: pxml1.cl,v 1.2 2002/10/16 03:45:52 kevin Exp $")
 
 (defparameter *collectors* (list nil nil nil nil nil nil nil nil))
 
@@ -271,14 +271,14 @@
   (declare (ignorable tokenbuf) (optimize (speed 3) (safety 1)))
   ;; need no-OO check because external format support isn't completely done yet
   (when (not (typep p 'string-input-simple-stream))
-    #+(version>= 6 0 pre-final 1)
+    #+(and allegro (version>= 6 0 pre-final 1))
     (let ((format (ignore-errors (excl:sniff-for-unicode p))))
       (if* (eq format (find-external-format :unicode))
 	 then
-	      (setf (stream-external-format p) format)
+	      #+allegro (setf (stream-external-format p) format)
 	 else
-	      (setf (stream-external-format p) (find-external-format :utf8))))
-    #-(version>= 6 0 pre-final 1)
+	      #+allegro (setf (stream-external-format p) (find-external-format :utf8))))
+    #-(and allegro (version>= 6 0 pre-final 1))
     (let* ((c (read-char p nil)) c2
 	   (c-code (if c (char-code c) nil)))
       (if* (eq #xFF c-code) then
@@ -286,12 +286,12 @@
 	      (setf c-code (if c (char-code c2) nil))
 	      (if* (eq #xFE c-code) then
 		      (format t "set unicode~%")
-		      (setf (stream-external-format p)
-			(find-external-format #+(version>= 6 0 pre-final 1) :unicode
-					      #-(version>= 6 0 pre-final 1) :fat-little))
+		      #+allegro (setf (stream-external-format p)
+			(find-external-format #+(and allegro (version>= 6 0 pre-final 1)) :unicode
+					      #-(and allegro (version>= 6 0 pre-final 1)) :fat-little))
 		 else
 		      (xml-error "stream has incomplete Unicode marker"))
-	 else (setf (stream-external-format p)
+	 else #+allegro (setf (stream-external-format p)
 		(find-external-format :utf8))
 	      (when c
 		(push c (iostruct-unget-char tokenbuf))
-- 
2.34.1