screwlisp@dharmik
In the spirit of sharing
CL-USER>
(ensure-directories-exist
(format nil "~[mon~;tue~;wed~;thu~;fri~;sat~;sun~]/"
(nth-value 6 (get-decoded-time))))
"thu/"
T
CL-USER> (probe-file #p"thu/")
#P"/home/screwtape/thu/"
tl;dr a lisp form to create an abbreviated current-day-of-the-week-shortname by decoding the current universal-time.
All GNU social JP content and data are available under the