[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master bceffdb: (define-modify-macro): Make sure cl--argli
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master bceffdb: (define-modify-macro): Make sure cl--arglist-args is defined |
Date: |
Wed, 06 May 2015 21:43:47 +0000 |
branch: master
commit bceffdb3796df75b6f2efc2f6f17ca927a25c3b9
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
(define-modify-macro): Make sure cl--arglist-args is defined
* lisp/emacs-lisp/cl.el (define-modify-macro): Make sure
cl--arglist-args is defined (bug#20517).
---
lisp/emacs-lisp/cl.el | 3 +++
1 files changed, 3 insertions(+), 0 deletions(-)
diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index 564a444..c966ace 100644
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -626,6 +626,8 @@ You can replace this form with `gv-define-setter'.
;; ...the rest, and build the 5-tuple))
(make-obsolete 'get-setf-method 'gv-letplace "24.3")
+(declare-function cl--arglist-args "cl-macs" (args))
+
(defmacro define-modify-macro (name arglist func &optional doc)
"Define a `setf'-like modify macro.
If NAME is called, it combines its PLACE argument with the other
@@ -639,6 +641,7 @@ You can replace this macro with `gv-letplace'."
symbolp &optional stringp)))
(if (memq '&key arglist)
(error "&key not allowed in define-modify-macro"))
+ (require 'cl-macs) ;For cl--arglist-args.
(let ((place (make-symbol "--cl-place--")))
`(cl-defmacro ,name (,place ,@arglist)
,doc
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master bceffdb: (define-modify-macro): Make sure cl--arglist-args is defined,
Stefan Monnier <=