anchor.diff:                        (if if-invalid
                             (funcall (parse-if-invalid if-invalid error-color) parsed-input)
                             (say "The value is not valid" :color error-color)))
  -		     ((and type (not (typep parsed-input type)))
  -		      (if if-invalid
  -			  (funcall (parse-if-invalid if-invalid error-color) parsed-input)
  -			  (say "Value should be of type: ~a" type :color error-color)))			   
  +                     ((and type (not (typep parsed-input type)))
  +                      (if if-invalid
  +                          (funcall (parse-if-invalid if-invalid error-color) parsed-input)
  +                          (say "Value should be of type: ~a" type :color error-color)))
                        (t
                         (return parsed-input))))))))))
   
  
positive.code:                                if-invalid
                                 parser
                                 completer
  			       type
                                 (color *prompt-color*)
                                 (error-color *prompt-error-color*))
    "Prompt for a string.
  
negative.code:              for option in options
               for i from 0
               do
                  (format *query-io* "[~A] ~A" i option)
                  (when (< (1+ i) (length options))
                    (format *query-io* separator)))
             (terpri))
           (read-option ()
             (cond
  