[cl-pdf-devel] Binary streams

Marc Battyani marc.battyani at fractalconcept.com
Wed Jan 31 20:54:31 UTC 2007


"Jonathon McKitrick" <jmckitrick at reedlarkeygroup.com> wrote:

>This fixes my issue, I think.  'obj' needed to be replaced with 'content'
>in the write-sequence call.
>
>(defmethod write-stream-content ((content string))
>  ;; Args: content Base string, may include
>  ;;    - either one-byte codes (already converted to external format if
>needed)
>  ;;    - or Unicode two-byte character codes (big-endian CIDs)
>  #+pdf-binary
>  (loop for char across content
>        do (write-byte (ldb (byte 8 0) (char-code char)) *pdf-stream*))
>  #-pdf-binary
>  (write-sequence content *pdf-stream*))

Good catch!  :)

I fixed it in the repository (rev 131). Is it ok for SBCL now?

Marc





More information about the cl-pdf-devel mailing list