klacks octet array fix (thanks to emarsden for the bug report)
This commit is contained in:
@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user