[Openmcl-cvs-notifications] r12563 - /trunk/source/cocoa-ide/app-delegate.lisp

[gz at clozure.com]

Author: gz
Date: Tue Aug 11 08:58:02 2009
New Revision: 12563

Log:
compiler warning

Modified:
    trunk/source/cocoa-ide/app-delegate.lisp

Modified: trunk/source/cocoa-ide/app-delegate.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/cocoa-ide/app-delegate.lisp (original)
+++ trunk/source/cocoa-ide/app-delegate.lisp Tue Aug 11 08:58:02 2009
@@ -170,6 +170,7 @@
 =

 (objc:defmethod (#/applicationShouldOpenUntitledFile: #>BOOL)
     ((self lisp-application-delegate) app)
+  (declare (ignore app))
   t)
 =

 (objc:defmethod (#/applicationOpenUntitledFile: :<BOOL>)