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

[palter at clozure.com]

Author: palter
Date: Thu Oct 15 11:59:05 2009
New Revision: 13024

Log:
Fix fencepost error

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 Oct 15 11:59:05 2009
@@ -2553,7 +2553,7 @@
          (name (objc-message-info-lisp-name info))
          (str (symbol-name name))
          (value-placeholder-index (position #\: str)))
-    (when (and (> (length str) 3) value-placeholder-index)
+    (when (and (> (length str) 4) value-placeholder-index)
       (let* ((truncated-name (nstring-downcase (subseq (remove #\: str
                                                                :test #'cha=
r=3D :count 1)
                                                        3)