anchor.diff:        (format t "Tests avalied [pass/total]: ~d/~d ~%" pass total)))
   
   
  -(run-tests)+(run-tests)
  
positive.code: ;; Common Lisp Script
  ;; Manoel Vilela
  
  #| A heuristic method to calculate the 
     square root of a number x based on the 
     Hero of Alexandria's alogrithm.
   |#
  
   
  (defparameter *error-limit* 0.001)
  
  (defparameter *tests* '((square-root 2)
  
negative.code:              (if (good-enough? guess)
                   guess
                   (try (improve guess)))))
  
    (float (try 1))))
  
  
  