/[emacs]/emacs/lisp/emacs-lisp/cl-macs.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/cl-macs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.42 by monnier, Sat Jul 5 00:23:04 2003 UTC revision 1.42.2.1 by handa, Mon Sep 8 12:53:39 2003 UTC
# Line 2374  The type name can then be used in `typec Line 2374  The type name can then be used in `typec
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"))))

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.42.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26