Browse Source

Added table formatting

Simon Watson 1 year ago
parent
commit
72249b46e0
3 changed files with 5 additions and 1 deletions
  1. 2 0
      .gitignore
  2. 2 0
      build.sh
  3. 1 1
      fin-lisp.lisp

+ 2 - 0
.gitignore

@@ -1,2 +1,4 @@
 bks/
 *.enc
+auth.json
+fr-bk.txt

+ 2 - 0
build.sh

@@ -0,0 +1,2 @@
+#!/bin/bash 
+sbcl --non-interactive --load fin-lisp.lisp --eval '(progn (sb-ext:disable-debugger) (sb-ext:save-lisp-and-die "fl" :toplevel #'"'"'main :executable t :purify t))'

+ 1 - 1
fin-lisp.lisp

@@ -246,7 +246,7 @@
 	 "Invalid Input"))
     (if (string= answer "2")
 	(generic-handler
-	   (dump-month (prompt-read "Enter month"))
+	   (dump-month-table (prompt-read "Enter month"))
 	   "Invalid month"))
     (if (string= answer "3")
 	(generic-handler