帮助使用 Lisp 调试器

Question

我正在尝试了解如何解释和使用 Lisp 调试器的输出。

我有一个非常简单的 Backtrace 来评估我的函数，但我似乎无法弄清楚如何使用它来找出我的函数中发生异常的 Lisp 'form'。

如果我能提供任何关于我应该做什么的线索，我将不胜感激，以便在我的代码中找到错误的来源。

另外 - 为什么第二个框架显示为“没有可用于框架的调试信息”？

我附上了调试器和 repl 的屏幕截图（我还在下面包含了我的函数 - 我知道这是非常错误的 - 但我只是对学习正确使用调试器感兴趣）。另外，我在第一帧上按了“v”以转到源，但这导致了repl下方的错误。 （编辑 - 通过下载并将其复制到正确的路径来修复丢失的源代码问题）

（可怕的功能 - 请不要使用 cmets！）

(defun myquicksort2 (lst)
  (if (eql 1 (length lst))
      lst
      (let ((mid (middle lst)))
    (do ((i 0 (+ i 1)))
        ((>= i mid) (append (myquicksort2 (subseq lst 0 mid))
                  (myquicksort2 (subseq lst mid (length lst)))))
      (if (> (ltval i lst) (nth 100 lst))
          (let ((tmp (ltval i lst)))
        (setf (nth i lst) (gtval i lst))
        (setf (nth (- (- (length lst) i) 1) lst)  tmp)))))))

(defun ltval (i lst)
  (nth i lst))

(defun gtval (i lst)
  (nth (- (- (length lst) i) 1) lst))

(defun middle (lst)
  (round (/ (length lst) 2)))

Answer 1

错误在于>，而您的源代码中只有一个>，所以这就是问题所在。

edit 内置 CL 函数很容易在 SBCL 中进行优化，因此尽管代码中的函数调用是对 CL:<，但实际调用的代码（并且显示在调试器）来自优化的、特定的、SBCL 内部例程。这对于用户定义的函数来说不是什么问题，您将更有可能获得有用的框架。