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