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