1 files changed, 7 insertions, 6 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index 8767511f651..73dd0fe71df 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -335,12 +335,6 @@ configuration."
   (and (consp object)
        (eq (car object) 'frame-configuration)))
 
-(defun zerop (number)
-  "Return t if NUMBER is zero."
-  ;; Used to be in C, but it's pointless since (= 0 n) is faster anyway because
-  ;; = has a byte-code.
-  (declare (compiler-macro (lambda (_) `(= 0 ,number))))
-  (= 0 number))
 
 ;;;; List functions.
 
@@ -389,6 +383,13 @@ If N is omitted or nil, remove the last element."
            (if (> n 0) (setcdr (nthcdr (- (1- m) n) list) nil))
            list))))
 
+(defun zerop (number)
+  "Return t if NUMBER is zero."
+  ;; Used to be in C, but it's pointless since (= 0 n) is faster anyway because
+  ;; = has a byte-code.
+  (declare (compiler-macro (lambda (_) `(= 0 ,number))))
+  (= 0 number))
+
 (defun delete-dups (list)
   "Destructively remove `equal' duplicates from LIST.
 Store the result in LIST and return it.  LIST must be a proper list.