Common Lisp - 我的调试器出了什么问题？

Question

我正在尝试运行此代码：

(defparameter *digits-string* (uiop:read-file-string "day08.txt"))

(defparameter shape '(25 6))

(defun read-file-into-layers (filepath layer-w layer-h)
  (with-open-file (stream filepath)
    (do ((char (read-char stream) (read-char stream))
         (layer-size (* layer-w layer-h))
         (layers nil)
         (layer nil)
         (i nil))
        ((not (digit-char-p char)) layers)
      (when (null layer) (setf layer (make-array layer-size)
                               i 0))
      (setf (aref layer i) (digit-char-p char))
      (incf i)
      (when (= i layer-size) (progn (push layers layer)
                                    (setf layer nil
                                          i 0))))))

(https://github.com/AlbertoEAF/advent_of_code_2019/blob/d0a331157cbb3f37a16ae92f3cc2c56a35b3e00e/common-lisp/day08.lisp#L14-L28 + day08.txt for https://adventofcode.com/2019/day/8)

返回 nil，不知道为什么（文件包含一行 15k 位和一个换行符）。

我正在尝试调试：

;; 1) Set maximum debug level
(declaim (optimize (speed 0) (space 0) (debug 3)))
;; 2) Recompile the full module + C-u C-c C-c on that function (don't know if that last part is needed)
;; 3) step:
(step (READ-file-into-layers "day08.txt" 25 6))

我仍然几乎看不到任何变量，并且仅在(read-char stream) 和(incf i) 处停止，没有别的吗？而且几乎没有定义任何变量！

另外，如果我按“e”来计算某些表达式，即使有时某些变量不会出现在堆栈跟踪中，在这种情况下它会报告它们根本没有定义。

关于调试器为何出现这种奇怪行为的任何想法？还是只是我的代码完全被破坏了？尽管如此，调试器在这种情况下将是最有帮助的 :)

Answer 1

可能是你的编译器太聪明了。当您仔细观察时，由于push 的倒数形式，您只将layer 和layers 设置为nil。在某一时刻，layer 变为 (nil) 之后直接恢复为 nil。如果所有这些无操作都被抛弃，那么就没有什么可做的了。

您可以尝试通过使用disassemble 反汇编您的编译函数来收集是否是这种情况。