anchor.diff:          (lem::editor-abort ()))))
     condition)
   
  -(defun %lisp-eval-internal (x marker &optional update-point-p)
  -  (lem::with-point ((cur-marker marker
  -                                 (if update-point-p
  -                                     :left-inserting
  -                                     :right-inserting)))
  -    (with-open-stream (io (make-editor-io-stream cur-marker t))
  +(defun %lisp-eval-internal (x point &optional update-point-p)
  +  (lem::with-point ((cur-point point
  +                               (if update-point-p
  +                                   :left-inserting
  +                                   :right-inserting)))
  +    (with-open-stream (io (make-editor-io-stream cur-point t))
         (let* ((error-p)
                (results)
                (*terminal-io* io)
  
positive.code:                  (loop :for (file jump-fun) :in defs
                         :do (lem.sourcelist:append-sourcelist
                              sourcelist
                              (lambda (cur-marker)
                                (lem::insert-string-at cur-marker file))
                              jump-fun)))))))))
  
  (define-key *lisp-mode-keymap* (kbd "M-,") 'lisp-pop-find-definition-stack)
  (define-command lisp-pop-find-definition-stack () ()
    (let ((cur-marker (pop *lisp-find-definition-stack*)))
      (unless cur-marker
        (return-from lisp-pop-find-definition-stack nil))
      (switch-to-buffer (point-buffer cur-marker))
      (lem::move-point (current-point) cur-marker)))
  
  (defun analyze-symbol (str)
    (let (package
  
negative.code:                             (stop-timer *lisp-timer*)))))
  
  (defun lisp-print-values (values)
    (lem::with-point ((point (current-point) :left-inserting))
      (with-open-stream (out (make-buffer-output-stream point))
        (let ((*package* (lisp-current-package)))
          (dolist (v values)
            (pprint v out))))
      (lem::move-point (current-point) point)))
  
  (define-key *lisp-mode-keymap* (kbd "C-c C-j") 'lisp-eval-print-last-sexp)
  (define-command lisp-eval-print-last-sexp () ()
  