Changeset 6796 for branches

Timestamp:

Jul 8, 2007, 11:12:43 PM (17 years ago)

Author:

Gary Byers

Message:

COCOA-APPLICATION is a subclass of APPLICATION, calls the next-method
in its toplevle-function. (This is a mess ...)

Fix pathname botch in SAVE-APPLICATION call.

File:

• branches/ide-1.0/ccl/examples/cocoa-application.lisp (modified) (3 diffs)

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

@@ -55 +55 @@
 
 
-(defclass cocoa-application (lisp-development-system)
+(defclass cocoa-application (application)
     ())
 
@@ -68 +68 @@
 (defmethod toplevel-function ((a cocoa-application) init-file)
   (declare (ignore init-file))
+  (call-next-method)
   (reset-ccl-directory)
   (start-cocoa-application))
@@ -97 +98 @@
 (save-application
  (make-pathname
-  :directory (translate-logical-pathname "ccl:OpenMCL.app;Contents;MacOS;")
+  :directory (pathname-directory (translate-logical-pathname "ccl:OpenMCL.app;Contents;MacOS;"))
   :name (standard-kernel-name))
  :prepend-kernel t