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
    20
    (trivial-garbage:gc :full t)
    (let ((letter-forest
            (make-forest letter-n-class letter-datamatrix letter-target
  
negative.code: 
  (is
   (n-times-average
    10
    (let ((letter-dtree (make-dtree letter-n-class letter-datamatrix letter-target :max-depth 20)))
      (test-dtree letter-dtree letter-datamatrix-test letter-target-test)))
   83.9534912109375d0
  