anchor.diff:  ;; Common Lisp Script
   ;; Manoel Vilela
   
  -#| A heuristic method to calculate the 
  -   square root of a number x based on the 
  +#| 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)
  
positive.code:              (if (good-enough? guess)
                   guess
                   (try (improve guess)))))
    
    (float (try 1))))
  
  
  
negative.code:       (format t "Tests avalied [pass/total]: ~d/~d ~%" pass total)))
  
  
  (run-tests)
  