Changeset 8613


Ignore:
Timestamp:
02/20/05 14:43:09 (16 years ago)
Author:
piso
Message:

CHECK-REDEFINITION, RECORD-SOURCE-INFORMATION: consider *COMPILE-FILE-TRUENAME* too.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/fdefinition.lisp

    r8560 r8613  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: fdefinition.lisp,v 1.3 2005-02-13 04:17:42 piso Exp $
     4;;; $Id: fdefinition.lisp,v 1.4 2005-02-20 14:43:09 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2323  (when (and *warn-on-redefinition* (fboundp name) (not (autoloadp name)))
    2424    (cond ((symbolp name)
    25            (let ((old-definition (symbol-function name))
    26                  (old-source (source-pathname name))
    27                  (current-source (or *fasl-source* *load-truename* :top-level)))
     25           (let ((old-source (source-pathname name))
     26                 (current-source (or *fasl-source*
     27                                     *load-truename*
     28                                     *compile-file-truename*
     29                                     :top-level)))
    2830             (unless (equal old-source current-source)
    2931               (if (eq current-source :top-level)
     
    3436(defun record-source-information (name &optional source-pathname source-position)
    3537  (unless source-pathname
    36     (setf source-pathname (or *fasl-source* *load-truename* :top-level)))
     38    (setf source-pathname (or *fasl-source*
     39                              *load-truename*
     40                              *compile-file-truename*
     41                              :top-level)))
    3742  (let ((source (if source-position
    3843                    (cons source-pathname source-position)
Note: See TracChangeset for help on using the changeset viewer.