X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fnumbers.lisp;h=1e93c38e5483f921fde988d152571cda79b19f60;hb=683874b497a99cd2c11b6c5d9b47e2785b1ede5f;hp=8e7e6ed0a9d2a3b461008e275281a5b097848a0d;hpb=667ec9d494530079bef28e8589dd0d3274b935ec;p=sbcl.git

diff --git a/src/code/numbers.lisp b/src/code/numbers.lisp
index 8e7e6ed..1e93c38 100644
--- a/src/code/numbers.lisp
+++ b/src/code/numbers.lisp
@@ -227,7 +227,7 @@
 
 (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)
@@ -251,7 +251,7 @@
 
 (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)
@@ -267,7 +267,7 @@
 
 (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)
@@ -329,8 +329,8 @@
 
 (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))