From 930403f11a4788b722ef4fb72af9c67e8647a3df Mon Sep 17 00:00:00 2001 From: shuhei Date: Sun, 5 Dec 1999 07:20:34 +0000 Subject: [PATCH] (numberp): New function; alias for `integerp'. (abs): New function. --- ChangeLog | 3 +++ poe-18.el | 9 +++++++++ 2 files changed, 12 insertions(+) diff --git a/ChangeLog b/ChangeLog index 3e81865..41fd887 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 1999-12-05 Shuhei KOBAYASHI + * 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. ;;; -- 1.7.10.4