anchor.diff:  (defmethod update-evaluation-history-display ((repl repl-mode))
     (flet ((generate-evaluation-history-html (repl)
              (spinneret:with-html-string
  -            (:ul (loop for item in (reverse (evaluation-history repl))
  -                       collect (:li item))))))
  +             (:ul (loop for (input results) in (reverse (evaluation-history repl))
  +                        collect (:li input
  +                                     (loop for result in results
  +                                           collect (:li (prin1-to-string result)))))))))
       (ffi-buffer-evaluate-javascript-async
        (buffer repl)
        (ps:ps (setf (ps:chain document (get-element-by-id "evaluation-history") |innerHTML|)
  
positive.code:   (pflet ((input-text ()
             (ps:chain document (get-element-by-id "input-buffer") value)))
      (let ((input (input-text)))
        (add-object-to-evaluation-history repl (format nil "> ~a" input))
        (dolist (result (nyxt::evaluate input))
          (add-object-to-evaluation-history repl result))
        (reset-input repl)
        (update-evaluation-history-display repl))))
  
  
negative.code:                  :margin "0")
               (li :padding "2px")))
            :documentation "The CSS applied to a REPL when it is set-up.")
     (evaluation-history (list)
                         :documentation "A list of pairs of (INPUT RESULTS).
  INPUT is a string and RESULTS is a list of Lisp values.")
     (constructor
      (lambda (mode)
        (initialize-display mode)
  