From b890df1a7af89895f1437d0cb7d2bb659bfe7462 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 17 Feb 1993 20:29:57 +0000 Subject: (byte-compile-lambda): Test of byte-compile-compatibility was backwards. --- lisp/emacs-lisp/bytecomp.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp/bytecomp.el') 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 -- cgit v1.2.3