mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

fix to make-hash-table*

Browse source
This commit is contained in:
David Botton 2022-02-11 08:53:56 -05:00
parent bcbc7c46b8
commit 14f1c69009
2 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-connection.lisp
View file

@ -66,10 +66,12 @@ script."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun make-hash-table* (&rest args) (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) #+(or sbcl ecl mezzano)
(apply #'make-hash-table :synchronized t args) (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)") (defvar *verbose-output* nil "Verbose server output (default false)")

2
source/clog-utilities.lisp
View file

@ -18,7 +18,7 @@
;; (lw and ccl default hash is synchronized) ;; (lw and ccl default hash is synchronized)
#+(or sbcl ecl mezzano) #+(or sbcl ecl mezzano)
(apply #'make-hash-table :synchronized t args) (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 ;; Implementation - clog-group