[Guile-commits] 23/36: use defsubst

[Christopher Allan Webber]

cwebber pushed a commit to branch wip-elisp
in repository guile.

commit 9f316dd7533d2532aabbce8ee2a2c9c326e7fb91
Author: Robin Templeton <address@hidden>
Date:   Mon Aug 4 23:13:03 2014 -0400

    use defsubst
    
    (Best-ability ChangeLog annotation added by Christopher Allan Webber.)
    
    * module/language/elisp/boot.el (null, consp, listp, car, cdr): Update
      to use defsubst.
      (atom): New variable, using defsubst.
---
 module/language/elisp/boot.el |   18 +++++++++++++-----
 1 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/module/language/elisp/boot.el b/module/language/elisp/boot.el
index fae86a2..0d16905 100644
--- a/module/language/elisp/boot.el
+++ b/module/language/elisp/boot.el
@@ -71,15 +71,23 @@
     (%funcall (@ (language elisp runtime) eval-elisp) form)))
 
 (eval-and-compile
-  (defun null (object)
+  (defsubst null (object)
+    (declare (lexical object))
     (if object nil t))
-  (defun consp (object)
-    (%funcall (@ (guile) pair?) object))
+  (defsubst consp (x)
+    (declare (lexical x))
+    (%funcall (@ (guile) pair?) x))
+  (defsubst atom (x)
+    (declare (lexical x))
+    (null (consp x)))
   (defun listp (object)
+    (declare (lexical object))
     (if object (consp object) t))
-  (defun car (list)
+  (defsubst car (list)
+    (declare (lexical list))
     (if list (%funcall (@ (guile) car) list) nil))
-  (defun cdr (list)
+  (defsubst cdr (list)
+    (declare (lexical list))
     (if list (%funcall (@ (guile) cdr) list) nil))
   (defun make-symbol (name)
     (%funcall (@ (guile) make-symbol) name))