lisp - 调用参数应该是结构实例的函数

Question

给定以下代码，调用函数的语法是dist什么？

(defstruct coord 
  x 
  y)

(defstruct line 
  (point1 :type coord) 
  (point2 :type coord) )


(defun dist (point1 point2)
  (sqrt (+ (square (- (coord-x point1) (coord-x point2)))
           (square (- (coord-y point1) (coord-y point2))))))

(defun square (x) (* x x))

Answer 1

Lisp 家族中语言的美妙之处在于（相对）统一的语法。就像您square通过 write(square n)或*by调用函数一样(* n1 n2 ...)，您调用dist，它接受两个参数 with, (dist point1 point2)。在上下文中，这可能类似于：

(let ((point1 (make-coord …))
      (point2 …))
  (dist point1 point2))