X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fseq.lisp;h=730acebbc5d95ba67d827e5f1c6472785a8d62ab;hb=cbaa1997bb097a55d108df592ac3b7eb4a703fff;hp=2371a807bb81f3ea500758cd6fe9159b31c6544a;hpb=1ff04b3ba4e6f3a0fc6ceea524e98720ecea7888;p=sbcl.git

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index 2371a80..730aceb 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -81,7 +81,7 @@
 		  :datum type
 		  :expected-type '(or vector cons)
 		  :format-control
-		  "NIL output type invalid for this sequence function."
+		  "A NIL output type is invalid for this sequence function."
 		  :format-arguments ())))
       ((dolist (seq-type '(list string simple-vector bit-vector))
 	 (when (csubtypep type (specifier-type seq-type))
@@ -155,15 +155,15 @@
      (setf (aref sequence index) newval))))
 
 (defun length (sequence)
-  #!+sb-doc "Returns an integer that is the length of SEQUENCE."
+  #!+sb-doc "Return an integer that is the length of SEQUENCE."
   (etypecase sequence
     (vector (length (truly-the vector sequence)))
     (list (length (truly-the list sequence)))))
 
 (defun make-sequence (type length &key (initial-element NIL iep))
   #!+sb-doc
-  "Returns a sequence of the given Type and Length, with elements initialized
-  to :Initial-Element."
+  "Return a sequence of the given TYPE and LENGTH, with elements initialized
+  to :INITIAL-ELEMENT."
   (declare (fixnum length))
   (let ((type (specifier-type type)))
     (cond ((csubtypep type (specifier-type 'list))
@@ -186,11 +186,12 @@
 		     (vlen (car (array-type-dimensions type))))
 		 (if (and (numberp vlen) (/= vlen length))
 		   (error 'simple-type-error
-			  ;; these two are under-specified by ANSI
+			  ;; These two are under-specified by ANSI.
 			  :datum (type-specifier type)
 			  :expected-type (type-specifier type)
 			  :format-control
-			  "The length of ~S does not match the specified length  of ~S."
+			  "The length of ~S does not match the specified ~
+                           length=~S."
 			  :format-arguments
 			  (list (type-specifier type) length)))
 		 (if iep
@@ -1882,7 +1883,7 @@
   `(vector-locater-macro ,sequence
 			 (locater-test-not ,item ,sequence :vector ,return-type)
 			 ,return-type))
-
+
 (sb!xc:defmacro locater-if-test (test sequence seq-type return-type sense)
   (let ((seq-ref (case return-type
 		   (:position
@@ -1909,7 +1910,7 @@
 
 (sb!xc:defmacro vector-locater-if-not (test sequence return-type)
   `(vector-locater-if-macro ,test ,sequence ,return-type nil))
-
+
 (sb!xc:defmacro list-locater-macro (sequence body-form return-type)
   `(if from-end
        (do ((sequence (nthcdr (- (the fixnum (length sequence))
@@ -1952,7 +1953,7 @@
 
 ) ; EVAL-WHEN
 
-;;; POSITION
+;;;; POSITION
 
 (eval-when (:compile-toplevel :execute)
 
@@ -1965,7 +1966,7 @@
 ) ; EVAL-WHEN
 
 ;;; POSITION cannot default end to the length of sequence since it is not
-;;; an error to supply nil for its value. We must test for end being nil
+;;; an error to supply nil for its value. We must test for END being NIL
 ;;; in the body of the function, and this is actually done in the support
 ;;; routines for other reasons (see below).
 (defun position (item sequence &key from-end (test #'eql) test-not (start 0)
@@ -2303,9 +2304,9 @@
    result is Nil. Otherwise, the result is a non-negative integer, the index
    within Sequence1 of the leftmost position at which they fail to match; or,
    if one is shorter than and a matching prefix of the other, the index within
-   Sequence1 beyond the last position tested is returned. If a non-Nil
-   :From-End keyword argument is given, then one plus the index of the
-   rightmost position in which the sequences differ is returned."
+   Sequence1 beyond the last position tested is returned. If a non-NIL
+   :FROM-END argument is given, then one plus the index of the rightmost
+   position in which the sequences differ is returned."
   (declare (fixnum start1 start2))
   (let* ((length1 (length sequence1))
 	 (end1 (or end1 length1))