anchor.diff:                                                             @rec.libstrats it)
                                                             t))
                                                     (:microarrayp
  -                                                   (if @it.microarrayp
  -                                                       @rec.microarrayp
  -                                                       t))
  +                                                   (eql @it.microarrayp
  +                                                        @rec.microarrayp))
                                                     (otherwise
                                                      (or (string= @rec.organism
                                                                   filter)
  
positive.code:                            (who:str (slice @rec.citations (rt it)))))))
                       (t
                        (who:str @rec.citations)))
                     (when-it @rec.libstrats
                       (who:htm
                        (:br)
                        (:span :class "grey" "Library strategies: ")
                        (dolist (libstrat it)
                          (who:fmt "~(~A~) " (symbol-name libstrat)))))
                     (when-it @rec.microarrayp
                       (who:htm
                        (:br)
                        (:span :class "blue" "Microarray")))))))))
    
  (defun find-closest-recs (rec count &key
                                        (methods (mapcar 'first *geo-sim-methods*))
  
negative.code:   '((:histone "Histone")
      (:organism "Same organism")
      (:libstrats "Same library strategy")
      (:microarrayp "Same sequencing type")))
  
  (defvar *search-cache* #h(equalp))
  
  