Debugger entered--Lisp error: (wrong-type-argument listp dbus-call-method-handler)
  car(dbus-call-method-handler)
  (let
      ((item
        (car --dolist-tail--)))
    (if
        (and
         (equal
          (butlast key)
          (list :property bus interface))
         (string-equal path
                       (nth 2 item))
         (not
          (functionp
           (car
            (last item)))))
        (progn
          (setq result
                (cons
                 (list :dict-entry
                       (car
                        (last key))
                       (list :variant
                             (cdr (car (last item)))))
                 result))))
    (setq --dolist-tail--
          (cdr --dolist-tail--)))
  (while --dolist-tail--
    (let
        ((item
          (car --dolist-tail--)))
      (if
          (and
           (equal
            (butlast key)
            (list :property bus interface))
           (string-equal path
                         (nth 2 item))
           (not
            (functionp
             (car
              (last item)))))
          (progn
            (setq result
                  (cons
                   (list :dict-entry
                         (car (last key))
                         (list :variant (cdr (car (last item)))))
                   result))))
      (setq --dolist-tail--
            (cdr --dolist-tail--))))
  (let
      ((--dolist-tail-- val))
    (while --dolist-tail--
      (let
          ((item
            (car --dolist-tail--)))
        (if
            (and
             (equal
              (butlast key)
              (list :property bus interface))
             (string-equal path
                           (nth 2 item))
             (not
              (functionp
               (car (last item)))))
            (progn
              (setq result
                    (cons
                     (list :dict-entry (car (last key)) (list :variant (cdr (car (last item)))))
                     result))))
        (setq --dolist-tail--
              (cdr --dolist-tail--)))))
  (closure
   ((result)
    (property)
    (interface . "org.freedesktop.DBus.Properties")
    (method . "GetAll")
    (path . "/node0")
    (service . ":1.17675")
    (bus . :session)
    (args "org.freedesktop.DBus.Properties")
    t)
   (key val)
   (let
       ((--dolist-tail-- val))
     (while --dolist-tail--
       (let
           ((item
             (car --dolist-tail--)))
         (if
             (and
              (equal (butlast key) (list :property bus interface))
              (string-equal path (nth 2 item))
              (not (functionp (car (last item)))))
             (progn
               (setq result (cons (list :dict-entry (car (last key)) (list :variant (cdr (car (last item))))) result))))
         (setq --dolist-tail--
               (cdr --dolist-tail--))))))((:serial :session 5) dbus-call-method-handler)
  maphash((closure
           ((result)
            (property)
            (interface . "org.freedesktop.DBus.Properties")
            (method . "GetAll")
            (path . "/node0")
            (service . ":1.17675")
            (bus . :session)
            (args "org.freedesktop.DBus.Properties")
            t)
           (key val)
           (let
               ((--dolist-tail-- val))
             (while --dolist-tail--
               (let
                   ((item
                     (car --dolist-tail--)))
                 (if
                     (and
                      (equal (butlast key) (list :property bus interface))
                      (string-equal path (nth 2 item))
                      (not (functionp (car (last item)))))
                     (progn
                       (setq result (cons (list :dict-entry (car (last key)) (list :variant (cdr (car (last item))))) result))))
                 (setq --dolist-tail--
                       (cdr --dolist-tail--))))))
          #<hash-table equal 9/65 0x1fc13687fba1>)
  (let
      (result)
    (maphash
     #'(lambda
         (key val)
         (let
             ((--dolist-tail-- val))
           (while --dolist-tail--
            (let
                ((item
                  (car --dolist-tail--)))
              (if
                  (and
                   (equal
                    (butlast key)
                    (list :property bus interface))
                   (string-equal path
                    (nth 2 item))
                   (not
                    (functionp
                     (car
                      (last item)))))
                  (progn
                    (setq result
                     (cons
                      (list :dict-entry
                       (car
                        (last key))
                       (list :variant
                        (cdr
                         (car
                          (last item)))))
                      result))))
              (setq --dolist-tail--
               (cdr --dolist-tail--))))))
     dbus-registered-objects-table)
    (list :array
          (or result
              '(:signature "{sv}"))))
  (cond
   ((string-equal method "Get")
    (let
        ((entry
          (dbus-get-this-registered-property bus service path interface property)))
      (if
          (string-equal path
                        (nth 2
                             (car entry)))
          (progn
            (list
             (list ':variant
                   (cdr (car (last (car entry))))))))))
   ((string-equal method "Set")
    (let*
        ((value
          (car
           (car
            (cdr (cdr args)))))
         (entry
          (dbus-get-this-registered-property bus service path interface property))
         (object
          (car
           (last
            (car entry)))))
      (if
          (consp object)
          nil
        (signal 'dbus-error
                (list "Property not registered at path" property path)))
      (if
          (member :readwrite
                  (car object))
          nil
        (signal 'dbus-error
                (list "Property not writable at path" property path)))
      (puthash
       (list :property bus interface property)
       (cons
        (append
         (butlast
          (car entry))
         (list
          (cons (car object) value)))
        (dbus-get-other-registered-property bus service path interface property))
       dbus-registered-objects-table)
      (if
          (member :emits-signal
                  (car object))
          (progn
            (dbus-send-signal bus service path dbus-interface-properties "PropertiesChanged"
                              (list
                               (list ':dict-entry property (list ':variant value)))
                              '(:array))))
      :ignore))
   ((string-equal method "GetAll")
    (let
        (result)
      (maphash
       #'(lambda
           (key val)
           (let
               ((--dolist-tail-- val))
             (while --dolist-tail-- (let ((item (car --dolist-tail--))) (if (and (equal (butlast key) (list :property bus interface)) (string-equal path (nth 2 item)) (not (functionp (car (last item))))) (progn (setq result (cons (list :dict-entry (car ...) (list :variant ...)) result)))) (setq --dolist-tail-- (cdr --dolist-tail--))))))
       dbus-registered-objects-table)
      (list :array
            (or result
                '(:signature "{sv}"))))))
  (let
      ((bus
        (dbus-event-bus-name last-input-event))
       (service
        (dbus-event-service-name last-input-event))
       (path
        (dbus-event-path-name last-input-event))
       (method
        (dbus-event-member-name last-input-event))
       (interface
        (car args))
       (property
        (car
         (cdr args))))
    (cond
     ((string-equal method "Get")
      (let
          ((entry
            (dbus-get-this-registered-property bus service path interface property)))
        (if
            (string-equal path
                          (nth 2
                               (car entry)))
            (progn
              (list
               (list ':variant
                     (cdr
                      (car
                       (last
                        (car entry))))))))))
     ((string-equal method "Set")
      (let*
          ((value
            (car
             (car
              (cdr
               (cdr args)))))
           (entry
            (dbus-get-this-registered-property bus service path interface property))
           (object
            (car
             (last
              (car entry)))))
        (if
            (consp object)
            nil
          (signal 'dbus-error
                  (list "Property not registered at path" property path)))
        (if
            (member :readwrite
                    (car object))
            nil
          (signal 'dbus-error
                  (list "Property not writable at path" property path)))
        (puthash
         (list :property bus interface property)
         (cons
          (append
           (butlast
            (car entry))
           (list
            (cons
             (car object)
             value)))
          (dbus-get-other-registered-property bus service path interface property))
         dbus-registered-objects-table)
        (if
            (member :emits-signal
                    (car object))
            (progn
              (dbus-send-signal bus service path dbus-interface-properties "PropertiesChanged"
                                (list
                                 (list ':dict-entry property
                                       (list ':variant value)))
                                '(:array))))
        :ignore))
     ((string-equal method "GetAll")
      (let
          (result)
        (maphash
         #'(lambda
             (key val)
             (let
                 ((--dolist-tail-- val))
               (while --dolist-tail--
                (let
                    ((item
                      (car --dolist-tail--)))
                  (if
                      (and
                       (equal
                        (butlast key)
                        (list :property bus interface))
                       (string-equal path
                        (nth 2 item))
                       (not
                        (functionp
                         (car
                          (last item)))))
                      (progn
                        (setq result
                         (cons
                          (list :dict-entry
                           (car
                            (last key))
                           (list :variant
                            (cdr
                             (car
                              (last item)))))
                          result))))
                  (setq --dolist-tail--
                   (cdr --dolist-tail--))))))
         dbus-registered-objects-table)
        (list :array
              (or result
                  '(:signature "{sv}")))))))
  dbus-property-handler("org.freedesktop.DBus.Properties")
  (let
      ((last-input-event
        (append
         (butlast last-input-event 4)
         (list object dbus-interface-properties "GetAll" 'dbus-property-handler))))
    (dbus-property-handler interface))
  (cons interface
        (let
            ((last-input-event
              (append
               (butlast last-input-event 4)
               (list object dbus-interface-properties "GetAll" 'dbus-property-handler))))
          (dbus-property-handler interface)))
  (list
   (cons interface
         (let
             ((last-input-event
               (append
                (butlast last-input-event 4)
                (list object dbus-interface-properties "GetAll" 'dbus-property-handler))))
           (dbus-property-handler interface))))
  (append
   (list
    (cons interface
          (let
              ((last-input-event
                (append
                 (butlast last-input-event 4)
                 (list object dbus-interface-properties "GetAll" 'dbus-property-handler))))
            (dbus-property-handler interface))))
   (cdr
    (assoc object result)))
  (setcdr
   (assoc object result)
   (append
    (list
     (cons interface
           (let
               ((last-input-event
                 (append (butlast last-input-event 4) (list object dbus-interface-properties "GetAll" 'dbus-property-handler))))
             (dbus-property-handler interface))))
    (cdr
     (assoc object result))))
  (if
      (assoc interface
             (cdr
              (assoc object result)))
      nil
    (setcdr
     (assoc object result)
     (append
      (list
       (cons interface
             (let
                 ((last-input-event (append (butlast last-input-event 4) (list object dbus-interface-properties "GetAll" 'dbus-property-handler))))
               (dbus-property-handler interface))))
      (cdr
       (assoc object result)))))
  (let
      ((interface
        (car --dolist-tail--)))
    (if
        (assoc object result)
        nil
      (setq result
            (cons
             (list object)
             result)))
    (if
        (assoc interface
               (cdr
                (assoc object result)))
        nil
      (setcdr
       (assoc object result)
       (append
        (list
         (cons interface
               (let
                   ((last-input-event (append (butlast last-input-event 4) (list object dbus-interface-properties "GetAll" 'dbus-property-handler))))
                 (dbus-property-handler interface))))
        (cdr
         (assoc object result)))))
    (setq --dolist-tail--
          (cdr --dolist-tail--)))
  (while --dolist-tail--
    (let
        ((interface
          (car --dolist-tail--)))
      (if
          (assoc object result)
          nil
        (setq result
              (cons
               (list object)
               result)))
      (if
          (assoc interface
                 (cdr
                  (assoc object result)))
          nil
        (setcdr
         (assoc object result)
         (append
          (list
           (cons interface
                 (let ((last-input-event (append (butlast last-input-event 4) (list object dbus-interface-properties "GetAll" 'dbus-property-handler)))) (dbus-property-handler interface))))
          (cdr
           (assoc object result)))))
      (setq --dolist-tail--
            (cdr --dolist-tail--))))
  (let
      ((--dolist-tail--
        (cons
         (nth 2 key)
         interfaces)))
    (while --dolist-tail--
      (let
          ((interface
            (car --dolist-tail--)))
        (if
            (assoc object result)
            nil
          (setq result
                (cons
                 (list object)
                 result)))
        (if
            (assoc interface
                   (cdr
                    (assoc object result)))
            nil
          (setcdr
           (assoc object result)
           (append
            (list
             (cons interface (let ((last-input-event (append (butlast last-input-event 4) (list object dbus-interface-properties "GetAll" 'dbus-property-handler)))) (dbus-property-handler interface))))
            (cdr
             (assoc object result)))))
        (setq --dolist-tail--
              (cdr --dolist-tail--)))))
  (progn
    (let
        ((--dolist-tail--
          (cons
           (nth 2 key)
           interfaces)))
      (while --dolist-tail--
        (let
            ((interface
              (car --dolist-tail--)))
          (if
              (assoc object result)
              nil
            (setq result
                  (cons
                   (list object)
                   result)))
          (if
              (assoc interface
                     (cdr
                      (assoc object result)))
              nil
            (setcdr
             (assoc object result)
             (append
              (list (cons interface (let ((last-input-event (append (butlast last-input-event 4) (list object dbus-interface-properties "GetAll" 'dbus-property-handler)))) (dbus-property-handler interface))))
              (cdr (assoc object result)))))
          (setq --dolist-tail--
                (cdr --dolist-tail--))))))
  (if
      (and
       (equal
        (butlast key 2)
        (list :method bus))
       (string-prefix-p path object))
      (progn
        (let
            ((--dolist-tail--
              (cons
               (nth 2 key)
               interfaces)))
          (while --dolist-tail--
            (let
                ((interface
                  (car --dolist-tail--)))
              (if
                  (assoc object result)
                  nil
                (setq result
                      (cons (list object) result)))
              (if
                  (assoc interface
                         (cdr (assoc object result)))
                  nil
                (setcdr
                 (assoc object result)
                 (append (list (cons interface (let ((last-input-event (append (butlast last-input-event 4) (list object dbus-interface-properties "GetAll" ...)))) (dbus-property-handler interface)))) (cdr (assoc object result)))))
              (setq --dolist-tail--
                    (cdr --dolist-tail--)))))))
  (let
      ((object
        (or
         (nth 2
              (car-safe val))
         "")))
    (if
        (and
         (equal
          (butlast key 2)
          (list :method bus))
         (string-prefix-p path object))
        (progn
          (let
              ((--dolist-tail--
                (cons
                 (nth 2 key)
                 interfaces)))
            (while --dolist-tail--
              (let
                  ((interface (car --dolist-tail--)))
                (if
                    (assoc object result)
                    nil
                  (setq result (cons (list object) result)))
                (if
                    (assoc interface (cdr (assoc object result)))
                    nil
                  (setcdr (assoc object result) (append (list (cons interface (let ((last-input-event (append ... ...))) (dbus-property-handler interface)))) (cdr (assoc object result)))))
                (setq --dolist-tail--
                      (cdr --dolist-tail--))))))))
  (closure
   ((result
     ("/node0"))
    (interfaces "org.freedesktop.DBus.ObjectManager" "org.freedesktop.DBus.Peer")
    (path . "/")
    (bus . :session)
    t)
   (key val)
   (let
       ((object
         (or
          (nth 2
               (car-safe val))
          "")))
     (if
         (and
          (equal
           (butlast key 2)
           (list :method bus))
          (string-prefix-p path object))
         (progn
           (let
               ((--dolist-tail-- (cons (nth 2 key) interfaces)))
             (while --dolist-tail--
               (let ((interface (car --dolist-tail--))) (if (assoc object result) nil (setq result (cons (list object) result))) (if (assoc interface (cdr (assoc object result))) nil (setcdr (assoc object result) (append (list (cons interface (let (...) (dbus-property-handler interface)))) (cdr (assoc object result))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))))((:method :session "org.freedesktop.DBus.Properties" "Get") ((nil "org.gnu.Emacs" "/node0" dbus-property-handler)))
  maphash((closure ((result ("/node0")) (interfaces "org.freedesktop.DBus.ObjectManager" "org.freedesktop.DBus.Peer") (path . "/") (bus . :session) t) (key val) (let ((object (or (nth 2 (car-safe val)) ""))) (if (and (equal (butlast key 2) (list :method bus)) (string-prefix-p path object)) (progn (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...))))))) #<hash-table equal 9/65 0x1fc13687fba1>)
  (let
      (interfaces result)
    (maphash
     #'(lambda
         (key val)
         (if
             (and
              (equal
               (butlast key 2)
               (list :method bus))
              (null
               (nth 2 (car-safe val))))
             (progn
               (setq interfaces
                (cons (nth 2 key) interfaces)))))
     dbus-registered-objects-table)
    (maphash
     #'(lambda
         (key val)
         (let
             ((object
               (or (nth 2 (car-safe val)) "")))
           (if
               (and
                (equal (butlast key 2) (list :method bus))
                (string-prefix-p path object))
               (progn
                 (let ((--dolist-tail-- (cons (nth 2 key) interfaces))) (while --dolist-tail-- (let ((interface (car --dolist-tail--))) (if (assoc object result) nil (setq result (cons (list object) result))) (if (assoc interface (cdr (assoc object result))) nil (setcdr (assoc object result) (append (list (cons interface ...)) (cdr (assoc object result))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))))
     dbus-registered-objects-table)
    (list :array
          (or
           (mapcar
            #'(lambda
                (x)
                (list :dict-entry :object-path
                 (car x)
                 (cons :array (mapcar #'(lambda (y) (cons :dict-entry y)) (cdr x)))))
            result)
           '(:signature "{oa{sa{sv}}}"))))
  (let*
      ((last-input-event last-input-event)
       (bus
        (dbus-event-bus-name last-input-event))
       (path
        (dbus-event-path-name last-input-event)))
    (let
        (interfaces result)
      (maphash
       #'(lambda
           (key val)
           (if
               (and
                (equal (butlast key 2) (list :method bus))
                (null (nth 2 (car-safe val))))
               (progn
                 (setq interfaces (cons (nth 2 key) interfaces)))))
       dbus-registered-objects-table)
      (maphash
       #'(lambda
           (key val)
           (let
               ((object (or (nth 2 (car-safe val)) "")))
             (if
                 (and (equal (butlast key 2) (list :method bus)) (string-prefix-p path object))
                 (progn (let ((--dolist-tail-- (cons (nth 2 key) interfaces))) (while --dolist-tail-- (let ((interface (car --dolist-tail--))) (if (assoc object result) nil (setq result (cons (list object) result))) (if (assoc interface (cdr (assoc object result))) nil (setcdr (assoc object result) (append (list ...) (cdr ...)))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))))
       dbus-registered-objects-table)
      (list :array
            (or
             (mapcar
              #'(lambda
                  (x)
                  (list :dict-entry :object-path (car x) (cons :array (mapcar #'(lambda (y) (cons :dict-entry y)) (cdr x)))))
              result)
             '(:signature "{oa{sa{sv}}}")))))
  dbus-managed-objects-handler()
  apply(dbus-managed-objects-handler nil)
  (setq result
        (apply
         (nth 8 event)
         (nthcdr 9 event)))
  (let
      (result)
    (dbus-check-event event)
    (if
        (= dbus-message-type-error
           (nth 2 event))
        (progn
          (signal 'dbus-error
                  (nthcdr 9 event))))
    (setq result
          (apply
           (nth 8 event)
           (nthcdr 9 event)))
    (if
        (= dbus-message-type-method-call
           (nth 2 event))
        (progn
          (condition-case err
              (progn
                (if
                    (eq result :ignore)
                    (dbus-method-return-internal
                     (nth 1 event)
                     (nth 4 event)
                     (nth 3 event))
                  (apply 'dbus-method-return-internal
                         (nth 1 event)
                         (nth 4 event)
                         (nth 3 event)
                         (if (consp result) result (list result)))))
            (dbus-error
             (if dbus-debug
                 (progn
                   (signal (car err) (cdr err)))))))))
  (condition-case err
      (let
          (result)
        (dbus-check-event event)
        (if
            (= dbus-message-type-error
               (nth 2 event))
            (progn
              (signal 'dbus-error
                      (nthcdr 9 event))))
        (setq result
              (apply
               (nth 8 event)
               (nthcdr 9 event)))
        (if
            (= dbus-message-type-method-call
               (nth 2 event))
            (progn
              (condition-case err
                  (progn
                    (if
                        (eq result :ignore)
                        (dbus-method-return-internal (nth 1 event) (nth 4 event) (nth 3 event))
                      (apply 'dbus-method-return-internal (nth 1 event) (nth 4 event) (nth 3 event) (if (consp result) result (list result)))))
                (dbus-error
                 (if dbus-debug
                     (progn (signal (car err) (cdr err)))))))))
    (dbus-error
     (if
         (= dbus-message-type-method-call
            (nth 2 event))
         (progn
           (condition-case err
               (progn
                 (dbus-method-error-internal
                  (nth 1 event)
                  (nth 4 event)
                  (nth 3 event)
                  (car (cdr err))))
             (dbus-error
              (if dbus-debug
                  (progn (signal (car err) (cdr err))))))))
     (run-hook-with-args 'dbus-event-error-functions event err)
     (if dbus-debug
         (progn
           (signal
            (car err)
            (cdr err))))))
  dbus-handle-event((dbus-event :session 1 2 ":1.17675" "/" "org.freedesktop.DBus.ObjectManager" "GetManagedObjects" dbus-managed-objects-handler))
  funcall-interactively(dbus-handle-event (dbus-event :session 1 2 ":1.17675" "/" "org.freedesktop.DBus.ObjectManager" "GetManagedObjects" dbus-managed-objects-handler))
  call-interactively(dbus-handle-event nil [(dbus-event :session 1 2 ":1.17675" "/" "org.freedesktop.DBus.ObjectManager" "GetManagedObjects" dbus-managed-objects-handler)])
  command-execute(dbus-handle-event nil [(dbus-event :session 1 2 ":1.17675" "/" "org.freedesktop.DBus.ObjectManager" "GetManagedObjects" dbus-managed-objects-handler)] t)
  read-event(nil nil 0.0013400956406250007)
  (let
      ((inhibit-redisplay t)
       unread-command-events)
    (read-event nil nil check-interval))
  (let
      ((event
        (let
            ((inhibit-redisplay t)
             unread-command-events)
          (read-event nil nil check-interval))))
    (if event
        (progn
          (if
              (condition-case nil
                  (progn
                    (dbus-check-event event))
                (error nil))
              (setq result
                    (gethash key dbus-return-values-table))
            (setq unread-command-events
                  (nconc unread-command-events
                         (cons event nil))))))
    (if
        (< check-interval 1)
        (progn
          (setq check-interval
                (* check-interval 1.05)))))
  (while
      (eq
       (car result)
       :pending)
    (let
        ((event
          (let
              ((inhibit-redisplay t)
               unread-command-events)
            (read-event nil nil check-interval))))
      (if event
          (progn
            (if
                (condition-case nil
                    (progn
                      (dbus-check-event event))
                  (error nil))
                (setq result
                      (gethash key dbus-return-values-table))
              (setq unread-command-events
                    (nconc unread-command-events
                           (cons event nil))))))
      (if
          (< check-interval 1)
          (progn
            (setq check-interval
                  (* check-interval 1.05))))))
  (progn
    (while
        (eq
         (car result)
         :pending)
      (let
          ((event
            (let
                ((inhibit-redisplay t)
                 unread-command-events)
              (read-event nil nil check-interval))))
        (if event
            (progn
              (if
                  (condition-case nil
                      (progn (dbus-check-event event))
                    (error nil))
                  (setq result
                        (gethash key dbus-return-values-table))
                (setq unread-command-events
                      (nconc unread-command-events (cons event nil))))))
        (if
            (< check-interval 1)
            (progn
              (setq check-interval
                    (* check-interval 1.05)))))))
  (unwind-protect
      (progn
        (while
            (eq
             (car result)
             :pending)
          (let
              ((event
                (let
                    ((inhibit-redisplay t) unread-command-events)
                  (read-event nil nil check-interval))))
            (if event
                (progn
                  (if
                      (condition-case nil (progn (dbus-check-event event)) (error nil))
                      (setq result (gethash key dbus-return-values-table))
                    (setq unread-command-events (nconc unread-command-events (cons event nil))))))
            (if
                (< check-interval 1)
                (progn
                  (setq check-interval
                        (* check-interval 1.05)))))))
    (cancel-timer -with-timeout-timer-))
  (let*
      ((-with-timeout-timer-
        (run-with-timer
         (if timeout
             (/ timeout 1000.0)
           25)
         nil
         #'(lambda nil
             (throw 'timeout 'timeout))))
       (with-timeout-timers
        (cons -with-timeout-timer- with-timeout-timers)))
    (unwind-protect
        (progn
          (while
              (eq
               (car result)
               :pending)
            (let
                ((event
                  (let ((inhibit-redisplay t) unread-command-events) (read-event nil nil check-interval))))
              (if event
                  (progn
                    (if (condition-case nil (progn (dbus-check-event event)) (error nil)) (setq result (gethash key dbus-return-values-table)) (setq unread-command-events (nconc unread-command-events (cons event nil))))))
              (if
                  (< check-interval 1)
                  (progn
                    (setq check-interval (* check-interval 1.05)))))))
      (cancel-timer -with-timeout-timer-)))
  (catch 'timeout
    (let*
        ((-with-timeout-timer-
          (run-with-timer
           (if timeout
               (/ timeout 1000.0)
             25)
           nil
           #'(lambda nil
               (throw 'timeout 'timeout))))
         (with-timeout-timers
          (cons -with-timeout-timer- with-timeout-timers)))
      (unwind-protect
          (progn
            (while
                (eq
                 (car result)
                 :pending)
              (let
                  ((event (let ((inhibit-redisplay t) unread-command-events) (read-event nil nil check-interval))))
                (if event
                    (progn (if (condition-case nil (progn (dbus-check-event event)) (error nil)) (setq result (gethash key dbus-return-values-table)) (setq unread-command-events (nconc unread-command-events (cons event nil))))))
                (if
                    (< check-interval 1)
                    (progn (setq check-interval (* check-interval 1.05)))))))
        (cancel-timer -with-timeout-timer-))))
  (let
      ((-with-timeout-value-
        (catch 'timeout
          (let*
              ((-with-timeout-timer-
                (run-with-timer (if timeout (/ timeout 1000.0) 25) nil #'(lambda nil (throw 'timeout 'timeout))))
               (with-timeout-timers
                (cons -with-timeout-timer- with-timeout-timers)))
            (unwind-protect
                (progn
                  (while (eq (car result) :pending) (let ((event (let ((inhibit-redisplay t) unread-command-events) (read-event nil nil check-interval)))) (if event (progn (if (condition-case nil (progn (dbus-check-event event)) (error nil)) (setq result (gethash key dbus-return-values-table)) (setq unread-command-events (nconc unread-command-events (cons event nil)))))) (if (< check-interval 1) (progn (setq check-interval (* check-interval 1.05)))))))
              (cancel-timer -with-timeout-timer-))))))
    (if
        (eq -with-timeout-value- 'timeout)
        (progn
          (signal 'dbus-error
                  (list "call timed out")))
      -with-timeout-value-))
  (progn
    (let
        ((-with-timeout-value-
          (catch 'timeout
            (let*
                ((-with-timeout-timer- (run-with-timer (if timeout (/ timeout 1000.0) 25) nil #'(lambda nil (throw 'timeout 'timeout))))
                 (with-timeout-timers (cons -with-timeout-timer- with-timeout-timers)))
              (unwind-protect
                  (progn (while (eq (car result) :pending) (let ((event (let ((inhibit-redisplay t) unread-command-events) (read-event nil nil check-interval)))) (if event (progn (if (condition-case nil (progn ...) (error nil)) (setq result (gethash key dbus-return-values-table)) (setq unread-command-events (nconc unread-command-events ...))))) (if (< check-interval 1) (progn (setq check-interval (* check-interval 1.05)))))))
                (cancel-timer -with-timeout-timer-))))))
      (if
          (eq -with-timeout-value- 'timeout)
          (progn
            (signal 'dbus-error
                    (list "call timed out")))
        -with-timeout-value-))
    (if
        (eq
         (car result)
         :error)
        (progn
          (signal
           (car
            (cdr result))
           (cdr
            (cdr result)))))
    (cdr result))
  (unwind-protect
      (progn
        (let
            ((-with-timeout-value-
              (catch 'timeout
                (let*
                    ((-with-timeout-timer- (run-with-timer (if timeout (/ timeout 1000.0) 25) nil #'(lambda nil (throw 'timeout 'timeout)))) (with-timeout-timers (cons -with-timeout-timer- with-timeout-timers)))
                  (unwind-protect (progn (while (eq (car result) :pending) (let ((event (let (... unread-command-events) (read-event nil nil check-interval)))) (if event (progn (if (condition-case nil ... ...) (setq result ...) (setq unread-command-events ...)))) (if (< check-interval 1) (progn (setq check-interval (* check-interval 1.05))))))) (cancel-timer -with-timeout-timer-))))))
          (if
              (eq -with-timeout-value- 'timeout)
              (progn
                (signal 'dbus-error
                        (list "call timed out")))
            -with-timeout-value-))
        (if
            (eq
             (car result)
             :error)
            (progn
              (signal
               (car
                (cdr result))
               (cdr
                (cdr result)))))
        (cdr result))
    (remhash key dbus-return-values-table))
  (let
      ((timeout
        (plist-get args :timeout))
       (check-interval 0.001)
       (key
        (apply 'dbus-message-internal dbus-message-type-method-call bus service path interface method 'dbus-call-method-handler args))
       (result
        (cons :pending nil)))
    (puthash key result dbus-return-values-table)
    (unwind-protect
        (progn
          (let
              ((-with-timeout-value-
                (catch 'timeout
                  (let* ((-with-timeout-timer- (run-with-timer (if timeout (/ timeout 1000.0) 25) nil #'(lambda nil (throw 'timeout 'timeout)))) (with-timeout-timers (cons -with-timeout-timer- with-timeout-timers))) (unwind-protect (progn (while (eq (car result) :pending) (let ((event (let ... ...))) (if event (progn (if ... ... ...))) (if (< check-interval 1) (progn (setq check-interval ...)))))) (cancel-timer -with-timeout-timer-))))))
            (if
                (eq -with-timeout-value- 'timeout)
                (progn
                  (signal 'dbus-error
                          (list "call timed out")))
              -with-timeout-value-))
          (if
              (eq
               (car result)
               :error)
              (progn
                (signal
                 (car
                  (cdr result))
                 (cdr
                  (cdr result)))))
          (cdr result))
      (remhash key dbus-return-values-table)))
  dbus-call-method(:session "com.example.SampleService" "/SomeObject" "com.example.SampleInterface" "HelloWorld" "xxx")
  main()
  eval((main) t)
  command-line-1(("--load" "/home/hugh/.config/emacs/dbus-mo-signal.el" "--eval" "(main)"))
  command-line()
  normal-top-level()