X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpred.lisp;h=79944d2c722114e18e5259c72713a64faee404b5;hb=90ca09b75fbc3b63b2f7d09c67b04b866dd783f6;hp=1acb8741fdb2c458759b3117bb81ae5268c76c0c;hpb=0aafa73007d42f2bc8e626f98a243019b7e63284;p=sbcl.git

diff --git a/src/code/pred.lisp b/src/code/pred.lisp
index 1acb874..79944d2 100644
--- a/src/code/pred.lisp
+++ b/src/code/pred.lisp
@@ -147,7 +147,7 @@
 
 (defun equal (x y)
   #!+sb-doc
-  "Returns T if X and Y are EQL or if they are structured components
+  "Return T if X and Y are EQL or if they are structured components
   whose elements are EQUAL. Strings and bit-vectors are EQUAL if they
   are the same length and have identical components. Other arrays must be
   EQ to be EQUAL."
@@ -192,7 +192,7 @@
 (defun equalp (x y)
   #+nil ; KLUDGE: If doc string, should be accurate: Talk about structures
   ; and HASH-TABLEs.
-  "Just like EQUAL, but more liberal in several respects.
+  "This is like EQUAL, except more liberal in several respects.
   Numbers may be of different types, as long as the values are identical
   after coercion. Characters may differ in alphabetic case. Vectors and
   arrays must have identical dimensions and EQUALP elements, but may differ