anchor.diff:                    (get-point *editor*) point
                     (editor-history *editor*) history)))
           (let ((*editor* (apply 'make-editor keyword-args)))
  +	  (setf *current-editor* *editor*)
             (with-backend *editor*
               (edit))))))
   
  
positive.code: (in-package :linedit)
  
  (defvar *editor* nil)
  
  (defun linedit (&rest keyword-args)
    "Reads a single line of input with line-editing."
  
negative.code:            (get-finished-string *editor*)))
      (if (and *editor* (backend-ready-p *editor*))
          ;; FIXME: This is a bit kludgy. It would be nicer to have a new
          ;; editor object that shares the same backend, kill-ring, etc.
          (let* ((new (getf keyword-args :prompt))
                 (old (editor-prompt *editor*))
                 (history (copy-buffer (editor-history *editor*)))
  