diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-07-20 21:41:59 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-07-20 21:41:59 -0400 |
| commit | bb16bffbd20705fcfbbb17189f20b838eaf7d31e (patch) | |
| tree | d1217d69a114ea09b8d67bf34a03747174ee3c16 /lisp/emacs-lisp/cl-macs.el | |
| parent | 5bfcb88ced494a272045da30891cacc838276bd7 (diff) | |
| download | emacs-bb16bffbd20705fcfbbb17189f20b838eaf7d31e.tar.gz | |
Indentation, punctuation, and other nitpicks.
Diffstat (limited to 'lisp/emacs-lisp/cl-macs.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 0a426d17096..e4a73d1a4de 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2514,7 +2514,8 @@ non-nil value, that slot cannot be set via `setf'. ',accessor ',name)))) ,(if (eq type 'vector) `(aref cl-x ,pos) (if (= pos 0) '(car cl-x) - `(nth ,pos cl-x)))) forms) + `(nth ,pos cl-x)))) + forms) (push (cons accessor t) side-eff) (if (cadr (memq :read-only (cddr desc))) (push `(gv-define-expander ,accessor |