我开始使用 SBCL Common Lisp,并希望使用 Hunchentoot 开发一个小型 Web 应用程序。为了便于部署,我计划使用 sb-ext:save-lisp-and-die 将所有内容保存在二进制文件中,因为我可以忍受大输出大小。
对于可执行文件,您需要提供顶级函数。问题是当顶层函数返回时程序退出。我尝试从可执行文件启动 Hunchentoot,但程序在两秒后结束。
我怎样才能等到 Hunchentoot 被关闭(从请求内部)再停止程序?我可以做一些事情,比如加入 Hunchentoot 接受者线程吗?或者我什至可以将 REPL 包含到可执行文件中以便能够进行实时调试吗?
(ql:quickload :hunchentoot)
(use-package :hunchentoot)
(defun main ()
(hunchentoot:start-server :port 8082)
(sb-thread:join-thread (find-if
(lambda (th)
(string= (sb-thread:thread-name th) "hunchentoot-listener-1"))
(sb-thread:list-all-threads))))
如果您保持终端打开(可能通过 GNU Screen),则不需要显式代码即可访问 REPL。将 Ctrl+C 发送到终端以中断调试器。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)