这个函数的前缀参数设计挺讲究：
| 前缀参数 | 行为 |
|---|---|
| 无（默认 1） | 标记今天（从午夜零点起）修改的文件 |
| 正数 N | 标记最近 N 天内修改的文件 |
| 负数 -N | 取消最近 N 天内文件的标记 |
| 0 | 标记最近 60 分钟内修改的文件 |
关于"最近 1 天"的语义，Borkowski 选择了"从午夜零点算"而非"从 24 小时前算"。原因很实际：早上工作时，你可能只关心今天改了什么，昨天下午的不算。如果按 24 小时算，昨天下午的文件也会被标记进来。
计算截止时间时有个容易踩的坑。Borkowski 的第一版写法是：
(let ((time (decode-time (current-time)))) (setf (decoded-time-hour time) 0 (decoded-time-minute time) 0 (decoded-time-second time) 0) (encode-time (time-add (encode-time time) (* (1- absn) 60 60 24 -1))))
先拿到当前时间 → 清零时分秒得到"今天零点" → 再往前减 N 天
问题出在夏令时切换的那天。假设 DST 在凌晨 2:00 结束，时钟回拨到 1:00。你先清零得到 0:00，此时系统可能还在夏令时偏移里。接下来往前减一天，减出来的时间戳就可能偏移到前一天的 23:00 或 1:00，取决于减的那一刻是不是踩在 DST 边界上。
正确写法是反过来：先减天数，再清零时分秒。
(let ((time (decode-time (time-add (current-time) (* (1- absn) 60 60 24 -1))))) (setf (decoded-time-hour time) 0 (decoded-time-minute time) 0 (decoded-time-second time) 0) (encode-time time))
先拿到当前时间 → 往前减 N 天（时间戳运算，不受时区影响） → 再清零时分秒得到那一天的零点
decode-time 把时间戳拆成年月日时分秒（已经考虑了时区和 DST），清零只影响当天内部的时间，不会跨 DST 边界。
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。