LOOP 循环问题

alieacm

好郁闷！ 这两天遇到别人都不曾遇到的两个问题： 一个是Lisp编程中 LOOP ...... DO 循环不能使用的问题，比如：(defun c:test()
        (loop for i from 1 to 10  do
           (format *query-io* "*"))
)    就是不得行，提示：; 错误: no function definition: FORMAT  。   再就是编好的Lisp程序，用命令行 (Load "XXXX") 载入可以工作，但编译成 VLX文件， Appload 载入刚才的 VLX文件，就是不能运行，提示：未知命令“XXXX”。按 F1 查看帮助。

Lisphk

你说的不是 AUTOLISP吧 ？ 怎么没听说过有LOOP ...DO 结构？

/db_自贡黄明儒_

其实while比LOOP ...DO 简单，也好掌握。

alieacm

以下的四种方式，一个都不行！
(defun looptest1 ()
        (loop for i from 1 to 10  do
                (format *query-io* "*"))
)



(defun looptest2 ()
        (setq i-list '(a b c d e f g))
        (loop for i in i-list  do
                (format *query-io* "~a  " i))
)


(defun looptest3 ()
        (setq i 1)
        (loop while (< i 10) do
                (format *query-io* "*")
                (setq i (+ i 1)))
)



(defun looptest4 ()
        (setq i 1)
        (loop until (> i 10) do
                (format *query-io* "*")
                (setq i (+ i 1)))
)

newer

/db_自贡黄明儒_ 发表于 2017-12-28 20:39

最类似FOR循环的应该是

(foreach n lst ....)

alieacm

是哈！  LOOP ...... Do的方式行不通，可改换成 while ...       等其它循环方式。  
那么，编好的Lisp程序，用命令行 (Load "XXXX") 载入可以工作，但编译成 VLX文件， 再用Appload 载入刚才的 VLX文件，就不能运行，提示：未知命令“XXXX”。按 F1 查看帮助。   到底是怎回事呢？

kqqt6236

Lisp中没有Loop函数。

csharp

此 Lisp（Autolisp) 非 彼Lisp (Commonlisp)