|
@@ -12,21 +12,6 @@
|
|
|
;;; and the value is the monthly expenses hash
|
|
|
(defvar *records* (make-hash-table :test 'equalp))
|
|
|
|
|
|
-;;; Lookup table for matching a "pretty" month name
|
|
|
-;;; with a date eg. December2021 -> 202112
|
|
|
-(defparameter *month-table* (list (cons 'January 01)
|
|
|
- (cons 'February 02)
|
|
|
- (cons 'March 03)
|
|
|
- (cons 'April 04)
|
|
|
- (cons 'May 05)
|
|
|
- (cons 'June 06)
|
|
|
- (cons 'July 07)
|
|
|
- (cons 'August 08)
|
|
|
- (cons 'September 09)
|
|
|
- (cons 'October 10)
|
|
|
- (cons 'November 11)
|
|
|
- (cons 'December 12)))
|
|
|
-
|
|
|
(defun reset-records ()
|
|
|
(setf *records* (make-hash-table :test 'equalp)))
|
|
|
|
|
@@ -128,8 +113,7 @@
|
|
|
((answer (prompt-read "Select an option")))
|
|
|
(if (string= answer "1")
|
|
|
(add-expense-to-month
|
|
|
- (read-from-string
|
|
|
- (prompt-read "Enter month"))))
|
|
|
+ (prompt-read "Enter month")))
|
|
|
(if (string= answer "2")
|
|
|
(dump-month
|
|
|
(prompt-read "Enter month")))
|