Displaying outline-heading-alist and outline-regexp in a dedicated buffer

How may I print the values of outline-heading-alist and outline-regexp 
in a dedicated buffer?

(defun kronaire-headings ()
  "Set the regular expression patterns (regexp) to identify lines of
text that will serve as outline heading titles for `outline-minor-mode'
across various major modes."

  (interactive)

  ;; HRKL ST("Hierarchical Levels")
  ;; (memq ELT LIST)
  ;;   MEMQ returns true if MAJOR-MODE is an element of LIST

  (let ( (hrkl  (kronaire-levels 8))
         (hdgs  (concat (regexp-opt (mapcar 'car hrkl)) "\\>")) )

    (when hrkl

      (setq outline-heading-alist hrkl)
      (setq outline-regexp hdgs)
      (setq-local outline-level 'outline-level)

      (outline-minor-mode 0)
      (outline-minor-mode 1)

      ;; Display `outline-heading-alist' and `outline-regexp'

      (let ( (buffer-name "Kronaire DU") )
	(with-current-buffer (get-buffer-create buffer-name)
          (read-only-mode -1)  ; Make buffer writable
          (erase-buffer)
          (insert (format "%s" "kronaire-headings"))
          (insert (format "outline-heading-alist:\n  %s\n"
                            outline-heading-alist))
          (insert (format "outline-regexp:\n  %s\n\n"
                          outline-regexp))
          (read-only-mode 1)   ;; Make buffer read-only
          (display-buffer (current-buffer)))) )))