anchor.diff:  (defgeneric rete-add (instans subj pred obj graph)
     (:method ((this instans) subj pred obj graph)
       (if (member :rete-add (rule-instance-queue-report-p (instans-rule-instance-queue this)))
  -	(format (instans-default-output this) "~%Rete add to ~A ~A ~A ~A~%"
  +	(format (instans-default-output this) "~&Rete add to ~A ~A ~A ~A~%~%"
   		(if graph (sparql-value-to-string graph :instans this) "DEFAULT")
   		 (sparql-value-to-string subj :instans this)
   		 (sparql-value-to-string pred :instans this)
  
positive.code: 	   (setf (cdr (rule-instance-queue-tail queue)) new-cell)
  	   (setf (rule-instance-queue-tail queue) new-cell)))
      (if (member :queue (rule-instance-queue-report-p (instans-rule-instance-queue (node-instans node))))
  	(report-rule-op "Added" node token))
      (incf (rule-instance-queue-add-count queue))))
  
  (defun rule-instance-queue-remove (queue node token)
    (loop for prev = nil then list
  	for list on (rule-instance-queue-head queue)
  	for instance = (car list)
  	when (and (eq node (rule-instance-node instance)) (equal token (rule-instance-token instance)))
  	do (progn
  	     (cond ((null prev)
  		    (setf (rule-instance-queue-head queue) (cdr list)))
  
negative.code: (defgeneric rete-remove (instans subj pred obj graph)
    (:method ((this instans) subj pred obj graph)
      (if (member :rete-remove (rule-instance-queue-report-p (instans-rule-instance-queue this)))
  	(format (instans-default-output this) "~&Rete remove from ~A ~A ~A ~A~%~%"
  		 (if graph (sparql-value-to-string graph :instans this) "DEFAULT")
  		 (sparql-value-to-string subj :instans this)
  		 (sparql-value-to-string pred :instans this)
  