[cl-pdf-devel] Binary streams

[Jonathon McKitrick]

On Wed, January 31, 2007 3:54 pm, Marc Battyani said:
> "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?

Not sure.  This is #-pdf-binary.  I haven't tried #+pdf-binary.

-- 
Jonathon McKitrick
Reed Larkey Group