# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 731100886 0
# Node ID cf8515fda17b6f6cab7f0f058b87d54063372fc8
# Parent  ced6a5b2519d4c8c860b6b074915616f71f753f2
(defsetf): Use eval-and-compile for self-update-fn.

diff -r ced6a5b2519d -r cf8515fda17b lisp/=cl.el
--- a/lisp/=cl.el	Tue Mar 02 18:39:39 1993 +0000
+++ b/lisp/=cl.el	Tue Mar 02 19:34:46 1993 +0000
@@ -1940,8 +1940,9 @@
            (prin1-to-string accessfn)))
   ;; update properties
   (list 'progn
-        (list 'put (list 'quote accessfn)
-              :setf-update-fn (list 'function updatefn))
+	(list 'eval-and-compile
+	      (list 'put (list 'quote accessfn)
+		    :setf-update-fn (list 'function updatefn)))
         (list 'put (list 'quote accessfn) :setf-update-doc docstring)
         ;; any better thing to return?
         (list 'quote accessfn)))