X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fseq.lisp;h=4292c350c8c08f06b44b73f72629c52a8b62f2c3;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=a4fa13830633a5cda93e0f0c87d46a6e9a8239aa;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index a4fa138..4292c35 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -93,7 +93,7 @@
 	      :datum type
 	      :expected-type 'sequence
 	      :format-control
-	      "~S is a bad type specifier for sequence functions."
+	      "~S is not a legal type specifier for sequence functions."
 	      :format-arguments (list type))))))
 
 (defun signal-index-too-large-error (sequence index)
@@ -441,9 +441,9 @@
   (when (null source-end) (setq source-end (length source-sequence)))
   (mumble-replace-from-mumble))
 
-;;; REPLACE cannot default end arguments to the length of sequence since it
-;;; is not an error to supply nil for their values. We must test for ends
-;;; being nil in the body of the function.
+;;; REPLACE cannot default END arguments to the length of SEQUENCE since it
+;;; is not an error to supply NIL for their values. We must test for ENDs
+;;; being NIL in the body of the function.
 (defun replace (target-sequence source-sequence &key
 		((:start1 target-start) 0)
 		((:end1 target-end))
@@ -1882,7 +1882,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 +1909,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))
@@ -1965,7 +1965,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)