dfnxcmd.bat

来自「NASA 开发使用的一个专家系统」· Batch 代码 · 共 16 行

(deffunction bogus (?a ?b $?c)
   (printout t "Random action" crlf))
(deffunction bogus2 ())
(ppdeffunction bogus)
(ppdeffunction bad)
(ppdeffunction 1)
(ppdeffunction)
(list-deffunctions)
(undeffunction bogus)
(list-deffunctions)
(undeffunction bad)
(undeffunction 1)
(undeffunction)
(undeffunction *)
(list-deffunctions)