anchor.diff:  			      &key (bytes (make-array (* 2 +window-count+) ; SDn * 8
   						      :fill-pointer 0
   						      :element-type '(unsigned-byte 8)))
  -				(start 0) (end (length bytes)))
  +				(start 0) (end (length bytes))
  +			      &aux (bytes-fill-pointer-at-first (fill-pointer-if-exists bytes)))
     (declare (type (array (unsigned-byte 8) *) bytes)	   
   	   (type fixnum start end))
     (with-buffer-accessor (:writer put-byte :current dst-current)
  
positive.code:   (when *scsu-state-trace*
      (apply #'format *trace-output* format-control format-arguments)))
  
  
  ;;; Decoder
  (deftype read-func-type ()
  
negative.code: 						:element-type '(unsigned-byte 8)))
  			     (start2 0) (end2 (length bytes))
  			     (initial-priority :lookahead)
  			     (state (make-instance 'scsu-state))
  			   &aux (bytes-fill-pointer-at-first (fill-pointer-if-exists bytes)))
    (declare (type string string)
  	   (type (array (unsigned-byte 8) *) bytes)	   
  	   (type fixnum start1 end1 start2 end2))
  