首先，我们需要创建一个元胞数组来存储十名同学的名字。然后，使用randsrc指令从数组中随机抽取一名同学的名字。

解析：

1. 创建一个元胞数组，包含十名同学的名字。
2. 使用randsrc指令从元胞数组中随机抽取一名同学的名字。
3. 显示抽取到的同学的名字。

代码：

(defun c:random-name (/ arr)
  (setq arr '("张三" "李四" "王五" "赵六" "孙七" "周八" "吴九" "郑十" "陈十一" "林十二"))
  (setq i (rand-int (1+ (length arr))))
  (princ (nth i arr))
)