anchor.diff:        (get-output-stream-string stream))))
   
   (defun decode-q-to-octets (str)
  -  "decodes q encoded strings to octet arrazs"
  +  "decodes q encoded strings to octet arrays"
     (let* ((len (length str))
   	 (octets (make-array len :fill-pointer 0 :adjustable t)))
       (labels
  
positive.code: (in-package :cl-rfc2047)
  
  (defparameter *crlfsp*
    (concatenate 'string
  	       (string #\return) (string #\linefeed) (string #\space)))
  
  (defparameter *decoded-line-regexp*
    "=\\?([a-zA-Z0-9-]+)\\?([qQbB])\\?([^ ?]+)\\?=")
  
  (defun string+ (&rest strs)
    (apply #'concatenate `(string ,@strs)))
  
  (defun char-max-len (charset)
    "returns the maximum number of bytes a character uses in the given
  
negative.code:       octets)))
  
  (defun decode-one-word (str)
    "Decodes a single encoded word. Encodings can consist of multiple words,
  seperated by <CRLFSP>"
    (multiple-value-bind (start end reg-starts reg-ends)
        (ppcre:scan +decoded-line-regexp+ str)
        (declare (ignore end))
      (if (null start)
  	(error "Not a valid encoded word ~A" str)
  	(let ((charset  (subseq str (elt reg-starts 0) (elt reg-ends 0)))
  