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

2007-08-23 23:16:00 +00:00
parent 74b8f37b6c
commit 2e94373013
1 changed files with 1 additions and 2 deletions
--- a/klacks/klacks-impl.lisp
+++ b/klacks/klacks-impl.lisp
@ -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