anchor.diff:  	(state :dst dst-current
   	       :return (lambda (dst src)
   			 (declare (ignore src))
  +			 (when bytes-fill-pointer-at-first
  +			   (setf (fill-pointer bytes) (max dst bytes-fill-pointer-at-first)))
   			 (return-from encode-reset-sequence
   			   (values bytes dst state))))
         ;; change to default windows
  
positive.code: 						:element-type '(unsigned-byte 8)))
  			     (start2 0) (end2 (length bytes))
  			     (initial-priority :lookahead)
  			     (state (make-instance 'scsu-state)))
    (declare (type string string)
  	   (type (array (unsigned-byte 8) *) bytes)	   
  	   (type fixnum start1 end1 start2 end2))
  
negative.code: 					       :element-type 'character
  					       :fill-pointer 0 :adjustable t))
  			   (start2 0) (end2 (length string))
  			   (state (make-instance 'scsu-state))
  			 &aux (string-fill-pointer-at-first (fill-pointer-if-exists string)))
    (declare (type (array (unsigned-byte 8) *) bytes)
  	   (type fixnum start1 end1 start2 end2)
  	   (type string string))
  