(index ("current-serial-bits" 0) ("sn+" 156) ("sn>" 606) ("sn<" 606) ("sn<=" 606) ("sn>=" 606) ("sn=" 606))
(def (sig (parameter "current-serial-bits" (id current-serial-bits))) (p "The default amount of bits used to do the serial calculations. Defaults to 32."))
(def (sig (procedure "(sn+ serial fixnum #!key (bits (current-serial-bits)))" (id sn+))) (p "Adds " (tt "fixnum") " to the supplied " (tt "serial") " and returns the result of the addition. Note that this procedure may wrap the value if the given " (tt "serial") " is the upper boundary value of the range of integers that can be represented using " (tt "bits") " bits. This means that (sn> (sn+ serial  1) serial) may be false in this situation."))
(def (sig (procedure "(sn> s1 s2 #!key  (bits (current-serial-bits)))" (id sn>)) (procedure "(sn< s1 s2 #!key  (bits (current-serial-bits)))" (id sn<)) (procedure "(sn<= s1 s2 #!key (bits (current-serial-bits)))" (id sn<=)) (procedure "(sn>= s1 s2 #!key (bits (current-serial-bits)))" (id sn>=)) (procedure "(sn= s1 s2 #!key  (bits (current-serial-bits)))" (id sn=))))
