do what the documentation says and allow an octets argument to make-source
This commit is contained in:
@ -162,7 +162,9 @@
|
|||||||
:entity-name "main document"
|
:entity-name "main document"
|
||||||
:entity-kind :main
|
:entity-kind :main
|
||||||
:uri nil))
|
:uri nil))
|
||||||
(apply #'make-source xstream args)))))
|
(apply #'make-source xstream args)))
|
||||||
|
(array
|
||||||
|
(make-source (cxml::make-octet-input-stream input)))))
|
||||||
|
|
||||||
(defun %make-source
|
(defun %make-source
|
||||||
(input &key validate dtd root entity-resolver disallow-internal-subset
|
(input &key validate dtd root entity-resolver disallow-internal-subset
|
||||||
|
|||||||
Reference in New Issue
Block a user