Question

我在Common Lisp中使用外部包进行项目;我希望能够使用该软件包，但将其别名为一个较短的名称，类似于我可以做的Clojure

(require '[unnecessarily-long-package-name :as ulpn])

为了避免命名冲突，我不想这样做：

(defpackage #:my-package
  (:use #:cl #:other-package))

(in-package :my-package)

(take-over-world "pinky" "brain")

其中other-package定义take-over-world。我每次都可以输入完整的合格包名称：

(defpackage #:my-package
  (:use #:cl))

(in-package :my-package)

(other-package:take-over-world "pinky" "brain")

但在我的情况下，我导入的包有一个不必要的长名称。有没有办法可以other-package作为

(op:take-over-world "pinky" "brain")

将其别名为op？在Practical Common Lisp的相关章节中，我无法找到类似的内容。

Answer 1

在Common Lisp包中有昵称。您可以在DEFPACKAGE定义中为一个包提供一个或多个昵称：

(defpackage "LONGER-FOO"
  (:use "CL")
  (:nicknames "LF"))

对于普通Lisp中的现有包，请使用RENAME-PACKAGE：

rename-package package new-name &optional new-nicknames => package-object

示例：

CL-USER 1 > (defpackage "LONG-FOO" (:use "CL")) #<The LONG-FOO package, 0/16 internal, 0/16 external> CL-USER 2 > (let ((package (find-package "LONG-FOO"))) (rename-package package (package-name package) (adjoin "FOO" (package-nicknames package) :test #'string=))) #<The LONG-FOO package, 0/16 internal, 0/16 external>

作为一项功能：

(defun add-nickname (package nickname) (when (stringp package) (setf package (find-package package))) (check-type package package) (check-type nickname string) (rename-package package (package-name package) (adjoin nickname (package-nicknames package) :test #'string=)))

然后我们可以致电：

(add-nickname "LONG-FOO" "BAZ")

Answer 2

现在（可能从 2018 年开始？）的方法是使用包本地昵称 (PLN)，现在在大多数实现中都可用。

(defpackage :mypackage
  (:use :cl)
  (:local-nicknames (:nickname :original-package-name)
                    (:alex :alexandria)
                    (:re :cl-ppcre)))

(in-package :mypackage)

;; You can use :nickname instead of :original-package-name
(nickname:some-function "a" "b")

当 nicknames 是全局的时，PLN 现在位于您的包的本地，并且不会污染全局命名空间。

https://lispcookbook.github.io/cl-cookbook/packages.html#package-local-nicknames-pln
https://github.com/phoe/trivial-package-local-nicknames 兼容性库（不再需要）

Answer 3

不直接。我在CL时代使用了http://www.cliki.net/cl-package-aliases，但它已经过时了。虽然此处列出了其他解决方案https://github.com/avodonosov/local-package-aliases

Common Lisp中的别名包名称

3 个答案: