diff options
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 13567d8753e..1dd5d2ffef9 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -190,6 +190,10 @@ Then evaluate RESULT to get return value, default nil. \(fn (VAR LIST [RESULT]) BODY...)" (declare (indent 1) (debug ((symbolp form &optional form) body))) + (unless (consp spec) + (signal 'wrong-type-argument (list 'consp spec))) + (unless (<= 2 (length spec) 3) + (signal 'wrong-number-of-arguments (list '(2 . 3) (length spec)))) ;; It would be cleaner to create an uninterned symbol, ;; but that uses a lot more space when many functions in many files ;; use dolist. |