anchor.diff:      (declare (type (unsigned-byte 8) byte))
       (case byte
         ((#.+UC0+ #.+UC1+ #.+UC2+ #.+UC3+ #.+UC4+ #.+UC5+ #.+UC6+ #.+UC7+) ; Change to Window
  -       (when *scsu-state-trace*
  -	 (format *trace-output* "UC~D " (find-UCn-window byte)))
  +       (scsu-trace-output "UC~D " (find-UCn-window byte))
          (scsu-change-to-window state (find-UCn-window byte))
          (setf (scsu-state-mode state) :single-byte-mode)
          (decode-unit* state read-func))
         ((#.+UD0+ #.+UD1+ #.+UD2+ #.+UD3+ #.+UD4+ #.+UD5+ #.+UD6+ #.+UD7+) ; Define Window
  -       (when *scsu-state-trace*
  -	 (format *trace-output* "UD~D " (find-UDn-window byte)))
  +       (scsu-trace-output "UD~D " (find-UDn-window byte))
          (scsu-define-window state
   			   (find-UDn-window byte)
   			   (lookup-window-offset-table (funcall read-func)))
          (setf (scsu-state-mode state) :single-byte-mode)
          (decode-unit* state read-func))
         (#.+UQU+				; Quote Unicode
  -       (when *scsu-state-trace*
  -	 (format *trace-output* "UQU "))
  +       (scsu-trace-output "UQU ")
          (let ((char (decode-quote-unicode read-func)))
   	 (prog1 char
  -	   (when *scsu-state-trace*
  -	     (format *trace-output* "[quote unicode ~X]" char)))))
  +	   (scsu-trace-output "[quote unicode ~X]" char))))
         (#.+UDX+				; Define Extended
  -       (when *scsu-state-trace*
  -	 (format *trace-output* "UDX "))
  +       (scsu-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: 			      ,@(if (not writer-supplied-p) `((function ,writer)))))
  	     ,@body))))))
  
  
  ;;; Decoder
  (deftype read-func-type ()
  
negative.code:        ;; (assert (or (<= #x00 byte #xDF) (<= #xF3 byte #xFF)))
         (let ((next (funcall read-func)))
  	 (declare (type (unsigned-byte 8) next))
  	 (scsu-trace-output "[Unicode char ~X,~X]" byte next)
  	 (logior (ash byte 8) next))))))
  
  (defun decode-unit* (state read-func)
  