anchor.diff:  	     (declare (type unicode-code-point offset)
   		      (type (unsigned-byte 8) position))
   	     (when *scsu-state-trace*
  -	       (format *debug-io* "[single-byte dynamic window ~X]" byte))
  +	       (format *trace-output* "[single-byte dynamic window ~X]" byte))
   	     (+ offset position))))))
   
   (defun decode-unit*/unicode-mode (state read-func)
  
positive.code: 	   (ecase byte
  	     ((#x0 #x9 #xA #xD)		; pass
  	      (when *scsu-state-trace*
  		(format *debug-io* "[single-byte ASCII ~X]" byte))
  	      byte)
  	     ((#.+SQ0+ #.+SQ1+ #.+SQ2+ #.+SQ3+ #.+SQ4+ #.+SQ5+ #.+SQ6+ #.+SQ7+) ; Quote from Window
  	      (when *scsu-state-trace*
  		(format *debug-io* "SQ~D " (find-SQn-window byte)))
  	      (let ((window (find-SQn-window byte))
  		    (next-byte (funcall read-func)))
  		(declare (type window-index window)
  
negative.code: (defun decode-unit (state read-func)	; TODO: use defmethod :around
    (let ((*scsu-state-trace* (scsu-state-trace state)))
      (when *scsu-state-trace*
        (fresh-line *trace-output*))
      (prog1 (decode-unit* state read-func)
        (when *scsu-state-trace*
  	(terpri *trace-output*)
  	(force-output *trace-output*)))))
  
  (defun decode-to-string (bytes
  			 &key (start1 0) (end1 (length bytes))
  