在LispBox中安装aserve的最简单办法使用quicklisp

2019独角兽企业重金招聘Python工程师标准>>>

在 LispBox 中安装 aserve 的最简单办法--使用 quicklisp

终于解决一个困扰很久的问题,以前一直没办法正确安装 aserve (就是那个免费版的 portableaserve),不是这里报错就是那里报错,总是提示流相关的问题,当时用 quicklisp 安装了一些流,但是最终还是没能安装好 aserve (当时貌似没有直接用 quicklisp 安装 aserve).

昨天忽然想到为什么不直接试试拿 quicklisp 安装 aserve, 也许其中需要修改的代码已经被修改过了(改天有时间了可以对照一下代码,看看修改了哪些地方), 今天试了一下,果然OK!

终于不用忍受ACL那个丑陋的界面, 可以直接在我的 Emacs 环境下调试 Web 程序了! :)

CL-USER> (ql:quickload "aserve") To load "aserve":Install 5 Quicklisp releases:cl-ppcre ironclad nibbles portableaserve puri ; Fetching # ; 33.99KB &＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61; 34,803 bytes in 0.03 seconds (1166.39KB/sec) ; Fetching # ; 20.58KB &＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61; 21,075 bytes in 0.01 seconds (1448.45KB/sec) ; Fetching # ; 504.70KB &＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61; 516,817 bytes in 2.97 seconds (169.93KB/sec) ; Fetching # ; 154.37KB &＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61; 158,070 bytes in 0.68 seconds (225.40KB/sec) ; Fetching # ; 579.26KB &＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61; 593,163 bytes in 2.32 seconds (250.14KB/sec) ; Loading "aserve" .................................................. [package nibbles]................................. [package ironclad]................................ .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. [package cl-ppcre]................................ .................................................. .................................................. [package puri].................................... [package acl-compat.excl]......................... [package acl-compat.mp]........................... [package de.dataheaven.chunked-stream-mixin]...... [package acl-compat.socket]....................... [package acl-compat.system]....................... [package gray-stream]............................. [package net.html.generator]...................... [package net.aserve].............................. [package net.aserve.client]....................... .................................................. .................................................. ............... ("aserve") CL-USER> 可以来这个地址

http://www.quicklisp.org/beta/releases.html

查询需要安装的包

以下为试验程序:

CL-USER> (defpackage :com.gigamonkeys.web(:use :cl :net.aserve)) # CL-USER> (in-package :com.gigamonkeys.web) # WEB> (start :port 2001) 127.0.0.1 - - [Mon, 12 Aug 2013 05:44:19 GMT] "GET / HTTP/1.1" 404 -1 127.0.0.1 - - [Mon, 12 Aug 2013 05:44:20 GMT] "GET /favicon.ico HTTP/1.1" 404 -1 # WEB>