Changeset 11427

Timestamp:

Nov 25, 2008, 9:03:17 AM (12 years ago)

Author:

gb

Message:

Serialize MAYBE-MAP-OBJC-CLASSES. It might be possible to be less
restrictive here, but we're already doing an ff-call to get the
class count ...

File:

• trunk/source/objc-bridge/objc-support.lisp (modified) (1 diff)

trunk/source/objc-bridge/objc-support.lisp

@@ -89 +89 @@
        (install-foreign-objc-class class lookup-in-database-p))))
 
-(let* ((nclasses 0))
+(let* ((nclasses 0)
+       (lock (make-lock)))
   (declare (fixnum nclasses))
   (defun maybe-map-objc-classes (&optional use-db)
-    (let* ((new (count-objc-classes)))
-      (declare (fixnum new))
-    (unless (= nclasses new)
-      (setq nclasses new)
-      (map-objc-classes use-db)
-      t)))
+    (with-lock-grabbed (lock)
+      (let* ((new (count-objc-classes)))
+        (declare (fixnum new))
+        (unless (= nclasses new)
+          (setq nclasses new)
+          (map-objc-classes use-db))
+        t)))
   (defun reset-objc-class-count ()
-    (setq nclasses 0)))
+    (with-lock-grabbed (lock)
+      (setq nclasses 0))))
 
 (register-objc-class-decls)