Question

在公共列表的screen cast中，作者使用未分隔的符号作为包名称和导出。

(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))))

在书Practical Common Lisp中，就我所读到的那样，尖锐的标志不用于包名和出口。

在这些情况下使用未加工符号（尖锐符号）的原因是什么？

Answer 1

使用实习符号会污染您当前所在的包裹，并使用仅用于其名称的符号：

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

未加工的符号不会这样做：

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

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

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

实施例

为了说明问题，请考虑以下互动：

[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.

Answer 2

#'是function运算符的简写（在Practical Common Lisp一书中使用了几次）。

为什么在Common Lisp中将未使用的符号用于包名称和导出？

2 个答案:

实施例