[cl-pdf-devel] CMUCL compatibility fixes and new color handling code

[Klaus Weidner]

Oops, forgot to explain one part of the patch. CMUCL doesn't like the
:element-type specification for with-output-to-string, and according to
the standard that indeed doesn't seem to be permitted.

-Klaus

On Mon, Apr 12, 2004 at 10:47:43PM -0500, Klaus Weidner wrote:
> diff -urN orig/cl-pdf/pdf.lisp cl-pdf/pdf.lisp
> --- orig/cl-pdf/pdf.lisp	Mon Feb  9 16:06:07 2004
> +++ cl-pdf/pdf.lisp	Mon Apr 12 20:42:37 2004
> @@ -188,7 +188,7 @@
>   ;;; Used to embrace a pdf string used in places other than content streams,
>    ;; e.g. annotations.
>    (let ((string (if (stringp obj) obj (princ-to-string obj))))
> -    (with-output-to-string (stream nil :element-type (array-element-type string))
> +    (with-output-to-string (stream nil)
>        (write-char #\( stream)
>        (loop for char across string
>              do (case char ((#\( #\) #\\) (write-char #\\ stream)))