[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 09b72fc: * lisp/emacs-lisp/cl-macs.el (cl-defstruct
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master 09b72fc: * lisp/emacs-lisp/cl-macs.el (cl-defstruct): Add docstring to accessors. |
Date: |
Fri, 27 May 2016 16:34:36 +0000 (UTC) |
branch: master
commit 09b72fc38aee1032b6d2c8476bcc22a2e7ec5642
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/emacs-lisp/cl-macs.el (cl-defstruct): Add docstring to accessors.
---
lisp/emacs-lisp/cl-macs.el | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 68abe67..809e922 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2672,15 +2672,17 @@ non-nil value, that slot cannot be set via `setf'.
(let ((accessor (intern (format "%s%s" conc-name slot))))
(push slot slots)
(push (nth 1 desc) defaults)
- (push `(cl-defsubst ,accessor (cl-x)
+ (push `(cl-defsubst ,accessor (x)
+ ,(format "Access slot \"%s\" of `%s' struct X."
+ slot struct)
(declare (side-effect-free t))
,@(and pred-check
(list `(or ,pred-check
(signal 'wrong-type-argument
- (list ',name cl-x)))))
- ,(if (memq type '(nil vector)) `(aref cl-x ,pos)
- (if (= pos 0) '(car cl-x)
- `(nth ,pos cl-x))))
+ (list ',name x)))))
+ ,(if (memq type '(nil vector)) `(aref x ,pos)
+ (if (= pos 0) '(car x)
+ `(nth ,pos x))))
forms)
(if (cadr (memq :read-only (cddr desc)))
(push `(gv-define-expander ,accessor
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 09b72fc: * lisp/emacs-lisp/cl-macs.el (cl-defstruct): Add docstring to accessors.,
Stefan Monnier <=