Fix current month and print it.
This commit is contained in:
parent
922b178519
commit
ac01370c67
3 changed files with 4 additions and 2 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue