anchor.diff:              (loop
                  :for space   :in '(cliki github bitbucket)
                  :for search? :in (list ?cliki ?github ?bitbucket) :do
  -               (aif (get space :error-report)
  -                    (progn
  -                      (once-only-print-search-results word)
  -                      (princ it))
  -                    (let ((serch-result (and search? (search-cache word space))))
  -                      (when serch-result
  +               (when search?
  +                 (aif (get space :error-report)
  +                      (progn
                           (once-only-print-search-results word)
  -                        (print-results serch-result space)
  -                        (setf found? t))))))
  +                        (princ it))
  +                      (let ((serch-result (search-cache word space)))
  +                        (when serch-result
  +                          (once-only-print-search-results word)
  +                          (print-results serch-result space)
  +                          (setf found? t)))))))
             
             (loop  ;not using threads
                :for space   :in '(cliki github bitbucket)
  
positive.code:                        (once-only-print-search-results word)
                         (print-results repos space)
                         (setf found? t))
                       (let ((serch-result (search-web word space)))
                         (aif (get space :error-report)
                              (progn
  
negative.code: ;;;; Last modified : 2013-08-08 21:05:17 tkych
  
  ;; quicksearch/quicksearch.lisp
  
  