3566 |
(byte-compile-set-symbol-position fun) |
(byte-compile-set-symbol-position fun) |
3567 |
(when (or (> (length form) 4) |
(when (or (> (length form) 4) |
3568 |
(and (eq fun 'defconst) (null (cddr form)))) |
(and (eq fun 'defconst) (null (cddr form)))) |
3569 |
(byte-compile-warn |
(let ((ncall (length (cdr form)))) |
3570 |
"%s called with %d arguments, but accepts only %s" |
(byte-compile-warn |
3571 |
fun (length (cdr form)) "2-3")) |
"%s called with %d argument%s, but %s %s" |
3572 |
|
fun ncall |
3573 |
|
(if (= 1 ncall) "" "s") |
3574 |
|
(if (< ncall 2) "requires" "accepts only") |
3575 |
|
"2-3"))) |
3576 |
(when (memq 'free-vars byte-compile-warnings) |
(when (memq 'free-vars byte-compile-warnings) |
3577 |
(push var byte-compile-bound-variables) |
(push var byte-compile-bound-variables) |
3578 |
(if (eq fun 'defconst) |
(if (eq fun 'defconst) |