Common Lisp中C外部对象管理不当引发的内存错误排查求助

1. 修正字体资源的生命周期管理 #

全局定义的*menu-font*会在SDL子系统关闭后仍持有无效内存指针，重启时调用DRAW-STRING-BLENDED-*会触发内存错误。将字体初始化绑定到WITH-INIT块内部，让子系统启停时自动管理字体资源：

(with-init (sdl:sdl-init-video sdl:sdl-init-ttf)
  (let ((*menu-font* (initialise-font *ttf-font-simonetta-regular-50*)))
    ; 这里编写你的应用逻辑代码
    ))

退出WITH-INIT块时，SDL子系统会自动回收字体相关资源，避免残留无效指针。

2. 线程的优雅终止与清理 #

强制销毁线程可能导致SDL绘制上下文处于异常状态，重启时引发内存错误。改用标志位让线程正常退出：

(defvar *running* nil)

(defun playloop ()
  (setf *running* t)
  (setf *playthread* 
    (bt:make-thread
     (lambda ()
       (dolist (pair *song*)
         (unless *running* (return)) ; 检查退出标志，及时终止循环
         (clear-display *black*)
         (draw-lyric (car pair))
         (update-display) 
         (sleep (cdr pair)))
       (setf *playthread* nil))))) ; 线程结束后清空引用

; 退出流程的清理代码
(setf *running* nil)
(when *playthread*
  (bt:join-thread *playthread*)) ; 等待线程完全结束后再继续

3. 重启前确保SDL子系统完全重置 #

在重启应用前，手动调用SDL退出函数，确保所有子资源被彻底清理：

(sdl:quit) ; 强制清理所有SDL子系统资源
; 之后再重新调用 WITH-INIT 启动应用

4. 检查DRAW-STRING-BLENDED-*的调用参数 #

段错误直接来自该函数，重启时需确认：

• 绘制目标表面（display）已完成正确初始化
• 字体对象不是无效指针（避免全局变量残留旧引用）
• 传入的字符串参数不为nil或非法值

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