(defstruct (RDRule (:print-function RDRule-print))
  (comment nil)
  (good (list))
  (bad (list))
  (ugly (list))
  (true nil)
  (false nil)
  (parent nil)
  (fn nil)
  (class nil))

(defun RDRule-print (rule stream depth)
  (format stream "#<RDRule>(TRUE:~A, FALSE:~A, CLASS:~A, FN-SET:~A, GOOD:~A, BAD:~A, UGLY:~A, COMMENT:~A)~%"
	  (RDRule-true rule)
	  (RDRule-false rule)
	  (RDRule-class rule)
	  (functionp (RDRule-fn rule))
	  (xindex-ns (RDRule-good rule))
	  ;(showh (xindex-counts (RDRule-good rule)) :show #'(lambda (x) (format t "~A~%" (car x))))
	  ;(showh (xindex-counts (RDRule-bad rule)) :show #'(lambda (x) (format t "~A~%" (car x))))
	  ;(showh (xindex-counts (RDRule-ugly rule)) :show #'(lambda (x) (format t "~A~%" (car x))))
	  (xindex-ns (RDRule-bad rule))
	  (xindex-ns (RDRule-ugly rule))
	  (RDRule-comment rule)))