cl-make-type-test, more

[Johan Bockgård]

Revision 1.31 of cl-macs.el broke cl-make-type-test's handling of
(NUMBER LOW HIGH) types. This patch restores the pre-1.31 behavior.

(cl-make-type-test 3 '(integer 5 7))
  -->
    without patch:
      (<= 3 7)
    with patch:
      (and (integerp 3) (>= 3 5) (<= 3 7))



--- cl-macs.el  05 Jul 2005 00:41:32 +0200      1.53
+++ cl-macs.el  13 Jul 2005 03:49:24 +0200      
@@ -2398,7 +2399,7 @@
           (cl-make-type-test val (apply (get (car type) 'cl-deftype-handler)
                                         (cdr type))))
          ((memq (car type) '(integer float real number))
-          (delq t (and (cl-make-type-test val (car type))
+          (delq t (list 'and (cl-make-type-test val (car type))
                         (if (memq (cadr type) '(* nil)) t
                           (if (consp (cadr type)) (list '> val (caadr type))
                             (list '>= val (cadr type))))


-- 
Johan Bockgård