Parent Directory | Revision Log | Patch
revision 1.10 by pfdietz, Sun May 16 11:51:33 2004 UTC | revision 1.11 by pfdietz, Sat May 21 02:28:42 2005 UTC | |
---|---|---|
# | Line 267 | Line 267 |
267 | hashes)) | hashes)) |
268 | :good) | :good) |
269 | ||
270 | ;;; The hash of a symbol does not change when its package changes | |
271 | (deftest sxhash.23 | |
272 | (progn | |
273 | (safely-delete-package "A") | |
274 | (defpackage "A" (:use)) | |
275 | (let* ((pkg (find-package "A")) | |
276 | (sym (intern "FOO" pkg)) | |
277 | (hash (sxhash sym))) | |
278 | (unintern sym pkg) | |
279 | (let ((hash2 (sxhash sym))) | |
280 | (if (eql hash hash2) nil (list hash hash2))))) | |
281 | nil) | |
282 | ||
283 | ;;; Error cases | ;;; Error cases |
284 | ||
285 | (deftest sxhash.error.1 | (deftest sxhash.error.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |