| /dports/lang/sbcl/sbcl-1.3.13/tests/ |
| H A D | hash.pure.lisp | 25 (sxhash (sxhash a))
29 (assert (= sxhash (sxhash a)))
36 (with-test (:name (sxhash :quality :minimum))
37 (assert (/= (sxhash "foo") (sxhash "bar")))
38 (assert (/= (sxhash (pathname "foo.txt")) (sxhash (pathname "bar.txt"))))
39 (assert (/= (sxhash (list 1 2 3)) (sxhash (list 3 2 1))))
40 (assert (/= (sxhash #*1010) (sxhash #*0101))))
75 (let ((sxhash (sxhash v))
79 (when (/= (sxhash v) sxhash)
103 (let ((sxhash (sxhash v)))
[all …]
|
| H A D | hash.impure.lisp | 178 `(sxhash ',value))
182 (mapcar #'sxhash sxhash-tests))))
197 (unless (typep (funcall #'sxhash i) '(and fixnum unsigned-byte))
201 (t->boolean (= (sxhash i) (sxhash j))))
246 (dolist (fun '(sxhash sb-impl::psxhash))
400 (sxhash (custom-hash-key-name x)))
422 (reduce #'+ (map 'list #'sxhash (subseq x 0 3))))))
445 (sxhash (coerce (abs x) 'double-float))))))
|
| H A D | string.pure.lisp | 65 (assert (= (sxhash "")
66 (sxhash (make-array 0 :element-type nil))
67 (sxhash (make-array 5 :element-type nil :fill-pointer 0))
68 (sxhash (make-string 0 :element-type nil))))
|
| H A D | mop-28.impure.lisp | 35 (sorted-classes (sort cs #'< :key #'sxhash)))
|
| /dports/lang/sbcl/sbcl-1.3.13/src/code/ |
| H A D | sxhash.lisp | 17 (deftransform sxhash ((x) (single-float)) unknown
21 (sxhash (the fixnum
25 (deftransform sxhash ((x) (double-float)) unknown
31 (sxhash (the fixnum
38 (deftransform sxhash ((x) (fixnum)) unknown
45 (deftransform sxhash ((x) (simple-bit-vector)) unknown
51 (mix result (sxhash 0)))
53 (mixf result (sxhash length))
94 (deftransform sxhash ((x) (simple-string)) unknown
97 (deftransform sxhash ((x) (symbol)) unknown
[all …]
|
| H A D | target-sxhash.lisp | 230 (defun sxhash (x) function
265 (sxhash imagpart)
268 (sxhash realpart)
368 (t (sxhash key))))
461 (mixf result (sxhash (hash-table-test key)))
473 (sxhash val)))
484 (sxhash q)
490 (sxhash q)
502 (integer (sxhash key))
514 (sxhash key)))
[all …]
|
| H A D | target-package.lisp | 612 (defun entry-hash (length sxhash)
613 (declare (index length) ((and fixnum unsigned-byte) sxhash))
614 (1+ (rem (logxor length sxhash
615 (ash sxhash -8) (ash sxhash -16) (ash sxhash -19))
633 (sxhash (truly-the fixnum (ensure-symbol-hash symbol)))
634 (h2 (1+ (rem sxhash (- len 2)))))
635 (declare (fixnum sxhash h2))
636 (do ((i (rem sxhash len) (rem (+ i h2) len)))
646 (entry-hash (length (symbol-name symbol)) sxhash)))
672 string length sxhash entry-hash) &body forms)
|
| H A D | symbol.lisp | 122 (return-from compute-symbol-hash (sxhash nil)))
124 (let ((sxhash (logand (lognot (%sxhash-simple-substring string length))
126 (if (zerop sxhash) #x55AA sxhash))) ; arbitrary substitute for 0
|
| /dports/math/reduce/Reduce-svn5758-src/psl/dist/util/ |
| H A D | hashtable.sl | 59 (fluid '(*sxhash-max-depth*))
61 (setq *sxhash-max-depth* 5)
70 %(flag '(sxhash-internal sxhash-float sxhash-string big-sxhash ht-check-twopower ht-compute-size is…
73 (de sxhash (o)
74 (sxhash-internal o *sxhash-max-depth*))
82 (ds sxhash-float (o)
87 (de sxhash-float-x (o) (sxhash-float o))
89 (de sxhash-internal (o depth)
118 *sxhash-cons-default-value*
147 (de sxhash-string (s)
[all …]
|
| /dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/tests/ |
| H A D | defhash.tst | 3 (define-hash-table-test string-eq string= sxhash)
14 (let ((h (make-hash-table :test '(string= . sxhash))))
24 ,(lambda (x) (let ((z (sxhash (coerce x 'double-float))))
36 :test `(= . ,(lambda (x) (sxhash (coerce x 'short-float)))))))
47 ,(lambda (x) (let ((z (sxhash (coerce x 'double-float))))
|
| H A D | hashlong.tst | 114 (= (sxhash '(1 2 3 4 5 6 7 8))
115 (sxhash '(1 2 3 4 5 6 7 8 9)))
118 (typep (sxhash '#1=(1 #1# . #1#)) 'fixnum) T
120 (= (sxhash '(1 (2 . 3) 4 (5 . 6) (7 (8))))
121 (sxhash '(1 (2 . 3) 4 (5 . 6) (8 (7)))))
|
| /dports/lang/abcl/abcl-src-1.8.0/src/org/armedbear/lisp/ |
| H A D | LispClass.java | 85 private final int sxhash; field in LispClass
100 sxhash = hashCode() & 0x7fffffff; in LispClass()
112 sxhash = hashCode() & 0x7fffffff; in LispClass()
119 sxhash = hashCode() & 0x7fffffff; in LispClass()
142 public final int sxhash() in sxhash() method in LispClass
144 return sxhash; in sxhash()
|
| H A D | Complex.java | 304 public int sxhash() in sxhash() method in Complex
306 return (mix(realpart.sxhash(), imagpart.sxhash()) & 0x7fffffff); in sxhash()
|
| H A D | Cons.java | 155 return this.sxhash(); in hashCode()
159 public final int sxhash() in sxhash() method in Cons
183 return obj.sxhash(); in computeHash()
|
| H A D | NilVector.java | 240 public int sxhash() in sxhash() method in NilVector
|
| H A D | HashTable.java | 400 return key.sxhash(); in hash()
468 result = mix(result, getTest().sxhash()); in psxhash()
|
| H A D | Pathname.java | 713 return sxhash(); in hashCode()
717 public int sxhash() { in sxhash() method in Pathname
718 return ((getHost().sxhash() in sxhash()
719 ^ getDevice().sxhash() in sxhash()
720 ^ getDirectory().sxhash() in sxhash()
721 ^ getName().sxhash() in sxhash()
722 ^ getType().sxhash()) & 0x7fffffff); in sxhash()
|
| /dports/editors/emacs-devel/emacs-4d1968b/doc/lispref/ |
| H A D | hash.texi | 282 @defun sxhash-equal obj
288 @code{(sxhash-equal @var{obj1})} and @code{(sxhash-equal @var{obj2})}
292 @code{sxhash-equal} are usually different, but not always; once in a
294 that give the same result from @code{sxhash-equal}.
298 @code{sxhash-equal}.
301 @defun sxhash-eq obj
306 @code{(sxhash-eq @var{obj1})} and @code{(sxhash-eq @var{obj2})} are
310 @defun sxhash-eql obj
317 @code{(sxhash-eql @var{obj1})} and @code{(sxhash-eql @var{obj2})} are
328 (sxhash-equal (upcase a)))
[all …]
|
| /dports/editors/emacs/emacs-27.2/doc/lispref/ |
| H A D | hash.texi | 277 @defun sxhash-equal obj
283 @code{(sxhash-equal @var{obj1})} and @code{(sxhash-equal @var{obj2})}
287 @code{sxhash-equal} are usually different, but not always; once in a
289 that give the same result from @code{sxhash-equal}.
293 @code{sxhash-equal}.
296 @defun sxhash-eq obj
301 @code{(sxhash-eq @var{obj1})} and @code{(sxhash-eq @var{obj2})} are
305 @defun sxhash-eql obj
312 @code{(sxhash-eql @var{obj1})} and @code{(sxhash-eql @var{obj2})} are
323 (sxhash-equal (upcase a)))
[all …]
|
| /dports/lang/abcl/abcl-src-1.8.0/test/lisp/abcl/ |
| H A D | pathname-tests.lisp | 139 (s (sxhash p)))
149 (= (sxhash p1) (sxhash p2))
156 (= (sxhash #p"/usr/local/bin/sbcl") (sxhash #p"") (sxhash #p"foo.bar"))
|
| /dports/audio/emms/emms-5.0/lisp/ |
| H A D | emms-cache.el | 47 (define-hash-table-test 'string-hash 'string= 'sxhash))
|
| /dports/print/pdf-tools/pdf-tools-0.90-90-ga8847b7/lisp/ |
| H A D | pdf-cache.el | 303 (let ((hash (sxhash
320 (let ((hash (sxhash
|
| /dports/lang/sbcl/sbcl-1.3.13/contrib/sb-gmp/ |
| H A D | tests-stress.lisp | 38 (let* ((initial-hashes (mapcar #'sxhash arguments))
43 (final-hashes (mapcar #'sxhash arguments)))
|
| H A D | tests.lisp | 38 (let* ((initial-hashes (mapcar #'sxhash arguments))
43 (final-hashes (mapcar #'sxhash arguments)))
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/ |
| H A D | checkgen.lisp | 348 (bucket (mod (sxhash canon-type) (length hashtable))))
354 (cadr (assoc spec (svref table (rem (sxhash spec) (length table)))
|