Changeset 3586

Timestamp:

09/06/03 14:08:43 (20 years ago)

Author:

piso

Message:

SIGNUM

Location:

trunk/j/src/org/armedbear/lisp

Files:

• autoloads.lisp (modified) (2 diffs)
• numbers.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/autoloads.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: autoloads.lisp,v 1.15 2003-09-04 00:18:18 piso Exp $
+;;; $Id: autoloads.lisp,v 1.16 2003-09-06 14:08:43 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -73 +73 @@
 (autoload 'make-string)
 (autoload 'make-pathname)
-(autoload '(floor ceiling round rem mod ftruncate ffloor fceiling fround
+(autoload '(signum floor ceiling round rem mod ftruncate ffloor fceiling fround
             rational rationalize gcd isqrt)
           "numbers.lisp")

trunk/j/src/org/armedbear/lisp/numbers.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: numbers.lisp,v 1.10 2003-09-04 00:17:46 piso Exp $
+;;; $Id: numbers.lisp,v 1.11 2003-09-06 14:08:25 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -21 +21 @@
 
 (in-package "SYSTEM")
+
+(defun signum (number)
+  "If NUMBER is zero, return NUMBER, else return (/ NUMBER (ABS NUMBER))."
+  (if (zerop number)
+      number
+      (if (rationalp number)
+    (if (plusp number) 1 -1)
+    (/ number (abs number)))))
+
 
 ;;; If the numbers do not divide exactly and the result of (/ number divisor)