[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el,v
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el,v |
Date: |
Mon, 11 Dec 2006 04:36:05 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Richard M. Stallman <rms> 06/12/11 04:36:04
Index: cl-macs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/cl-macs.el,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -b -r1.59 -r1.60
--- cl-macs.el 7 Dec 2006 04:42:51 -0000 1.59
+++ cl-macs.el 11 Dec 2006 04:36:04 -0000 1.60
@@ -2292,10 +2292,15 @@
(if (cadr (memq :read-only (cddr desc)))
(list 'error (format "%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
+ ;; 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)))
+ pos))))
forms)
(if print-auto
(nconc print-func