Commit b6bc4ab2 authored by Alan Mackenzie's avatar Alan Mackenzie
Browse files

Signal an error when `setf' gets an odd number of arguments.

* lisp/emacs-lisp/gv.el (setf): Amend.
parent 9f1a5113
......@@ -260,6 +260,8 @@ The return value is the last VAL in the list.
\(fn PLACE VAL PLACE VAL ...)"
(declare (debug (&rest [gv-place form])))
(if (/= (logand (length args) 1) 0)
(signal 'wrong-number-of-arguments (list 'setf (length args))))
(if (and args (null (cddr args)))
(let ((place (pop args))
(val (car args)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment