File tree Expand file tree Collapse file tree 1 file changed +8
-7
lines changed Expand file tree Collapse file tree 1 file changed +8
-7
lines changed Original file line number Diff line number Diff line change @@ -1410,13 +1410,14 @@ See Info node `(elisp) Integer Basics'."
1410
1410
form)))
1411
1411
1412
1412
(defun byte-optimize-not (form )
1413
- (and (= (length form) 2 )
1414
- (let ((arg (nth 1 form)))
1415
- (cond ((null arg) t )
1416
- ((macroexp-const-p arg) nil )
1417
- ((byte-compile-nilconstp arg) `(progn , arg t ))
1418
- ((byte-compile-trueconstp arg) `(progn , arg nil ))
1419
- (t form)))))
1413
+ (if (= (length form) 2 )
1414
+ (let ((arg (nth 1 form)))
1415
+ (cond ((null arg) t )
1416
+ ((macroexp-const-p arg) nil )
1417
+ ((byte-compile-nilconstp arg) `(progn , arg t ))
1418
+ ((byte-compile-trueconstp arg) `(progn , arg nil ))
1419
+ (t form)))
1420
+ form))
1420
1421
1421
1422
(put 'and 'byte-optimizer #'byte-optimize-and )
1422
1423
(put 'or 'byte-optimizer #'byte-optimize-or )
You can’t perform that action at this time.
0 commit comments