function with multiple symbol instructions

[Heime <heimeborgia@protonmail.com>]

I want a function to have the capability of passing multiple
symbol instructions in its argument.  I am using mapc to parse
the symbols.  Is this a good way as implementation goes ?


(defun marsot (&optional actn-list)
  "Add marsot path and requirements."

  ;; Check each symbol in actm-list
  (mapc (lambda (actn)
          (cond ( (eq actn 'armg)
	            (add-to-list 'load-path "~/Opstk/bin/marsot"))

                ( (eq actn 'go)
	            (require 'marsot)
	            (marsot-start))

	        (t  (message "Unknown ACTN value: %s" actn))))
	actn-list)))