Changeset 12408


Ignore:
Timestamp:
01/29/10 22:17:52 (12 years ago)
Author:
ehuelsmann
Message:

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.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/Primitives.java

    r12324 r12408  
    33013301      public LispObject execute(LispObject arg)
    33023302      {
    3303         return getCurrentPackage().findSymbol(arg.getStringValue());
    3304       }
    3305 
    3306       @Override
    3307       public LispObject execute(LispObject first, LispObject second)
    3308 
    3309       {
    3310         return coerceToPackage(second).findSymbol(first.getStringValue());
     3303        return getCurrentPackage()
     3304            .findSymbol(checkString(arg).getStringValue());
     3305      }
     3306
     3307      @Override
     3308      public LispObject execute(LispObject first, LispObject second)
     3309
     3310      {
     3311        return coerceToPackage(second)
     3312            .findSymbol(checkString(first).getStringValue());
    33113313      }
    33123314    };
Note: See TracChangeset for help on using the changeset viewer.