anchor.diff:        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)
  +      (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)))
  
positive.code:       (get-output-stream-string stream))))
  
  (defun decode-q-to-octets (str)
    "decodes q encoded strings to octet arrazs"
    (let* ((len (length str))
  	 (octets (make-array len :fill-pointer 0 :adjustable t)))
      (labels
  
negative.code: 	   (if (>= i slen)
  	       n
  	       (progn
  		 (unless (zerop n) (princ +crlfsp+ stream))
  		 (format stream "=?~A?~A?" charset encoding)
  		 (let ((i* (q-enc* i 0 octets)))
  		   (princ "?=" stream)
  