anchor.diff:    (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)
  
positive.code:       (setf (terminal-echo terminal) saved-echo))))
  
  
  (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)))
  
negative.code:       (integer (un-nombre value))
        (nombre  value)
        (t (lse-error "UN NOMBRE ETAIT ATTENDU, PAS ~S" value)))))
  
  (defun io-echo (task)
     (terminal-echo (task-terminal task)))
  