Exiting from mapc

[Heime via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org>]

How can I exit when encountering 'safg or 'nogo 

(defun amazones-falkotr-kntlr (actm-seqr)

  (mapc

    (lambda (actm)
      ;; Evaluate conditions and executes corresponding actions
      ;; based on matching clauses.

      (cond

        ;; CASE
        ((eq actm 'safg)
           (message "SAFG amazones-falkotr-kntlr"))

	;; CASE
        ((eq actm 'armg)
	   (message "ARMG amazones-falkotr-kntlr")
           ;; Load falkotr.el from `load-path'.
           (add-to-list 'load-path (amazones-fpln-waypt "FLKTR" 'sec))
           (require 'falkotr))

	 ;; CASE
         ((eq actm 'nogo)
            (message "NOGO amazones-falkotr-kntlr"))

        ;; CASE
         ((eq actm 'go)
            (message "GO amazones-falkotr-kntlr")
            (falkotr-launch-kntlr '(armg go)))

         ;; CASE
         (t
            ;; Unrecognised symbol, log error with offending symbol.
            (message "NOGO amazones-falkotr-kntlr")
            (message " └── ACTM Unrecognised: %s" actm))))

   actm-seqr))






Sent with Proton Mail secure email.