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

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri Jan  1 14:42:33 2010
New Revision: 12324

Log:
In case a redefinition warning shouldn't be issued
  if the function slot is tied to an Autoload object,
  neither should it in case of AutoloadedFunctionProxy.

Modified:
   trunk/abcl/src/org/armedbear/lisp/Primitives.java

Modified: trunk/abcl/src/org/armedbear/lisp/Primitives.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Primitives.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Primitives.java	Fri Jan  1 14:42:33 2010
@@ -1624,7 +1624,9 @@
         if (arg instanceof Symbol)
           {
             LispObject oldDefinition = arg.getSymbolFunction();
-            if (oldDefinition != null && !(oldDefinition instanceof Autoload))
+            if (oldDefinition != null
+                && !(oldDefinition instanceof Autoload)
+                && !(oldDefinition instanceof AutoloadedFunctionProxy))
               {
                 LispObject oldSource =
                   Extensions.SOURCE_PATHNAME.execute(arg);