From: shuhei <shuhei>
Date: Sun, 5 Dec 1999 07:20:34 +0000 (+0000)
Subject: (numberp): New function; alias for `integerp'.
X-Git-Tag: apel-shubit-10_0~12
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=930403f11a4788b722ef4fb72af9c67e8647a3df;p=elisp%2Fapel.git

(numberp): New function; alias for `integerp'.
(abs): New function.
---

diff --git a/ChangeLog b/ChangeLog
index 3e81865..41fd887 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 1999-12-05  Shuhei KOBAYASHI  <shuhei@aqua.ocn.ne.jp>
 
+	* poe-18.el (numberp): New function; alias for `integerp'.
+	(abs): New function.
+
 	* poe-18.el (byte-code-function-p): Docstring sync.
 	(cyclic-function-indirection): New error symbol.
 	(indirect-function): New function; use above symbol.
diff --git a/poe-18.el b/poe-18.el
index f8c62ee..9c44895 100644
--- a/poe-18.el
+++ b/poe-18.el
@@ -378,6 +378,15 @@ resolution finer than a second."
 	    ct2 (- ct2 65536)))
     (list ct1 ct2 0)))
 
+;;; @@ Floating point numbers.
+;;;
+
+(defalias 'numberp 'integerp)
+
+(defun abs (arg)
+  "Return the absolute value of ARG."
+  (if (< arg 0) (- arg) arg))
+
 
 ;;; @ Basic lisp subroutines.
 ;;;