求助lisp传值问题

level 1

明茉菲嫣1 楼主

(defun rwj(u )
(setq m (open "zysj.txt" "r")) (setq a1 (read-line m) a2 (read-line m) a3 (read-line m) ) (close m)
对于这个函数里的a1和a2值，如何传到主函数程序中？
高手帮帮忙

2011年12月09日 08点12分 1

level 5

如果只回送a1和a2的话，可以考虑用点对回传
例如：defun( rwj(u) (setq u (cons a1 a2)))
主函数中用(setq x (rjw u))
x中就是回送的a1和a2的值

2011年12月14日 05点12分 2

level 1

明茉菲嫣1 楼主

谢了

2011年12月14日 07点12分 3