Mercurial > emacs
changeset 1818:7e3322619e46
compiled-function-p has been renamed to byte-code-function-p.
* subr.el: Define compiled-function-p as an alias for it.
* bytecomp.el: Register compiled-function-p as obsolete.
* bytecomp.el, byte-opt.el, disass.el, help.el, map-ynp.el: Change
uses.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 26 Jan 1993 01:29:51 +0000 |
| parents | 5c2bdeb13f68 |
| children | df06a60f3362 |
| files | lisp/emacs-lisp/byte-opt.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el Tue Jan 26 01:26:58 1993 +0000 +++ b/lisp/emacs-lisp/byte-opt.el Tue Jan 26 01:29:51 1993 +0000 @@ -220,7 +220,7 @@ (error "file \"%s\" didn't define \"%s\"" (nth 1 fn) name)) (if (symbolp fn) (byte-compile-inline-expand (cons fn (cdr form))) - (if (compiled-function-p fn) + (if (byte-code-function-p fn) (cons (list 'lambda (aref fn 0) (list 'byte-code (aref fn 1) (aref fn 2) (aref fn 3))) (cdr form)) @@ -233,7 +233,7 @@ (or name (setq name "anonymous lambda")) (let ((lambda (car form)) (values (cdr form))) - (if (compiled-function-p lambda) + (if (byte-code-function-p lambda) (setq lambda (list 'lambda (aref lambda 0) (list 'byte-code (aref lambda 1) (aref lambda 2) (aref lambda 3))))) @@ -316,7 +316,7 @@ (and (nth 1 form) (not for-effect) form)) - ((or (compiled-function-p fn) + ((or (byte-code-function-p fn) (eq 'lambda (car-safe fn))) (byte-compile-unfold-lambda form)) ((memq fn '(let let*)) @@ -1721,7 +1721,7 @@ ;; itself, compile some of its most used recursive functions (at load time). ;; (eval-when-compile - (or (compiled-function-p (symbol-function 'byte-optimize-form)) + (or (byte-code-function-p (symbol-function 'byte-optimize-form)) (assq 'byte-code (symbol-function 'byte-optimize-form)) (let ((byte-optimize nil) (byte-compile-warnings nil))