Changeset 4965


Ignore:
Timestamp:
Aug 20, 2006, 4:00:26 PM (18 years ago)
Author:
Gary Byers
Message:

Fencepost in POINTER-IN-CFSTRING-SECTION-P.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/examples/objc-runtime.lisp

    r4791 r4965  
    366366    (let* ((addr (%ptr-to-int ptr))
    367367           (min 0)
    368            (max (length cfstring-sections-vector)))
     368           (max (1- (length cfstring-sections-vector))))
    369369      (do* ()
    370370           ((> min max))
Note: See TracChangeset for help on using the changeset viewer.