Commit 0ee35e51 authored by Glenn Morris's avatar Glenn Morris

(flet): Throw an error when trying to byte-compile a redefinition of a

function with special byte-compile handling.  (Bug#411)
parent 91236f63
2008-10-23 Glenn Morris <rgm@gnu.org>
* emacs-lisp/cl-macs.el (flet): Throw an error when trying to
byte-compile a redefinition of a function with special byte-compile
handling. (Bug#411)
2008-10-22 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* ps-print.el: Deal with page sizes for label printes. Suggested by
......
......@@ -1328,10 +1328,14 @@ go back to their previous definitions, or lack thereof).
(let ((func (list 'function*
(list 'lambda (cadr x)
(list* 'block (car x) (cddr x))))))
(if (and (cl-compiling-file)
(boundp 'byte-compile-function-environment))
(push (cons (car x) (eval func))
byte-compile-function-environment))
(when (cl-compiling-file)
;; Bug#411. It would be nice to fix this.
(and (get (car x) 'byte-compile)
(error "Byte-compiling a redefinition of `%s' \
will not work - use `labels' instead" (symbol-name (car x))))
(and (boundp 'byte-compile-function-environment)
(push (cons (car x) (eval func))
byte-compile-function-environment)))
(list (list 'symbol-function (list 'quote (car x))) func))))
bindings)
body))
......
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