Changeset 6793

Timestamp:

Jul 6, 2007, 12:18:35 PM (17 years ago)

Author:

Gary Byers

Message:

Use standard-kernel-name.

File:

• branches/ide-1.0/ccl/examples/cocoa-application.lisp (modified) (1 diff)

branches/ide-1.0/ccl/examples/cocoa-application.lisp

@@ -95 +95 @@
 (touch "ccl:openmcl.app;")
 
-(save-application "ccl:OpenMCL.app;Contents;MacOS;dppccl"
-                  :prepend-kernel t
-                  :application-class 'cocoa-application)
+(save-application
+ (make-pathname
+  :directory (translate-logical-pathname "ccl:OpenMCL.app;Contents;MacOS;")
+  :name (standard-kernel-name))
+ :prepend-kernel t
+ :application-class 'cocoa-application)
 
 ;;; If things go wrong, you might see some debugging information via