Changeset 11387

Timestamp:

Nov 18, 2008, 3:45:37 PM (12 years ago)

Author:

gz

Message:

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

File:

• trunk/source/compiler/lambda-list.lisp (modified) (1 diff)

trunk/source/compiler/lambda-list.lisp

@@ -57 +57 @@
                (pc-end (aref pc-source-map (%i+ q 1))))
           (declare (fixnum pc-start pc-end))
-          (when (and (<= pc-start pc pc-end)
+          (when (and (<= pc-start pc)
+                     (< pc pc-end)
                      (or (eql best-guess -1)
                          (< (%i- pc-end pc-start) best-length)))