Unbreak bootstrap
* lisp/subr.el (zerop): Revert previous change, which caused bootstrap to fail with void function cadr.
This commit is contained in:
parent
babe0d4508
commit
78125f3744
1 changed files with 7 additions and 7 deletions
14
lisp/subr.el
14
lisp/subr.el
|
@ -359,13 +359,6 @@ was called."
|
|||
(lambda (&rest args2)
|
||||
(apply fun (append args args2))))
|
||||
|
||||
(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.
|
||||
|
||||
|
@ -555,6 +548,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 proper-list-p (object)
|
||||
"Return OBJECT's length if it is a proper list, nil otherwise.
|
||||
A proper list is neither circular nor dotted (i.e., its last cdr
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue