ltk 默认启动的是apple 系统的tk,版本低,不支持高清屏。
使用高清屏tk的方法:
1)去http://www.activestate.com 下载最新的 tcl/tk 可执行包
2) 在with-ltk 加入 *wish-pathname*。例如
(let ((ltk:*wish-pathname* "/usr/local/bin/wish8.6"))
(ltk:with-ltk ()
......
参考:https://mailman.common-lisp.net/pipermail/ltk-user/2013-December/000588.html