Changeset 9965


Ignore:
Timestamp:
09/13/05 00:09:24 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r9964 r9965  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: Pathname.java,v 1.86 2005-09-12 23:30:03 piso Exp $
     5 * $Id: Pathname.java,v 1.87 2005-09-13 00:09:24 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    255255        if (directory instanceof AbstractString)
    256256            Debug.assertTrue(false);
    257         if (!validateDirectory(directory, false))
    258             return null;
    259257        FastStringBuffer sb = new FastStringBuffer();
    260258        if (host != NIL) {
     
    294292    protected String getDirectoryNamestring() throws ConditionThrowable
    295293    {
     294        validateDirectory(true);
    296295        FastStringBuffer sb = new FastStringBuffer();
    297296        // "If a pathname is converted to a namestring, the symbols NIL and
     
    782781    }
    783782
    784     private static final boolean validateDirectory(LispObject obj,
    785                                                    boolean signalError)
     783    private final boolean validateDirectory(boolean signalError)
    786784        throws ConditionThrowable
    787785    {
    788         LispObject temp = obj;
     786        LispObject temp = directory;
    789787        while (temp != NIL) {
    790788            LispObject first = temp.car();
     
    799797                        sb.append(second.writeToString());
    800798                        sb.append('.');
    801                         signal(new FileError(sb.toString()));
     799                        signal(new FileError(sb.toString(), this));
    802800                    }
    803801                    return false;
Note: See TracChangeset for help on using the changeset viewer.