[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el,v

[Richard M. Stallman]

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