diff --git a/ansi-tests/sxhash.lsp b/ansi-tests/sxhash.lsp index 17ed505b695f69cb8d3212e21353ecb2dc2b8cfb..15ae2d3e26617a2438bb9b6a24d24a978419a8cd 100644 --- a/ansi-tests/sxhash.lsp +++ b/ansi-tests/sxhash.lsp @@ -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