X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=9c8597a350c5a941f12f671d247ce16cb906bfa4;hb=94cc1963322581d9e4b6bbd96c399a0507c601be;hp=bb0ecb52702c12459f7b50686e888fc5908c27f6;hpb=28ce7a00cbce6d27b127fd6a2783325c8198a568;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index bb0ecb5..9c8597a 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -835,7 +835,8 @@
 ;;; We parse declarations and then recursively process the body.
 (defun process-toplevel-locally (body path compile-time-too &key vars funs)
   (declare (list path))
-  (multiple-value-bind (forms decls) (parse-body body nil)
+  (multiple-value-bind (forms decls)
+      (parse-body body :doc-string-allowed nil :toplevel t)
     (let* ((*lexenv* (process-decls decls vars funs))
            ;; FIXME: VALUES declaration
            ;;