(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
(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))))