Mercurial > emacs

comparison lisp/emacs-lisp/byte-opt.el @ 42267:76d12dafa83d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(byte-optimize-form-code-walker): Remove mocklisp case.
author Pavel Janík <Pavel@Janik.cz>
date Sat, 22 Dec 2001 13:36:59 +0000
parents 0f4506820432
children 8788778fec51 f3dd1dced03a
comparison
equal deleted inserted replaced
42266:75bbe9d566d9 42267:76d12dafa83d
48 ;; However certain variables should never have their bindings optimized 48 ;; However certain variables should never have their bindings optimized
49 ;; away, because they affect everything. 49 ;; away, because they affect everything.
50 ;; (put 'debug-on-error 'binding-is-magic t) 50 ;; (put 'debug-on-error 'binding-is-magic t)
51 ;; (put 'debug-on-abort 'binding-is-magic t) 51 ;; (put 'debug-on-abort 'binding-is-magic t)
52 ;; (put 'debug-on-next-call 'binding-is-magic t) 52 ;; (put 'debug-on-next-call 'binding-is-magic t)
53 ;; (put 'mocklisp-arguments 'binding-is-magic t)
54 ;; (put 'inhibit-quit 'binding-is-magic t) 53 ;; (put 'inhibit-quit 'binding-is-magic t)
55 ;; (put 'quit-flag 'binding-is-magic t) 54 ;; (put 'quit-flag 'binding-is-magic t)
56 ;; (put 't 'binding-is-magic t) 55 ;; (put 't 'binding-is-magic t)
57 ;; (put 'nil 'binding-is-magic t) 56 ;; (put 'nil 'binding-is-magic t)
58 ;; possibly also 57 ;; possibly also
518 (not (eq form 517 (not (eq form
519 (setq form (compiler-macroexpand form))))) 518 (setq form (compiler-macroexpand form)))))
520 (byte-optimize-form form for-effect)) 519 (byte-optimize-form form for-effect))
521 520
522 ((not (symbolp fn)) 521 ((not (symbolp fn))
523 (or (eq 'mocklisp (car-safe fn)) ; ha! 522 (byte-compile-warn "`%s' is a malformed function"
524 (byte-compile-warn "`%s' is a malformed function" 523 (prin1-to-string fn))
525 (prin1-to-string fn)))
526 form) 524 form)
527 525
528 ((and for-effect (setq tmp (get fn 'side-effect-free)) 526 ((and for-effect (setq tmp (get fn 'side-effect-free))
529 (or byte-compile-delete-errors 527 (or byte-compile-delete-errors
530 (eq tmp 'error-free) 528 (eq tmp 'error-free)