From ca389e69bbc22d9f4402b7b8506b6cfae75aa76d Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Thu, 10 Nov 2011 19:16:58 +0200 Subject: [PATCH] sbcl: always use synchronized hash-tables --- Lisp-Dep/fix-sbcl.lisp | 7 ++++++- 1 files changed, 6 insertions(+), 1 deletions(-) diff --git a/Lisp-Dep/fix-sbcl.lisp b/Lisp-Dep/fix-sbcl.lisp index 74baede..beb80c9 100644 --- a/Lisp-Dep/fix-sbcl.lisp +++ b/Lisp-Dep/fix-sbcl.lisp @@ -34,7 +34,8 @@ (eval-when (:compile-toplevel :load-toplevel :execute) (export '(clim-lisp-patch::defconstant - clim-lisp-patch::defclass) + clim-lisp-patch::defclass + clim-lisp-patch::make-hash-table) :clim-lisp-patch)) (defmacro clim-lisp-patch:defconstant (symbol value &optional docu) @@ -50,3 +51,7 @@ (eval-when (:compile-toplevel) (setf (gethash ',name clim-lisp-patch::*compile-time-clos-names*) t)) (cl:defclass ,name ,@args))) + +(declaim (inline clim-lisp-patch:make-hash-table)) +(defun clim-lisp-patch:make-hash-table (&rest keys) + (apply #'cl:make-hash-table :synchronized t keys)) -- 1.7.5.GIT