/[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.54 by eliz, Sat Jul 16 11:34:50 2005 UTC revision 1.55 by eliz, Sat Jul 16 11:53:25 2005 UTC
# Line 2399  The type name can then be used in `typec Line 2399  The type name can then be used in `typec
2399             (cl-make-type-test val (apply (get (car type) 'cl-deftype-handler)             (cl-make-type-test val (apply (get (car type) 'cl-deftype-handler)
2400                                           (cdr type))))                                           (cdr type))))
2401            ((memq (car type) '(integer float real number))            ((memq (car type) '(integer float real number))
2402             (delq t (and (cl-make-type-test val (car type))             (delq t (list 'and (cl-make-type-test val (car type))
2403                           (if (memq (cadr type) '(* nil)) t                           (if (memq (cadr type) '(* nil)) t
2404                             (if (consp (cadr type)) (list '> val (caadr type))                             (if (consp (cadr type)) (list '> val (caadr type))
2405                               (list '>= val (cadr type))))                               (list '>= val (cadr type))))

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

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