Browse files

make hash-tables on SBCL be :synchronized t, since hash tables are no…

…t thread-safe by default on SBCL
  • Loading branch information...
1 parent f01788b commit b0b15306b1bf95584a827e6b9e46b71084569d7e @slyrus committed May 4, 2012
Showing with 6 additions and 1 deletion.
  1. +6 −1 Lisp-Dep/fix-sbcl.lisp
View
7 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))

0 comments on commit b0b1530

Please sign in to comment.