From: Karl Heuer Date: Thu, 4 Dec 1997 05:58:56 +0000 (+0000) Subject: (byte-optimize-lapcode): Correctly X-Git-Tag: emacs-20.3~2659 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98a602e3583233a6692c8dc16dfbf9d3bb90b2c0;p=emacs.git (byte-optimize-lapcode): Correctly distinguish byte-constant from operations on variables. --- diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 56dcc9e2427..be958e53abb 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -1826,7 +1826,7 @@ may generate incorrect code.") (setq lap0 (car rest) lap1 (nth 1 rest)) (if (memq (car lap0) byte-constref-ops) - (if (eq (cdr lap0) 'byte-constant) + (if (not (eq (car lap0) 'byte-constant)) (or (memq (cdr lap0) byte-compile-variables) (setq byte-compile-variables (cons (cdr lap0) byte-compile-variables)))