[Openmcl-cvs-notifications] r13907 - /trunk/source/objc-bridge/objc-runtime.lisp

[rme at clozure.com]

Author: rme
Date: Thu Jul  1 11:14:02 2010
New Revision: 13907

Log:
Fix typo (coctron =3D> cocotron) in objc-method-definition-form (used by
old-style define-objc-method).

Modified:
    trunk/source/objc-bridge/objc-runtime.lisp

Modified: trunk/source/objc-bridge/objc-runtime.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/objc-bridge/objc-runtime.lisp (original)
+++ trunk/source/objc-bridge/objc-runtime.lisp Thu Jul  1 11:14:02 2010
@@ -2900,7 +2900,7 @@
               (declare (ignorable ,_cmd))
               , at decls
               (rlet ((,super :objc_super
-                       #+(or apple-objc coctron-objc) :receiver #+gnu-objc=
 :self ,self
+                       #+(or apple-objc cocotron-objc) :receiver #+gnu-obj=
c :self ,self
                        #+(or apple-objc-2.0 cocotron-objc) :super_class #-=
(or apple-objc-2.0 cocotron-objc) :class
                        ,@(if class-p
                              #+(or apple-objc-2.0 cocotron-objc)