|
@@ -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")
|