*** empty log message ***

2005-09-19 16:13:18 +00:00
parent 4117977053
commit 4d7be92231
4 changed files with 31 additions and 10 deletions
--- a/ase/test/lsp/t1.lsp
+++ b/ase/test/lsp/t1.lsp
@ -10,7 +10,12 @@

 ;;;;;;;
 (setq init-rand (macro (seed) (lambda () (setq seed (+ seed 1)))))
+
 (setq init-rand (lambda (seed) (lambda () (setq seed (+ seed 1)))))
-(set 'rand (init-rand 1))
+(setq rand (init-rand 1))
+(rand)
+
+(defun init-rand (seed) (lambda () (setq seed (+ seed 1))))
+(defun rand () (init-rand 1))
 (rand)