feat(analysis): add analysis for some built-in "progn" forms

Author: Fuco1

elsa-extension-builtin.el

@@ -267,5 +267,12 @@ empty, because it has no value."
 (defun elsa--analyse:eval-when-compile (form scope state)
   (elsa--analyse:progn form scope state))
 
+(defun elsa--analyse:eval-and-compile (form scope state)
+  (elsa--analyse:progn form scope state))
+
+(defun elsa--analyse:with-suppressed-warnings (form scope state)
+  (let ((body (elsa-nthcdr 2 form)))
+    (elsa--analyse-body body scope state)))
+
 (provide 'elsa-extension-builtin)
 ;;; elsa-extension-builtin.el ends here

elsa-extension-cl.el

@@ -219,5 +219,9 @@ keyword-sexp pairs."
            :type (elsa--make-type `(function (&rest mixed) (struct ,name)))
            :arglist (list '&rest 'args)))))))
 
+(defun elsa--analyse:cl-eval-when (form scope state)
+  (let ((body (elsa-nthcdr 2 form)))
+    (elsa--analyse-body body scope state)))
+
 (provide 'elsa-extension-cl)
 ;;; elsa-extension-cl.el ends here