]> git.eshelyaron.com Git - emacs.git/commitdiff
(define-modify-macro): Make sure cl--arglist-args is defined
authorStefan Monnier <monnier@iro.umontreal.ca>
Wed, 6 May 2015 21:43:43 +0000 (17:43 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Wed, 6 May 2015 21:43:43 +0000 (17:43 -0400)
* lisp/emacs-lisp/cl.el (define-modify-macro): Make sure
cl--arglist-args is defined (bug#20517).

lisp/emacs-lisp/cl.el

index 564a44457d8423e08bf0e0dfab468d8c05ecabf8..c966ace3852243d1c052eb5d665972183dac812f 100644 (file)
@@ -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