Filter interactive function declared in file

How can I pass a pattern.  Without checking a pattern I get an enormous
long list of matching function names. 

(defun mazonas-smbptn (smb pattern file)
  "Filter symbol SYM defined in a specific file that are currently loaded."
  (when (and (fboundp smb)
             (string= (symbol-file smb) file)
             (commandp smb)
             (string-match-p pattern (symbol-name smb)))
    smb))


(defun mazonas-agfun (file pattern)
  "List all interactive functions defined in FILE."
  
  (interactive
    (list 
      (read-file-name "File: ")
      (read-regexp "Symbol Pattern (RET for all): ")))

  (let (smbs)
    (when (find-file-noselect file)
      (mapatoms (lambda (smb)
                  (when (mazonas-smbptn smb pattern file)
                    (push smb smbs))))

      (message "Interactive functions: %s"
	(seq-filter #'commandp smbs))
      (seq-filter #'commandp smbs))))