(defun make-vector (x y z) (let ((local-x x) (local-y y) (local-z z)) (lambda () local-x))) (define v (make-vector 1 2 3)) (print (v)) (read " ")