X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Feval.lisp;h=d77f90f2bef886042eae3a653a83aa55f3c0f3a8;hb=8b64d57b865fec6ba082dda965146b5e8aa877b3;hp=2b9f4000db84cf009782537cae5b3c8e3692bd60;hpb=28ce7a00cbce6d27b127fd6a2783325c8198a568;p=sbcl.git

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index 2b9f400..d77f90f 100644
--- a/src/code/eval.lisp
+++ b/src/code/eval.lisp
@@ -47,7 +47,8 @@
 	(return (eval-in-lexenv (first i) lexenv)))))
 
 (defun eval-locally (exp lexenv &optional vars)
-  (multiple-value-bind (body decls) (parse-body (rest exp) nil)
+  (multiple-value-bind (body decls)
+      (parse-body (rest exp) :doc-string-allowed nil)
     (let ((lexenv
            ;; KLUDGE: Uh, yeah.  I'm not anticipating
            ;; winning any prizes for this code, which was