Changeset 14477


Ignore:
Timestamp:
Dec 9, 2010, 9:12:48 PM (8 years ago)
Author:
gz
Message:

can't whitespacep a byte, duh

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/library/cover.lisp

    r14299 r14477  
    688688          (multiple-value-bind (start end) (decode-file-range (code-note-acode-range note))
    689689            (when (and start
    690                        (setq start (position-if-not #'whitespacep acode :start start :end end)))
     690                       (setq start (position-if-not #'whitespacep acode :start start :end end :key #'code-char)))
    691691              (fill styles (style-for-coverage (code-note-code-coverage note))
    692692                    :start start
Note: See TracChangeset for help on using the changeset viewer.