[Lisp-cn] 同样的值进行equal为什么结果不同

[宋为@凉拌茶叶]

(equal 'single conf)

但是总是得出不等，遂写成（为了同时保存用于判断的值和判断结果）

(progn (defparameter *s*
(cons (equal 'single conf) conf))
(equal 'single conf))

然后在外面的包执行后取出的*s*是这样的：

(NIL . SINGLE)

在外边执行：

(equal 'single
(cdr cl-easyarg::*s*))

得到T。不知道为什么，两次判断会得出不同的结果。会不会是我以某种方式遮盖
了equal造成的？

[Xiaofeng Yang]

请给出具䜓代码和具䜓操䜜过皋。​

Best regards,
Xiaofeng Yang

(equal 'single conf)

䜆是总是埗出䞍等遂写成䞺了同时保存甚于刀断的倌和刀断结果

(progn (defparameter *s*
(cons (equal 'single conf) conf))
(equal 'single conf))

然后圚倖面的包执行后取出的*s*是这样的

(NIL . SINGLE)

圚倖蟹执行

(equal 'single
(cdr cl-easyarg::*s*))

埗到T。䞍知道䞺什么䞀次刀断䌚埗出䞍同的结果。䌚䞍䌚是我以某种方匏遮盖 了equal造成的
--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn
--- 悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
芁查看曎倚选项请访问 https://groups.google.com/d/optout。

[lihui guo]

䌚䞍䌚和package有关

(equal 'single conf)

䜆是总是埗出䞍等遂写成䞺了同时保存甚于刀断的倌和刀断结果

(progn (defparameter *s*
(cons (equal 'single conf) conf))
(equal 'single conf))

然后圚倖面的包执行后取出的*s*是这样的

(NIL . SINGLE)

圚倖蟹执行

(equal 'single
(cdr cl-easyarg::*s*))

埗到T。䞍知道䞺什么䞀次刀断䌚埗出䞍同的结果。䌚䞍䌚是我以某种方匏遮盖 了equal造成的
--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn
--- 悚收到歀邮件是因䞺悚订阅了 Google 眑䞊论坛的“Lisp-cn(Lisp䞭文甚户组)”论坛。
芁查看曎倚选项请访问 https://groups.google.com/d/optout。