Function: RMAPCAR

Documentation

recursively maps all objs in list and its sublists

Source

(defun rmapcar (fn &rest args)
  "recursively maps all objs in list and its sublists"
  (if (some #'atom args)
      (apply fn args)
      (apply #'mapcar
	     (lambda (&rest args)
		 (apply #'rmapcar fn args))
	     args)))