Browse Source

Removed redudant arg parsing

Simon Watson 2 years ago
parent
commit
08f8fbbb78
1 changed files with 1 additions and 2 deletions
  1. 1 2
      save.lisp

+ 1 - 2
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")