anchor.diff:     (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)
  
positive.code:   (:export-class-name-p t)
    (:export-accessor-names-p t)
    (:accessor-name-transformer (class*:make-name-transformer name)))
  
  (define-mode repl-mode ()
    "Mode for interacting with the REPL."
  
negative.code:                                                                         'current-evaluation)
                                                              order)))
                                                (input evaluation)))
                       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"
  