commit 06f8db3a28520b55b3769369f487514727a7a94b
Author: Simon Watson <spw01@protonmail.com>
Date:   Mon Dec 20 22:24:50 2021 -0500

    More updates, basically working

diff --git a/fin-lisp.lisp b/fin-lisp.lisp
index 1848c43..7761393 100644
--- a/fin-lisp.lisp
+++ b/fin-lisp.lisp
@@ -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")))