anchor.diff:                           :unicode (eql encoding :utf-8)
                            :arrows  (if (eql encoding :utf-8)
                                         :unicode-halfwidth
  -                                      :ascii) 
  +                                      :ascii)
                            :terminal terminal)))
         (setf *task* task) ; to help debugging, we keep the task in the global binding.
         (or (parse-options (or args (arguments)) nil nil nil)
  
positive.code: ;;;;SYSTEM:             Common-Lisp
  ;;;;USER-INTERFACE:     NONE
  ;;;;DESCRIPTION
  ;;;;    
  ;;;;    Command Line Interface.
  ;;;;    
  ;;;;AUTHORS
  ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
  ;;;;MODIFICATIONS
  
negative.code:     (io-format task "________________________________________")
      (io-carriage-return task)
      (io-format task "Hello 2: ")
  
      (let ((line (terminal-read-string (task-terminal task))))
        (io-format task "Lu 1: ~S~%" line))
  
      (io-format task "~%")
  
      (io-format task "________________________________________")
      (io-carriage-return task)
      (io-format task "Hello 3: ")
  