- (mapcar
- '(lambda (x)
- (let ((filename (expand-file-name x path)))
- (if (and (file-exists-p filename)
- (file-writable-p filename))
- (progn
- (princ (format "%s was uninstalled.\n" filename))
- (delete-file filename)))))
+ (mapc
+ (lambda (x)
+ (let ((filename (expand-file-name x path)))
+ (if (and (file-exists-p filename)
+ (file-writable-p filename))
+ (progn
+ (princ (format "%s was uninstalled.\n" filename))
+ (delete-file filename)))))
(compile-wl-package)
(let ((wl-install-dir (expand-file-name WL_PREFIX LISPDIR))
(elmo-install-dir (expand-file-name ELMO_PREFIX LISPDIR)))
(compile-wl-package)
(let ((wl-install-dir (expand-file-name WL_PREFIX LISPDIR))
(elmo-install-dir (expand-file-name ELMO_PREFIX LISPDIR)))