;;;; File: sxhash-report.el -*- lexical-binding: t; -*- (defvar some-lisp-objects (list 1 0 nil t (cons 0 0) "" "ab" "abcd" '(1 2 3 4 5) '(a b c) 'ab 'abcd :misc )) (princ (format "in %s\n" (emacs-version))) (dolist (obj some-lisp-objects) (princ (format "%S is hash for %S\n" (sxhash-equal obj) obj)))