(setq package-lisp
      (list
       (when (featurep '(and mule wnn)) "egg-leim")
       (when (featurep '(and mule wnn)) "egg-kwnn-leim")
       (when (featurep '(and mule wnn)) "egg-cwnn-leim")
       (when (featurep 'mule) "egg-sj3-leim")
))

(setq package-lisp
      (apply #'nconc
	     (mapcar #'(lambda (x)
			 (if (listp x) x (list x)))
		     package-lisp)))