anchor.diff:                (terminal-keysym-label terminal :attention)
                 (terminal-keysym-label terminal :return))))
   
  -#+debugging
  -(defun initialize-debugging-task ()
  -  (setf *command-group* awake
  -        *task* (make-instance 'task
  -                   :state :active
  -                   :case-insensitive t
  -                   :upcase-output nil
  -                   :dectech nil
  -                   :unicode nil
  -                   :terminal (make-instance 'standard-terminal
  -                                 :input-stream  (stream-input-stream  *terminal-io*)
  -                                 :output-stream (stream-output-stream *terminal-io*)))))
  -
  -
  -
  -
   
   
   
  
positive.code: (defun command-eval-line (task line)
    (let ((*task* task))
      (cond
        
        ((and (= 2 (length line))
              (alpha-char-p (aref line 0))
              (alpha-char-p (aref line 1)))
  
negative.code: 
             #+debugging
             (report-and-debug-error  (err) (debug-report-error err) (invoke-debugger err)))
      (handler-case
          #-debugging (funcall thunk)
          #+debugging (if *debug-repl* 
                          (handler-bind
                              ((lse-error     (function report-and-signal-error))
                               (scanner-error (function report-and-signal-error))
                               (parser-error  (function report-and-signal-error))
                               (file-error    (function report-and-signal-error))
                               (error         (function report-and-debug-error)))
                            (funcall thunk))
                          (funcall thunk))
  
          (lse-scanner-error-invalid-character (err) (invalid-character-error err))
          (error                               (err) (report-error err))
          (user-interrupt                      (cnd) (user-interrupt cnd)))))
  
  
  (defmacro with-error-reporting (task &body body)
  