0.8.3.3:

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

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index 2b9f400..d77f90f 100644 (file)
--- 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