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

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Sat Mar  9 05:02:30 2013
New Revision: 14428

Log:
Fix return value of add-package-local-nickname

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

Modified: trunk/abcl/src/org/armedbear/lisp/Package.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Package.java	Fri Mar  8 06:53:47 2013	(r14427)
+++ trunk/abcl/src/org/armedbear/lisp/Package.java	Sat Mar  9 05:02:30 2013	(r14428)
@@ -792,11 +792,11 @@
                                    + pack.getName()));
       } else {
         // nothing to do
-        return pack;
+        return this;
       }
     } else {
       localNicknames.put(name, pack);
-      return pack;
+      return this;
     }
   }