в то время как я учился в главе 12 и 13 "land of lisp" о "сокете". Я использую lispbox, поэтому мне нужно установить сокет. Наконец-то я нашел usocket доступным. это пример использования usocket для создания веб-сервера.
(defun serve (request-handler)
"serve as a web server,used to handle request
like 'http://127.0.0.1:8080/greeting'"
(let ((socket (usocket:socket-listen "0.0.0.0" 8080 :reuse-address t)))
(unwind-protect
(loop (with-open-stream (stream
(usocket:socket-stream
(usocket:socket-accept socket)))
(let* ((url (parse-url (read-line stream)))
(path (car url))
(header (get-header stream))
(params (append (cdr url)
(get-content-params stream header)))
(*standard-output* stream))
(funcall request-handler path header params))))
(usocket:socket-close socket))))
исходная функция «обслуживания» в http://landoflisp.com/webserver.lisp
(defun serve (request-handler)
(let ((socket (socket-server 8080)))
(unwind-protect
(loop (with-open-stream (stream (socket-accept socket))
(let* ((url (parse-url (read-line stream)))
(path (car url))
(header (get-header stream))
(params (append (cdr url)
(get-content-params stream header)))
(*standard-output* stream))
(funcall request-handler path header params))))
(socket-server-close socket))))