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 | 1343b62e71ce8f99d0ec3b0dd147c11bbeb5c3c1 (patch) | |
| tree | 015408a66071ea67914e812e55f29907338570d6 /lisp/=cl.el | |
| parent | 41e0d5d9751516d1cd8bc485de07ac40d34f1089 (diff) | |
| download | emacs-1343b62e71ce8f99d0ec3b0dd147c11bbeb5c3c1.tar.gz | |
(defsetf): Use eval-and-compile for self-update-fn.
Diffstat (limited to 'lisp/=cl.el')
| -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))) |