Mercurial > emacs
changeset 2000:cf8515fda17b
(defsetf): Use eval-and-compile for self-update-fn.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 02 Mar 1993 19:34:46 +0000 |
| parents | ced6a5b2519d |
| children | eae9b9b7b721 |
| files | lisp/=cl.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)))