Defun-q-list-set

st788796

可以看看这个帖子
http://bbs.xdcad.net/thread-670236-1-2.html

/db_自贡黄明儒_

这是帮助文件中

1. (defun-q s::startup (x) (print x))
   
2. 
   
3. (defun-q my-startup (x) (print (list x)))
   
4. 
   
5. (defun-q-list-set
   
6.   's::startup
   
7.   (append
   
8.     (defun-q-list-ref 's::startup)
   
9.     (cdr (defun-q-list-ref 'my-startup))
   
10.   )
    
11. )
    
12. ;;!S::STARTUP时,返回((X) (PRINT X) (PRINT (LIST X)))
    

(defun-q s::startup (x) (print x))<br /> <br /> (defun-q my-startup (x) (print (list x)))<br /> <br /> (defun-q-list-set<br />   's::startup<br />   (append<br />     (defun-q-list-ref 's::startup)<br />     (cdr (defun-q-list-ref 'my-startup))<br />   )<br /> )<br /> ;;!S::STARTUP时,返回((X) (PRINT X) (PRINT (LIST X)))<br />