klacks octet array fix (thanks to emarsden for the bug report)

This commit is contained in:
dlichteblau
2007-08-23 23:16:00 +00:00
parent 74b8f37b6c
commit 2e94373013

View File

@ -137,8 +137,7 @@
(make-stream-name (make-stream-name
:entity-name "main document" :entity-name "main document"
:entity-kind :main :entity-kind :main
:uri (pathname-to-uri :uri (safe-stream-sysid input)))
(merge-pathnames (or pathname (pathname input))))))
(apply #'make-source xstream args))) (apply #'make-source xstream args)))
(pathname (pathname
(let* ((xstream (let* ((xstream