projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.9.46:
[sbcl.git]
/
src
/
code
/
numbers.lisp
diff --git
a/src/code/numbers.lisp
b/src/code/numbers.lisp
index
a18b5b9
..
72e8761
100644
(file)
--- a/
src/code/numbers.lisp
+++ b/
src/code/numbers.lisp
@@
-765,7
+765,8
@@
(defun max (number &rest more-numbers)
#!+sb-doc
(defun max (number &rest more-numbers)
#!+sb-doc
- "Return the greatest of its arguments."
+ "Return the greatest of its arguments; among EQUALP greatest, return
+the first."
(do ((nlist more-numbers (cdr nlist))
(result number))
((null nlist) (return result))
(do ((nlist more-numbers (cdr nlist))
(result number))
((null nlist) (return result))
@@
-775,7
+776,8
@@
(defun min (number &rest more-numbers)
#!+sb-doc
(defun min (number &rest more-numbers)
#!+sb-doc
- "Return the least of its arguments."
+ "Return the least of its arguments; among EQUALP least, return
+the first."
(do ((nlist more-numbers (cdr nlist))
(result number))
((null nlist) (return result))
(do ((nlist more-numbers (cdr nlist))
(result number))
((null nlist) (return result))