diff options
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 817907ccf2d..f4bba7ed216 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1681,9 +1681,10 @@ If FORM is a lambda or a macro, byte-compile it as a function." (byte-compile-warn "malformed interactive spec: %s" (prin1-to-string int)))))) (let ((compiled (byte-compile-top-level (cons 'progn body) nil 'lambda))) + (setq foo compiled) (if (and (eq 'byte-code (car-safe compiled)) - (byte-compile-version-cond - byte-compile-compatibility)) + (not (byte-compile-version-cond + byte-compile-compatibility))) (apply 'make-byte-code (append (list arglist) ;; byte-string, constants-vector, stack depth |