Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 1941:139fbc92c196
Removed assigment to foo in byte-compile-lambda.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 23 Feb 1993 13:21:13 +0000 |
| parents | 83fc53d66a31 |
| children | 6afe42b3e483 |
comparison
equal
deleted
inserted
replaced
| 1940:0fe3520eb87b | 1941:139fbc92c196 |
|---|---|
| 1679 (byte-compile-top-level (nth 1 int)))))) | 1679 (byte-compile-top-level (nth 1 int)))))) |
| 1680 ((cdr int) | 1680 ((cdr int) |
| 1681 (byte-compile-warn "malformed interactive spec: %s" | 1681 (byte-compile-warn "malformed interactive spec: %s" |
| 1682 (prin1-to-string int)))))) | 1682 (prin1-to-string int)))))) |
| 1683 (let ((compiled (byte-compile-top-level (cons 'progn body) nil 'lambda))) | 1683 (let ((compiled (byte-compile-top-level (cons 'progn body) nil 'lambda))) |
| 1684 (setq foo compiled) | |
| 1685 (if (and (eq 'byte-code (car-safe compiled)) | 1684 (if (and (eq 'byte-code (car-safe compiled)) |
| 1686 (not (byte-compile-version-cond | 1685 (not (byte-compile-version-cond |
| 1687 byte-compile-compatibility))) | 1686 byte-compile-compatibility))) |
| 1688 (apply 'make-byte-code | 1687 (apply 'make-byte-code |
| 1689 (append (list arglist) | 1688 (append (list arglist) |