X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fseq.lisp;h=2d0b5a74ea6867b3e6477ad3f45a2206c5b7fd05;hb=4b58efcd710097cf7cc9b1a1bed8b0e1bd6eb3b8;hp=0d4a153e55e182a2798c91cdd973881512bedfb3;hpb=403bacffd903f8c5787a182f4133cffc69b55dc0;p=sbcl.git

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index 0d4a153..2d0b5a7 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -77,7 +77,7 @@
 
 (sb!xc:defmacro define-sequence-traverser (name args &body body)
   (multiple-value-bind (body declarations docstring)
-      (parse-body body t)
+      (parse-body body :doc-string-allowed t)
     (collect ((new-args) (new-declarations) (adjustments))
       (dolist (arg args)
 	(case arg