Commit f8ccf167 authored by Leo Liu's avatar Leo Liu
Browse files

Fix format bug in defstruct

http://debbugs.gnu.org/9357
parent 2a9878fd
2011-08-26 Leo Liu <sdl.web@gmail.com>
* emacs-lisp/cl-macs.el (defstruct): Fix format. (Bug#9357)
2011-08-25 Juri Linkov <juri@jurta.org>
* isearch.el (isearch-occur): Let-bind `search-spaces-regexp' to
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment