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

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index a4fa138..2371a80 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))