[求助]帮我看看这段程序

go-go

1、请帮我看看这段程序，哪里出错了？
(setq ks 2.5 km 3.5 s 12)
(setq k1 ks)
(setq km (+ ks (/ 1 s)))
(while (< = k1 km)
   ........
   .......中间这部分程序已检查过
(setq m (+ m 1))
(setq k1 (+ ks (/ m s))
)
加载后总是出现你所比较的参数不正确。
我看书上不是说while所比较的数字可以是小数吗？到底是哪里出错了？
2、我编了一个程序（不是共享子程序）我想让它象画线line命令一样AutoCAD打开就自动加载，如何做呢？



                                 

VisualLISP

原(while (< = k1 km)改为(while (<= k1 km)  
多了一个空格！