/[gcl]/gcl/ansi-tests/sxhash.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/sxhash.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26