Lisp 功能是什么；defs"；口齿不清？

在的链接“纯文本控制台版本”的“Dictio”文件中，我注意到一个名为

defs

的Lisp命令（？）

我假设这类似于

defun

，但无法找到有关

defs

功能的任何信息；它是用来定义函数还是变量？我希望使用现代技术复制此代码，这将有助于了解

defs

的用途

defs

调用似乎在参数前还包含不止一个名称（我希望它是（

defs name（）body

）

---

查看列表中的第一个函数，该“函数定义”中似乎包含了更多内容[特别是“功能”一词]，而在第三个函数中，在函数名称后面（参数之前）包含了

[“语义”]

.

DEFS

由软件在文件

SYSCOM

中定义

这是一个FEXPR，它是一个不计算参数的函数。Common Lisp没有这样的功能。它使用宏

示例用法：

(DEFS \#COLOR 
    FEXPR (LAMBDA (A)
            (EVAL (SUBST (CAR A)
                         'COLOR
                         '(OBJECT 
                           (MARKERS\: (\#PHYSOB COLOR) 
                                      PROCEDURE\: ((\#COLOR *** COLOR))))))) 
    PRIORITY 192. 
    SYS (\#PROPERTY))

---

这里有一个符号

#COLOR

。它得到一个函数（实际上是一个FEXPR）在这个名称下定义。它还将

优先级

和

SYS

放在符号的属性列表上。因此

DEFS

用于定义一种定义形式的具有函数和属性的符号。

它在文件SYSCOM中定义。我想知道为什么有人会将这个问题标记为“未研究”…我看了，但显然不够努力。谢谢你，雷纳。