(in-package :test)
(use-package :oli)

(sd-defdialog 'testdialog
  :dialog-title "Titel"
  :variables 
  '(
     (Anzeige
       :push-action (testfun)
       :title "TEST"
     )
   );variables

  :local-functions
  '(
     (testfun ()
       (let (testvar))
       (setf testvar 42)
       (display testvar)
     )
   );local-functions

);dialog