Wed Jun 10 14:01:10 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* No need for a synchronized hash table when threads are not supported.
diff -rN -u old-smoke/src/object-map.lisp new-smoke/src/object-map.lisp
--- old-smoke/src/object-map.lisp 2014-09-30 10:30:09.000000000 +0200
+++ new-smoke/src/object-map.lisp 2014-09-30 10:30:09.000000000 +0200
@@ -16,8 +16,9 @@
#-(or sbcl openmcl)
(progn
- (cerror "Use unsynchronized hash-table"
- "Synchronized hash table not implemented.")
+ (when *supports-threads-p*
+ (cerror "Use unsynchronized hash-table"
+ "Synchronized hash table not implemented."))
(defun make-synchronized-hash-table (&key weakness)
(if weakness
#-cmucl (make-weak-hash-table :weakness weakness)