Supongamos que tengo algo como esto:

(define pair (cons 1 (lambda (x) (* x x))

Si quiero devolver el objeto frontal del par, hago esto:

(car pair)

Y devuelve 1. Sin embargo, cuando el objeto es un procedimiento, no obtengo la descripción exacta del mismo. En otras palabras:

(cdr pair)

devoluciones#<procedure> y no(lambda (x) (*x x)).

¿Cómo puedo solucionar esto?