it seems to be a recent regression.
CL-USER> (labels ((foo () (declare (optimize speed)) (sb-ext:get-time-of-day))) (multiple-value-list (multiple-value-prog1 (apply #'values (list 1)) (foo)))) (1) CL-USER> (lisp-implementation-version) "1.2.13.90.hu.dwim.2-43e2c8b"
it seems to be a recent regression.
CL-USER> (labels ((foo ()
( declare (optimize speed))
( sb-ext: get-time- of-day) ))
(multiple- value-list (multiple- value-prog1
(apply #'values (list 1))
( foo)))) ation-version) 90.hu.dwim. 2-43e2c8b"
(1)
CL-USER> (lisp-implement
"1.2.13.