2241 |
((eq type 'real) `(numberp ,val)) |
((eq type 'real) `(numberp ,val)) |
2242 |
((eq type 'fixnum) `(integerp ,val)) |
((eq type 'fixnum) `(integerp ,val)) |
2243 |
;; FIXME: Should `character' accept things like ?\C-\M-a ? -stef |
;; FIXME: Should `character' accept things like ?\C-\M-a ? -stef |
2244 |
((memq type '(character string-char))) `(char-valid-p ,val) |
((memq type '(character string-char)) `(char-valid-p ,val)) |
2245 |
(t |
(t |
2246 |
(let* ((name (symbol-name type)) |
(let* ((name (symbol-name type)) |
2247 |
(namep (intern (concat name "p")))) |
(namep (intern (concat name "p")))) |