mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 06:50:23 -08:00
Code Issues Projects Releases Wiki Activity

(defstruct): Suppress warnings about calls to cl-struct-setf-expander.

Browse source
This commit is contained in:
Richard M. Stallman 2006-12-11 04:36:04 +00:00
parent b424911536
commit b9b14938f9
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2292,10 +2292,15 @@ copier, a `NAME-p' predicate, and setf-able `NAME-SLOT' accessors.
(if (cadr (memq :read-only (cddr desc)))
(list 'error (format "%s is a read-only slot"
accessor))
(list 'cl-struct-setf-expander 'cl-x
(list 'quote name) (list 'quote accessor)
(and pred-check (list 'quote pred-check))
pos)))
;; If cl is loaded only for compilation,
;; the call to cl-struct-setf-expander would
;; cause a warning because it may not be
;; defined at run time. Suppress that warning.
(list 'with-no-warnings
(list 'cl-struct-setf-expander 'cl-x
(list 'quote name) (list 'quote accessor)
(and pred-check (list 'quote pred-check))
pos))))
forms)
(if print-auto
(nconc print-func