mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 22:41:06 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
David Ponce 2025-05-13 22:32:55 -04:00 • committed by Stefan Monnier
parent ebeeced9e3
commit b8f23179da
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/cl-macs.el
View file

@ -3820,7 +3820,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))