(use-package :oli)

(sd-defdialog 'datei_anzeigen
  :dialog-title "Datei anzeigen"
  :variables '(
  		(Datei
  		  :value-type :filename :direction :input
  		)
  	      )
  :ok-action '(Auslesen-Datei (FIRST Datei))
  
  :local-functions
  '(
     (Auslesen-Datei (D)
       (setf Dateihandle (open D :direction :input))
       (Loop
         (setf input-line (read-line Dateihandle nil 'END-OF-FILE))
         (if (string= input-line 'END-OF-FILE)
             (progn
                (close Dateihandle)
                (return)
              );;progn
              (display input-line)
          );;end_if
        );;end_loop
     );;auslesen-datei
   );;local-function
);;sd-defdialog