Debugger entered--Lisp error: (void-function a-list)
  (a-list 'side org-sidebar-side 'slot slot 'window-parameters (a-list 'no-delete-other-windows t))
  (display-buffer-in-side-window (current-buffer) (a-list 'side org-sidebar-side 'slot slot 'window-parameters (a-list 'no-delete-other-windows t)))
  (save-current-buffer (set-buffer (get-buffer-create (format " *org-sidebar: %s*" slot))) (org-sidebar--prepare-buffer (or header (buffer-name source-buffer))) (setq org-sidebar-source-buffer source-buffer org-sidebar-group group org-sidebar-super-groups super-groups org-sidebar-fns fns org-sidebar-header header) (let ((it items)) (let ((it (cond (group (org-sidebar--format-grouped-items it)) (super-groups (let ... ...)) (t (s-join "\n" it))))) (insert it))) (goto-char (point-min)) (display-buffer-in-side-window (current-buffer) (a-list 'side org-sidebar-side 'slot slot 'window-parameters (a-list 'no-delete-other-windows t))) (setq slot (1+ slot)))
  (if items (save-current-buffer (set-buffer (get-buffer-create (format " *org-sidebar: %s*" slot))) (org-sidebar--prepare-buffer (or header (buffer-name source-buffer))) (setq org-sidebar-source-buffer source-buffer org-sidebar-group group org-sidebar-super-groups super-groups org-sidebar-fns fns org-sidebar-header header) (let ((it items)) (let ((it (cond (group ...) (super-groups ...) (t ...)))) (insert it))) (goto-char (point-min)) (display-buffer-in-side-window (current-buffer) (a-list 'side org-sidebar-side 'slot slot 'window-parameters (a-list 'no-delete-other-windows t))) (setq slot (1+ slot))) nil)
  (let* ((items (and t (save-current-buffer (set-buffer source-buffer) (if group (funcall it :group t) (funcall it)))))) (if items (save-current-buffer (set-buffer (get-buffer-create (format " *org-sidebar: %s*" slot))) (org-sidebar--prepare-buffer (or header (buffer-name source-buffer))) (setq org-sidebar-source-buffer source-buffer org-sidebar-group group org-sidebar-super-groups super-groups org-sidebar-fns fns org-sidebar-header header) (let ((it items)) (let ((it (cond ... ... ...))) (insert it))) (goto-char (point-min)) (display-buffer-in-side-window (current-buffer) (a-list 'side org-sidebar-side 'slot slot 'window-parameters (a-list 'no-delete-other-windows t))) (setq slot (1+ slot))) nil))
  (let ((it (car list))) (let* ((items (and t (save-current-buffer (set-buffer source-buffer) (if group (funcall it :group t) (funcall it)))))) (if items (save-current-buffer (set-buffer (get-buffer-create (format " *org-sidebar: %s*" slot))) (org-sidebar--prepare-buffer (or header (buffer-name source-buffer))) (setq org-sidebar-source-buffer source-buffer org-sidebar-group group org-sidebar-super-groups super-groups org-sidebar-fns fns org-sidebar-header header) (let ((it items)) (let ((it ...)) (insert it))) (goto-char (point-min)) (display-buffer-in-side-window (current-buffer) (a-list 'side org-sidebar-side 'slot slot 'window-parameters (a-list 'no-delete-other-windows t))) (setq slot (1+ slot))) nil)))
  (while list (let ((it (car list))) (let* ((items (and t (save-current-buffer (set-buffer source-buffer) (if group ... ...))))) (if items (save-current-buffer (set-buffer (get-buffer-create (format " *org-sidebar: %s*" slot))) (org-sidebar--prepare-buffer (or header (buffer-name source-buffer))) (setq org-sidebar-source-buffer source-buffer org-sidebar-group group org-sidebar-super-groups super-groups org-sidebar-fns fns org-sidebar-header header) (let ((it items)) (let (...) (insert it))) (goto-char (point-min)) (display-buffer-in-side-window (current-buffer) (a-list 'side org-sidebar-side 'slot slot 'window-parameters (a-list ... t))) (setq slot (1+ slot))) nil))) (setq it-index (1+ it-index)) (setq list (cdr list)))
  (let ((list fns) (it-index 0)) (while list (let ((it (car list))) (let* ((items (and t (save-current-buffer ... ...)))) (if items (save-current-buffer (set-buffer (get-buffer-create ...)) (org-sidebar--prepare-buffer (or header ...)) (setq org-sidebar-source-buffer source-buffer org-sidebar-group group org-sidebar-super-groups super-groups org-sidebar-fns fns org-sidebar-header header) (let (...) (let ... ...)) (goto-char (point-min)) (display-buffer-in-side-window (current-buffer) (a-list ... org-sidebar-side ... slot ... ...)) (setq slot (1+ slot))) nil))) (setq it-index (1+ it-index)) (setq list (cdr list))))
  (let ((source-buffer (if org-sidebar-updating org-sidebar-source-buffer (current-buffer))) (slot 0) (fns (or org-sidebar-fns fns)) (group (cond (group-passed group) (org-sidebar-updating org-sidebar-group) (t org-sidebar-group-items))) (super-groups (or org-sidebar-super-groups super-groups)) (header (or org-sidebar-header header)) (inhibit-read-only t)) (let ((list fns) (it-index 0)) (while list (let ((it (car list))) (let* ((items (and t ...))) (if items (save-current-buffer (set-buffer ...) (org-sidebar--prepare-buffer ...) (setq org-sidebar-source-buffer source-buffer org-sidebar-group group org-sidebar-super-groups super-groups org-sidebar-fns fns org-sidebar-header header) (let ... ...) (goto-char ...) (display-buffer-in-side-window ... ...) (setq slot ...)) nil))) (setq it-index (1+ it-index)) (setq list (cdr list)))))
  (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '(:fns :group :super-groups :header :allow-other-keys)) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ... --cl-rest--))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:fns :group :super..." (car --cl-keys--)))))) (let ((source-buffer (if org-sidebar-updating org-sidebar-source-buffer (current-buffer))) (slot 0) (fns (or org-sidebar-fns fns)) (group (cond (group-passed group) (org-sidebar-updating org-sidebar-group) (t org-sidebar-group-items))) (super-groups (or org-sidebar-super-groups super-groups)) (header (or org-sidebar-header header)) (inhibit-read-only t)) (let ((list fns) (it-index 0)) (while list (let ((it (car list))) (let* ((items ...)) (if items (save-current-buffer ... ... ... ... ... ... ...) nil))) (setq it-index (1+ it-index)) (setq list (cdr list))))))
  (let* ((fns (car (cdr (or (plist-member --cl-rest-- ':fns) '(nil ...))))) (group-passed (plist-member --cl-rest-- ':group)) (group (if group-passed (prog1 (car (cdr group-passed)) (setq group-passed t)) nil)) (super-groups (car (cdr (plist-member --cl-rest-- ':super-groups)))) (header (car (cdr (plist-member --cl-rest-- ':header))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '...) (setq --cl-keys-- (cdr ...))) ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:fns :group :super..." (car --cl-keys--)))))) (let ((source-buffer (if org-sidebar-updating org-sidebar-source-buffer (current-buffer))) (slot 0) (fns (or org-sidebar-fns fns)) (group (cond (group-passed group) (org-sidebar-updating org-sidebar-group) (t org-sidebar-group-items))) (super-groups (or org-sidebar-super-groups super-groups)) (header (or org-sidebar-header header)) (inhibit-read-only t)) (let ((list fns) (it-index 0)) (while list (let ((it ...)) (let* (...) (if items ... nil))) (setq it-index (1+ it-index)) (setq list (cdr list)))))))
  org-sidebar()
  funcall-interactively(org-sidebar)