anchor.diff:                   (time (if (apply symbol)
                              (inc passed)
                              (inc failed))))
  -            (println "----------------------------------------------------------------------"))))
  +            )))
   
       ;; make report and colorize if necessary
       (setq counter (+ failed passed))
  
positive.code: ;;; conjuction with other programs.
  
  ;;; need cleaning up!!!!!!!!!!!!
  (context 'TermColor)
  
  ;;; define some terminal color
  
negative.code: 
  (define-macro (check test-cases cur-test)
  ;;  (println)
  
    (letn (time-running 0 result-list '())
  
  