学步园

CL-USER> (defun local (x)

  (setq x (+ x 1))

  (* x x))

LOCAL

CL-USER> (local 3)

16

CL-USER> x

2

CL-USER>