スペシャル変数

(proclaim '(special sv))
(setq sv 99)

(defun hoge1 (x)
  (let ((sv x))
    (hoge2)
    "end"))

(defun hoge2 ()
  (print sv) )
----
(hoge1 10)
(print sv)

10

"end"

99