我正试图用uiop/package:define-package
制作一个Lisp包。我正在使用SBCL,并且已经确认应该支持包本地昵称:
* *features*
(:QUICKLISP :ASDF3.3 :ASDF3.2 :ASDF3.1 :ASDF3 :ASDF2 :ASDF :OS-UNIX
:NON-BASE-CHARS-EXIST-P :ASDF-UNICODE :X86-64 :GENCGC :64-BIT :ANSI-CL
:COMMON-LISP :ELF :IEEE-FLOATING-POINT :LINUX :LITTLE-ENDIAN
:PACKAGE-LOCAL-NICKNAMES :SB-CORE-COMPRESSION :SB-LDB :SB-PACKAGE-LOCKS
:SB-THREAD :SB-UNICODE :SBCL :UNIX)
* (uiop:featurep :package-local-nicknames)
T
尽管如此,当我试图定义一个具有本地昵称的包时,它并不起作用:
(uiop/package:define-package #:foo
(:use #:cl)
(:local-nicknames (#:b #:binparse)))
debugger invoked on a SIMPLE-ERROR in thread
#<THREAD "main thread" RUNNING {1001878103}>:
unrecognized define-package keyword :LOCAL-NICKNAMES
Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [ABORT] Exit debugger, returning to top level.
(UIOP/PACKAGE:PARSE-DEFINE-PACKAGE-FORM #:FOO ((:USE #:CL) (:LOCAL-NICKNAMES (#:B #:BINPARSE))))
source: (ERROR "unrecognized define-package keyword ~S" KW)
0] 0
(binparse
是我制作的另一个包,运行良好,但没有使用本地昵称(。
我对uiop/package
来源的发现似乎表明这不应该发生?据此,它应该可以工作,或者有一个特定的错误消息,指示不支持的本地昵称(如果uiop:featurep
不准确或正在更改(,但它不应该给出一般的未知关键字错误。在这一点上,我不确定我可能做错了什么。
sbcl
版本中包含的asdf
版本基于asdf
版本3.3.1(2017年11月(,只是捆绑到两个(更大的(lisp文件中(一个用于asdf
,一个用于uiop
(,而不是像asdf
的官方版本那样按目的分解它们。asdf
在3.3.3.2(2019年8月(中添加了对包本地昵称的#+sbcl
支持,并在3.3.4.1(2020年4月(中切换到更通用的#+package-local-nicknames
(不过,最新发布的版本是3.3.4,所以无论如何都不会出现(。所以它是";只是";从上游拉动的延迟。按照升级ASDF的说明完成了任务——将最新版本的tarball提取到~/common-lisp/asdf
中,并运行(load (compile-file #P"~/common-lisp/asdf/build/asdf.lisp"))
一次,未来的shell将使用更新的版本。