Changeset 10275


Ignore:
Timestamp:
10/29/05 18:45:58 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r10207 r10275  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Load.java,v 1.124 2005-10-23 17:46:16 piso Exp $
     5 * $Id: Load.java,v 1.125 2005-10-29 18:45:58 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    286286                    }
    287287                    catch (FaslVersionMismatch e) {
    288                         StringBuffer sb =
    289                             new StringBuffer("; Incorrect fasl version: ");
     288                        FastStringBuffer sb =
     289                            new FastStringBuffer("; Incorrect fasl version: ");
    290290                        sb.append(truename);
    291291                        System.err.println(sb.toString());
     
    387387                out._writeLine(" ...");
    388388                out._finishOutput();
    389                 LispObject result = loadStream(in, print);
     389                LispObject result = loadStream(in, print, thread);
    390390                long elapsed = System.currentTimeMillis() - start;
    391391                out.freshLine();
     
    399399                return result;
    400400            } else
    401                 return loadStream(in, print);
     401                return loadStream(in, print, thread);
    402402        }
    403403        finally {
     
    408408    public static String getLoadVerbosePrefix(int loadDepth)
    409409    {
    410         StringBuffer sb = new StringBuffer(";");
     410        FastStringBuffer sb = new FastStringBuffer(";");
    411411        for (int i = loadDepth - 1; i-- > 0;)
    412412            sb.append(' ');
     
    414414    }
    415415
    416     private static final LispObject loadStream(Stream in, boolean print)
    417         throws ConditionThrowable
    418     {
    419         final LispThread thread = LispThread.currentThread();
     416    private static final LispObject loadStream(Stream in, boolean print,
     417                                               LispThread thread)
     418        throws ConditionThrowable
     419    {
    420420        SpecialBinding lastSpecialBinding = thread.lastSpecialBinding;
    421421        thread.bindSpecial(_LOAD_STREAM_, in);
Note: See TracChangeset for help on using the changeset viewer.