anchor.diff:    (declare (type (array (unsigned-byte 8) *) bytes)
   	   (type fixnum start1 end1 start2 end2)
   	   (type string string))
  -  (when (scsu-state-trace state)
  -    (format *trace-output* "~2&"))
  +  (scsu-trace-output "~2&")
     (with-buffer-accessor (:reader pick-byte :current src-current)
         (bytes start1 end1 :element-type (unsigned-byte 8))
       (with-buffer-accessor (:writer put-char :current dst-current)
  
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)
  