2065 |
;; and not do a file-boundary. |
;; and not do a file-boundary. |
2066 |
(byte-compile-keep-pending form) |
(byte-compile-keep-pending form) |
2067 |
(when (memq 'free-vars byte-compile-warnings) |
(when (memq 'free-vars byte-compile-warnings) |
2068 |
(push (nth 1 form) byte-compile-dynamic-variables) |
(push (nth 1 form) byte-compile-bound-variables) |
2069 |
(if (eq (car form) 'defconst) |
(if (eq (car form) 'defconst) |
2070 |
(push (nth 1 form) byte-compile-const-variables))) |
(push (nth 1 form) byte-compile-const-variables))) |
2071 |
(cond ((consp (nth 2 form)) |
(cond ((consp (nth 2 form)) |
3561 |
"%s called with %d arguments, but accepts only %s" |
"%s called with %d arguments, but accepts only %s" |
3562 |
fun (length (cdr form)) "2-3")) |
fun (length (cdr form)) "2-3")) |
3563 |
(when (memq 'free-vars byte-compile-warnings) |
(when (memq 'free-vars byte-compile-warnings) |
3564 |
(push var byte-compile-dynamic-variables) |
(push var byte-compile-bound-variables) |
3565 |
(if (eq fun 'defconst) |
(if (eq fun 'defconst) |
3566 |
(push var byte-compile-const-variables))) |
(push var byte-compile-const-variables))) |
3567 |
(byte-compile-body-do-effect |
(byte-compile-body-do-effect |