(with-test (:name :toplevel-declare)
(assert (raises-error? (eval '(declare (type pathname *scratch*))))))
(with-test (:name :toplevel-declare)
(assert (raises-error? (eval '(declare (type pathname *scratch*))))))
(assert (eq :fun (empty-let-is-not-toplevel-fun))))
;; While at it, test that we get the late binding under
;; interpreter mode.
(assert (eq :fun (empty-let-is-not-toplevel-fun))))
;; While at it, test that we get the late binding under
;; interpreter mode.