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

chinaab

　　到网站：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-1.2.11 apple$ sbcl
This is SBCL 1.2.2, 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.
* (+ 1 2 3 4)
10
* (quit)
View Code　　
　　使用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 (提示输入 "价格") :junk-allowed t) 0)
(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