From ccbfd1e7479eeb3f9725879a1b02d80e0107de7f Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Sat, 16 Jun 2007 09:41:22 +0000 Subject: [PATCH] do what the documentation says and allow an octets argument to make-source --- klacks/klacks-impl.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/klacks/klacks-impl.lisp b/klacks/klacks-impl.lisp index 54376bc..f785bce 100644 --- a/klacks/klacks-impl.lisp +++ b/klacks/klacks-impl.lisp @@ -162,7 +162,9 @@ :entity-name "main document" :entity-kind :main :uri nil)) - (apply #'make-source xstream args))))) + (apply #'make-source xstream args))) + (array + (make-source (cxml::make-octet-input-stream input))))) (defun %make-source (input &key validate dtd root entity-resolver disallow-internal-subset