Changeset 5828


Ignore:
Timestamp:
02/14/04 19:53:01 (17 years ago)
Author:
piso
Message:

%WRITE-STRING: use getStringValue().

File:
1 edited

Legend:

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

    r5816 r5828  
    33 *
    44 * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: Primitives.java,v 1.567 2004-02-14 00:23:26 piso Exp $
     5 * $Id: Primitives.java,v 1.568 2004-02-14 19:53:01 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    32653265            if (args.length != 4)
    32663266                signal(new WrongNumberOfArgumentsException(this));
    3267             String s;
    3268             try {
    3269                 s = ((LispString)args[0]).getValue();
    3270             }
    3271             catch (ClassCastException e) {
    3272                 if (args[0] instanceof NilVector) {
    3273                     if (args[0].length() == 0)
    3274                         return args[0];
    3275                     return ((NilVector)args[0]).accessError();
    3276                 }
    3277                 return signal(new TypeError(args[0], Symbol.STRING));
    3278             }
     3267            String s = args[0].getStringValue();
    32793268            Stream out = outSynonymOf(args[1]);
    32803269            int start = Fixnum.getValue(args[2]);
Note: See TracChangeset for help on using the changeset viewer.