Lisp 与现代 Web 开发

[vitovan]

"Lisp 不是一门语言，它是一种构建素材。"

- 艾伦·凯

本文将介绍如何从零开始使用 Lisp 作为后端构建一个现代的 Web 应用程序。

从 Lisp 诞生至今已有 57 年，半个多世纪。什么概念呢？除了 Fortran 没有谁比 Lisp 更古老了，而很少有人说 Fortran 很酷。

你可以在几乎所有的语言当中看到 Lisp 的影子，因为真的： Lisp 不是一门语言，她是人机对话的基本元素。

敬请阅读： http://vitovan.com/lispweb3-cn.html

[usapla]

我在 “面向世界的编程”部分遇到困难，我用的是 win7PC64 位系统，然后安装 quicklisp.lisp 部分是用 “ sbcl -- load quicklisp.lisp ”命令来执行的，然后执行后，按照提示继续安装。等运行 “ server.lisp ”部分一直提示缺少 libssl32.dll 文件，我把这个缺失文件放到 system32 里， 还是提示缺失，真是头痛

[vitovan]

@usapla http://slproweb.com/products/Win32OpenSSL.html

[phoenixlzx]

好书好书 www mark 一下

[liuxu]

酷毙了

[jadecoder]

放进 pocket 里了，今晚地铁看

[Rand01ph]

一直支付出错。。。真是难

[vitovan]

@Rand01ph

抱歉，麻烦了。

如果实在不行，可以尝试英文版：

https://www.gitbook.com/book/vitovan/lispweb3/welcome

[bian]

楼主还是将 lisp 改成 common lisp 吧。毕竟 lisp 有很多方言。。。

[bramblex]

吃豆人哪个是指 Currying 的过程吗？很有意思啊

[Rico]

通过一个叫田春冰河的人知道了这门语言
像是上古时期的一门法术
脑洞一开，觉得掌握不同语言的程序员就像是会不同属性的技能的法师。 Some one like Gandalf

[nareix]

@kainwen 正解啊。 lisp 这种纯语法树的，在当时看来发明轮子很容易，但现在轮子已经比当初完善多了。比如 React/angular 等等。

[3b295]

《黑客与画家》是在高三看得。当时还到处和别人吹鼓 lisp 。试下用 lisp 造一下东西，应该更能体会 lisp 吧。

[yannxia]

很多年前， LISP 就和 Java 一样火，甚至于更火，现在呢？

[a15819620038]

@vitovan Hello ，谢谢你提供的资源，内容很好简单。

但我按照你书本里面的内容走，发现除了 / 能访问之外，其它带 uri 的例子都是 404 ，请问这个问题是？

[vitovan]

@a15819620038 哈！那...... 能再详细一些么？ 环境？步骤？

[a15819620038]

@vitovan
> sbcl --version
SBCL 1.1.6.0-3c5581a

JSON 的那个例子（之前那个 /hello 例子同样 404 ），代码都是复制进去的。

访问 /， 200
```
"GET / HTTP/1.1" 200 393 "-" "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_9_4 ) AppleWebKit/537.36 (KHTML, like Gecko ) Chrome/44.0.2403.157 Safari/537.36"
```

访问 /me ， 404
```
"GET /me HTTP/1.1" 404 303 "-" "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_9_4 ) AppleWebKit/537.36 (KHTML, like Gecko ) Chrome/44.0.2403.157 Safari/537.36"
```

[vitovan]

@a15819620038 如果 /hello 404 的话， JSON 的就更不用考虑了。

你用的是什么系统？

[a15819620038]

@vitovan Mac OS X 10_9_4 ，谢谢你的帮助

[vitovan]

@a15819620038 你说 “代码都是复制进去的“，指的是直接复制到 REPL 里面然后回车的么？ 还是用的加载文件的形式？

---
先把 Hello 搞出来再说，试试启动 sbcl 之后，直接在 REPL 内执行以下代码：

(ql:quickload :hunchentoot )
(hunchentoot:start (make-instance 'hunchentoot:easy-acceptor :port 4242 ))
(hunchentoot:define-easy-handler (say-hello :uri "/hello") (name )
(setf (hunchentoot:content-type*) "text/plain")
(format nil "嘿, ~a! 我是 Vito! ~%我刚刚用 Lisp 建了个网站！" name ))

[a15819620038]

@vitovan Hi ，谢谢你的回答，我解决了 O (∩_∩)O 。

创建 handler 的代码需要在运行服务监听端口代码之前：

```
;; 调换一下位置
(hunchentoot:define-easy-handler (say-hello :uri "/hello") (name )
(setf (hunchentoot:content-type*) "text/plain")
(format nil "嘿, ~a! 我是 Vito! ~%我刚刚用 Lisp 建了个网站！" name ))

(hunchentoot:start (make-instance 'hunchentoot:easy-acceptor :port 4242 ))
```