Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: ff9db80cca
Fetching contributors…

Cannot retrieve contributors at this time

22 lines (18 sloc) 0.76 kb
(defpackage jenkins-hash
(:use :common-lisp)
(:shadow :common-lisp hash)
(:export hash-octets
hash-string
nth-hash))
(in-package :jenkins-hash)
(deftype u8 () '(unsigned-byte 8))
(deftype u32 () '(unsigned-byte 32))
(deftype simple-octets () '(simple-array u8))
(deftype simple-characters () '(simple-array character))
(deftype index () '(unsigned-byte 24))
(defparameter *fastest* '(optimize (speed 3) (safety 0) (debug 0) (compilation-speed 0)))
(defparameter *muffle* #+SBCL '(sb-ext:muffle-conditions sb-ext:compiler-note)
#-SBCL '())
(defconstant +INIT_MAGIC+ #xDEADBEEF)
(defconstant +GOLDEN_RATIO_PRIME+
(+ (expt 2 31) (expt 2 29) (- (expt 2 25)) (expt 2 22) (- (expt 2 19)) (- (expt 2 16)) 1))
Jump to Line
Something went wrong with that request. Please try again.