Skip to content
Snippets Groups Projects
Commit c357adcf authored by pfdietz's avatar pfdietz
Browse files

Add a test that the sxhash of a symbol doesn't change when it is uninterned.

parent 0e2b7f1f
No related branches found
No related tags found
No related merge requests found
......@@ -267,6 +267,19 @@
hashes))
:good)
;;; The hash of a symbol does not change when its package changes
(deftest sxhash.23
(progn
(safely-delete-package "A")
(defpackage "A" (:use))
(let* ((pkg (find-package "A"))
(sym (intern "FOO" pkg))
(hash (sxhash sym)))
(unintern sym pkg)
(let ((hash2 (sxhash sym)))
(if (eql hash hash2) nil (list hash hash2)))))
nil)
;;; Error cases
(deftest sxhash.error.1
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment