anchor.diff:  (in-package :linedit)
   
   (defvar *editor* nil)
  +(defvar *current-editor* nil)
   
   (defun linedit (&rest keyword-args)
     "Reads a single line of input with line-editing."
  
positive.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 backed, kill-ring, etc.
          (let* ((new (getf keyword-args :prompt))
                 (old (editor-prompt *editor*))
                 (history (copy-buffer (editor-history *editor*)))
  
negative.code:                   (get-point *editor*) point
                    (editor-history *editor*) history)))
          (let ((*editor* (apply 'make-editor keyword-args)))
  	  (setf *current-editor* *editor*)
            (with-backend *editor*
              (edit))))))
  
  