代码之家 › 专栏 › 技术社区 › Kasper van den Berg

如何重新创建由“make symbol”创建的符号`

common-lisp

Kasper van den Berg · 技术社区 · 7 年前

我的程序创建虚拟数据。这些虚拟数据的一部分是符号形式的键: (lambda (i) ( make-symbol (format nil "~@r" i))) (fixnum值,其罗马数字作为符号作为键)。这个程序将这些伪键值对存储在我正在开发的数据结构中。

我尝试使用REPL中的这些符号来测试通过键检索值。然而:

(equal (make-symbol "IX") (make-symbol "IX"))

(equal (make-symbol "IX") 'IX))

无

有没有办法输入以前用创建的符号 制造符号 在REPL中 equal

2 回复 | 直到 7 年前

Alexander Artemenko 7 年前

CL-USER> (defpackage :my-symbols)
#<Package "MY-SYMBOLS">
CL-USER> (intern "IX" :my-symbols)
MY-SYMBOLS::IX
NIL
CL-USER> (intern "IX" :my-symbols)
MY-SYMBOLS::IX
:INTERNAL
CL-USER> (eql (intern "IX" :my-symbols)
              (intern "IX" :my-symbols))
T
CL-USER>

Rainer Joswig mmmmmm 7 年前

可以使用 string= 按名称比较符号:

CL-USER 29 > (string= (make-symbol "IX") (make-symbol "IX"))
T

CL-USER 30 > (string= (make-symbol "IX") (make-symbol "Ix"))
NIL

string-equal 是不区分大小写的变体。

推荐文章

Alteration Dream · Common Lisp-为什么“让”变量保持在新迭代中对它们所做的更改?

1 年前

kflak · 如何在公共lisp中将函数传递给宏

1 年前

Oliver Cox · 在格式化数组时,如何在Lisp中使用不添加换行符/缩进的格式?

1 年前

Denes Cselovszki · 在宏定义中使用读取器宏字符

1 年前

7stud · 为什么是传单和封页?

1 年前

Galladite · 为什么(nil.nil)在SBCL中评估为(nil)而不是仅为nil?

1 年前

Vinn · DB中的HTML未注入hunchentoot路由

2 年前

ptb · Slime\Emacs comint在启动mpi进程时挂起

7 年前

Alexandru Popa · SBCL中奇怪的宏扩展错误

7 年前

MadPhysicist · 公共Lisp未定义分派字符

7 年前