From 6c2038223bffd69bf643a923968fa6851a302fd8 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 27 May 2014 23:51:36 -0700 Subject: [PATCH] * lisp/subr.el (zerop): Move later so bootstrap works. --- lisp/subr.el | 13 +++++++------ 1 file 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. -- 2.11.4.GIT