anchor.diff:         (decode-unit* state read-func))
         (#.+UQU+				; Quote Unicode
          (when *scsu-state-trace*
  -	 (format *debug-io* "UQU "))
  +	 (format *trace-output* "UQU "))
          (let ((char (decode-quote-unicode read-func)))
   	 (prog1 char
   	   (when *scsu-state-trace*
  -	     (format *debug-io* "[quote unicode ~X]" char)))))
  +	     (format *trace-output* "[quote unicode ~X]" char)))))
         (#.+UDX+				; Define Extended
          (when *scsu-state-trace*
  -	 (format *debug-io* "UDX "))
  +	 (format *trace-output* "UDX "))
          (decode-define-window-extended state read-func)
          (setf (scsu-state-mode state) :single-byte-mode)
          (decode-unit* state read-func))
  
positive.code: 	     (declare (type unicode-code-point offset)
  		      (type (unsigned-byte 8) position))
  	     (when *scsu-state-trace*
  	       (format *debug-io* "[single-byte dynamic window ~X]" byte))
  	     (+ offset position))))))
  
  (defun decode-unit*/unicode-mode (state read-func)
  
negative.code: 		(scsu-state-update-timestamp state window)
  		(cond ((<= #x0 next-byte #x7f)
  		       (when *scsu-state-trace*
  			 (format *trace-output* "[single quote static ~X]" next-byte))
  		       (+ (lookup-static-window window) next-byte))
  		      (t
  		       (when *scsu-state-trace*
  			 (format *trace-output* "[single quote dynamic ~X]" next-byte))
  		       (+ (lookup-dynamic-window state window)
  			  (logand next-byte #x7f))))))
  	     (#.+SDX+			; Define Extended
  	      (when *scsu-state-trace*
  		(format *trace-output* "SDX "))
  	      (decode-define-window-extended state read-func)
  	      (decode-unit* state read-func))
  	     (#xC
  