2399 |
(cl-make-type-test val (apply (get (car type) 'cl-deftype-handler) |
(cl-make-type-test val (apply (get (car type) 'cl-deftype-handler) |
2400 |
(cdr type)))) |
(cdr type)))) |
2401 |
((memq (car type) '(integer float real number)) |
((memq (car type) '(integer float real number)) |
2402 |
(delq t (and (cl-make-type-test val (car type)) |
(delq t (list 'and (cl-make-type-test val (car type)) |
2403 |
(if (memq (cadr type) '(* nil)) t |
(if (memq (cadr type) '(* nil)) t |
2404 |
(if (consp (cadr type)) (list '> val (caadr type)) |
(if (consp (cadr type)) (list '> val (caadr type)) |
2405 |
(list '>= val (cadr type)))) |
(list '>= val (cadr type)))) |