lisp - cl-pdf 输出错误

Question

我正在尝试使用 cl-pdf 生成一些相当基本的 PDF，但我被这些示例绊倒了(至少可以说这很尴尬)。

当我运行包中包含的第一个示例时

(defun example1 (&optional (file #P"/tmp/ex1.pdf"))  (pdf:with-document ()    (pdf:with-page ()      (pdf:with-outline-level ("Example" (pdf:register-page-reference))        (let ((helvetica (pdf:get-font "Helvetica")))          (pdf:in-text-mode           (pdf:set-font helvetica 36.0)           (pdf:move-text 100 800)           (pdf:draw-text "cl-pdf: Example 1"))          (pdf:translate 230 500)          (loop repeat 150         for i = 0.67 then (* i 1.045)         do (pdf:in-text-mode             (pdf:set-font helvetica i)             (pdf:set-rgb-fill (/ (random 255) 255.0)                               (/ (random 255) 255.0)                               (/ (random 255) 255.0))             (pdf:move-text (* i 3) 0)             (pdf:show-text "cl-typesetting"))           (pdf:rotate 13)))))    (pdf:write-document file)))

通过运行 (example1 #P"/home/inaimathi/Desktop/ex1.pdf") 它给了我这个错误

#<SB-SYS:FD-STREAM for "file /home/inaimathi/Desktop/test.pdf" {CF9D931}> is not a binary output stream.     [Condition of type SIMPLE-TYPE-ERROR]Restarts: 0: [ABORT] Exit debugger, returning to top level.

同样的事情发生在我调用 (example1) 时，或者当我这样做时

(with-open-file      (test-file #P"/home/inaimathi/Desktop/ex1.pdf"      :direction :output :if-does-not-exist :create)    (example1 test-file))

最后，如果我尝试

(with-open-file      (test-file #P"/home/inaimathi/Desktop/ex1.pdf"      :direction :output :if-does-not-exist :create      :element-type '(unsigned-byte 8))    (example1 test-file))

我得到了错误

#<SB-SYS:FD-STREAM for "file /home/inaimathi/Desktop/test.pdf" {D197C99}> is not a character output stream.   [Condition of type SIMPLE-TYPE-ERROR]Restarts: 0: [ABORT] Exit debugger, returning to top level.

有没有办法声明一个二进制字符流？如何从 cl-pdf 中获得简单的输出？我直接使用 debian 存储库(我认为是 1.0.29)中的 SBCL，以防万一。

Answer 1

(setf pdf:*compress-streams* nil) 应该有帮助。它试图将二进制数据写入字符流，虽然它可以在 LispWorks 和其他一些系统上运行，但它并不适用于任何地方，尤其是在 SBCL 上。