Now this works just fine:
(setq al \'((a . \"1\") (b . \"2\"))) (assq-delete-all \'a al)
But I\'m using strings as keys in my app:
If using emacs 25 or newer you can use alist-get
alist-get
(setf (alist-get "a" al t t 'equal) t)