aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBasil L. Contovounesios2018-07-11 20:11:55 +0300
committerPaul Eggert2018-07-11 10:31:49 -0700
commit84e5986902c7d7274f438c48c82949436eb9093d (patch)
treee1f82bb8dc29fa4381d007d1b96d3d7797fb3104
parent78125f37444acd4f1ec4a0a5b0a338d80672f2ec (diff)
downloademacs-84e5986902c7d7274f438c48c82949436eb9093d.tar.gz
emacs-84e5986902c7d7274f438c48c82949436eb9093d.zip
; Add commentary on location of zerop
* lisp/subr.el (zerop): Add commentary explaining why moving the function's location within the file broke bootstrap in 2018-07-10T23:08:58-07:00!contovob@tcd.ie.
-rw-r--r--lisp/subr.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/subr.el b/lisp/subr.el
index c1d90e3fb18..a5108eb6558 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -548,6 +548,9 @@ If N is omitted or nil, remove the last element."
548 (if (> n 0) (setcdr (nthcdr (- (1- m) n) list) nil)) 548 (if (> n 0) (setcdr (nthcdr (- (1- m) n) list) nil))
549 list)))) 549 list))))
550 550
551;; This function appears here instead of under the 'Basic Lisp
552;; functions' heading because during bootstrap its compiler-macro
553;; requires functions defined under the 'List functions' heading.
551(defun zerop (number) 554(defun zerop (number)
552 "Return t if NUMBER is zero." 555 "Return t if NUMBER is zero."
553 ;; Used to be in C, but it's pointless since (= 0 n) is faster anyway because 556 ;; Used to be in C, but it's pointless since (= 0 n) is faster anyway because