projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.98:
[sbcl.git]
/
src
/
code
/
numbers.lisp
diff --git
a/src/code/numbers.lisp
b/src/code/numbers.lisp
index
8e7e6ed
..
1e93c38
100644
(file)
--- a/
src/code/numbers.lisp
+++ b/
src/code/numbers.lisp
@@
-227,7
+227,7
@@
(defun complex (realpart &optional (imagpart 0))
#!+sb-doc
(defun complex (realpart &optional (imagpart 0))
#!+sb-doc
- "Builds a complex number from the specified components."
+ "Return a complex number with the specified real and imaginary components."
(flet ((%%make-complex (realpart imagpart)
(cond #!+long-float
((and (typep realpart 'long-float)
(flet ((%%make-complex (realpart imagpart)
(cond #!+long-float
((and (typep realpart 'long-float)
@@
-251,7
+251,7
@@
(defun realpart (number)
#!+sb-doc
(defun realpart (number)
#!+sb-doc
- "Extracts the real part of a number."
+ "Extract the real part of a number."
(typecase number
#!+long-float
((complex long-float)
(typecase number
#!+long-float
((complex long-float)
@@
-267,7
+267,7
@@
(defun imagpart (number)
#!+sb-doc
(defun imagpart (number)
#!+sb-doc
- "Extracts the imaginary part of a number."
+ "Extract the imaginary part of a number."
(typecase number
#!+long-float
((complex long-float)
(typecase number
#!+long-float
((complex long-float)
@@
-329,8
+329,8
@@
(defun - (number &rest more-numbers)
#!+sb-doc
(defun - (number &rest more-numbers)
#!+sb-doc
- "Subtracts the second and all subsequent arguments from the first.
- With one arg, negates it."
+ "Subtract the second and all subsequent arguments from the first;
+ or with one argument, negate the first argument."
(if more-numbers
(do ((nlist more-numbers (cdr nlist))
(result number))
(if more-numbers
(do ((nlist more-numbers (cdr nlist))
(result number))