projects
/
xmlutils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5162: *** empty log message ***
[xmlutils.git]
/
pxml0.cl
diff --git
a/pxml0.cl
b/pxml0.cl
index b2a87d1f1b89838674b2c0132758f10d4de82cdf..93ba24856ae3a8a3b5298d6f838bd57d752c02cf 100644
(file)
--- a/
pxml0.cl
+++ b/
pxml0.cl
@@
-19,8
+19,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.2 2002/10/15 13:59:37 kevin Exp $
-
;; pxml.cl - parse xml
;;
;; Change Log
;; pxml.cl - parse xml
;;
;; Change Log
@@
-38,9
+36,6
@@
(in-package :net.xml.parser)
(in-package :net.xml.parser)
-#-allegro (defvar excl::*dribble-bug-hooks*)
-#-allegro (export '*dribble-bug-hooks* 'excl)
-
(unless (fboundp 'pxml-dribble-bug-hook)
(let ((pxml-version-strings nil))
(defun pxml-dribble-bug-hook (stream-or-string)
(unless (fboundp 'pxml-dribble-bug-hook)
(let ((pxml-version-strings nil))
(defun pxml-dribble-bug-hook (stream-or-string)
@@
-52,7
+47,7
@@
(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.
4 2003/06/20 02:21:23
kevin Exp $")
(defun xml-char-p (char)
(declare (optimize (speed 3) (safety 1)))
(defun xml-char-p (char)
(declare (optimize (speed 3) (safety 1)))