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

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri Jan 29 17:17:52 2010
New Revision: 12408

Log:
Fix an issue reported in September by Matthew Mondor to the ECL list (about ECL, ofcourse)
which we're also handling incorrectly: FIND-SYMBOL requires a string argument.

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 29 17:17:52 2010
@@ -3300,14 +3300,16 @@
       @Override
       public LispObject execute(LispObject arg)
       {
-        return getCurrentPackage().findSymbol(arg.getStringValue());
+        return getCurrentPackage()
+            .findSymbol(checkString(arg).getStringValue());
       }
 
       @Override
       public LispObject execute(LispObject first, LispObject second)
 
       {
-        return coerceToPackage(second).findSymbol(first.getStringValue());
+        return coerceToPackage(second)
+            .findSymbol(checkString(first).getStringValue());
       }
     };