안 돌아가는 코드

오늘은 let 과 flet을 다뤄보았다. 근데 안돌아간다. 코드를 보자.

(defun make-list (double-list)
	     (let ((one-list (car double-list)))
	       (flet ((inner-make-list (list)
			(if (car list)
			    (cons (car list) (car list) (inner-make-list (cdr list)))
			    '()))))))

나는 입력값으로 '((A B C) (1 2 3)) 을 넣으면 ((A . A) (B. B) (C. C)) 돌려주는걸 원했는데. 안돌아간다.
무엇이 문제인가. 리습의 세계는 오묘하도다.