;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.252
;;; Reason:
;;;  (make-hash-table :size 1) now works.
;;; Written 4-May-88 17:58:43 by pld at site Gigamos Cambridge
;;; while running on Azathoth from band 3
;;; with Experimental System 123.249, Experimental Local-File 73.5, Experimental FILE-Server 22.3, Experimental Unix-Interface 11.0, Experimental KERMIT 34.3, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, Experimental Tape 22.4, microcode 1756, SDU Boot Tape 3.14, SDU ROM 8, the old ones.



; From file DJ: L.SYS2; HASH.LISP#115 at 4-May-88 17:59:02
#10R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; HASH  "

(defun hash-array-good-size (size)
  (cond ((lessp size 20.)
	 19.)
	(t
	 (unless (oddp size) (incf size))	;Find next higher more-or-less prime
	 (do () ((and (not (zerop (cl:rem size 3)))
		      (not (zerop (cl:rem size 5)))
		      (not (zerop (cl:rem size 7)))
		      (not (zerop (cl:rem size 11.)))
		      (not (zerop (cl:rem size 13.)))
		      (not (zerop (cl:rem size 17.)))))	;Magic number
	   (incf size 2))
	 size)))

))