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

[Eli Zaretskii]

Index: emacs/lisp/emacs-lisp/cl-macs.el
diff -c emacs/lisp/emacs-lisp/cl-macs.el:1.54 
emacs/lisp/emacs-lisp/cl-macs.el:1.55
*** emacs/lisp/emacs-lisp/cl-macs.el:1.54       Sat Jul 16 11:34:50 2005
--- emacs/lisp/emacs-lisp/cl-macs.el    Sat Jul 16 11:53:25 2005
***************
*** 2399,2405 ****
           (cl-make-type-test val (apply (get (car type) 'cl-deftype-handler)
                                         (cdr type))))
          ((memq (car type) '(integer float real number))
!          (delq t (and (cl-make-type-test val (car type))
                         (if (memq (cadr type) '(* nil)) t
                           (if (consp (cadr type)) (list '> val (caadr type))
                             (list '>= val (cadr type))))
--- 2399,2405 ----
           (cl-make-type-test val (apply (get (car type) 'cl-deftype-handler)
                                         (cdr type))))
          ((memq (car type) '(integer float real number))
!          (delq t (list 'and (cl-make-type-test val (car type))
                         (if (memq (cadr type) '(* nil)) t
                           (if (consp (cadr type)) (list '> val (caadr type))
                             (list '>= val (cadr type))))