[Openmcl-cvs-notifications] r7439 - /trunk/ccl/cocoa-ide/cocoa-application.lisp

[gb at clozure.com]

Author: gb
Date: Sun Oct 14 04:55:14 2007
New Revision: 7439

Log:
Try to detect the case where declared classes aren't yet available (loaded =
?)
in the runtime environment when we're ready to save an image.

Modified:
    trunk/ccl/cocoa-ide/cocoa-application.lisp

Modified: trunk/ccl/cocoa-ide/cocoa-application.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/ccl/cocoa-ide/cocoa-application.lisp (original)
+++ trunk/ccl/cocoa-ide/cocoa-application.lisp Sun Oct 14 04:55:14 2007
@@ -75,6 +75,18 @@
 =

 (touch *fake-cfbundle-path*)
 =

+(maybe-map-objc-classes t)
+
+(let* ((missing ()))
+  (do-interface-dirs (d)
+    (cdb-enumerate-keys
+     (db-objc-classes d)
+     (lambda (name)
+       (let* ((class (lookup-objc-class name nil))) (unless (objc-class-id=
  class) (push name missing))))))
+  (when missing
+    (break "ObjC classes ~{~&~a~} are declared but not defined.")))
+
+
 (save-application
  (make-pathname
   :directory (pathname-directory (translate-logical-pathname (merge-pathna=
mes ";Contents;MacOS;" *fake-cfbundle-path*)))