下面的子函数为什么在主程序里调用不了!

87282374

下面的子函数为什么在主程序里调用不了!
在主程序里如下调用 (setq lts (numchk no))
提示:错误: no function definition: NUMCHK

(defun numchk (str1 /  stn stw st isn lt str n n0 l ls)
    (setq lt ($numchk str1))
    (cond ((not lt) (princ "\n**文字中没有数字，只能作一般拷贝！"))
      ((> (setq l (length lt)) 3)
       (initget 6)
       (setq n0 (fix (/ l 2))
         n  (getint
              (strcat "\n编号中有"
                  (itoa n0)
                  "个数字，请输入左起第几个数字要排序号 <全部>: "
              )
            )
         n  (cond ((not n) 0)
              ((> n n0) n0)
              (n)
            )
       )
      )
      ((setq n 1))
    )
    (if    lt
      (cons n lt)
    )
  )

caoyin

是不是 $numchk，这个函数多了个$

87282374

不行呀!
我为了试验将
(defun numchk ()
alert("**********")
)
在主程序里如下调用 (numchk)
照样提示:错误: no function definition: NUMCHK

Saging

怪事，我调试可以通过。估计不是子函数问题。

caoyin

(defun c:xxx (/ x x x NUMCHK)

是否有上面的现象