diff options
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))) |