[Emacs-diffs] trunk r114127: * lisp/emacs-lisp/gv.el (gv-get): Warn about CL-compiled places.

[Stefan Monnier]

------------------------------------------------------------
revno: 114127
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2013-09-04 16:03:52 -0400
message:
  * lisp/emacs-lisp/gv.el (gv-get): Warn about CL-compiled places.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/gv.el          setf.el-20120531120738-6w8114hk2anryyud-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-09-04 00:39:34 +0000
+++ b/lisp/ChangeLog    2013-09-04 20:03:52 +0000
@@ -1,3 +1,7 @@
+2013-09-04  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/gv.el (gv-get): Warn about CL-compiled places.
+
 2013-09-04  Xue Fuqiao  <address@hidden>
 
        * vc/vc.el (vc-ignore): Rewrite.

=== modified file 'lisp/emacs-lisp/gv.el'
--- a/lisp/emacs-lisp/gv.el     2013-08-13 02:30:52 +0000
+++ b/lisp/emacs-lisp/gv.el     2013-09-04 20:03:52 +0000
@@ -102,7 +102,9 @@
               ;; 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