The following code must signal type error:
(locally (declare (optimize (safety 3))) (flet ((foo (x &optional (y (car x))) (declare (optimize (safety 0))) (list x y))) (funcall (eval #'foo) 1)))
The following code must signal type error:
(locally (declare (optimize (safety 3)))
(declare (optimize (safety 0)))
(list x y)))
(flet ((foo (x &optional (y (car x)))
(funcall (eval #'foo) 1)))