Возникла тут на java у меня проблемка... есть две группы классов (скажем А и B), где вызываются в разных методах этих классов некий метод из некого класса Server.getA() для получения некой структуры данных. Все бы хорошо, но нужно теперь с этого Server в группе B получать другую структуру, скажем через Server.getB() вместо Server.getA(). Другими словами, теперь нужно везде переписать все вызовы getA на getB. Я человек ленивый, поэтому воспользовался рефакторингом в среде eclipse со всякими там рюшечками.
Поскольку с некоторых пор я стал интересовать замечательнейшим языком Лисп, то сразу подумал, как это будет в Лисп. Я, конечно, еще во многом зеленый в нем, но сразу нашел решение, которое гораздо более элегантное, чем в java. Приведу сейчас (извиняюсь за слишком простой пример) файлы на Лиспе.
файл a.lisp:
(make-package :a)
(in-package a)
(defvar *a* 100)
(defvar *b* 200)
(defun getA () *a*)
(defun getB () *b*)

файл b.lisp
(make-package :b)
(in-package b)
(import 'a::getA)

(defun b () (getA))

теперь в REPL (я использую slime под виндой):
(load "a.lisp")
(load "b.lisp")
(in-package b)
(b)
Последнее вернет 100, естественно.

Теперь я хочу, чтобы вместо getA вызывалось getB (а представьте, что этих вызовов в файле сотни!)
очень просто - пишем малюсенький макрос. Смотрим файл b:
make-package :b)
(in-package b)
;(import 'a::getA)
(defmacro getA () (a::getB))
(defun b () (getA))

теперь в REPL :
(load "a.lisp")
(load "b.lisp")
(in-package b)
(b)

вернется 200, как и нужно. Лисп меня просто восхитил.
Будет интересно от зубров в Лиспе услышать аналогичные примеры, где Лисп превзошел другие языки и среды по своей гибкости. Думаю, это будет интересно новичкам.

Правда, рефакторинг - вещь более мощная на самом деле. Было бы интересно услышать также другие решения данного вопроса в рамках Лиспа.

Ну и конечно, «рефакторинг» путем определения макроса, перекрывающего какой-то символ, чреват, во-первых, неудобством, а во-вторых, различными проблемами (прежде всего, в связи с появляющимися лишними зависимостями между файлами).