From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 4 Sep 2013 20:03:52 +0000 (-0400)
Subject: * lisp/emacs-lisp/gv.el (gv-get): Warn about CL-compiled places.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1683
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=52b1cc79158456792284ec9dd10f1231ea4f62b7;p=emacs.git

* lisp/emacs-lisp/gv.el (gv-get): Warn about CL-compiled places.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bc34cbdcf0b..9088ca44af5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-09-04  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* emacs-lisp/gv.el (gv-get): Warn about CL-compiled places.
+
 2013-09-04  Xue Fuqiao  <xfq.free@gmail.com>
 
 	* vc/vc.el (vc-ignore): Rewrite.
diff --git a/lisp/emacs-lisp/gv.el b/lisp/emacs-lisp/gv.el
index 279ae582a05..8a5841a5fad 100644
--- a/lisp/emacs-lisp/gv.el
+++ b/lisp/emacs-lisp/gv.el
@@ -102,7 +102,9 @@ DO must return an Elisp expression."
               ;; Follow aliases.
               (setq me (cons (symbol-function head) (cdr place))))
           (if (eq me place)
-              (error "%S is not a valid place expression" place)
+              (if (and (symbolp head) (get head 'setf-method))
+                  (error "Incompatible place needs recompilation: %S" head)
+                (error "%S is not a valid place expression" place))
             (gv-get me do)))))))
 
 ;;;###autoload