Simplify macro expansion of alist cons cells

This commit is contained in:
Protesilaos Stavrou 2020-11-11 18:30:30 +02:00
parent 32d8f57cbe
commit a3f7b4d386
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA

View file

@ -10,7 +10,7 @@
"`let' bind ALIST elements around BODY."
`(let ((class '((class color) (min-colors 89)))
,@(mapcar (lambda (cons)
(list (intern (car cons)) (cdr cons)))
`(,(car cons) ,(cdr cons)))
(symbol-value alist)))
,@body))