Mac OS X 上的安装Lisp开发环境

到网站：https://common-lisp.net/project/lispbox/

下载lispbox

解压下载下来的包，找到Emacs

测试：

我们也可以使用homebrew来安装lisp的解析器

brew install sbcl

安装完毕后使用sbcl启动交互环境

如果用lisp的术语来说，这是一个REPL(read–eval–print loop )。这个环境中就可以尝试Common Lisp编程了

adeMacBook-Pro:sbcl- apple$ sbcl
This , an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
* (+    )

* (quit)

使用brew安装emacs

brew update 更新brew库
          brew info emacs查看你要安装的emacs的版本信息
          brew options emacs查看emacs的安装配置选项
          brew install emacs --cocoa --srgb 安装emacs 
           brew程序默认是安装到/usr/local/Cellar/目录下，并不在/Application目录，你可以使用软连接：
            ln -s /usr/local/Cellar/emacs/23.3a/Emacs.app /Applications/Emacs.app这样emacs就会出现在你的应用程序目录中。你也可以直接将Emacs.app移动到Applications目录，不过这样不方便brew对它升级。

初次使用emacs:

1.进入文件，输入emacs + 编辑文件路径

adeMacBook-Pro:dev apple$ emacs /Users/apple/Downloads/文件/AppTWDailyCzJeAction.java 

2.退出文件：

输入“C-x C-c”

3.记住快捷键：

　　control-F:向右边前(Forward)移(同右箭头);

　　　　control-B:向左边后(Backward)移(同左箭头);

　　　　control-P:移动到前(Previous)一行(同上箭头);

　　　　control-N:移动到后(Next)一行(同下箭头);

　　　　control-A:移动到行首(同command+左箭头);

　　　　control-E:移动到行尾(End,同command+右箭头);

　　　　control-T:转置(Transpose,交换)光标两边的符号;

　　　　control-D:删除(Delete)光标右边的字符;

　　　　control-K:删除(Kill)光标所在行中光标后的代码,便于你重写行尾的代码;

　　　　control-L:将插入点置于窗口正中.如果你找不到光标或者想要移动窗口使插入点快速位于正中,这个按键会非常好用.

附Common Lisp例子（一个图书管理工具）：

(defun 建立书籍信息 (书名 作者 价格 是否有电子版)
  (list :书名 书名 :作者 作者 :价格 价格 :是否有电子版 是否有电子版))

(defvar *书籍数据库* nil)

(defun 增加记录 (书籍信息)
  (push 书籍信息 *书籍数据库*))

(defun 转储显示 ()
  (dolist (单条书籍记录 *书籍数据库*)
    (format t "~{~a: ~20t~a~%~}~%" 单条书籍记录)))

(defun 提示输入 (提示信息)
  (format *query-io* "~a: " 提示信息)
  (force-output *query-io*)
  (read-line *query-io*))

(defun 提示书籍信息-旧版 ()
  (建立书籍信息
   (提示输入 "书名")
   (提示输入 "作者")
   (提示输入 "价格")
   (提示输入 "是否有电子版[y/n]")))

(defun 提示书籍信息 ()
  (建立书籍信息
   (提示输入 "书名")
   (提示输入 "作者")
   (or (parse-integer (提示输入 )
   (y-or-n-p "是否有电子版[y/n]: ")))

(defun 批量输入 ()
  (loop (增加记录 (提示书籍信息))
    (if (not (y-or-n-p "还要继续输入下一本书籍的信息吗？[y/n]: ")) (return))))

(defun 保存数据库 (带路径的保存文件名)
  (with-open-file (文件绑定变量 带路径的保存文件名
                :direction :output
                :if-exists :supersede)
          (with-standard-io-syntax
           (print *书籍数据库* 文件绑定变量))))

(defun 加载数据库 (带路径的加载文件名)
  (with-open-file (文件绑定变量 带路径的加载文件名)
          (with-standard-io-syntax
           (setf *书籍数据库* (read 文件绑定变量)))))

(defun 用作者名查找 (作者名)
  (remove-if-not
   #'(lambda (单条记录)
       (equal (getf 单条记录 :作者) 作者名))
   *书籍数据库*))

(defun 查找 (根据?查找函数)
  (remove-if-not
   根据?查找函数
   *书籍数据库*))

(defun 选择器-选作者 (作者)
  #'(lambda (单条记录)
      (equal (getf 单条记录 :作者) 作者)))

(defun 筛选条件 (&key 书名 作者 价格 (是否有电子版 nil 是否有电子版-p))
  #'(lambda (单条记录)
      (and
       (if 书名
       (equal (getf 单条记录 :书名) 书名) t)
       (if 作者
       (equal (getf 单条记录 :作者) 作者) t)
       (if 价格
       (equal (getf 单条记录 :价格) 价格) t)
       (if 是否有电子版-p
       (equal (getf 单条记录 :是否有电子版) 是否有电子版) t))))

(defun 更新记录 (根据?查找函数 &key 书名 作者 价格 (是否有电子版 nil 是否有电子版-p))
  (setf *书籍数据库*
    (mapcar
     #'(lambda (单条记录)
         (when (funcall 根据?查找函数 单条记录)
           (if 书名
           (setf (getf 单条记录 :书名) 书名))
           (if 作者
           (setf (getf 单条记录 :作者) 作者))
           (if 价格
           (setf (getf 单条记录 :价格) 价格))
           (if 是否有电子版-p
           (setf (getf 单条记录 :是否有电子版) 是否有电子版)))
         单条记录)
     *书籍数据库*)))

(defun 删除记录 (根据?查找函数)
  (setf *书籍数据库*
            (remove-if 根据?查找函数 *书籍数据库*)))

连接：http://my.oschina.net/freeblues/blog/131557?p=1#comments

(函数式编程)http://www.ruanyifeng.com/blog/2012/04/functional_programming.html