Fix bug with single-float's in make-decision-tree

neil-lindquist · neil-lindquist · commit 8f78792de83b · 2018-02-24T13:16:09.000-06:00
This fixes the issue where single-float's pass floatp and then
are declared to be of type double-float with the safety optimization
flag set to 0.
diff --git a/decision-tree/src/decision-tree.lisp b/decision-tree/src/decision-tree.lisp
@@ -34,7 +34,7 @@
 (defun make-split-predicate (attribute &optional optimize)
   ;; make-split-predicate returns optimized function
   ;; if the optional data type is double-float
-  (if (and optimize (floatp attribute))
+  (if (and optimize (typep attribute 'double-float))
       #'(lambda (x)
           (declare (optimize speed (safety 0) (debug 0))
                    (type double-float attribute x))
