From e6c6e2a360e7970c8c687af580b0fcabc11aaae7 Mon Sep 17 00:00:00 2001 From: Michael Heerdegen Date: Thu, 16 May 2019 17:05:07 +0200 Subject: [PATCH] WIP: Small fix in cl--sm-macroexpand --- lisp/emacs-lisp/cl-macs.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 8af8fccde7..ce4be75d2b 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2152,7 +2152,8 @@ cl--sm-macroexpand ;; Perform symbol-macro expansion. (let ((symval (assq exp venv))) (when symval - (setq exp (cadr symval))))) + (setq exp (cadr symval)) + nil))) (`(setq . ,_) ;; Convert setq to setf if required by symbol-macro expansion. (let* ((args (mapcar (lambda (f) (macroexpand f env)) -- 2.20.1