(defun racional (n d) (let ((mdc (mdc n d))) (cons (/ n mdc) (/ d mdc))))
Repare-se como se alterou a implementação dos números racionais sem afectar as operações que usavam números racionais, como +racional ou *racional.