请大家帮忙看看这个程序哪里不对，加载不了

大家好，我不会编程也没有写过程序这种东西，昨天在网上找到一个CAD用的程序，网上是图片格式的，我就照着写了一份，由于根本不了解程序应该怎么写，肯定有地方错了，麻烦大家给看看
这是原图
(defun C：myARC( )
(setq ptl (getpoint " 请选择圆弧起点：")
pt2 ( getpoint " \ n 请选择圆弧终点：")
L0 (/ (distance ptl pt2) (abs ( getreal " \ n请输入弧长：" ) ) )
amax pi amin 0 )
(if( > = L0 l )( progn ( prompt " 弧长小于弦长，出错！")(exit)))
(while ( not( equal L L0 le-l5))
(setq a(/ ( + amax amin) 2)
L( / (sin a) a))
(if( > L L0)(setq amin a)(setq amax a))
)
(command "arc" ptl "e" pt2 "a" (strcat ( rtos ( * a 2)216)"r"))
(princ))
这个是我模仿写的，CAD能加载，但是不能用，麻烦大家给看看谢谢