[求助]

azjmjsj

(defun sr(/x k$)
(setq x nil n 0)
(while(setq r (getreal(strcat "\nenter a number" k$ ":")))
(setq n(+1 n))
(setq x(cons r x))
)
(setq x(reverse x))
)
(sr/xx "负荷")
(setq xx x)
(print xx) 上面一段lisp程序中 (sr/xx "负荷")是什么意思，请解释一下，谢谢！！！

meflying

你哪儿弄来的?一堆乱七八糟的东西,我的建议是不要去看它