Ways to change the outline search patterns

[Heime]

Calling "re-search-forward", I am able to identify lines starting  with ;;; 
followed by
an number of spaces.

(re-search-forward ";;; *H1"))

My task is to use this for outline headings at level 1.

But the following has not worked for me

(defvar el-hglevels '( (";;; H1" . 1) (";;; H2" . 2)))
;;; H2 (defun tematika-outlhg-regexp ()

(defun outlhg-regexp ()
  (cond
    ((memq major-mode '(emacs-lisp-mode lisp-interaction-mode))
       (let ( (hglevels el-hglevels) )
         (setq outline-regexp
               (concat (regexp-opt (mapcar 'car hglevels)) "\\>"))
         (setq outline-heading-alist hglevels)
         (setq-local outline-level 'outline-level))) ))

What might I be doing wrong ?  Is there an alternative way to change the
outline search patterns ?