开始使用大型Lisp“图书馆” （日历计算）

Question

我曾经通过Cadence Design Systems编写小型LISP程序和中型程序。我现在想使用带有日历计算的LISP函数的“库” -Science/Computing General-rest/caldentrical-calcoulation-ultimate-edition-edition-edition-th-edition？格式= hb＃bvcwevjdd9zjexq7.97“ rel =“ nofollow noreferrer”>从剑桥大学下载（供个人使用）

我在Windows 10计算机上安装了口红包（以前从未使用过）。 （至少我已经使用了emacs）。我一直在使用Peter Seibel（2005）的实用Common Lisp 作为文本。

我想开始在repl中给单个函数调用，因此我想在repl中“安装”“库”。我将单词放在引号中，因为我不确定要使用的适当的LISP单词。我只是尝试加载文件，但失败了，所以我尝试了

(compile-file "calendar.l")

，并且

; compiling file "c:/Users/card9/lispstick/calendar.l" (written 19 JUN 2022 01:12:02 PM):
; compiling (IN-PACKAGE "CC4")

在另一个缓冲区SLDB [2]中的响应中，

    The name "CC4" does not designate any package.
    [Condition of type SB-Kernel:SIMPLE-PACKAGE-ERROR]The name "CC4" does not designate any package.
    [Condition of type SB-Kernel:SIMPLE-PACKAGE-ERROR]

我的响应是我的问题是我应该对LISP文件进行什么更改日历功能使我可以编译和加载它，或者我应该使用哪些其他方法来访问这些功能？

Answer 1

这既是非常古老的代码，也不写得不好。如果您使用比SBCL不太严格的编译器，您可能会更有可能使其变得更容易工作：我可以编译并加载它在Lispworks和Clozure CL中，但是当试图使SBCL编译时，我最终失去了生存的意愿。

请参阅下面的建议解决方法，可以与SBCL一起使用。

您可以解决的问题：包问题

这些是您将要遇到的第一件事，而此答案的第一个版本仅处理此问题。此代码似乎依靠语义 in In-takage 在1980年代消失（具体来说，似乎， 1989 ）！

右 fix（也许请参见下文）是

(in-package "CC4")
...
(export ...)

或者

(defpackage "CC4"
  (:use "CL")
  (:export ...))

(in-package "CC4")

将导出的名称变成一个字符串（带有上层名称的字符串）的地方， 也许更容易，无临界的符号（＃＃：的前缀名称，因此（导出...'foo ...）变成（：export> export ... export ...＃＃ ：foo ...）在 defpackage 表单中）。

一个更轻松的修复程序，涉及对代码的较小编辑，因此可能是优选的，是放置在（包装“ CC4”）之前，表格，此：

(defpackage "CC4"
  (:use "CL"))

另一个修复程序只是为了预先定义避免编辑文件的软件包：请参见下文。

完成此操作后，您至少应该在编译文件时进行一次镜头。如果有效（可能还有其他问题），那么您可以加载它，然后需要说

(use-package "CC4")

defconstant 问题，第一部分

在许多地方使用 defconstant 如果常数的值取决于其他函数，

(defconstant jd-epoch
  ;; TYPE moment
  ;; Fixed time of start of the julian day number.
  (rd -1721424.5L0))

则首先是用 defconstant 定义的事物的值，需要在编译时知道：

如果 defconstant 表单以最高级别的形式出现，则编译器必须识别该名称名称为常数变量。实施可以选择在编译时间，加载时间或两者兼而有之评估价值形式。因此，用户必须确保可以在编译时评估初始值（无论对名称是否出现在文件中），并且始终将其评估为相同的值。

。

编译文件时并非如此。

解决此问题的修复是要包装所谓的函数以计算合适的 defconstant 表单中的任何值， eval- eval- ，所以

(defun rd (tee)
  ...)

看起来还可以

(eval-when (:compile-toplevel :load-toplevel :execute)
  (defun rd (tee)
    ...))

，但是您可以得到这个：

(defconstant icelandic-epoch
  ;; TYPE fixed-date
  ;; Fixed date of start of the Icelandic calendar.
  (fixed-from-gregorian (gregorian-date 1 april 19)))

现在固定从gregorian 和 gregorian-date 需要用 eval-eval-eval-eval-when 包装，他们致电或参考。

好吧，除了追踪代码以查找需要包装的所有功能外，还有两个解决方案。

首先是将 defconstant s更改为 fefparameter s，并希望代码中的任何内容都没有尝试分配或以其他方式陷入变量。这将降低性能，但这可能并不重要。

另一个是做传统的事情，即这样的可怕系统经常在CL的史前史前需要进行：在尝试编译系统之前，加载其解释。这是一个小的包装器文件，它将尝试执行此操作，并且还可以预先定义包：

;;;;; Try to compile & load calendar.l
;;;

(in-package :cl-user)

;;; Define the package to avoid doom
;;;
(defpackage "CC4"
  (:use "CL"))

(let ((source (merge-pathnames (pathname "calendar.l") *load-truename*)))
  ;; Load the source, compile it and load that.
  (load source)
  (load (compile-file source)))

defconstant 第二部分：订购：

如果您查看代码，请在第1596行中找到固定从使用 summer 免费。 summer 定义为第4142行中的常数。因此，这意味着 compile-file 可以做一个不错的工作来编译固定的工作-Icelandic ：自由变量需要在编译之前是常数。

但是，首先加载解释的文件也可以解决。

defconstant 第三部分：最终崩溃

这是我放弃SBCL的地方。 SBCL具有 defconstant ） ，我认为以上从规范引用的子句。这意味着像

(defconstant foo '(1 2))

在sbcl 中基本上是不可能的。该链接背后描述了一些解决方法。

好吧，这意味着确实没有机会使用SBCL编译此代码，因为有很多这样的情况，并且在加载解释的版本之后，还有很少的机会编译它，我们需要做。

其他CL实现对此不太严格，并且会很高兴。

放弃了，解决方法

可能有可能使SBCL编译该代码的一些衍生物，但是需要进行大量修改。甚至不那么挑剔的编译器吐出了许多合理的警告。

但是，我的强烈怀疑是，此代码从未被编译。因此，一个解决方法是简单地不尝试编译文件：修改加载程序垫片以：

;;;;; Try to load calendar.l
;;;

(in-package :cl-user)

;;; Define the package to avoid doom
;;;
(defpackage "CC4"
  (:use "CL"))

;;; Don't even try to compile the file
(load (merge-pathnames (pathname "calendar.l") *load-truename*))

这样做，即使SBCL也会加载文件。 SBCL将吐出很多警告，因为它是仅编译器的实现，因此会汇编单个定义。

那么，由此产生的事情是否会工作是另一个问题，但是它 will 负载。

---

注意：通常，这是一件特别不幸的事情

，这是一件特别不幸的事情：大多数CL代码不是 之类的东西。

Answer 2

仅供参考，作为将不大惊小怪的替代方案，我将常见的LISP代码适应了另一个LISP方言，clojure：

我正在与正在以 iCu4x ，用生锈写。能够与代码进行交互式工作将使他们内省和调试其翻译功能并创建测试用例。

原始的CLISP代码不干净，因此改编版的版本仍然需要一些修复程序：使用Clojure的声明创建前向声明来处理排序外 def /code>/ defn s，并修复一两个错字。