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." ...@@ -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) (cl-make-type-test val (apply (get (car type) 'cl-deftype-handler)
(cdr type)))) (cdr type))))
((memq (car type) '(integer float real number)) ((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 (memq (cadr type) '(* nil)) t
(if (consp (cadr type)) (list '> val (caadr type)) (if (consp (cadr type)) (list '> val (caadr type))
(list '>= val (cadr 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