Changeset 8937


Ignore:
Timestamp:
Mar 30, 2008, 12:29:51 AM (11 years ago)
Author:
gz
Message:

only verify interned function names

File:
1 edited

Legend:

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

    r8661 r8937  
    154154  (push fn refs)
    155155  (cons (let ((name (function-name fn)))
    156           (and (symbolp name) name))
     156          (and (symbolp name)
     157               (symbol-package name)
     158               name))
    157159        (lfunloop for imm in fn
    158160                  when (code-note-p imm)
Note: See TracChangeset for help on using the changeset viewer.