cl-pdf erreur de sortie

Question

J'essaie d'utiliser cl-pdf pour une génération de PDF assez basique, mais je commence à me tromper sur les exemples (ce qui est pour le moins embarrassant).

Quand je lance le premier exemple inclus dans le package

(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))) 

en exécutant (example1 #P"/home/inaimathi/Desktop/ex1.pdf") il me donne cette erreur

#<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.

La même chose se produit quand je l'appelle (example1), ou quand je fais

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

Enfin, si j'essaye

(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))

Je reçois l'erreur

#<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.

Est-il possible de déclarer un binary character stream? Comment puis-je obtenir une sortie simple sur cl-pdf? J'utilise SBCL directement à partir des repos Debian (qui est 1.0.29, je pense), au cas où cela serait important.

Answer 1

(setf pdf:*compress-streams* nil) devrait aider. Il essaie d'écrire des données binaires dans un flux de caractères, et bien que cela fonctionne sur LispWorks et sur d'autres systèmes, cela ne fonctionne pas partout et particulièrement pas sur SBCL.

Answer 2

EDIT: C'est ce que j'ai fini par faire. La solution de xach ci-dessus fonctionnerait également. En fin de compte, j'ai dû git svn clone http://www.fractalconcept.com:8000/public/open-source/cl-pdf et l'installer.

Pour les newbs (depuis que je me souviens combien il est frustrant pour quelqu'un de nouveau à Common Lisp entendre « juste faire une caisse et l'installer »):

1.Do la caisse comme ci-dessus (je suppose que vous » avez fait dans votre répertoire à partir de maintenant)

2.Tapez dans tar -czvf ~/cl-pdf.tar.gz ~/cl-pdf (le point est d'obtenir un tarball du dossier. Vous pouvez le faire via l'interface graphique aussi, il ne fait aucune différence)

3.Hop dans votre invite SBCL et entrez

(require 'asdf) 
(require 'asdf-install)

4.If vous avez déjà installé à l'aide cl-pdf(asdf-install:install 'cl-pdf), alors vous devrez entrer (asdf-install:uninstall 'cl-pdf)

5.Saisissez (asdf-install:install "/home/[your home folder name]/cl-pdf.tar.gz")

Je suis une erreur de compilation tout au long de ce processus, que je viens de choisir [Accept] pour. Cela semble toujours fonctionner correctement.

Espérons que la prochaine version de quicklisp réduira le besoin de ce type de chasse de paquets.