[cl-pdf-devel] Binary streams

[Jonathon McKitrick]

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*))


-- 
Jonathon McKitrick
Reed Larkey Group