[Openmcl-cvs-notifications] r11969 - /trunk/source/examples/addressbook.lisp

[gb at clozure.com]

Author: gb
Date: Sun Apr 26 20:02:18 2009
New Revision: 11969

Log:
Still doesn't do anything; just (REQUIRE "COCOA") to set up environment.

Modified:
    trunk/source/examples/addressbook.lisp

Modified: trunk/source/examples/addressbook.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/source/examples/addressbook.lisp (original)
+++ trunk/source/examples/addressbook.lisp Sun Apr 26 20:02:18 2009
@@ -6,19 +6,9 @@
 =

 (in-package ccl)
 =

-;;; We need to be able to point the CoreFoundation and Cocoa libraries
-;;; at some bundle very early in the process.  If you want to use some
-;;; other bundle path, you may need to change the call to FAKE-CFBUNDLE-PA=
TH
-;;; below.
-
-#+darwin-target
-(progn
-  (require "FAKE-CFBUNDLE-PATH")
-  (fake-cfbundle-path "ccl:OpenMCL.app;Contents;MacOS;dppccl"))
-
 =

 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (require "OBJC-SUPPORT"))
+  (require "COCOA"))
 =

 (eval-when (:compile-toplevel :load-toplevel :execute)
   (objc:load-framework "AddressBook" :addressbook))