anchor.diff:        (setf (terminal-echo terminal) saved-echo))))
   
   
  +(defparameter *lse-readtable*
  +  (loop
  +    :with rt =  (copy-readtable nil)
  +    :for i :below char-code-limit
  +    :for ch = (code-char i)
  +    :when ch
  +    :do (set-macro-character ch nil nil rt)
  +    :finally (return rt))
  +  "A readtable to read L.S.E. data.  Ie, just numbers.
  +Symbols will signal an error,
  +and strings are read with read-line.")
  +
  +
   (defmethod terminal-read ((terminal standard-terminal) &key (echo t) (beep nil) (xoff nil))
     (declare (ignore xoff)) ; TODO: implement xoff on terminals.
     (let ((saved-echo (terminal-echo terminal)))
  
positive.code:          (progn
             (when beep
               (terminal-ring-bell terminal))
             (read (terminal-input-stream terminal)))
        (setf (terminal-echo terminal) saved-echo))))
  
  ;;----------------------------------------------------------------------
  
negative.code:   (if (io-terminal-input-p task)
        (terminal-read-line (task-terminal task) :echo echo :beep beep :xoff xoff)
        (read-line (task-input task))))
  
  (defun io-read (task)
    (if (io-terminal-input-p task)
  