anchor.diff:  							  :subscribe debug)))
   			 (:select-output
   			  (setf select-output-name value)
  -			  (setf select-output-type (pathname-type (parse-namestring value))))
  +;			  (inform "select-output-name = ~S" select-output-name)
  +			  (setf select-output-type (intern (string-upcase (pathname-type (parse-namestring value))) :keyword)))
   			 (:expect (let ((spec (parse-spec-string value)))
   				    (inform "expect spec = ~S" spec)
   				    (setf expected spec)))
  
positive.code:       (let ((option (parse-arg info-options nil)))
  	(when (null option)
  	  (loop while args
  		unless (parse-arg configuration-options t)
  	        do (pop args))
  	  (when configuration
  
negative.code: 				   (push-to-end (list (first option) value) configuration)))
  			    (return option)))
  		     finally (cond (not-found-error-p
  				    (format notifications "Illegal argument \"~A\"~%" arg)
  				    (return-from main nil))
  				   (t
  				    (return nil)))))
  