[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el

[Stefan Monnier]

Index: emacs/lisp/emacs-lisp/cl-macs.el
diff -c emacs/lisp/emacs-lisp/cl-macs.el:1.32 
emacs/lisp/emacs-lisp/cl-macs.el:1.33
*** emacs/lisp/emacs-lisp/cl-macs.el:1.32       Fri Nov 30 03:22:46 2001
--- emacs/lisp/emacs-lisp/cl-macs.el    Fri Nov 30 04:20:17 2001
***************
*** 2241,2247 ****
            ((eq type 'real) `(numberp ,val))
            ((eq type 'fixnum) `(integerp ,val))
            ;; FIXME: Should `character' accept things like ?\C-\M-a ?  -stef
!           ((memq type '(character string-char))) `(char-valid-p ,val)
            (t
             (let* ((name (symbol-name type))
                    (namep (intern (concat name "p"))))
--- 2241,2247 ----
            ((eq type 'real) `(numberp ,val))
            ((eq type 'fixnum) `(integerp ,val))
            ;; FIXME: Should `character' accept things like ?\C-\M-a ?  -stef
!           ((memq type '(character string-char)) `(char-valid-p ,val))
            (t
             (let* ((name (symbol-name type))
                    (namep (intern (concat name "p"))))