История изменений
Исправление monk, (текущая версия) :
Хотя для этого мне больше нравится defadvice, который есть в Lispworks - http://www.lispworks.com/documentation/lw70/LW/html/lw-32.htm#pgfId-885978
Его можно и самому написать. Или даже просто использовать
(let ((old #'func))
(fmakunbound 'func)
(defun func (x y)
....
(funcall old x y)
....))
Исходная версия monk, :
Хотя для этого мне больше нравится defadvice, который есть в Lispworks - http://www.lispworks.com/documentation/lw70/LW/html/lw-32.htm#pgfId-885978
Его можно и самому написать. Или даже просто использовать
(let ((old #'func))
(fmakunbound 'func)
(defun func (x y)
....
(old x y)
....))