[Openmcl-cvs-notifications] r9252 - /trunk/source/examples/cocoa/tiny.lisp

[gb at clozure.com]

Author: gb
Date: Thu Apr 24 04:51:12 2008
New Revision: 9252

Log:
rect not ignored.

Modified:
    trunk/source/examples/cocoa/tiny.lisp

Modified: trunk/source/examples/cocoa/tiny.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/cocoa/tiny.lisp (original)
+++ trunk/source/examples/cocoa/tiny.lisp Thu Apr 24 04:51:12 2008
@@ -43,7 +43,7 @@
 (defconstant numsides 12)
 =

 (objc:defmethod (#/drawRect: :void) ((self demo-view) (rect :<NSR>ect))
-  (declare (ignore rect))
+  (declare (ignorable rect))
   (let* ((bounds (#/bounds self))
          (width (ns:ns-rect-width bounds))
          (height (ns:ns-rect-height bounds)))