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

(abs): New function.

diff --git a/ChangeLog b/ChangeLog
index 3e81865..41fd887 100644 (file)
--- 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 (file)
--- 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.
 ;;;