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

Fix format bug in defstruct

Browse source 
http://debbugs.gnu.org/9357
This commit is contained in:
Leo Liu 2011-08-26 17:52:07 +08:00
parent 2a9878fd77
commit f8ccf16762
2 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/emacs-lisp/cl-macs.el
View file

@ -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