Fix current month and print it.

This commit is contained in:
Dominik Pantůček 2023-03-21 20:29:28 +01:00
parent 922b178519
commit ac01370c67
3 changed files with 4 additions and 2 deletions

View file

@ -113,6 +113,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;; Perform requested action
(case (-action-)
((print-info)
(newline)
(print "Current month: " (month->string (*current-month*)))
(newline)
(if mr
(print-member-record-info mr)