Changeset 9950


Ignore:
Timestamp:
Jul 10, 2008, 9:06:27 AM (11 years ago)
Author:
gb
Message:

Define *RECORD-SOURCE-FILE-LOSES*, which controls whether or not
RECORD-SOURCE-FILE forgets existing source file info when called
with NULL source-note.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/source-files.lisp

    r9769 r9950  
    128128
    129129;;;; ** Storing definitions for a name
     130(defvar *record-source-file-loses* t "Obviously, this is shorthand for whether RECORD-SOURCE-FILE loses track of existing definition locations.")
    130131
    131132(defun real-record-source-file (name definition-type-name &optional (toplevel-source-note *loading-toplevel-location*))
     
    148149      (setf (definition-source definition-type name) source-note)
    149150      (list definition-type-name (effective-name definition-type name) source-note))
    150     (remove-definition-source definition-type-name name)))
     151    (when *record-source-file-loses*
     152      (remove-definition-source definition-type-name name))))
    151153
    152154;;;; * Framework for definig definition-types
Note: See TracChangeset for help on using the changeset viewer.