lisp动态程序示例

redcat

当然此项技术也可以用于动态DCL、动态识别lisp中

1. (defun tt (x y) (mapcar '* x y))(tt '(4 5) '(1 2))
   
2. 
   
3. (setq tt '((x y) (mapcar '* x y)))
   
4. (tt '(4 5) '(1 2))
   
5. 
   
6. 
   
7. (mapcar '(list '(x y) '(* x y)) '(4 5) '(1 2))
   
8. 
   
9. (eval
   
10.   (read        (vl-prin1-to-string
    
11.           '(mapcar '(list '(x y) '(* x y)) '(4 5) '(1 2))
    
12.         ) ;_ 结束vl-prin1-to-string
    
13.   ) ;_ 结束read
    
14. ) ;_ 结束eval
    
15. 
    
16. 
    
17. (eval (read (vl-prin1-to-string
    
18.               '(defun tt (x y) (mapcar '* x y))
    
19.             ) ;_ 结束vl-prin1-to-string
    
20.       ) ;_ 结束read
    
21. ) ;_ 结束eval
    
22. (eval (read (vl-prin1-to-string '(tt '(4 5) '(1 2)))))
    
23. 
    
24. (foreach n (list
    
25.              '(defun tt (x y) (mapcar '* x y))
    
26.              '(tt '(4 5) '(1 2))
    
27.            ) ;_ 结束list
    
28.   (eval (read (vl-prin1-to-string n)))
    
29. ) ;_ 结束foreach
    
30. 
    
31. (foreach n (list
    
32.              '(defun tt (x y) (mapcar '* x y))
    
33.              '(tt '(4 5) '(1 2))
    
34.            ) ;_ 结束list
    
35.   (eval n)
    
36. ) ;_ 结束foreach
    

(defun tt (x y) (mapcar '* x y))(tt '(4 5) '(1 2))<br /> <br /> (setq tt '((x y) (mapcar '* x y)))<br /> (tt '(4 5) '(1 2))<br /> <br /> <br /> (mapcar '(list '(x y) '(* x y)) '(4 5) '(1 2))<br /> <br /> (eval<br />   (read        (vl-prin1-to-string<br />           '(mapcar '(list '(x y) '(* x y)) '(4 5) '(1 2))<br />         ) ;_ 结束vl-prin1-to-string<br />   ) ;_ 结束read<br /> ) ;_ 结束eval<br /> <br /> <br /> (eval (read (vl-prin1-to-string<br />               '(defun tt (x y) (mapcar '* x y))<br />             ) ;_ 结束vl-prin1-to-string<br />       ) ;_ 结束read<br /> ) ;_ 结束eval<br /> (eval (read (vl-prin1-to-string '(tt '(4 5) '(1 2)))))<br /> <br /> (foreach n (list<br />              '(defun tt (x y) (mapcar '* x y))<br />              '(tt '(4 5) '(1 2))<br />            ) ;_ 结束list<br />   (eval (read (vl-prin1-to-string n)))<br /> ) ;_ 结束foreach<br /> <br /> (foreach n (list<br />              '(defun tt (x y) (mapcar '* x y))<br />              '(tt '(4 5) '(1 2))<br />            ) ;_ 结束list<br />   (eval n)<br /> ) ;_ 结束foreach<br />

wkq004

curugi

如果有个dcl配合lsp实例就好了

vlisp2012

多谢楼主了。
目前还未搞懂呢。

redcat

配合这个效果会更好LISP定义可选参数函数的调用

gdslqs

配个图就好了

tianyi1230

上演示吧，楼主来个实际的例子好吗

xhq1954425

试了一下也没能运行了，这是什么东西呀？

xiaxiang

曲高和寡

fl202

没看懂，楼主解释下？

龙城飞将36

太高深了，不懂~~~~~~~~~~~~~~~~~~~~~~~~~~~~~·

czcxxx

谢谢分享！！！！！！！！！！！！！