diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-03-02 19:34:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-03-02 19:34:46 +0000 |
| commit | 28059881f3665035a65a15801776013c5a12fcd9 (patch) | |
| tree | aa4c2d3ee2e2382758d3f23d85327ddab835c72a /lisp | |
| parent | 716a781e7b97afb587b9e7c63743a59ccf745920 (diff) | |
| download | emacs-28059881f3665035a65a15801776013c5a12fcd9.tar.gz | |
(defsetf): Use eval-and-compile for self-update-fn.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/cl.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/cl.el b/lisp/cl.el index 297ea0b3f1e..db477e1005f 100644 --- a/lisp/cl.el +++ b/lisp/cl.el @@ -1940,8 +1940,9 @@ updating called for." (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))) |