[cl-pdf-devel] a small patch, perhaps

[Aleksandar Bakic]

Hi,

I had to make this patch to make cl-typesetting test.lisp work.

Index: pdf-base.lisp
===================================================================
--- pdf-base.lisp       (revision 103)
+++ pdf-base.lisp       (working copy)
@@ -35,7 +35,7 @@

 (defun write-cid-char (char)
   (write-char #\( *page-stream*)
-  (if (typep (font-metrics *font*) 'ttu-font-metrics)
+  (if (and *font* (typep (font-metrics *font*) 'ttu-font-metrics))
       (let* ((code (char-code char))
              (hi (ldb (byte 8 8) code))
              (lo (ldb (byte 8 0) code)))

Alex


		
__________________________________ 
Yahoo! FareChase: Search multiple travel sites in one click.
http://farechase.yahoo.com