From f8ccf16762e094505989b9d60fab2cc24d117daa Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Fri, 26 Aug 2011 17:52:07 +0800 Subject: [PATCH] Fix format bug in defstruct http://debbugs.gnu.org/9357 --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/cl-macs.el | 10 ++++------ 2 files changed, 8 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b922e21681f..b82163e5160 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-08-26 Leo Liu + + * emacs-lisp/cl-macs.el (defstruct): Fix format. (Bug#9357) + 2011-08-25 Juri Linkov * isearch.el (isearch-occur): Let-bind `search-spaces-regexp' to diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index fb19115287c..d9531cc5261 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2416,9 +2416,8 @@ value, that slot cannot be set via `setf'. (append (and pred-check (list (list 'or pred-check - (list 'error - (format "%s accessing a non-%s" - accessor name))))) + `(error "%s accessing a non-%s" + ',accessor ',name)))) (list (if (eq type 'vector) (list 'aref 'cl-x pos) (if (= pos 0) '(car cl-x) (list 'nth pos 'cl-x)))))) forms) @@ -2426,9 +2425,8 @@ value, that slot cannot be set via `setf'. (push (list 'define-setf-method accessor '(cl-x) (if (cadr (memq :read-only (cddr desc))) (list 'progn '(ignore cl-x) - (list 'error - (format "%s is a read-only slot" - 'accessor))) + `(error "%s is a read-only slot" + ',accessor)) ;; If cl is loaded only for compilation, ;; the call to cl-struct-setf-expander would ;; cause a warning because it may not be -- 2.39.2