[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 09d6771: * lisp/emacs-lisp/cl-macs.el (cl-defstruct): Declare the
From: |
Stefan Monnier |
Subject: |
master 09d6771: * lisp/emacs-lisp/cl-macs.el (cl-defstruct): Declare the type immediately |
Date: |
Fri, 27 Mar 2020 17:14:41 -0400 (EDT) |
branch: master
commit 09d67716e5492306c0bf704e6538d22a5bc76405
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/emacs-lisp/cl-macs.el (cl-defstruct): Declare the type immediately
---
lisp/emacs-lisp/cl-macs.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 954731b..7f5d197 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2868,7 +2868,9 @@ Supported keywords for slots are:
(append pred-form '(t))
`(and ,pred-form t)))
forms)
- (push `(put ',name 'cl-deftype-satisfies ',predicate) forms))
+ (push `(eval-and-compile
+ (put ',name 'cl-deftype-satisfies ',predicate))
+ forms))
(let ((pos 0) (descp descs))
(while descp
(let* ((desc (pop descp))
@@ -3138,6 +3140,7 @@ Of course, we really can't know that for sure, so it's
just a heuristic."
;; "Obvious" mappings.
(string . stringp)
(list . listp)
+ (cons . consp)
(symbol . symbolp)
(function . functionp)
(integer . integerp)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 09d6771: * lisp/emacs-lisp/cl-macs.el (cl-defstruct): Declare the type immediately,
Stefan Monnier <=