Преглед на файлове

Kind of wonky but more or less works

Simon Watson преди 2 години
родител
ревизия
2bf36cef79
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      save.lisp

+ 1 - 1
save.lisp

@@ -50,7 +50,7 @@
     (quit)))
 
 (defun builder ()
-  (if (uiop:command-line-arguments) (display-help))
+  (if (> 2 (length sb-ext:*posix-argv*)) (display-help))
   ;;; Get and process args
   (let ((matches (opts:get-opts)))
     (progn