newLISP腳本語(yǔ)言

newLISP是一個(gè)類似Lisp語(yǔ)言的、用于一般用途的腳本語(yǔ)言。它具有 LISP 語(yǔ)言所有的魔力，但更容易學(xué)習(xí)和使用。 newLISP是友好的，快速和簡(jiǎn)小的。大部分您需要的功能都將已經(jīng)內(nèi)置。

下面是一段示例代碼：

(command-event (fn (s)
    (local (request)
        (if (find "?" s) ; is this a query
            (begin
                (set 'request (first (parse s "?")))
                ; discover illegal extension in queries
                (if (ends-with request ".exe") 
                    (set 'request "GET /errorpage.html")
                    (set 'request s)))
            (set 'request s))
        request)
))