2374 |
((eq type 'real) `(numberp ,val)) |
((eq type 'real) `(numberp ,val)) |
2375 |
((eq type 'fixnum) `(integerp ,val)) |
((eq type 'fixnum) `(integerp ,val)) |
2376 |
;; FIXME: Should `character' accept things like ?\C-\M-a ? -stef |
;; FIXME: Should `character' accept things like ?\C-\M-a ? -stef |
2377 |
((memq type '(character string-char)) `(char-valid-p ,val)) |
((memq type '(character string-char)) `(characterp ,val)) |
2378 |
(t |
(t |
2379 |
(let* ((name (symbol-name type)) |
(let* ((name (symbol-name type)) |
2380 |
(namep (intern (concat name "p")))) |
(namep (intern (concat name "p")))) |