lisp/emacs-lisp/cl-macs.el (cl--define-derived-type): Fix thinko

(cherry picked from commit b8f23179dacc7477f1c680fef38bb2bc70ac4fca)

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 5ba10b8641e995a80f3455f0c7a8df07dea686e9..51ab55c508cae4bd14b99b7687a62fdb078e131f 100644 (file)
--- 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))