From c357adcf63fdeb8e83617e5ee1811bb9821b006e Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 21 May 2005 02:28:42 +0000 Subject: [PATCH] Add a test that the sxhash of a symbol doesn't change when it is uninterned. --- ansi-tests/sxhash.lsp | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/ansi-tests/sxhash.lsp b/ansi-tests/sxhash.lsp index 17ed505b..15ae2d3e 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 -- GitLab