Wed Jun 10 14:01:10 CEST 2009 Tobias Rautenkranz * 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-11-04 18:02:49.000000000 +0100 +++ new-smoke/src/object-map.lisp 2014-11-04 18:02:49.000000000 +0100 @@ -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)