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

[mevenson at common-lisp.net]

Author: mevenson
Date: Tue Feb 26 06:53:59 2013
New Revision: 14403

Log:
No longer warn on spurious redefinitions.

Fixes #282.

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	Tue Feb 26 06:53:57 2013	(r14402)
+++ trunk/abcl/src/org/armedbear/lisp/fdefinition.lisp	Tue Feb 26 06:53:59 2013	(r14403)
@@ -36,9 +36,14 @@
 (defun check-redefinition (name)
   (when (and *warn-on-redefinition* (fboundp name) (not (autoloadp name)))
     (cond ((symbolp name)
-           (let ((old-source (source-pathname name))
-                 (current-source (or *source* :top-level)))
-             (cond ((equal old-source current-source)) ; OK
+           (let ((old-source 
+                  (truename (source-pathname name)))
+                 (current-source 
+                  (if (not *source*) 
+                      :top-level
+                      (truename *source*))))
+             (cond ((equal old-source 
+                           current-source)) ; OK
                    (t
                     (if (eq current-source :top-level)
                         (style-warn "redefining ~S at top level" name)