diff options
author | Robin Templeton <[email protected]> | 2014-08-07 17:12:56 -0400 |
---|---|---|
committer | Robin Templeton <[email protected]> | 2015-04-20 00:29:02 -0400 |
commit | c7c6d5cfc9ff335add6fbafdd8c5cb40523cf2fa (patch) | |
tree | 8b08e9dd8d22e9f0f0b91ed3295f8344ecabb97c /lisp | |
parent | 3bf234fa520ff90db31fae85f306befdadb24532 (diff) |
compare symbol names with `equal'
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 5b608f0093..e4725f53ec 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -1918,8 +1918,8 @@ except that it additionally expands symbol macros." (pcase exp ((pred symbolp) ;; Perform symbol-macro expansion. - (when (cdr (assq (symbol-name exp) env)) - (setq exp (cadr (assq (symbol-name exp) env))))) + (when (cdr (assoc (symbol-name exp) env)) + (setq exp (cadr (assoc (symbol-name exp) env))))) (`(setq . ,_) ;; Convert setq to setf if required by symbol-macro expansion. (let* ((args (mapcar (lambda (f) (cl--sm-macroexpand f env)) @@ -1937,7 +1937,7 @@ except that it additionally expands symbol macros." (let ((letf nil) (found nil) (nbs ())) (dolist (binding bindings) (let* ((var (if (symbolp binding) binding (car binding))) - (sm (assq (symbol-name var) env))) + (sm (assoc (symbol-name var) env))) (push (if (not (cdr sm)) binding (let ((nexp (cadr sm))) |