[cxml-cvs] CVS cxml/klacks

[dlichteblau]

Update of /project/cxml/cvsroot/cxml/klacks
In directory clnet:/tmp/cvs-serv29486

Modified Files:
	klacks-impl.lisp 
Log Message:
do what the documentation says and allow an octets argument to make-source


--- /project/cxml/cvsroot/cxml/klacks/klacks-impl.lisp	2007/05/06 11:28:13	1.10
+++ /project/cxml/cvsroot/cxml/klacks/klacks-impl.lisp	2007/06/16 09:41:22	1.11
@@ -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