Aleksandar Bakic wrote: >I had to make this patch to make cl-typesetting test.lisp work. > (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)) OK. I will do the same for write-cid-string too. Marc