anchor.diff:  (defmethod update-evaluation-history-display ((repl repl-mode))
     (flet ((generate-evaluation-history-html (repl)
              (spinneret:with-html-string
  -             (:ul (loop for (input results) in (reverse (evaluation-history repl))
  -                        collect (:li (:b input)
  +             (:ul (loop for (package input results) in (reverse (evaluation-history repl))
  +                        collect (:li (:b package "> " input)
                                        (loop for result in results
                                              collect (:li (:raw (value->html result t))))))))))
       (ffi-buffer-evaluate-javascript-async
  
positive.code:        "return" 'return-input
         "(" 'paren
         ")" 'closing-paren
         "tab" 'tab-complete-symbol)
        scheme:emacs
        (list
         "C-f" 'nyxt/input-edit-mode:cursor-forwards
  
negative.code:             (li :padding "2px"))
            :documentation "The CSS applied to a REPL when it is set-up.")
     (evaluation-history (list)
                         :documentation "A list of pairs of (PACKAGE INPUT RESULTS).
  INPUT is a string and RESULTS is a list of Lisp values.")
     (current-evaluation-history-element
      nil
      :type (or null integer)
      :documentation "Current element of history being edited in the REPL prompt.
  
  Scroll history with `evaluation-history-previous' and `evaluation-history-next'.")))
  
  (defun package-short-name (package)
    (first (sort (append (package-nicknames package)
  