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:       octets)))
  
  (defun decode-one-word (str)
    (multiple-value-bind (start end reg-starts reg-ends)
        (ppcre:scan *decoded-line-regexp* str)
      (if (null start)
  	(error "Not a valid encoded word ~A" str)
  	(let ((charset  (subseq str (elt reg-starts 0) (elt reg-ends 0)))
  
negative.code: 		      (octets (string-to-octets substr
  						:external-format ext-format))
  		      (b64str (usb8-array-to-base64-string octets)))
  		 (unless (zerop n) (princ +crlfsp+ stream))
  		 (format stream "=?~A?~A?~A?=" charset encoding b64str)
  		 (b-enc j (1+ n)))))
  	 (q-enc* (i len octets)
  