mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 19:00:55 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/subr.el (zerop): Move later so bootstrap works.

Browse source
This commit is contained in:
Glenn Morris 2014-05-27 23:51:36 -07:00
parent 1af6db7de0
commit 6c2038223b
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/subr.el
View file

@ -335,12 +335,6 @@ configuration."
(and (consp object) (and (consp object)
(eq (car object) 'frame-configuration))) (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. ;;;; 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)) (if (> n 0) (setcdr (nthcdr (- (1- m) n) list) nil))
list)))) 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) (defun delete-dups (list)
"Destructively remove `equal' duplicates from LIST. "Destructively remove `equal' duplicates from LIST.
Store the result in LIST and return it. LIST must be a proper list. Store the result in LIST and return it. LIST must be a proper list.