小编Nic*_*arr的帖子

我正试图在Common Lisp中实现冒泡排序,而且我很难掌握我的方向.[见下文]是我到目前为止所得到的,据我所知,它遵循算法,但我'得到错误"使用arguments()调用未定义函数SORTED." 当我运行它.我似乎无法找到原因.

(defun bubble (lis)
  (let ((sorted nil) (j 0))
    (do () ((not sorted))
      (progn 
        (setf sorted t)
        (do (i j (+ i 1))
            (if (< (nth i lis) (nth (+ i 1) lis))
                (progn
                  (swap1 (lis (nth i lis) (nth (+ i 1) lis)))
                  (setf sorted nil)
                  )
              )
          )
        )
      )
    )
  )