diff options
| author | David Ponce | 2025-05-13 22:32:55 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2025-05-13 22:32:55 -0400 |
| commit | b8f23179dacc7477f1c680fef38bb2bc70ac4fca (patch) | |
| tree | 4d95d0583ce92ec39d8cf945d0827e03da0b6e0a | |
| parent | ebeeced9e3ca94bbb679730155a2582bc12f8ea7 (diff) | |
| download | emacs-b8f23179dacc7477f1c680fef38bb2bc70ac4fca.tar.gz emacs-b8f23179dacc7477f1c680fef38bb2bc70ac4fca.zip | |
lisp/emacs-lisp/cl-macs.el (cl--define-derived-type): Fix thinko
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index d086afc49e4..d594b3cb233 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -3820,7 +3820,7 @@ If PARENTS is non-nil, ARGLIST must be nil." | |||
| 3820 | ;; Thanks to `eval-and-compile', `cl--define-derived-type' is needed | 3820 | ;; Thanks to `eval-and-compile', `cl--define-derived-type' is needed |
| 3821 | ;; both at compile-time and at runtime, so we need to double-check. | 3821 | ;; both at compile-time and at runtime, so we need to double-check. |
| 3822 | (static-if (not (fboundp 'cl--define-derived-type)) nil | 3822 | (static-if (not (fboundp 'cl--define-derived-type)) nil |
| 3823 | (unless (fboundp 'cl--define-derived-type) | 3823 | (when (fboundp 'cl--define-derived-type) |
| 3824 | (cl-deftype natnum () (declare (parents integer)) '(satisfies natnump)) | 3824 | (cl-deftype natnum () (declare (parents integer)) '(satisfies natnump)) |
| 3825 | (cl-deftype character () (declare (parents fixnum natnum)) | 3825 | (cl-deftype character () (declare (parents fixnum natnum)) |
| 3826 | '(and fixnum natnum)) | 3826 | '(and fixnum natnum)) |