anchor.diff:  
   (define-command delete-forwards (&optional (minibuffer (current-minibuffer)))
     "Delete character after cursor."
  -  (with-accessors ((buffer input-buffer) (cursor input-buffer-cursor)) minibuffer
  +  (with-accessors ((buffer input-buffer) (cursor input-cursor-position)) minibuffer
       (unless (= cursor (length buffer))
         (setf buffer
               (concatenate 'string
  
positive.code: 
  @export
  (defmethod update-display ((minibuffer minibuffer))
    (with-slots (input-buffer input-buffer-cursor
                 completions completion-cursor)
        minibuffer
      (let ((input-text (if (invisible-input-p minibuffer)
                            (generate-input-html-invisible input-buffer input-buffer-cursor)
                            (generate-input-html input-buffer input-buffer-cursor)))
            (completion-html (generate-completion-html completions completion-cursor minibuffer)))
        (evaluate-script minibuffer
                         (ps:ps
  
negative.code: 
  (define-command kill-line (&optional (minibuffer (current-minibuffer)))
    "Delete all characters from cursor position until the end of the line."
    (with-accessors ((buffer input-buffer) (cursor input-cursor-position)) minibuffer
      (setf buffer (subseq buffer 0 cursor)))
    (update-display minibuffer))
  
  (define-command kill-whole-line (&optional (minibuffer (current-minibuffer)))
    "Delete all characters in the input."
    (with-accessors ((buffer input-buffer) (cursor input-cursor-position)) minibuffer
      (setf buffer ""
            cursor 0))
    (update-display minibuffer))
  