diff options
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 08864962f08..a2c6218d838 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -1333,6 +1333,8 @@ go back to their previous definitions, or lack thereof). | |||
| 1333 | (and (get (car x) 'byte-compile) | 1333 | (and (get (car x) 'byte-compile) |
| 1334 | (error "Byte-compiling a redefinition of `%s' \ | 1334 | (error "Byte-compiling a redefinition of `%s' \ |
| 1335 | will not work - use `labels' instead" (symbol-name (car x)))) | 1335 | will not work - use `labels' instead" (symbol-name (car x)))) |
| 1336 | ;; FIXME This affects the rest of the file, when it | ||
| 1337 | ;; should be restricted to the flet body. | ||
| 1336 | (and (boundp 'byte-compile-function-environment) | 1338 | (and (boundp 'byte-compile-function-environment) |
| 1337 | (push (cons (car x) (eval func)) | 1339 | (push (cons (car x) (eval func)) |
| 1338 | byte-compile-function-environment))) | 1340 | byte-compile-function-environment))) |