/[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.32 by monnier, Fri Nov 30 08:22:46 2001 UTC revision 1.33 by monnier, Fri Nov 30 09:20:17 2001 UTC
# Line 2241  The type name can then be used in `typec Line 2241  The type name can then be used in `typec
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"))))

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

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