anchor.diff:  			   (instans-add-triples instans-iri (expand-iri directory value) :graph graph :base base)
   			   (unless (instans-find-status instans 'instans-rdf-parsing-succeeded)
   			     (let ((status (first (instans-status instans))))
  -			       (inform "~%~A:~A~{~%~A~}~%" value (type-of status) (instans-status-messages status)))
  +			       (format time-output-stream "~%~A:~A~{~%~A~}~%" value (type-of status) (instans-status-messages status)))
   			     (return-from run-configuration nil)))
   		     ;;; "base=http://example.org/friends/&graph=http://instans.org/events/&file=tests/input/fnb.ttl&input-policy=triples-block&operations:add:execute:remove:execute"
   			  ((:turtle :trig :input)
  
positive.code: 	       instans)
  ;	       (t (e) (inform "~A" e))
  ;	  )
  	  (instans-close-open-streams instans))))))
  
  (defvar *test-argv*)
  
negative.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)))
  		 )
  	       (output-time (fmt &rest args)
  		 (multiple-value-bind (time-sec time-usec) (sb-unix::get-time-of-day)
  		     (let* ((delta-sec (- time-sec start-time-sec))
  			    (delta-usec (- time-usec start-time-usec)))
  		       (when (< delta-usec 0)
  			 (decf delta-sec)
  			 (incf delta-usec 1000000))
  		       (inform "At ~D.~6,'0D: ~A~%" delta-sec delta-usec  (apply #'format nil fmt args))))))
  	(unwind-protect
  ;	     (handler-case
  	     (progn
  	       (loop for (key value) in configuration
  		     when time-output-stream
  		     do (output-time "Processing key ~A, value ~A" key value)
  		     do (case key
  			  (:name (setf (instans-name instans) value))
  			  (:directory (setf directory (parse-iri (if (http-or-file-iri-string-p value)
  