diff options
Diffstat (limited to 'dev-lisp/cl-pxmlutils/files/0.0.9-gentoo.patch')
| -rw-r--r-- | dev-lisp/cl-pxmlutils/files/0.0.9-gentoo.patch | 71 |
1 files changed, 71 insertions, 0 deletions
diff --git a/dev-lisp/cl-pxmlutils/files/0.0.9-gentoo.patch b/dev-lisp/cl-pxmlutils/files/0.0.9-gentoo.patch new file mode 100644 index 000000000000..05899f98219f --- /dev/null +++ b/dev-lisp/cl-pxmlutils/files/0.0.9-gentoo.patch @@ -0,0 +1,71 @@ +diff -ur pxmlutils_0.0.9.orig/pxml1.cl pxmlutils_0.0.9/pxml1.cl +--- pxmlutils_0.0.9.orig/pxml1.cl 2004-01-15 10:57:53.000000000 -0600 ++++ pxmlutils_0.0.9/pxml1.cl 2004-03-31 01:38:49.885715472 -0600 +@@ -109,7 +109,7 @@ + (declare (optimize (speed 3) (safety 1))) + ;; compute the symbol named by what's in the collector + (if* (not ns-to-package) +- then (excl::intern* (collector-data coll) (collector-next coll) package) ++ then (acl-compat.excl::intern* (collector-data coll) (collector-next coll) package) + else + (let (new-package (data (collector-data coll))) + (if* (and (eq (schar data 0) #\x) +@@ -122,7 +122,7 @@ + then ;; putting xmlns: in :none namespace + (setf new-package (assoc :none ns-to-package)) + (when new-package (setf package (rest new-package))) +- (excl::intern* (collector-data coll) (collector-next coll) package) ++ (acl-compat.excl::intern* (collector-data coll) (collector-next coll) package) + else + (let ((colon-index -1) + (data (collector-data coll))) +@@ -144,15 +144,15 @@ + (+ 1 colon-index))) + (setf (schar string2 i) + (schar data (+ colon-index 1 i)))) +- (excl::intern string2 (rest new-package)) ++ (acl-compat.excl::intern string2 (rest new-package)) + else +- (excl::intern* (collector-data coll) ++ (acl-compat.excl::intern* (collector-data coll) + (collector-next coll) package))) + else + (let ((new-package (assoc :none ns-to-package))) + (when new-package + (setf package (rest new-package)))) +- (excl::intern* (collector-data coll) ++ (acl-compat.excl::intern* (collector-data coll) + (collector-next coll) package))) + )) + )) +@@ -404,7 +404,7 @@ + ;; if we have a stream we're reading from set its external-format + ;; to the encoding + ;; note - tokenbuf is really an iostruct, not a tokenbuf +- (if* (tokenbuf-stream (iostruct-tokenbuf tokenbuf)) ++ #+allegro (if* (tokenbuf-stream (iostruct-tokenbuf tokenbuf)) + then (setf (stream-external-format + (tokenbuf-stream (iostruct-tokenbuf tokenbuf))) + (find-external-format (fifth val)))) +diff -ur pxmlutils_0.0.9.orig/pxml3.cl pxmlutils_0.0.9/pxml3.cl +--- pxmlutils_0.0.9.orig/pxml3.cl 2004-01-15 10:57:53.000000000 -0600 ++++ pxmlutils_0.0.9/pxml3.cl 2004-03-31 01:26:29.311299896 -0600 +@@ -146,7 +146,7 @@ + + (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) (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) +@@ -2395,7 +2395,7 @@ + )) + + (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) (ignorable old-coll) (optimize (speed 3) (safety 1))) + (setf (iostruct-seen-parameter-reference tokenbuf) t) + (macrolet ((add-to-entity-buf (entity-symbol p-value) + `(progn +Only in pxmlutils_0.0.9: test |