Changeset 11387


Ignore:
Timestamp:
Nov 18, 2008, 3:45:37 PM (11 years ago)
Author:
gz
Message:

fencepost in find-source-note-at-pc per gb

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/lambda-list.lisp

    r11373 r11387  
    5757               (pc-end (aref pc-source-map (%i+ q 1))))
    5858          (declare (fixnum pc-start pc-end))
    59           (when (and (<= pc-start pc pc-end)
     59          (when (and (<= pc-start pc)
     60                     (< pc pc-end)
    6061                     (or (eql best-guess -1)
    6162                         (< (%i- pc-end pc-start) best-length)))
Note: See TracChangeset for help on using the changeset viewer.