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]
/
pxml3.cl
diff --git
a/pxml3.cl
b/pxml3.cl
index bce65823d2a3431087256e8d72bffc4688f7977f..9e1cd36ddcc9680d88b5e87555a6ebcaa56d78c4 100644
(file)
--- a/
pxml3.cl
+++ b/
pxml3.cl
@@
-22,7
+22,7
@@
(in-package :net.xml.parser)
(in-package :net.xml.parser)
-(pxml-dribble-bug-hook "$Id: pxml3.cl,v 1.
2 2003/06/20 02:21:23
kevin Exp $")
+(pxml-dribble-bug-hook "$Id: pxml3.cl,v 1.
3 2003/07/11 18:02:41
kevin Exp $")
(defvar *debug-dtd* nil)
(defvar *debug-dtd* nil)
@@
-147,7
+147,9
@@
(defun next-dtd-token (tokenbuf
external include-count external-callback)
(defun next-dtd-token (tokenbuf
external include-count external-callback)
- (declare (:fbound parse-default-value) (optimize (speed 3) (safety 1)))
+ (declare #+allegro (:fbound parse-default-value)
+ #+lispworks (optimize (safety 0) (debug 3))
+ #-lispworks (optimize (speed 3) (safety 1)))
(macrolet ((add-to-entity-buf (entity-symbol p-value)
`(progn
(push (make-tokenbuf :cur 0 :max (length ,p-value) :data ,p-value)
(macrolet ((add-to-entity-buf (entity-symbol p-value)
`(progn
(push (make-tokenbuf :cur 0 :max (length ,p-value) :data ,p-value)
@@
-2396,7
+2398,10
@@
))
(defun external-param-reference (tokenbuf old-coll external-callback)
))
(defun external-param-reference (tokenbuf old-coll external-callback)
- (declare (:fbound next-token) (ignorable old-coll) (optimize (speed 3) (safety 1)))
+ (declare #+allegro (:fbound next-token)
+ #+lispworks (optimize (safety 0) (debug 3))
+ (ignorable old-coll)
+ #-lispworks (optimize (speed 3) (safety 1)))
(setf (iostruct-seen-parameter-reference tokenbuf) t)
(macrolet ((add-to-entity-buf (entity-symbol p-value)
`(progn
(setf (iostruct-seen-parameter-reference tokenbuf) t)
(macrolet ((add-to-entity-buf (entity-symbol p-value)
`(progn