anchor.diff:               "https://www.csie.ntu.edu.tw/~cjlin/libsvmtools/datasets/binary/a9a.t"
                "-O" (format-pathname file.t))))))
   
  -(defun approximately-equal (x y &optional (delta 0.2d0))
  +(defun approximately-equal (x y &optional (delta 1d0))
     (flet ((andf (x y) (and x y))
            (close? (x y) (< (abs (- x y)) delta)))
       (etypecase x
  
positive.code: 
  (is
   (n-times-average
    100
    (let ((a9a-dtree (make-dtree 2 a9a-datamatrix a9a-target :max-depth 20)))
      (test-dtree a9a-dtree a9a-datamatrix-test a9a-target-test)))
   82.23217010498047d0
  
negative.code: 
  (is
   (n-times-average
    5
    (trivial-garbage:gc :full t)
    (let* ((a9a-forest
             (make-forest 2 a9a-datamatrix a9a-target
  