函数名 SUBR 转 SYM

lanjqka

2. (defun mymul (a b) (* a b))
   
3. ;;函数j1
   
4. (defun j1 (funname arglist)
   
5.   (if (or (= (type funname) 'SUBR) (= (type funname) 'USUBR))
   
6.     (setq funname 'funname)
   
7.   )
   
8.   (apply funname arglist)
   
9. )
   
10. ;;函数j2
    
11. (defun j2 (funname arglist / temp)
    
12.   (if (or (= (type funname) 'SUBR) (= (type funname) 'USUBR))
    
13.     (progn (setq temp funname) ;
    
14.            (setq funname 'temp)
    
15.            ;;(setq funname (function temp))
    
16.     )
    
17.   )
    
18.   (apply funname arglist)
    
19. )

(defun mymul (a b) (* a b))<br /> ;;函数j1<br /> (defun j1 (funname arglist)<br />   (if (or (= (type funname) 'SUBR) (= (type funname) 'USUBR))<br />     (setq funname 'funname)<br />   )<br />   (apply funname arglist)<br /> )<br /> ;;函数j2<br /> (defun j2 (funname arglist / temp)<br />   (if (or (= (type funname) 'SUBR) (= (type funname) 'USUBR))<br />     (progn (setq temp funname) ;<br />            (setq funname 'temp)<br />            ;;(setq funname (function temp))<br />     )<br />   )<br />   (apply funname arglist)<br /> )

运行结果如下:
$ (mymul 2 3)
6
_$ (j1 'mymul '(2 3))
6
_$ (j1 mymul '(2 3))
; 错误: 函数错误: FUNNAME

_$ (j2 mymul '(2 3))
6

函数名数据类型 SUBR 一般用quote或function可以转成SYM
但是调用函数过程中需要变量才能达到目的

自贡黄明儒

这样写呢？

1. (defun j1 (funname arglist)
   
2.   (and (or (= (type funname) 'SUBR) (= (type funname) 'USUBR))
   
3.        (apply funname arglist)
   
4.   )
   
5. )

(defun j1 (funname arglist)<br />   (and (or (= (type funname) 'SUBR) (= (type funname) 'USUBR))<br />        (apply funname arglist)<br />   )<br /> )

lanjqka

自贡黄明儒 发表于 2013-12-28 16:01
这样写呢？

; 错误: 函数错误: #<USUBR @09c5fc80 MYMUL>