I’ve been asked what my screensaver means…

This is the message:

(setq today (find-if '#dayp (cdr your-life)))

The code translates to:

Today is the first day of the rest of your life