Почему не используемые символы используются для имен пакетов и экспорта в Common Lisp? - PullRequest
Новая
       42

Почему не используемые символы используются для имен пакетов и экспорта в Common Lisp?

15 голосов
/ 25 октября 2011

В скриншоте в общем списке автор использует непостоянные символы для имен пакетов и экспорта. 

(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 Насколько я знаю, острый знак не используется для имен пакетов и экспорта.

В чем причина использованиянепостоянные символы (острый знак) в этих случаях?

Ответы [ 2 ]

15 голосов
/ 25 октября 2011

Использование интернированного символа загрязняет пакет, в котором вы сейчас находитесь, символами, которые в любом случае используются только для их имен: 

[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.
0 голосов
/ 25 октября 2011

#' является сокращением для оператора function (это используется несколько раз в книге «Практический общий Лисп»).

...