Changeset 7005


Ignore:
Timestamp:
Aug 7, 2007, 12:17:37 AM (14 years ago)
Author:
gb
Message:

careful with db stuff

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/objc-bridge/objc-support.lisp

    r6856 r7005  
    9191(let* ((nclasses 0))
    9292  (declare (fixnum nclasses))
    93   (defun maybe-map-objc-classes ()
     93  (defun maybe-map-objc-classes (&optional use-db)
    9494    (let* ((new (count-objc-classes)))
    9595      (declare (fixnum new))
    9696    (unless (= nclasses new)
    9797      (setq nclasses new)
    98       (map-objc-classes)
     98      (map-objc-classes use-db)
    9999      t)))
    100100  (defun reset-objc-class-count ()
     
    102102
    103103(register-objc-class-decls)
    104 (maybe-map-objc-classes)
     104(maybe-map-objc-classes t)
    105105(register-objc-init-messages)
    106106
Note: See TracChangeset for help on using the changeset viewer.