newLISP 10.6.3 开发版发布，功能更新和 BUG 修复
(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)
))
页:
[1]