50 |
;; (put 'debug-on-error 'binding-is-magic t) |
;; (put 'debug-on-error 'binding-is-magic t) |
51 |
;; (put 'debug-on-abort 'binding-is-magic t) |
;; (put 'debug-on-abort 'binding-is-magic t) |
52 |
;; (put 'debug-on-next-call 'binding-is-magic t) |
;; (put 'debug-on-next-call 'binding-is-magic t) |
|
;; (put 'mocklisp-arguments 'binding-is-magic t) |
|
53 |
;; (put 'inhibit-quit 'binding-is-magic t) |
;; (put 'inhibit-quit 'binding-is-magic t) |
54 |
;; (put 'quit-flag 'binding-is-magic t) |
;; (put 'quit-flag 'binding-is-magic t) |
55 |
;; (put 't 'binding-is-magic t) |
;; (put 't 'binding-is-magic t) |
519 |
(byte-optimize-form form for-effect)) |
(byte-optimize-form form for-effect)) |
520 |
|
|
521 |
((not (symbolp fn)) |
((not (symbolp fn)) |
522 |
(or (eq 'mocklisp (car-safe fn)) ; ha! |
(byte-compile-warn "`%s' is a malformed function" |
523 |
(byte-compile-warn "`%s' is a malformed function" |
(prin1-to-string fn)) |
|
(prin1-to-string fn))) |
|
524 |
form) |
form) |
525 |
|
|
526 |
((and for-effect (setq tmp (get fn 'side-effect-free)) |
((and for-effect (setq tmp (get fn 'side-effect-free)) |