Mcar错误列表

Question

到目前为止我的代码：

(define (longest-common-prefix lst1 lst2)
  (cond ((equal? lst1 lst2) lst1)
        (else
         (longest-common-prefix ls1 (car lst2)))))

我需要它返回2个列表的最长公共前缀。例如，应用于'(1 2 3)和'(1 2)，它应该返回'(1 2)。每次我运行它时，都会一直说mcar: contract violation。