Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 13:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(byte-optimize-form-code-walker): Print entire form.

Browse source
This commit is contained in:
Chong Yidong 2007-04-05 17:57:05 +00:00
parent c2d489d35a
commit 1fbb84daed
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/byte-opt.el
View file

@ -534,6 +534,7 @@
(eq tmp 'error-free)
;; Detect the expansion of (pop foo).
;; There is no need to compile the call to `car' there.
(progn (setq foo (list form fn)) nil)
(and (eq fn 'car)
(eq (car-safe (cadr form)) 'prog1)
(let ((var (cadr (cadr form)))
@ -545,8 +546,8 @@
(eq (car-safe (nth 2 last)) 'cdr)
(eq (cadr (nth 2 last)) var))))
(progn
(byte-compile-warn "value returned by `%s' is not used"
(prin1-to-string (car form)))
(byte-compile-warn "value returned from %s is unused"
(prin1-to-string form))
nil)))
(byte-compile-log " %s called for effect; deleted" fn)
;; appending a nil here might not be necessary, but it can't hurt.