anchor.diff:    (with-terminal terminal
       (unwind-protect
            (progn
  -           (with-pager task  
  +           (with-pager task
                (io-format task "~A" *tape-banner*)
                (io-format task "~?" *title-banner* (list (long-version) *copyright*))
                (io-format task "~?" *cli-banner*   (list (subseq (dat) 9))))
  
positive.code:                                           :unicode (eql encoding :utf-8)
                                            :arrows  (if (eql encoding :utf-8)
                                                         :unicode-halfwidth
                                                         :ascii) 
                                            :terminal terminal))
                   #-(and) (*trace-output* (make-broadcast-stream)))
              (setf *task* task) ; to help debugging, we keep the task in the global binding.
  
negative.code: ;;;;SYSTEM:             Common-Lisp
  ;;;;USER-INTERFACE:     NONE
  ;;;;DESCRIPTION
  ;;;;
  ;;;;    Command Line Interface.
  ;;;;
  ;;;;AUTHORS
  ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
  ;;;;MODIFICATIONS
  