Changeset 10848


Ignore:
Timestamp:
Sep 22, 2008, 11:29:31 PM (11 years ago)
Author:
gz
Message:

Unquote filenames before html'izing them

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/library/cover.lisp

    r10578 r10848  
    1 ;;; Code coverage reporting facility, based on the SBCL's
    2 ;;; sb-cover written by Juho Snellman, and placed under public domain.
    3 ;;; Port to ccl by gz@clozure.com
     1;;; Code coverage reporting facility, originally based on SBCL's sb-cover
     2;;; package written by Juho Snellman, and placed under public domain.
     3;;;
     4;;; ccl version by gz@clozure.com
    45
    56(in-package :ccl)
     
    442443      do (when file
    443444           (let* ((src-name (enough-namestring file coverage-dir))
    444                   (html-name (substitute #\_ #\: (substitute #\_ #\. (substitute #\_ #\/ src-name)))))
     445                  (html-name (substitute
     446                              #\_ #\: (substitute
     447                                       #\_ #\. (substitute
     448                                                #\_ #\/ (namestring-unquote src-name))))))
    445449             (when html
    446450               (with-open-file (stream (make-pathname :name html-name :type "html" :defaults directory)
     
    630634  (let ((*print-case* :downcase))
    631635    (format html-stream "<h3><a href=~s>Coverage report</a>: ~a <br />~%</h3>~%"
    632             (file-namestring index-file)
     636            (native-translated-namestring (file-namestring index-file))
    633637            (file-coverage-file coverage))
    634638    (format html-stream "<table class='summary'>")
Note: See TracChangeset for help on using the changeset viewer.