anchor.diff:  
   (define-command cursor-backwards (&optional (minibuffer (current-minibuffer)))
     "Move cursor backwards by one."
  -  (with-slots (input-buffer input-buffer-cursor) minibuffer
  +  (with-slots (input-buffer-cursor) minibuffer
       (when (> input-buffer-cursor 0)
         (decf input-buffer-cursor)))
     (update-display minibuffer))
  
positive.code: 
  (define-command delete-forwards (&optional (minibuffer (current-minibuffer)))
    "Delete character after cursor."
    (with-slots (input-buffer input-buffer-cursor) minibuffer
      (unless (= input-buffer-cursor (length input-buffer))
        (setf input-buffer
              (concatenate 'string
                           (subseq input-buffer 0 input-buffer-cursor)
                           (subseq input-buffer
                                   (+ 1 input-buffer-cursor)
                                   (length input-buffer))))))
    (update-display minibuffer))
  
  (define-command delete-backwards (&optional (minibuffer (current-minibuffer)))
    "Delete character before cursor."
    (with-slots (input-buffer input-buffer-cursor) minibuffer
      (unless (= input-buffer-cursor 0)
        (setf input-buffer
              (concatenate 'string
                           (subseq input-buffer 0 (- input-buffer-cursor 1))
                           (subseq input-buffer input-buffer-cursor (length input-buffer))))
        (decf input-buffer-cursor)))
    (update-display minibuffer))
  
  (define-command cursor-forwards (&optional (minibuffer (current-minibuffer)))
  
negative.code: 
  (define-command delete-forwards-word (&optional (minibuffer (current-minibuffer)))
    "Delete characters from cursor position until the end of the word at point."
    (with-accessors ((buffer input-buffer) (cursor input-buffer-cursor)) minibuffer
      (let* ((current-cursor-position cursor)
             (new-cursor-position (cursor-forwards-word minibuffer))
             (transpose-distance (- new-cursor-position current-cursor-position)))
        (setf buffer
              (concatenate 'string
                           (subseq buffer 0 current-cursor-position)
                           (subseq buffer new-cursor-position (length buffer))))
        (setf cursor (- cursor transpose-distance))))
    (update-display minibuffer))
  
  (defun %delete-backwards-word (input position)
  