Common Lisp的学习

来源:互联网 发布:openjdk源码下载 编辑:程序博客网 时间:2024/04/28 03:28

CL-USER> (defun local (x)

  (setq x (+ x 1))

  (* x x))

LOCAL

CL-USER> (local 3)

16

CL-USER> x

2

CL-USER> 

原创粉丝点击