anchor.diff:  (defvar a1a)
   
   (plan nil)
  +
  +(defun approximately-equal (x y &optional (delta 0.001d0))
  +  (flet ((andf (x y) (and x y))
  +         (close? (x y) (< (abs (- x y)) delta)))
  +    (etypecase x
  +      (double-float (close? x y))
  +      (vector (reduce #'andf (map 'vector #'close? x y)))
  +      (list (reduce #'andf (mapcar #'close? x y))))))
   
   ;; Test1: read libsvm dataset
   (is (progn
  
positive.code:       0.0d0 -0.023947097706836798d0 -0.13155181519914805d0 -0.18035674534617752d0
        0.0d0 0.0d0 -0.06478330902974494d0 0.2470977967397556d0 -0.3045554304015999d0
        0.0d0 0.0d0 0.0d0 0.0d0)
      :test #'equalp)
  
  (is (cl-ol::bias-of scw2-learner) -0.31820098518563744d0)
  
  ;; Test19: test SCW-II learner
  (is (multiple-value-bind (accuracy n-correct n-total)
  	(test scw2-learner a1a)
        (list accuracy n-correct n-total))
      '(85.35825 1370 1605))
  
  (finalize)
  
negative.code:       0.0d0 -0.35921664558291455d0 0.0d0 -0.1d0 0.0d0 -0.1d0 0.0d0
        -0.004009999408091602d0 -0.09096123283625236d0 0.0d0 0.1d0 -0.1d0 0.0d0 0.0d0
        0.0d0 0.0d0 0.1d0 -0.1d0 0.0d0 0.0d0 0.0d0 0.0d0)
      :test #'approximately-equal)
  
  (is (cl-ol::bias-of scw1-learner)
      -0.4139374405086192d0
      :test #'approximately-equal)
  
  ;; Test16: test SCW-I learner
  (is (multiple-value-bind (accuracy n-correct n-total)
  	(test scw1-learner a1a)
        (list accuracy n-correct n-total))
      '(84.610596 1358 1605)
      :test #'approximately-equal)
  
  ;; Test17,18 make and train SCW-II learner
  (defvar scw2-learner)
  