[armedbear-cvs] r14451 - trunk/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Wed Mar 27 07:35:18 2013
New Revision: 14451

Log:
Loosen check for issuing redfinition from TRUENAME to PROBE-FILENAME.

Under no condition should we be promoting what should be a warning to
an error if the truename fails.  In any event, the function
redefinition check still has corner cases, for example when used with
JAR-PATHNAME, that need to be (eventually) nailed down.

Modified:
   trunk/abcl/src/org/armedbear/lisp/fdefinition.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/fdefinition.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/fdefinition.lisp	Wed Mar 27 07:35:16 2013	(r14450)
+++ trunk/abcl/src/org/armedbear/lisp/fdefinition.lisp	Wed Mar 27 07:35:18 2013	(r14451)
@@ -37,14 +37,16 @@
   (when (and *warn-on-redefinition* (fboundp name) (not (autoloadp name)))
     (when (and (symbolp name)
                (source-pathname name))
+      ;; SOURCE-PATHNAME is badly named as it is either a PATHNAMAE
+      ;; or the symbol :TOP-LEVEL
       (let ((old-source 
              (if (keywordp (source-pathname name))
                  (source-pathname name)
-                 (truename (source-pathname name))))
+                 (probe-file (source-pathname name))))
             (current-source 
              (if (not *source*) 
                  :top-level
-                 (truename *source*))))
+                 (probe-file *source*))))
         (cond ((equal old-source 
                       current-source)) ; OK
               (t