231 |
(cons 'progn |
(cons 'progn |
232 |
(mapcar |
(mapcar |
233 |
(lambda (sexp) |
(lambda (sexp) |
234 |
(let ((fn (car-safe sexp))) |
(let ((f (car-safe sexp))) |
235 |
(if (and (symbolp fn) |
(if (and (symbolp f) |
236 |
(or (cdr (assq fn byte-compile-function-environment)) |
(or (cdr (assq f byte-compile-function-environment)) |
237 |
(and (fboundp fn) |
(not (or (not (fboundp f)) |
238 |
(not (or (cdr (assq fn byte-compile-macro-environment)) |
(cdr (assq f byte-compile-macro-environment)) |
239 |
(and (consp (setq fn (symbol-function fn))) |
(and (consp (setq f (symbol-function f))) |
240 |
(eq (car fn) 'macro)) |
(eq (car f) 'macro)) |
241 |
(subrp fn)))))) |
(subrp f))))) |
242 |
(byte-compile-inline-expand sexp) |
(byte-compile-inline-expand sexp) |
243 |
sexp))) |
sexp))) |
244 |
(cdr form)))) |
(cdr form)))) |
245 |
|
|
246 |
|
|
1367 |
;; before each insn (or its label). |
;; before each insn (or its label). |
1368 |
(defun byte-decompile-bytecode-1 (bytes constvec &optional make-spliceable) |
(defun byte-decompile-bytecode-1 (bytes constvec &optional make-spliceable) |
1369 |
(let ((length (length bytes)) |
(let ((length (length bytes)) |
1370 |
(ptr 0) optr tag tags op offset |
(ptr 0) optr tags op offset |
1371 |
lap tmp |
lap tmp |
1372 |
endtag |
endtag) |
|
(retcount 0)) |
|
1373 |
(while (not (= ptr length)) |
(while (not (= ptr length)) |
1374 |
(or make-spliceable |
(or make-spliceable |
1375 |
(setq lap (cons ptr lap))) |
(setq lap (cons ptr lap))) |