X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fseq.lisp;h=3a707419c27dd4b3dc701ea752eec93fb11b88ec;hb=a6a12ed609d5467ec43b411283e5b3568fee81df;hp=cc0267168121412577d70a91e81dabe9c9d24469;hpb=41cb424785ec6daf0263acb1a6a8af9d41708990;p=sbcl.git

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index cc02671..3a70741 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -659,8 +659,13 @@
 (define-sequence-traverser replace
     (sequence1 sequence2 &rest args &key start1 end1 start2 end2)
   #!+sb-doc
-  "The target sequence is destructively modified by copying successive
-   elements into it from the source sequence."
+  "Destructively modifies SEQUENCE1 by copying successive elements
+into it from the SEQUENCE2.
+
+Elements are copied to the subseqeuence bounded by START1 and END1,
+from the subsequence bounded by START2 and END2. If these subsequences
+are not of the same length, then the shorter length determines how
+many elements are copied."
   (declare (truly-dynamic-extent args))
   (let* (;; KLUDGE: absent either rewriting FOO-REPLACE-FROM-BAR, or
          ;; excessively polluting DEFINE-SEQUENCE-TRAVERSER, we rebind