Merge pull request #3 from TeMPOraL/master
Stop passing NIL as :hash-function during hash table construction
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Sat, 18 Jul 2020 12:31:02 -0400 |
| parents |
2288f4ac3903
(current diff)
2e90748b1555
(diff)
|
| children |
e5f60ffb3dc4
|
| branches/tags |
(none) |
| files |
|
Changes
--- 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 ---------------------------------------------------------------------