Changeset 14477

Timestamp:

Dec 9, 2010, 1:12:48 PM (14 years ago)

Author:

gz

Message:

can't whitespacep a byte, duh

File:

• trunk/source/library/cover.lisp (modified) (1 diff)

trunk/source/library/cover.lisp

@@ -688 +688 @@
           (multiple-value-bind (start end) (decode-file-range (code-note-acode-range note))
             (when (and start
-                       (setq start (position-if-not #'whitespacep acode :start start :end end)))
+                       (setq start (position-if-not #'whitespacep acode :start start :end end :key #'code-char)))
               (fill styles (style-for-coverage (code-note-code-coverage note))
                     :start start