Changeset 10001


Ignore:
Timestamp:
Jul 11, 2008, 12:21:46 AM (11 years ago)
Author:
gz
Message:

Compute fn name same way when restoring as when saving coverage

File:
1 edited

Legend:

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

    r9736 r10001  
    151151               (function (map-function-coverage data #'reset))))))
    152152
     153;; Name used for consistency checking across file save/restore
     154(defun function-covered-name (fn)
     155  (let ((name (function-name fn)))
     156    (and (symbolp name)
     157         (symbol-package name)
     158         name)))
     159 
     160
    153161(defun save-function-coverage (fn &optional (refs ()))
    154162  (push fn refs)
    155   (cons (let ((name (function-name fn)))
    156           (and (symbolp name)
    157                (symbol-package name)
    158                name))
     163  (cons (function-covered-name fn)
    159164        (lfunloop for imm in fn
    160165                  when (code-note-p imm)
     
    196201                                    (let* ((name (car saved-data))
    197202                                           (saved-imms (cdr saved-data)))
    198                                       (unless (equalp name
    199                                                       (let ((name (function-name fn)))
    200                                                         (and (symbolp name) name)))
     203                                      (unless (equalp name (function-covered-name fn))
    201204                                        (mismatched "had ~s now have ~s" name (function-name fn)))
    202205                                      (lfunloop for imm in fn
Note: See TracChangeset for help on using the changeset viewer.