@See http://tianchunbinghe.blog.163.com/blog/static/7001201153035339930/
CL-HTTP 是一个纯 Common Lisp 实现的高级 Web 应用服务器。和 Common Lisp 社区的 其他流行 HTTP 服务器，例如 Hunchentoot 和 AllegroServe 相比，CL-HTTP 不仅提供了 HTTP 1.1 协议的完整实现，还提供了一体化的解决方案，包括基于 Lisp 宏的动态 HTML/XHTML 代码生成，面向对象的 Web 交互设计，权限控制，HTTPS 和 HTTP Proxy 支持 （带有缓存）等，另外它还提供 HTTP 客户端，SMTP/POP3/FTP 支持以及其他数不清的高级 特性。CL-HTTP 是目前开源 Common Lisp 项目中规模最大、最复杂的，其核心 server 模 块源代码 5 万多行，所有模块连同各种平台的移植在内共计 35 万行 Common Lisp 代码 （bz2 压缩一下其实只有不到 7M），可谓是浩如烟海，Lisp 新手往往迷失在其庞大的目录 树里。
CL-HTTP 最初是在 Symbolics Lisp Machine 上开发的，1994 年开始公开了源代码。作者 是 MIT AI 实验室 (CSAIL) 的教授 John C. Malley，目前主要维护者还包括 Rainer Joswig 和来自几个商业 CL 平台的专家，尤其是 LispWorks 公司的 Martin Simmons。 CL-HTTP 的开发工作非常缓慢，但也极度稳定可靠，不过主要是在上一代的很多商业平台上。 CL-HTTP 的源代码 SVN 是不公开的，仅少量核心开发者具有访问权限，但是一般可以通过 发信给邮件列表向开发者索取最新的源代码。这给追踪其源代码变化带来了一定困难，因此 我自己（田春冰河）维护了一个私有的 SVN 库将历史上获得的所有代码快照全部提交在里 面，再注入我自己（田春冰河）的一些补丁。
CL-HTTP 网站上目前公开下载的最后版本 70.190a 已经是很老的版本了，目前的最新版本 是 70.218，SVN revision 至少为 436。Rainer Joswig 定期将 SVN 上的最新版本打包放 在它的个人主页上，下载地址是：
http://lispm.dyndns.org/distributions/
其中目前的最新版本的下载文件名是 cl-http-70-218-s436.tar.gz。不过由于上游合并补 丁的速度非常慢，即便是这个最新版本仍然有一些问题导致 SBCL 下无法顺利加载。推荐使 用的是本文附件中的版本，它来自我自行维护的 CL-HTTP 私有 SVN 库，修复了很多 bug， 补丁已提交到上游但尚未被合并。有兴趣的读者可以同时下载两个文件然后自行比对其中的 差异。
CL-HTTP 的源代码可以大致分为下列 7 个部分：
- 平台无关的核心代码 包括 HTTP/HTTPS 协议本身的实现和 HTML、URL 等标准的实现代码；
- 平台无关的周边代码 包括 HTML 解析器、客户端、SMTP/FTP 等协议的实现等；
- 平台无关的用户贡献代码 包括 POP3 客户端、XML 工具箱以及最重要的可移植模板 (port-template) 代码等；
- 平台相关的核心代码 包括适用于 CMUCL、LispWorks、MCL、SCL 等主要平台的网络和工具性代码等；
- 平台相关的周边代码 例如 LispWorks 和 MCL 下的图形界面控制台等；
- 平台相关的用户贡献代码 例如 LispWorks 下的 UTF-8 支持、远程 Listener 和数据库认证接口等；
- 示例站点的源代码和静态文件。
以下简要介绍 CL-HTTP 的源代码目录结构，最顶层各目录的说明如下表所示：
| 目录名 | 类别 | 用途说明 |
|---|---|---|
| acl | 平台相关代码 | Allegro CL 移植 |
| client | 平台无关的周边代码 | HTTP 客户端 |
| clim | 平台无关的周边代码 | 基于 CLIM 的图形控制台 |
| cmucl | 平台相关代码 | CMU Common Lisp 移植 |
| contrib | 平台无关的用户贡献代码 | 各种有用的扩展，尤其包括可移植模板 (port-template) |
| examples | 示例站点 | 示例站点的源代码 |
| ftp | 平台无关的周边代码 | FTP 客户端（代理） |
| html-parser | 平台无关的周边代码 | HTML 解析器 |
| lambda-ir | 平台无关的周边代码 | 全文索引 |
| lcl | 平台相关代码 | Lucid/Liquid Common Lisp 移植 |
| lispm | 平台相关代码 | 最初在 Symbolics Lisp Machine 上开发的全部代码 |
| lw | 平台相关代码 | LispWorks 移植 |
| mcl | 平台相关代码 | Macintosh Common Lisp 移植 |
| proxy | 平台无关的核心代码 | HTTP Proxy（正反向都有） |
| scl | 平台相关代码 | Scieneer Common Lisp 移植 |
| server | 平台无关的核心代码 | 核心 HTTP 协议实现和 HTML 生成代码等 |
| smtp | 平台无关的周边代码 | SMTP 协议实现 |
| standards | 静态文件 | 相关 RFC 标准的文本，通过示例站点可访问到 |
| w3p | 平台无关的周边代码 | W3P (Presentation-based Interface) |
| w4 | 平台无关的周边代码 | W4 Constraint-Guided Web Walker |
| www | 示例站点 | 示例站点的静态页面和其他数据文件 |
slime-cd ~/workspace/cl-http/
它的相对路径是 contrib/kpoeck/port-template/load.lisp。
(load "contrib/kpoeck/port-template/load.lisp")一次完全编译可能需要花几分钟时间，并且每次只能做完全编译。
(compile-all)(load-cl-http-tester)(http::start-examples)http://localhost:8000/