[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 73663d1: * lisp/emacs-lisp/cl-macs.el: Fix test regression
From: |
Stefan Monnier |
Subject: |
master 73663d1: * lisp/emacs-lisp/cl-macs.el: Fix test regression |
Date: |
Sat, 26 Jun 2021 12:20:33 -0400 (EDT) |
branch: master
commit 73663d14cfb3923dc57fab0043f7b1aa3a488407
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* lisp/emacs-lisp/cl-macs.el: Fix test regression
(cl--alist-to-plist): New function.
(cl-struct-slot-info): Use it.
---
lisp/emacs-lisp/cl-macs.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index a59d42e..cff4368 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -3276,6 +3276,13 @@ STRUCT-TYPE is a symbol naming a struct type. Return
`record',
(declare (side-effect-free t) (pure t))
(cl--struct-class-type (cl--struct-get-class struct-type)))
+(defun cl--alist-to-plist (alist)
+ (let ((res '()))
+ (dolist (x alist)
+ (push (car x) res)
+ (push (cdr x) res))
+ (nreverse res)))
+
(defun cl-struct-slot-info (struct-type)
"Return a list of slot names of struct STRUCT-TYPE.
Each entry is a list (SLOT-NAME . OPTS), where SLOT-NAME is a
@@ -3293,7 +3300,7 @@ slots skipped by :initial-offset may appear in the list."
,(cl--slot-descriptor-initform slot)
,@(if (not (eq (cl--slot-descriptor-type slot) t))
`(:type ,(cl--slot-descriptor-type slot)))
- ,@(cl--slot-descriptor-props slot))
+ ,@(cl--alist-to-plist (cl--slot-descriptor-props slot)))
descs)))
(nreverse descs)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 73663d1: * lisp/emacs-lisp/cl-macs.el: Fix test regression,
Stefan Monnier <=