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

(defun check-modified ()
  (let (anzahl)
  (sd-create-browser-search
    "parcel-gbrowser"
    :name "MOD"
    :title "gèndert"
    :criteria
    '((:column :modified :value t))
  )
  (sd-set-current-browser-search "parcel-gbrowser" "MOD" :activate t)
  (setf anzahl (sd-query-browser "parcel-gbrowser" :number-of-selected-objects))
  (sd-delete-browser-search "parcel-gbrowser" "MOD")
  (not (= anzahl 0))
  )
)