Changeset 8658


Ignore:
Timestamp:
Mar 4, 2008, 5:05:24 PM (12 years ago)
Author:
gz
Message:

Comment out an overzealous assertion

File:
1 edited

Legend:

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

    r8646 r8658  
    6666    (declare (dynamic-extent refs))
    6767    (when entry
     68      ;; This can occur legitimately when the same source is used multiple times,
     69      ;; as when 'body' contains local fn defs in something like:
     70      ;; (defmacro define-twice (defn) (defun fn-1 ,@defn) (defun fn-2 ,@defn))
     71      #+never-mind
    6872      (when (and (gethash entry *entry-code-notes*)
    6973                 (neq fn (gethash entry *entry-code-notes*)))
Note: See TracChangeset for help on using the changeset viewer.