anchor.diff:        (initialize-display mode)
         (add-object-to-evaluation-history mode "goldfish")
         (add-object-to-evaluation-history mode "sunfish")
  -      (update-evaluation-history-display mode)))))
  +      (update-evaluation-history-display mode)
  +      (update-input-buffer-display mode)))))
   
   (defmethod initialize-display ((repl repl-mode))
     (let* ((content (markup:markup
  
positive.code:                                 (:li item)))))))
      (ffi-buffer-evaluate-javascript 
       (buffer repl)
       (ps:ps (setf (ps:chain document (get-element-by-id "prompt") |innerHTML|)
                    (ps:lisp (generate-evaluation-history-html repl)))))))
  
  (in-package :next)
  
  
negative.code:                           (:div :id "completions" "")))))
           (insert-content (ps:ps (ps:chain document
                                            (write (ps:lisp content))))))
      (ffi-buffer-evaluate-javascript (buffer repl) insert-content)))
  
  (defmethod add-object-to-evaluation-history ((repl repl-mode) item)
    (push item (evaluation-history repl)))
  