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