(defun inline-with-block-3 ()
  (declare (inline))
  (block a-block
         (return-from a-block 4)
         )
  (none)
  )

(inline-with-block-3)
4