X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Feval.lisp;h=d77f90f2bef886042eae3a653a83aa55f3c0f3a8;hb=ef8fd235fa2ca39e444710d1bc275acbc8d3279c;hp=3f29e5952c8a1f15aafe8173ebe4ea7d08c4598b;hpb=269554bcae55d7e502992ea20932f71790066483;p=sbcl.git

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index 3f29e59..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
@@ -65,10 +66,10 @@
                  (sb!c::*free-funs* (make-hash-table :test 'equal))
                  (sb!c::*free-vars* (make-hash-table :test 'eq))
                  (sb!c::*undefined-warnings* nil))
+             ;; FIXME: VALUES declaration
              (sb!c::process-decls decls
                                   vars
                                   nil
-                                  (sb!c::make-continuation)
                                   lexenv))))
       (eval-progn-body body lexenv))))