From 1ec945f06664bbe15a75c559c68cd6e0b9d12d11 Mon Sep 17 00:00:00 2001 From: David Ponce Date: Tue, 13 May 2025 22:32:55 -0400 Subject: [PATCH] lisp/emacs-lisp/cl-macs.el (cl--define-derived-type): Fix thinko (cherry picked from commit b8f23179dacc7477f1c680fef38bb2bc70ac4fca) --- lisp/emacs-lisp/cl-macs.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 5ba10b8641e..51ab55c508c 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -3770,7 +3770,7 @@ If PARENTS is non-nil, ARGLIST must be nil." ;; Thanks to `eval-and-compile', `cl--define-derived-type' is needed ;; both at compile-time and at runtime, so we need to double-check. (static-if (not (fboundp 'cl--define-derived-type)) nil - (unless (fboundp 'cl--define-derived-type) + (when (fboundp 'cl--define-derived-type) (cl-deftype natnum () (declare (parents integer)) '(satisfies natnump)) (cl-deftype character () (declare (parents fixnum natnum)) '(and fixnum natnum)) -- 2.39.5