lisp - MLISP 中的 ALSO 关键字是什么意思？

Question

我一直在查看 source code对于早期的 AI 项目 Parry最近。这很棘手，因为大部分代码都写在 MLISP 中。 ，仍然没有有效的实现(据我所知)。相反，我一直在使用语言规范( MLISP Users' Manual 和更早的 MLISP Technical Report )。

我无法解释的一个好奇心是 IF-THEN-ELSE-ALSO构建，例如:

IF !LAMBDANAME(B) THEN ERROR("NONLAMBDA INTO REACT2",B) ALSO RETURN NIL;

我能找到的文档没有提到 ALSO IF 的条款声明，我有点摸不着头脑想弄明白它是干什么用的。

我看到的一个似是而非的建议是它按照 finally 的方式使用子句用于 Java 中的异常处理，即无论 IF 如何运行清理代码。被终止。另一方面，这并不能解释似乎永远不会引发异常的语句，例如:

IF REACTTO='QUIT THEN REACTTO:=NIL ALSO TRACE_MEM:='NOSPECIALANAPH;

有什么想法吗？

Answer 1

IF e1 THEN a ALSO b ALSO c ELSE d ALSO e ALSO f

只是

(COND (e1 a b c) (T d e f))

参见 MLISP来自 David Canfield Smith，1970 年。