anchor.diff:    (end-of-buffer)
     (unless (bolp)
       (insert-newline))
  -  (insert-string "* ")
  +  (insert-string (format nil "~a> " (package-name (lisp-current-package))))
     (buffer-put (window-buffer) :prompt-point (point))
     (buffer-undo-boundary (window-buffer)))
   
  
positive.code:           (point-set end)
            (insert-newline)
            (multiple-value-bind (values error-p)
                (eval-string str buffer (point))
              (declare (ignore error-p))
              (setq *current-window* (pop-to-buffer buffer))
              (point-set (point-max))
  
negative.code: 
  (defvar *lisp-repl-history* nil)
  
  (define-major-mode lisp-repl-mode lisp-mode
    (:name "lisp-repl"
     :keymap *lisp-repl-mode-keymap*
     :syntax-table *lisp-syntax-table*)
  