X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Fmain.lisp;h=920e4e8445d69143a036710ead791d7e1233d335;hp=3e1d98143b4710844a18b37fb45f3e6982a761cb;hb=89cb348;hpb=0c3453de28e7ec4fc962ace0a57135dfd4cef43b

diff --git a/src/main/main.lisp b/src/main/main.lisp
index 3e1d981..920e4e8 100644
--- a/src/main/main.lisp
+++ b/src/main/main.lisp
@@ -225,6 +225,7 @@ EXAMPLES:
             :view ',(clnl-model:view model)
             :buttons ',(clnl-model:buttons model)
             :textboxes ',(clnl-model:textboxes model)
+            :sliders ',(clnl-model:sliders model)
             :switches ',(clnl-model:switches model)))))))))
 
 (setf (documentation 'model->single-form-lisp 'function)
@@ -282,6 +283,7 @@ DESCRIPTION:
             :view ',(clnl-model:view model)
             :buttons ',(clnl-model:buttons model)
             :textboxes ',(clnl-model:textboxes model)
+            :sliders ',(clnl-model:sliders model)
             :switches ',(clnl-model:switches model)))))
      ,@(when netlogo-callback-fn
         `((defun ,netlogo-callback-fn (,(intern "NETLOGO-CODE" *model-package*))