3 <ENTRY REHASH NEXT-PRIME>
5 <DEFINE REHASH (SIZ:FIX "AUX" (NT:VECTOR <IVECTOR .SIZ ()>)
6 (OT:VECTOR ,ATOM-TABLE))
9 <REPEAT (LL:LIST H:FIX)
10 <COND (<EMPTY? .L> <RETURN>)>
13 <SET H <HASH-NAME <SPNAME <CHTYPE <1 .L> ATOM>> .SIZ>>
14 <PUT .NT .H <PUTREST .L <NTH .NT .H>>>
17 <SETG M$$OBLSIZ!-INTERNAL .SIZ>
18 <SETG M$$OBLIST!-INTERNAL <SETG ATOM-TABLE .NT>>
19 <CALL SETS OBLIST ,ATOM-TABLE>
22 <DEFINE NPRIME? (N) #DECL ((N) FIX)
23 <REPEAT ((D 2) (SQ <FIX <+ <SQRT <FLOAT .N>> 1.0>>))
24 <COND (<G? .D .SQ> <RETURN <>>)>
25 <COND (<==? <MOD .N .D> 0> <RETURN .D>)>
28 <DEFINE NEXT-PRIME (X) #DECL ((X) FIX)
29 <REPEAT () <COND (<NOT <NPRIME? <SET X <+ .X 1>>>> <RETURN .X>)>>>