TwitterでBezier曲線のつぶやきを見たので (defstruct point x y) (defun point (x y) (make-point :x x :y y)) (defmethod point-diff ((p1 point) (p2 point)) (sqrt (+ (expt (- (point-x p1) (point-x p2)) 2) (expt (- (point-y p1) (point-y p2)) 2)))…