emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Eli Zaretskii
Subject: [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el
Date: Sat, 16 Jul 2005 07:53:26 -0400

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))))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]