>>391
そもそもCL系では関数内関数をschemeみたく自然に書けないんですね。

(defun my-map (proc &rest lis)
(flet ((aux (proc lis)
(mapcar proc (car lis))))
(aux proc lis)))

(defun mul2 (lis)
(flet ((aux (x)
(* 2 x)))
(my-map (lambda (x) (aux x))
lis)))

(mul2 '(1 2 3))
; => error! wrong-number-of-arguments (lambda (proc lis) (block aux (mapcar proc (car lis)))) 1)

emacs lispだとfletやlabels使ってもだめ。CLだとどっちでもちゃんと動くのに。