anchor.diff:  
              (help-buffer (make-buffer
                            :name (concatenate 'string "HELP-" (symbol-name input-sym))
  -                         :default-modes '(help-mode root-mode)))
  +                         :default-modes (cons 'help-mode
  +                                              (eval (get-default 'buffer 'default-modes)))))
              (help-contents (cl-markup:markup
                              (:h1 (symbol-name input-sym))
                              (:h2 "Documentation")
  
positive.code:                        :input-prompt "Evaluate Lisp:"))
      (let* ((result-buffer (make-buffer
                             :name (concatenate 'string "EVALUATION RESULT-" input)
                             :default-modes '(help-mode root-mode)))
             (results (handler-case
                          (mapcar #'write-to-string (evaluate input))
                        (error (c) (format nil "~a" c))))
  
negative.code:                        :input-prompt "Inspect variable:"))
      (let* ((help-buffer (make-buffer
                           :name (concatenate 'string "HELP-" (symbol-name input))
                           :default-modes (cons 'help-mode
                                                  (eval (get-default 'buffer 'default-modes)))))
             (help-contents (cl-markup:markup
                             (:h1 (symbol-name input))
                             (:p (documentation input 'variable))
  