[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r117174: * lisp/subr.el (zerop): Move later so boots
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] trunk r117174: * lisp/subr.el (zerop): Move later so bootstrap works. |
Date: |
Wed, 28 May 2014 06:51:45 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 117174
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2014-05-27 23:51:36 -0700
message:
* lisp/subr.el (zerop): Move later so bootstrap works.
modified:
lisp/subr.el subr.el-20091113204419-o5vbwnq5f7feedwu-151
=== modified file 'lisp/subr.el'
--- a/lisp/subr.el 2014-05-28 00:50:44 +0000
+++ b/lisp/subr.el 2014-05-28 06:51:36 +0000
@@ -335,12 +335,6 @@
(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 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r117174: * lisp/subr.el (zerop): Move later so bootstrap works.,
Glenn Morris <=