commit 08f8fbbb78e9e46ee9259ab2fd348efaed9e7d10
Author: Simon Watson <spesk@pm.me>
Date:   Tue Dec 21 14:31:42 2021 -0500

    Removed redudant arg parsing

diff --git a/save.lisp b/save.lisp
index 76411e8..905fb1e 100644
--- a/save.lisp
+++ b/save.lisp
@@ -4,7 +4,7 @@
 (ql:quickload "unix-opts")
 
 (defun file-test (filename)
-  (if (probe-file filename) filename))
+  (if (probe-file filename) filename (print "Couldn't find filename")))
 
 (defun get-fn-str (filename)
   (if (stringp filename) filename))
@@ -57,7 +57,6 @@
       (format t "~a ~%" matches)
       (when-option (matches :help)
 		   (display-help))
-      (if (second matches) (display-help))
       ;; Load program
       (load (getf matches :input-file))
       (print "Loaded file")