3546 |
(byte-compile-byte-code-maker |
(byte-compile-byte-code-maker |
3547 |
(byte-compile-lambda (cons 'lambda (cdr (cdr form))))))) |
(byte-compile-lambda (cons 'lambda (cdr (cdr form))))))) |
3548 |
(byte-compile-discard)) |
(byte-compile-discard)) |
3549 |
|
;; We prefer to generate a defalias form so it will record the function |
3550 |
|
;; definition just like interpreting a defun/ |
3551 |
(byte-compile-form |
(byte-compile-form |
3552 |
(list 'defalias |
(list 'defalias |
3553 |
(list 'quote (nth 1 form)) |
(list 'quote (nth 1 form)) |