From 98f6365ed2cc41da30729cdff78c14cb3272e914 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 14 May 2025 12:28:25 -0400 Subject: [PATCH] cl-extra-tests.el: Follow convention * test/lisp/emacs-lisp/cl-extra-tests.el (multiples-of) (unsigned-byte): Stick to the tradition of accepting nil. (cherry picked from commit b644823443bf4b9f2257d1409024094bb5b608d2) --- test/lisp/emacs-lisp/cl-extra-tests.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/lisp/emacs-lisp/cl-extra-tests.el b/test/lisp/emacs-lisp/cl-extra-tests.el index 1f94d71e567..6280be06cbb 100644 --- a/test/lisp/emacs-lisp/cl-extra-tests.el +++ b/test/lisp/emacs-lisp/cl-extra-tests.el @@ -351,7 +351,7 @@ ;;;; Method dispatch for derived types. (cl-deftype multiples-of (&optional m) - (let ((multiplep (if (eq m '*) + (let ((multiplep (if (memq m '(nil *)) #'ignore (lambda (n) (= 0 (% n m)))))) `(and integer (satisfies ,multiplep)))) @@ -368,7 +368,7 @@ (cl-deftype unsigned-byte (&optional bits) "Unsigned integer." - `(integer 0 ,(if (eq bits '*) bits (1- (ash 1 bits))))) + `(integer 0 ,(if (memq bits '(nil *)) bits (1- (ash 1 bits))))) (cl-deftype unsigned-16bits () "Unsigned 16-bits integer." -- 2.39.5