# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1595089862 14400
# Node ID c3d789c0d51698e318a2ceaf9d272e48126ff50f
# Parent  2288f4ac3903526f1d70859041e29a8085a788b1# Parent  2e90748b1555d86699957d7be1a04ac7d4febe40
Merge pull request #3 from TeMPOraL/master

Stop passing NIL as :hash-function during hash table construction

diff -r 2288f4ac3903 -r c3d789c0d516 src/directed-graph.lisp
--- a/src/directed-graph.lisp	Tue Jan 14 19:11:42 2020 -0500
+++ b/src/directed-graph.lisp	Sat Jul 18 12:31:02 2020 -0400
@@ -2,12 +2,13 @@
 
 ;;;; Utils --------------------------------------------------------------------
 (defun make-hash-table-portably (&key (size 0) test hash-function)
-  (make-hash-table
+  (apply #'make-hash-table
     :test test
     :size size
     ;; Don't explode if the implementation doesn't support :hash-function.
     :allow-other-keys t
-    :hash-function hash-function))
+    (when hash-function
+      (list :hash-function hash-function))))
 
 
 ;;;; Data ---------------------------------------------------------------------