Emacs Lisp macro for add-to-list

gistfile1.el

;; add-to-list のマクロ
(defmacro append-to-list (to lst)
  `(progn (mapcar (lambda (arg) (add-to-list ,to arg)) ,lst)
  	  (eval ,to)))

;;; Usage
;; load-path 追加
(setq nom-slispd "/path/to/site-lisp"
(append-to-list 'load-path
  	(list nom-slispd
		      (concat nom-slispd "/php-mode")
		      (concat nom-slispd "/color-theme")
		      (concat nom-slispd "/yatex")
		      (concat nom-slispd "/mmm-mode")
		      (concat nom-slispd "/evernote-mode")
		      (concat nom-slispd "/w3m")))