anchor.diff:        )))
     
   (defgeneric write-construct-output (query-output-processor instans s p o &optional g)
  -  (:method ((this rete-construct-output-processor) instans s p o &optional g)
  +  (:method ((this instans-construct-output-processor) instans s p o &optional g)
       (declare (ignorable instans))
       (add-statement this s p o g))
     (:method ((this n-statement-output-processor) instans s p o &optional g)
  
positive.code:     nil))
  
  (defgeneric close-query-output-processor (query-output-processor)
    (:method ((this rete-output-processor))
      (flush-output-processor this)
      (close-rete-output-processor this))
    (:method ((this trig-output-processor))
      (output-pending-graph this)
      (call-next-method))
  
negative.code:   	  do (sb-concurrency:send-message mailbox (list s p o g)))))
  
  (defgeneric flush-output-processor (query-output-processor)
    (:method ((this instans-construct-output-processor))
      (flush-construct-output this))
    (:method ((this trig-output-processor))
      (output-pending-graph this))
  