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