Commit cb35e559 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(cl-make-type-test): Defer evaluation of cl-make-type-test to execution time.

parent bfff13ab
......@@ -2399,7 +2399,7 @@ The type name can then be used in `typecase', `check-type', etc."
(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))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment