procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp/emacs-lisp/eieio.el (with-slots): Use cl-symbol-macrolet (bug#16998).

Browse source
This commit is contained in:
Jonas Bernoulli 2014-03-12 16:02:45 +01:00 • committed by Juanma Barranquero
parent 8960529e6b
commit 08dfa0b75e
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/eieio.el
View file

@ -246,13 +246,13 @@ Where each VAR is the local variable given to the associated
SLOT. A slot specified without a variable name is given a
variable name of the same name as the slot."
(declare (indent 2))
;; Transform the spec-list into a symbol-macrolet spec-list.
;; Transform the spec-list into a cl-symbol-macrolet spec-list.
(let ((mappings (mapcar (lambda (entry)
(let ((var (if (listp entry) (car entry) entry))
(slot (if (listp entry) (cadr entry) entry)))
(list var `(slot-value ,object ',slot))))
spec-list)))
(append (list 'symbol-macrolet mappings)
(append (list 'cl-symbol-macrolet mappings)
body)))
;;; Simple generators, and query functions. None of these would do