anchor.diff:  ;;;; SPDX-FileCopyrightText: Atlas Engineer LLC
   ;;;; SPDX-License-Identifier: BSD-3-Clause
  -
  -
   
   (in-package :text-buffer)
   
  
positive.code:         (cluffer:insert-item cursor (string char))))
  
  (defmethod word-at-cursor ((cursor cursor))
      "Return word at cursor.
  If cursor is between two words, return the first one."
    (let ((cursor-position (cluffer:cursor-position cursor)))
      (move-backward-word cursor)
      (let ((word-at-cursor (apply #'concatenate 'string (move-forward-word cursor))))
        (setf (cluffer:cursor-position cursor) cursor-position)
        word-at-cursor)))
  
  (defmethod replace-word-at-cursor ((cursor cursor) string)
    (unless (uiop:emptyp (word-at-cursor cursor))
  
negative.code: (defmethod safe-forward ((cursor cursor))
    (unless (cluffer:end-of-line-p cursor)
      (cluffer:forward-item cursor)
      (cluffer:item-before-cursor cursor)))
  
  (defmethod safe-backward ((cursor cursor))
    (unless (cluffer:beginning-of-line-p cursor)
      (cluffer:backward-item cursor)
      (cluffer:item-after-cursor cursor)))
  
  (defmethod delete-item-forward ((cursor cursor))
    (unless (cluffer:end-of-line-p cursor)
  