如何用Format指令或单行代码截断长字符串？表格列对齐需求

好问题！针对你要把嵌套列表打印成列宽一致表格、需要截断过长内容的需求，这里有几种实用的解决方案：

1. 使用原生Format指令直接实现 #

Common Lisp的format其实自带了专门处理固定宽度+截断/填充的指令——~<...~>格式化操作符。它能指定内容的最大宽度，超出部分自动截断，不足部分用空格填充到指定宽度，完美匹配你的场景。

举个实际例子：

;; 短内容会自动填充空格到10位
(format t "~10<~a~>***~%" "aaa")
;; 输出：aaa       ***

;; 长内容会被截断到10位
(format t "~10<~a~>***~%" "aaaaaaaaaaaaaaaaa")
;; 输出：aaaaaaaaaa***

这里~10<~a~>的含义是：将~a格式化的内容限制在10个字符宽度内，默认左对齐，超出则截断，不足则补空格。如果需要右对齐，只需加上@修饰符：~10@<~a~>。

2. 单行条件语句实现（自定义逻辑） #

如果你更倾向用条件判断的方式写单行代码，可以结合subseq和min函数来避免索引越界问题（原生subseq在索引超出长度时会报错，min能帮我们安全截断）：

(format t "~10a***~%" (subseq "aaaaaaaaaaaaaaaaa" 0 (min (length "aaaaaaaaaaaaaaaaa") 10)))

这个写法逻辑很直白：先判断字符串长度是否超过10，取较小值作为截断终点，截取子串后再用~10a填充空格到固定宽度。

对比你的当前做法 #

你用str:substring的方式完全可行，不过原生的~<指令不需要依赖第三方库，代码更简洁；而单行条件的方式则更灵活，适合需要自定义截断规则（比如从中间截断、添加省略号）的场景。

内容的提问来源于stack exchange，提问作者Ehvince