Changeset 5892


Ignore:
Timestamp:
02/23/04 00:10:44 (17 years ago)
Author:
piso
Message:

LispString?.getValue(obj) => obj.getStringValue()

Location:
trunk/j/src/org/armedbear/lisp
Files:
9 edited

Legend:

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

    r5889 r5892  
    33 *
    44 * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: Autoload.java,v 1.160 2004-02-22 15:58:47 piso Exp $
     5 * $Id: Autoload.java,v 1.161 2004-02-22 23:59:38 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    158158            throws ConditionThrowable
    159159        {
    160             final String fileName = LispString.getValue(second);
     160            final String fileName = second.getStringValue();
    161161            if (first instanceof Symbol) {
    162162                Symbol symbol = (Symbol) first;
  • trunk/j/src/org/armedbear/lisp/AutoloadMacro.java

    r5114 r5892  
    22 * AutoloadMacro.java
    33 *
    4  * Copyright (C) 2003 Peter Graves
    5  * $Id: AutoloadMacro.java,v 1.8 2003-12-13 00:58:50 piso Exp $
     4 * Copyright (C) 2003-2004 Peter Graves
     5 * $Id: AutoloadMacro.java,v 1.9 2004-02-23 00:00:33 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7171            throws ConditionThrowable
    7272        {
    73             final String fileName = LispString.getValue(second);
     73            final String fileName = second.getStringValue();
    7474            if (first instanceof Symbol) {
    7575                Symbol symbol = (Symbol) first;
  • trunk/j/src/org/armedbear/lisp/CompiledFunction.java

    r5384 r5892  
    33 *
    44 * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: CompiledFunction.java,v 1.18 2004-01-05 16:32:09 piso Exp $
     5 * $Id: CompiledFunction.java,v 1.19 2004-02-23 00:02:28 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    9090                name = null;
    9191            else
    92                 name = LispString.getValue(first);
     92                name = first.getStringValue();
    9393            LispObject lambdaList = second;
    9494            LispObject body = third;
  • trunk/j/src/org/armedbear/lisp/Extensions.java

    r5534 r5892  
    33 *
    44 * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: Extensions.java,v 1.20 2004-01-24 19:15:54 piso Exp $
     5 * $Id: Extensions.java,v 1.21 2004-02-23 00:03:56 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    112112            throws ConditionThrowable
    113113        {
    114             String host = LispString.getValue(first);
     114            String host = first.getStringValue();
    115115            int port = Fixnum.getValue(second);
    116116            try {
     
    135135            throws ConditionThrowable
    136136        {
    137             String host = LispString.getValue(first);
     137            String host = first.getStringValue();
    138138            int port = Fixnum.getValue(second);
    139139            try {
  • trunk/j/src/org/armedbear/lisp/JProxy.java

    r5251 r5892  
    22 * JProxy.java
    33 *
    4  * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: JProxy.java,v 1.3 2003-12-24 16:09:29 piso Exp $
     4 * Copyright (C) 2002-2004 Peter Graves
     5 * $Id: JProxy.java,v 1.4 2004-02-23 00:05:35 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4545            Map lispDefinedMethods = new HashMap();
    4646            for (int i = 1; i < length; i = i+2)
    47                 lispDefinedMethods.put(LispString.getValue(args[i]),(Function)args[i+1]);
     47                lispDefinedMethods.put(args[i].getStringValue(),(Function)args[i+1]);
    4848            Class iface = (Class) args[0].javaInstance();
    4949            Object proxy =
  • trunk/j/src/org/armedbear/lisp/PackageFunctions.java

    r5825 r5892  
    33 *
    44 * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: PackageFunctions.java,v 1.24 2004-02-14 18:55:30 piso Exp $
     5 * $Id: PackageFunctions.java,v 1.25 2004-02-23 00:08:00 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    254254            if (args.length != 10)
    255255                return signal(new WrongNumberOfArgumentsException(this));
    256             final String packageName = LispString.getValue(args[0]);
     256            final String packageName = args[0].getStringValue();
    257257            LispObject nicknames = checkList(args[1]);
    258258            LispObject size = args[2];
     
    285285            }
    286286            while (shadows != NIL) {
    287                 String symbolName = LispString.getValue(shadows.car());
     287                String symbolName = shadows.car().getStringValue();
    288288                pkg.shadow(symbolName);
    289289                shadows = shadows.cdr();
     
    294294                LispObject symbolNames = si.cdr();
    295295                while (symbolNames != NIL) {
    296                     String symbolName = LispString.getValue(symbolNames.car());
     296                    String symbolName = symbolNames.car().getStringValue();
    297297                    Symbol sym = otherPkg.findAccessibleSymbol(symbolName);
    298298                    if (sym != null)
     
    325325                LispObject symbolNames = si.cdr();
    326326                while (symbolNames != NIL) {
    327                     String symbolName = LispString.getValue(symbolNames.car());
     327                    String symbolName = symbolNames.car().getStringValue();
    328328                    Symbol sym = otherPkg.findAccessibleSymbol(symbolName);
    329329                    if (sym != null)
     
    338338            }
    339339            while (interns != NIL) {
    340                 String symbolName = LispString.getValue(interns.car());
     340                String symbolName = interns.car().getStringValue();
    341341                pkg.intern(symbolName);
    342342                interns = interns.cdr();
     
    344344            while (exports != NIL) {
    345345                LispObject obj = exports.car();
    346                 String symbolName = LispString.getValue(exports.car());
     346                String symbolName = exports.car().getStringValue();
    347347                pkg.export(pkg.intern(symbolName));
    348348                exports = exports.cdr();
  • trunk/j/src/org/armedbear/lisp/RuntimeClass.java

    r5451 r5892  
    33 *
    44 * Copyright (C) 2004 Peter Graves
    5  * $Id: RuntimeClass.java,v 1.5 2004-01-16 02:19:59 piso Exp $
     5 * $Id: RuntimeClass.java,v 1.6 2004-02-23 00:09:13 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4343                return signal(new WrongNumberOfArgumentsException(this));
    4444      RuntimeClass rc = new RuntimeClass();
    45       String className = LispString.getValue(args[0]);
     45      String className = args[0].getStringValue();
    4646            for (int i = 1; i < length; i = i+2) {
    47                 String methodName = LispString.getValue(args[i]);
     47                String methodName = args[i].getStringValue();
    4848                rc.addLispMethod(methodName, (Function)args[i+1]);
    4949      }
     
    6262        {
    6363
    64       String cn = LispString.getValue(className);
    65       String mn = LispString.getValue(methodName);
     64      String cn = className.getStringValue();
     65      String mn = methodName.getStringValue();
    6666      Function def = (Function) methodDef;
    6767      RuntimeClass rc = null;
     
    8585        public LispObject execute(LispObject className, LispObject classBytes) throws ConditionThrowable
    8686        {
    87             String cn = LispString.getValue(className);
    88       byte[] cb = (byte[])classBytes.javaInstance();
     87            String cn = className.getStringValue();
     88      byte[] cb = (byte[]) classBytes.javaInstance();
    8989            try {
    9090                JavaClassLoader loader = JavaClassLoader.getPersistentInstance();
  • trunk/j/src/org/armedbear/lisp/ShellCommand.java

    r5651 r5892  
    33 *
    44 * Copyright (C) 2000-2004 Peter Graves
    5  * $Id: ShellCommand.java,v 1.1 2004-02-01 20:40:07 piso Exp $
     5 * $Id: ShellCommand.java,v 1.2 2004-02-23 00:09:55 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    225225            if (args.length != 3)
    226226                signal(new WrongNumberOfArgumentsException(this));
    227             String command = LispString.getValue(args[0]);
     227            String command = args[0].getStringValue();
    228228            LispObject directory = args[1];
    229229            LispObject output = args[2];
  • trunk/j/src/org/armedbear/lisp/StringInputStream.java

    r5621 r5892  
    33 *
    44 * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: StringInputStream.java,v 1.13 2004-01-31 13:43:09 piso Exp $
     5 * $Id: StringInputStream.java,v 1.14 2004-02-23 00:10:44 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    122122        public LispObject execute(LispObject arg) throws ConditionThrowable
    123123        {
    124             return new StringInputStream(LispString.getValue(arg));
     124            return new StringInputStream(arg.getStringValue());
    125125        }
    126126        public LispObject execute(LispObject first, LispObject second)
    127127            throws ConditionThrowable
    128128        {
    129             String s = LispString.getValue(first);
     129            String s = first.getStringValue();
    130130            int start = Fixnum.getValue(second);
    131131            return new StringInputStream(s.substring(start));
     
    135135            throws ConditionThrowable
    136136        {
    137             String s = LispString.getValue(first);
     137            String s = first.getStringValue();
    138138            int start = Fixnum.getValue(second);
    139139            if (third == NIL)
Note: See TracChangeset for help on using the changeset viewer.