anchor.diff:        (fresh-line)
         (backtrace 15)
         (fresh-line)
  -      (write-line "Enter a restart number or evaluate a form.")
  +      (write-line "Enter a restart number or evaluate a form. :help for help.")
         (loop
            (let ((* nil) (** nil) (*** nil)
                  (/ nil) (// nil) (/// nil)
  
positive.code:                           (finish-output)
                            (setf value (eval (read)))
                            (debugger-write-variable *current-debug-frame* slot value)))
                         (t (format t "Unknown command ~S~%" form))))
                      (t (let ((result (multiple-value-list (let ((- form))
                                                              (eval form)))))
  
negative.code:                             (format t "At outermost frame!~%")
                              (setf *current-debug-frame* (nth (1- (first *current-debug-frame*)) frames)))
                          (show-debug-frame))
                         (:bottom
                          (setf *current-debug-frame* (first frames))
                          (show-debug-frame))
                         (:top
                          (setf *current-debug-frame* (first (last frames)))
                          (show-debug-frame))
                         (:current
                          (show-debug-frame))
                         (:vars
                          (show-debug-frame)
                          (debugger-show-variables *current-debug-frame*))
  