anchor.diff:                                                                          'current-evaluation)
                                                               order)))
                                                 (input evaluation)))
  -                     collect (loop
  -                               for result in (results evaluation)
  -                               for sub-order from 0
  -                               for name = (if (serapeum:single (results evaluation))
  -                                              (intern (format nil "V~d" order))
  -                                              (intern (format nil "V~d.~d" order sub-order)))
  -                               do (setf (symbol-value name) result)
  -                               collect (:span (format nil "~(~a~) = " name)
  -                                              (:raw (value->html result (or (typep result 'standard-object)
  -                                                                            (typep result 'structure-object)))))
  -                               collect (:br)))
  +                     collect (if (ready-p evaluation)
  +                                 (loop
  +                                   for result in (results evaluation)
  +                                   for sub-order from 0
  +                                   for name = (if (serapeum:single (results evaluation))
  +                                                  (intern (format nil "V~d" order))
  +                                                  (intern (format nil "V~d.~d" order sub-order)))
  +                                   do (setf (symbol-value name) result)
  +                                   collect (:span (format nil "~(~a~) = " name)
  +                                                  (:raw (value->html result (or (typep result 'standard-object)
  +                                                                                (typep result 'structure-object)))))
  +                                   collect (:br))
  +                                 (:span "Calculating...")))
                      (:div :class "input"
                            (:span :class "prompt" ">")
                            (:textarea :class "input-buffer"
  
positive.code:     "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))))
        (unless (uiop:emptyp input)
          (if id
              (setf (elt (evaluations repl) id) evaluation
  
negative.code:    (results
      nil
      :documentation "The results (as a list) of `input' evaluation.")
     (ready-p
      nil
      :documentation "The evaluation is terminated.")
     (raised-condition
      nil
      :type (maybe condition)
  