[cxml-cvs] CVS cxml/klacks

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

Modified Files: klacks-impl.lisp Log Message: klacks octet array fix (thanks to emarsden for the bug report)

--- /project/cxml/cvsroot/cxml/klacks/klacks-impl.lisp 2007/06/16 09:41:22 1.11 +++ /project/cxml/cvsroot/cxml/klacks/klacks-impl.lisp 2007/08/23 23:16:00 1.12 @@ -137,8 +137,7 @@ (make-stream-name :entity-name "main document" :entity-kind :main - :uri (pathname-to-uri - (merge-pathnames (or pathname (pathname input)))))) + :uri (safe-stream-sysid input))) (apply #'make-source xstream args))) (pathname (let* ((xstream