1 |
/* Primitive operations on floating point for GNU Emacs Lisp interpreter. |
/* Primitive operations on floating point for GNU Emacs Lisp interpreter. |
2 |
Copyright (C) 1988, 1993, 1994, 1999, 2003 Free Software Foundation, Inc. |
Copyright (C) 1988, 1993, 1994, 1999, 2003, 2005 Free Software Foundation, Inc. |
3 |
|
|
4 |
This file is part of GNU Emacs. |
This file is part of GNU Emacs. |
5 |
|
|
861 |
|
|
862 |
DEFUN ("floor", Ffloor, Sfloor, 1, 2, 0, |
DEFUN ("floor", Ffloor, Sfloor, 1, 2, 0, |
863 |
doc: /* Return the largest integer no greater than ARG. |
doc: /* Return the largest integer no greater than ARG. |
864 |
This rounds the value towards +inf. |
This rounds the value towards -inf. |
865 |
With optional DIVISOR, return the largest integer no greater than ARG/DIVISOR. */) |
With optional DIVISOR, return the largest integer no greater than ARG/DIVISOR. */) |
866 |
(arg, divisor) |
(arg, divisor) |
867 |
Lisp_Object arg, divisor; |
Lisp_Object arg, divisor; |