lisp-переопределение стандартных функций

как переопределить стандартные функции(and,or) в common lisp так, чтобы переопределение действовало только в определенном блоке? т.е. типа (let ()), но для функций:
(and NIL 1) ; ->NIL
; переопределение на max
(and NIL 1) ; ->1
; возврат предыдущего связывания
(and NIL 1) ; ->NIL