diff options
| author | Stefan Monnier | 2019-05-16 22:00:57 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2019-05-16 22:00:57 -0400 |
| commit | 2e8f6ad287acfd4d09f1952d7c45ce7ee68a2474 (patch) | |
| tree | 50f5388fe95308141e24854684093eca54e06a1e | |
| parent | 5f6c08ef2c52c7fe526cbe4f9a684438f6a72007 (diff) | |
| download | emacs-2e8f6ad287acfd4d09f1952d7c45ce7ee68a2474.tar.gz emacs-2e8f6ad287acfd4d09f1952d7c45ce7ee68a2474.zip | |
* lisp/emacs-lisp/cl-macs.el (cl-defstruct): Fix docstring of accessors.
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 23c4351c7ca..c4a1dcb8baa 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -2903,7 +2903,7 @@ non-nil value, that slot cannot be set via `setf'. | |||
| 2903 | ;; and pred-check, so changing it is not straightforward. | 2903 | ;; and pred-check, so changing it is not straightforward. |
| 2904 | (push `(,defsym ,accessor (cl-x) | 2904 | (push `(,defsym ,accessor (cl-x) |
| 2905 | ,(format "Access slot \"%s\" of `%s' struct CL-X." | 2905 | ,(format "Access slot \"%s\" of `%s' struct CL-X." |
| 2906 | slot struct) | 2906 | slot name) |
| 2907 | (declare (side-effect-free t)) | 2907 | (declare (side-effect-free t)) |
| 2908 | ,@(and pred-check | 2908 | ,@(and pred-check |
| 2909 | (list `(or ,pred-check | 2909 | (list `(or ,pred-check |