From 14f1c69009c789d26524c20d84a0c0200bd0f221 Mon Sep 17 00:00:00 2001 From: David Botton Date: Fri, 11 Feb 2022 08:53:56 -0500 Subject: [PATCH] fix to make-hash-table* --- source/clog-connection.lisp | 6 ++++-- source/clog-utilities.lisp | 2 +- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/source/clog-connection.lisp b/source/clog-connection.lisp index e5a773a..257b42f 100644 --- a/source/clog-connection.lisp +++ b/source/clog-connection.lisp @@ -66,10 +66,12 @@ script." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun make-hash-table* (&rest args) - "Use concurrent hash tables" + "Use native concurrent hash tables" + ;; This covers sbcl ecl mazzano lw and ccl. + ;; (lw and ccl default hash is synchronized) #+(or sbcl ecl mezzano) (apply #'make-hash-table :synchronized t args) - #-(or sbcl ecl mezzano) (make-hash-table)) + #-(or sbcl ecl mezzano) (apply #'make-hash-table args)) (defvar *verbose-output* nil "Verbose server output (default false)") diff --git a/source/clog-utilities.lisp b/source/clog-utilities.lisp index d1b606b..2a57ca3 100644 --- a/source/clog-utilities.lisp +++ b/source/clog-utilities.lisp @@ -18,7 +18,7 @@ ;; (lw and ccl default hash is synchronized) #+(or sbcl ecl mezzano) (apply #'make-hash-table :synchronized t args) - #-(or sbcl ecl mezzano) (make-hash-table)) + #-(or sbcl ecl mezzano) (apply #'make-hash-table args)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Implementation - clog-group