anchor.diff:      "Evaluate the currently focused input cell."
       (let* ((input (input repl))
              (id (current-cell-id repl))
  -           (evaluation (make-instance 'evaluation
  -                                      :input input
  -                                      :results (nyxt::evaluate input))))
  +           (evaluation (make-instance 'evaluation :input input)))
         (unless (uiop:emptyp input)
           (if id
               (setf (elt (evaluations repl) id) evaluation
  
positive.code:    (results
      nil
      :documentation "The results (as a list) of `input' evaluation.")
     (raised-condition
      nil
      :type (maybe condition)
  
negative.code:   (:export-class-name-p t)
    (:export-accessor-names-p t)
    (:accessor-name-transformer (class*:make-name-transformer name)))
  
  (defmethod initialize-instance :after ((evaluation evaluation) &key)
    (run-thread "repl cell evaluation"
      (setf (results evaluation) (nyxt::evaluate (input evaluation)))
      (setf (ready-p evaluation) t)))
  
  (define-mode repl-mode ()
    "Mode for interacting with the REPL."
  