anchor.diff:  	   (setf (eighth last-part) lines)
   	   (setf last-part nil))
   	 (cond (endp
  -		(format t "End tag of boundary=~A~%" boundary)
  -		(force-output t)
  +		; (format t "End tag of boundary=~A~%" boundary)
   		(multiple-value-bind (super sub params)
   		    (content-type part)
   		  (declare (ignore super))
   		  (let ((result `(,@(nreverse parts) ,sub ,params nil nil)))
  -		    (format t "Multipart-Structure: ~A~%" result)
  -		    (force-output t)
  +		    ; (format t "Multipart-Structure: ~A~%" result)
   		    (return result))))
   	       (t
   		(multiple-value-bind (headers hoctets) (read-rfc2822-header stream)
  -		  (format t "Headers read ~A" hoctets)
  -		  (force-output t)
  +		 ; (format t "Headers read ~A" hoctets)
   		  (let ((content-type (or (cdr (assoc :content-type headers))
   					  "text/plain")))
   		    (multiple-value-bind (super sub params) (parse-content-type content-type)
  
positive.code: 
      (multiple-value-bind (super sub params)
  	(content-type part)
        (let ((result (list super sub params nil nil (content-transfer-encoding part) octets lines nil nil nil)))
  	(force-output t)
  	result))))
  
negative.code: (defun read-simple-body (part)
    (multiple-value-bind (super sub params)
        (content-type part)
      (unless (getf params :charset)
          (setf params (list* :charset "us-ascii" params)))
    (let ((result (list super sub params nil nil (content-transfer-encoding part) nil nil nil nil nil)))
      (force-output t)
      result)))
  
  ;; super sub params nil nil encoding octets lines nil nil nil
  (defun read-single-body (part stream)
    (let ((octets 0)
  	(lines 0) line line-octets)
  