anchor.diff:                    (unless lastp
                       (write-char #\newline out))))))
   
  -@export
   (defun count-characters (start-point end-point)
     @lang(:jp "`start-point`から`end-point`までの文字列の長さを返します。")
     (let ((count 0))
  
positive.code: ")
    (skip-chars-internal point test t))
  
  @export
  (defun skip-chars-backward (point test)
    @lang(:jp "`point`からその位置の前の文字を`test`で評価して非NILの間、前の方向に移動します。  
  `test`が文字のリストならその位置の前の文字が`test`のリスト内に含まれるか  
  
negative.code:             (unless (character-offset point (if dir 1 -1))
                (return count))))
  
  (defun skip-chars-forward (point test)
    @lang(:jp "`point`からその位置の文字を`test`で評価して非NILの間、後の方向に移動します。  
  `test`が文字のリストならその位置の文字が`test`のリスト内に含まれるか  
  