GitLab

at 2023-07-26T14:34:09-07:00

Make min-list-length-for-hashtable a defconstant

Update name to use `+foo+` convention for constants.

       list

       (cons item list)))

-;; The minimum length of a list before we can use a hashtable

-(defparameter *min-list-length-for-hashtable*

+;; The minimum length of a list before we can use a hashtable.  This

+;; was determined experimentally.

+(defconstant +min-list-length-for-hashtable+

   15)

 ;; Convert a list to a hashtable.  The hashtable does not handle

       ;; If the list is too short, the hashtable makes things

       ;; slower.  We also need to balance memory usage.

       (let ((len (length list)))

-	(when (< len *min-list-length-for-hashtable*)

+	(when (< len +min-list-length-for-hashtable+)

           (return-from list-to-hashtable nil))

 	(let ((hashtable (make-hash-table :test hash-test :size len)))

 	  (dolist (item list)

Raymond Toy pushed to branch issue-240-set-diff-with-hash-table at cmucl / cmucl

Commits:

1 changed file:

Changes: