UI/Model Parse - Sliders - WIP

[clnl] / src / main / extensions / cli / cli.lisp

diff --git a/src/main/extensions/cli/cli.lisp b/src/main/extensions/cli/cli.lisp
index 9faddaaed1c76286dca40facfa93358ea38d7a32..717d79cc1767135a90f13604e4f1d3504057ea9c 100644 (file)
--- a/src/main/extensions/cli/cli.lisp
+++ b/src/main/extensions/cli/cli.lisp
@@ -6,7 +6,7 @@
   (list :name :load :type :command :args '(t) :func #'load-file)
   (list :name :help :type :command :args '((:token :optional)) :precedence 20 :func #'help)
   (list
-   :name :button :type :command :args '(:string (:optional :number))
+   :name :button :type :command :args '(:string (:number :optional))
    :precedence 20 :func #'clnl-model:execute-button)))
 
 (defun shut-down ()