为什么在Common Lisp中，程序包名称和导出使用了不需要的符号？

在公共列表中，作者使用非预期符号作为包名和导出

(defpackage #:foo
  (:use :cl)
  (:export #:bar
           #:baz))

(in-package #:foo)

他还在匿名函数前面使用了尖锐的符号

(defun transposed (m)
  (make-instance 'matrix
                 :rows (matrix-cols m)
                 :cols (matrix-rows m)
                 :generator #'(lambda (i j) (matrix-at m j i))))

据我所知，在这本书中，尖锐的标志并没有用于包装名称和出口

---

在这些情况下使用非预期符号（尖锐符号）的原因是什么？

#“

是

函数

操作符的缩写（在实用的通用Lisp手册中使用过几次）.

使用插入符号会污染您当前所在的软件包，因为这些符号仅用于其名称：

[1]> *package*
#<PACKAGE COMMON-LISP-USER>
[2]> (defpackage bar)
#<PACKAGE BAR>
[3]> (find-symbol "BAR")
BAR ;
:INTERNAL

[1]>*软件包*
#
[2] >（打包条）
#
[3] >（查找符号“条”）
酒吧；
：内部

不感兴趣的符号不能做到这一点：

;; Uninterned symbols don't cause symbol pollution:
[4]> (defpackage #:foo)
#<PACKAGE FOO>
[5]> (find-symbol "FOO")
NIL ;
NIL

；；非预期符号不会造成符号污染：
[4] >（defpackage#：foo）
#
[5] >（查找符号“FOO”）
无
无

您也可以直接使用字符串，但由于您通常使用大写符号名称，因此编写字符串不太方便：

[6]> (defpackage "BARFOO")
#<PACKAGE BARFOO>
[7]> (find-symbol "BARFOO")
NIL ;
NIL

[6]>（defpackage“BARFOO”）
#
[7] >（查找符号“BARFOO”）
无
无

例子 为了说明这个问题，考虑下面的相互作用：

[1]> (defpackage hello (:use cl) (:export hello))
#<PACKAGE HELLO>

;; Let's write some FOO stuff...
[2]> (defpackage foo (:use cl))
#<PACKAGE FOO>
[3]> (in-package foo)
#<PACKAGE FOO>

;; Oh, I forgot to import HELLO!
;; Let's fix that.
FOO[4]> (defpackage foo (:use cl hello))
*** - (COMMON-LISP:USE-PACKAGE (#<PACKAGE HELLO> #<PACKAGE COMMON-LISP>)
      #<PACKAGE FOO>): 1 name conflicts remain
      Which symbol with name "HELLO" should be accessible in #<PACKAGE FOO>?

;; Oops.

[1]>（defpackage hello（：use cl）（：export hello））
#
;; 让我们写一些关于食物的东西。。。
[2] >（defpackage foo（：使用cl））
#
[3] >（在包foo中）
#
;; 哦，我忘了导入喂！
;;让我们来解决这个问题。
FOO[4]>（defpackage FOO（：use cl hello））
***-（COMMON-LISP:USE-PACKAGE（##）
#)：1名称冲突仍然存在
在#中应该可以访问哪个名为“HELLO”的符号？
;; 哎呀。

所以写

（dotimes（#：i10）（打印“Woa”）

？@6502这是一个有趣的例子）这样的东西被认为更干净这有点不同，因为

dotimes

表单通常位于包中

表单下方的某个位置，因此它将在指定的包中始终被读取。污染并不是那么糟糕，反正你一直都是这样<在这方面，code>defpackage

和

in package

更麻烦，因为很难预测当读入相应的表单时，您将污染哪些包；毕竟，这可能发生在任何时间，或多或少发生在任何地方，尤其是在进行交互开发时。是的。。。想了一会儿，我认为你的答案是正确的。当一个符号仅用于其名称时，最好使用一个不需要的符号。“现代模式”IIRC也能更好地发挥作用。有没有人在

lambda

s面前回答OP关于NT

#

的问题？我不知道在哪里可以使用

#'（lambda（…）…

，而不用

（lambda（…）…）

。等等

（defpackage:foo）

也不会在当前包中留下符号“foo”。因此，在这个问题上，您不需要使用未插入的符号，只需避免使用裸符号即可。不，它与导管无关，所有内容都与使用符号作为其名称而不是其标识有关。@jeha，您是对的#在实用的通用Lisp中使用。我已经把那件事的问题解决了。