0.8.8.16:

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

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index 3f29e59..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
@@ -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))))