Changeset 3552

Timestamp:

09/02/03 16:15:56 (19 years ago)

Author:

piso

Message:

MOD

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.12 2003-08-24 19:19:01 piso Exp $
+;;; $Id: autoloads.lisp,v 1.13 2003-09-02 16:15:56 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 ftruncate ffloor fceiling fround
+(autoload '(floor ceiling round rem mod ftruncate ffloor fceiling fround
             rational rationalize)
           "numbers.lisp")

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

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: numbers.lisp,v 1.7 2003-08-26 02:28:22 piso Exp $
+;;; $Id: numbers.lisp,v 1.8 2003-09-02 16:15:20 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -82 +82 @@
 
 
+(defun mod (number divisor)
+  "Returns second result of FLOOR."
+  (let ((rem (rem number divisor)))
+    (if (and (not (zerop rem))
+       (if (minusp divisor)
+     (plusp number)
+     (minusp number)))
+  (+ rem divisor)
+  rem)))
+
+
 (defun ftruncate (number &optional (divisor 1))
   (multiple-value-bind (tru rem) (truncate number divisor)