(if (policy *lexenv* (= store-coverage-data 0))
nil
(labels ((sub (form)
- (or (gethash form *source-paths*)
+ (or (get-source-path form)
(and (consp form)
(some #'sub form)))))
(or (sub form)))))
(defun name-lambdalike (thing)
(ecase (car thing)
((named-lambda)
- (second thing))
+ (or (second thing)
+ `(lambda ,(third thing))))
((lambda instance-lambda)
`(lambda ,(second thing)))
((lambda-with-lexenv)
#!+sb-doc
"LOCALLY declaration* form*
-Sequentially evaluate the FORMS in a lexical environment where the the
+Sequentially evaluate the FORMS in a lexical environment where the
DECLARATIONS have effect. If LOCALLY is a top level form, then the FORMS are
also processed as top level forms."
(ir1-translate-locally body start next result))