anchor.diff:                    (say msg :color color))
                   (when default
                     (say "[~A] " default :color color))
  -                (read-line)))))
  +                (duologue-read-line)))))
         (let ((pathname
                 (loop do
                   (let* ((input (read-input))
  
positive.code:              (when (equalp arg option)
                 (return-from find-option (car args))))
      nil))
  
  (defun say (datum &rest args)
    "Prints a message on the screen.
  
negative.code:           :required-p required-p
            :if-invalid (or (parse-if-invalid if-invalid error-color)
                            (lambda () (say "Error. Invalid timestamp"
                                       :color error-color)))
            :color color
            :error-color error-color))
  
  