def_read_table 这个函数中参数的意义

st788796

1. (defun read_table_a (/ v)
   
2.   (setq v (read_table 'format_fn "a.txt"))
   
3.   (eval (list 'defun 'read_table_a '() (list 'quote v)))
   
4. )
   
5. (defun def_read_table (fn filename format)
   
6.   (eval
   
7.     (list
   
8.       'defun
   
9.       fn
   
10.       '(/ v)
    
11.       (list 'setq
    
12.      'v
    
13.      (list 'read_table (list 'quote format) filename)
    
14.       )
    
15.       (list 'eval
    
16.      (list 'list 'defun (list 'quote fn) '() '(list 'quote v))
    
17.       )
    
18.     )
    
19.   )
    
20. )

(defun read_table_a (/ v)<br />   (setq v (read_table 'format_fn "a.txt"))<br />   (eval (list 'defun 'read_table_a '() (list 'quote v)))<br /> )<br /> (defun def_read_table (fn filename format)<br />   (eval<br />     (list<br />       'defun<br />       fn<br />       '(/ v)<br />       (list 'setq<br />      'v<br />      (list 'read_table (list 'quote format) filename)<br />       )<br />       (list 'eval<br />      (list 'list 'defun (list 'quote fn) '() '(list 'quote v))<br />       )<br />     )<br />   )<br /> )