mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/cl-macs.el (cl-defstruct): Declare the type immediately

Browse source
This commit is contained in:
Stefan Monnier 2020-03-27 17:14:34 -04:00
parent 3fdb53b13a
commit 09d67716e5
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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)