anchor.diff:    BYTES を指定しなかった場合、無視される。"
     (declare (type (array (unsigned-byte 8) *) bytes)	   
   	   (type fixnum start end))
  -  (with-buffer-accessor (:writer put-byte :current dst-current)
  +  (with-buffer-accessor (dst-current :writer put-byte)
         (bytes start end :element-type (unsigned-byte 8))
       (with-scsu-error-handling
   	(state :dst dst-current
  
positive.code: 	  (t
  	   (encode-unit* state code-point next-code-point write-func)))))
  
  (defun initialize-timestamp (state initial-priority &optional string start end)
    (unless (scsu-state-timestamp-vector state)
      (setf (scsu-state-timestamp-vector state)
  	  (make-array +window-count+ :element-type 'fixnum :initial-element -1)))
    (cond
      ((eq initial-priority :fixed)
       (setf (scsu-state-fix-dynamic-window state) t))
      ((eq initial-priority :lookahead)
       (let ((priority-array (make-array '(8) :element-type 'fixnum :initial-element 0)))
         (declare (type (simple-array fixnum (8)) priority-array)
  		(dynamic-extent priority-array))
         (loop for i of-type fixnum from start below end
  	  as w = (find-suitable-dynamic-window state (char-code (char string i)))
  	  when w do (incf (aref priority-array w)))
         (initialize-timestamp state priority-array)))
      ((eq initial-priority :random)
         (loop for w of-type fixnum from 0 below +window-count+
  	  do (setf (scsu-state-timestamp state w) (- (random 100)))))
      ((typep initial-priority 'array)
       (let ((max (loop for i across initial-priority maximize i)))
         (loop for w of-type fixnum from 0 below +window-count+
  	  do (setf (scsu-state-timestamp state w)
  		   (- (aref initial-priority w) max)))))
      (t
       (error "initial-priority must be one of :lookahead, :random, or fixnum array"))))
  
  (defun encode-from-string (string
  			   &key (start1 0) (end1 (length string))
  
negative.code: 		 (slot-value ,%state 'current-timestamp) ,%c-t)
  	   (funcall ,return ,%dst ,%src))))))
  
  (defmacro with-buffer-accessor ((current
  				 &key (reader (gensym) reader-supplied-p)
  				 (writer (gensym) writer-supplied-p))
  				   (buffer start end &key (element-type '*))
  				&body body)
    (alexandria:once-only (buffer start end)
  