anchor.diff:  	   (construct-output-name nil)
   	   (construct-output-type :trig)
   	   time-output-name
  -	   time
  +	   time-output-stream
  +	   start-time-sec
  +	   start-time-usec
   	   base graph expected debug reporting rete-html-page-dir)
         (setf *instanssi* instans)
         (labels ((valid-value-p (value accepted-values &key test)
  
positive.code: 		   (setf (instans-select-output-processor instans) (create-select-output-processor select-output-name select-output-type)))
  		 (when (and construct-output-type (null (instans-construct-output-processor instans)))
  		   (setf (instans-construct-output-processor instans) (create-construct-output-processor construct-output-name construct-output-type)))
  		 ))
  	(unwind-protect
  ;	     (handler-case
  	     (progn
  	       (loop for (key value) in configuration
  ;		     do (inform "key = ~S, value = ~S~%" key value)
  		     do (case key
  			  (:name (setf (instans-name instans) value))
  			  (:directory (setf directory (parse-iri (if (http-or-file-iri-string-p value)
  
negative.code: 	       instans)
  ;	       (t (e) (inform "~A" e))
  ;	  )
  	  (when time-output-stream
  	    (output-time "Done")
  	    (close time-output-stream))
  	  (instans-close-open-streams instans))))))
  
  (defvar *test-argv*)
  