Changeset 12641

Timestamp:

Aug 21, 2009, 8:17:20 PM (11 years ago)

Author:

gb

Message:

Conditionalize for Cocotron: get the platform-specific bundle
subdirectory right, don't try to load EasyGUI for now (contains
some Mac-specific code that needs to be conditionalized), don't
try to call CCL::TOUCH on directories (not necessary in Cocotron,
and doesn't seem to work in Windows ...)

File:

• trunk/source/cocoa-ide/start.lisp (modified) (2 diffs)

trunk/source/cocoa-ide/start.lisp

@@ -129 +129 @@
     (wait-on-semaphore *cocoa-application-finished-launching*)
 
+    #-cocotron                          ;needs conditionalization
     (require :easygui)
 
@@ -142 +143 @@
         (break "ObjC classes ~{~&~a~} are declared but not defined." missing)))
 
+    #-cocotron
     (ccl::touch bundle-path)
 
     (let ((image-file (make-pathname :name (ccl::standard-kernel-name) :type nil :version nil
-                                     :defaults (merge-pathnames ";Contents;MacOS;" bundle-path))))
+                                     :defaults (merge-pathnames (format nil";Contents;~a;" #+darwin-target "MacOS" #+cocotron "Windows")  bundle-path))))
       (format *error-output* "~2%Saving application to ~a~2%" (truename bundle-path))
       (force-output *error-output*)