Changeset 15576 for trunk/source/cocoa-ide/start.lisp
- Timestamp:
- Jan 10, 2013, 10:48:01 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/cocoa-ide/start.lisp
r15567 r15576 124 124 #-cocotron ;needs conditionalization 125 125 (require :easygui) 126 127 (ccl::maybe-map-objc-classes t)128 (let* ((missing ()))129 (ccl::do-interface-dirs (d)130 (ccl::cdb-enumerate-keys131 (ccl::db-objc-classes d)132 (lambda (name)133 (let* ((class (ccl::lookup-objc-class name nil)))134 (unless (ccl::objc-class-id class) (push name missing))))))135 (when missing136 (warn "ObjC classes ~{~&~a~} are declared but not defined." missing)))137 126 138 127 #-cocotron
Note: See TracChangeset
for help on using the changeset viewer.