projects
/
xmlutils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5292: *** empty log message ***
[xmlutils.git]
/
pxml0.cl
diff --git
a/pxml0.cl
b/pxml0.cl
index 92f776edcb1a884e17aef1b0fb3253762da58f40..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
;;
;;
;; 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
;;
;; version) or write to the Free Software Foundation, Inc., 59 Temple Place,
;; Suite 330, Boston, MA 02111-1307 USA
;;
-;; $Id: pxml0.cl,v 1.1 2002/10/15 12:23:03 kevin Exp $
-
;; pxml.cl - parse xml
;;
;; Change Log
;; pxml.cl - parse xml
;;
;; Change Log
@@
-31,7
+34,7
@@
;;
(defpackage net.xml.parser
;;
(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)
)
(:export
#:parse-xml)
)
@@
-46,10
+49,10
@@
(loop for string in (reverse pxml-version-strings)
do (write-string string stream-or-string)
(terpri 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*)))
(push 'pxml-dribble-bug-hook excl:*dribble-bug-hooks*)))
-(funcall 'pxml-dribble-bug-hook "$Id: pxml0.cl,v 1.
1 2002/10/15 12:23:03
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)))
(defun xml-char-p (char)
(declare (optimize (speed 3) (safety 1)))