From 923aad81d473fd99adb651302dcccd79c6afbeff Mon Sep 17 00:00:00 2001 From: Mattias Engdegård Date: Mon, 17 Jun 2024 13:14:08 +0200 Subject: Don't hide `not` and `null` arity errors * lisp/emacs-lisp/byte-opt.el (byte-optimize-not): Don't silently convert incorrect `not` and `null` applications to nil. --- lisp/emacs-lisp/byte-opt.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index c060c8d676b..d8dbfa62bf9 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -1410,13 +1410,14 @@ See Info node `(elisp) Integer Basics'." form))) (defun byte-optimize-not (form) - (and (= (length form) 2) - (let ((arg (nth 1 form))) - (cond ((null arg) t) - ((macroexp-const-p arg) nil) - ((byte-compile-nilconstp arg) `(progn ,arg t)) - ((byte-compile-trueconstp arg) `(progn ,arg nil)) - (t form))))) + (if (= (length form) 2) + (let ((arg (nth 1 form))) + (cond ((null arg) t) + ((macroexp-const-p arg) nil) + ((byte-compile-nilconstp arg) `(progn ,arg t)) + ((byte-compile-trueconstp arg) `(progn ,arg nil)) + (t form))) + form)) (put 'and 'byte-optimizer #'byte-optimize-and) (put 'or 'byte-optimizer #'byte-optimize-or) -- cgit v1.2.3