Changeset 13024


Ignore:
Timestamp:
Oct 15, 2009, 3:59:05 PM (10 years ago)
Author:
palter
Message:

Fix fencepost error

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/objc-bridge/objc-runtime.lisp

    r13023 r13024  
    25552555         (str (symbol-name name))
    25562556         (value-placeholder-index (position #\: str)))
    2557     (when (and (> (length str) 3) value-placeholder-index)
     2557    (when (and (> (length str) 4) value-placeholder-index)
    25582558      (let* ((truncated-name (nstring-downcase (subseq (remove #\: str
    25592559                                                               :test #'char= :count 1)
Note: See TracChangeset for help on using the changeset viewer.