Commit 96d699f3 authored by Jim Blandy's avatar Jim Blandy
Browse files

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.
parent d81fd0bf
......@@ -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 @@ may generate incorrect code.")
;; 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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment