(in-package :examples) (use-package :oli) (UI::UIC-CD-HOME) (sd-defdialog 'pkg-export_V11 :dialog-title "PKG-Exp.11" :variables '((name :value-type :string :title "Filename" :prompt-text "Bitte Dateinamen eingeben." ) ) :ok-action '(progn (oli::BIN-IO-REVISION :MR-11-6-RELEASE) (save_package :all_at_top :FILENAME (FORMAT NIL "~A.pkg" name) (display (format nil "Das File unter der OSDM-Version 11.6 als ~A.pkg gespeichert." name)) ) ) )