0.6.9.19:

[sbcl.git] / src / code / seq.lisp

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index 7baeb3c..2371a80 100644 (file)
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -17,9 +17,6 @@
 ;;;; files for more information.
 
 (in-package "SB!IMPL")
-
-(file-comment
-  "$Header$")
 \f
 ;;;; utilities
 
@@ -96,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)
@@ -444,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))