Changeset 10098


Ignore:
Timestamp:
10/14/05 16:14:31 (16 years ago)
Author:
piso
Message:

getDirectoryNamestring(): #p"./"

File:
1 edited

Legend:

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

    r10096 r10098  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: Pathname.java,v 1.103 2005-10-13 16:58:55 piso Exp $
     5 * $Id: Pathname.java,v 1.104 2005-10-14 16:14:31 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    335335            LispObject temp = directory;
    336336            LispObject part = temp.car();
    337             if (part == Keyword.ABSOLUTE)
     337            temp = temp.cdr();
     338            if (part == Keyword.ABSOLUTE) {
    338339                sb.append(separatorChar);
    339             else if (part == Keyword.RELATIVE)
    340                 ;
    341             else
    342                 signal(new FileError("Unsupported directory component " + part.writeToString() + ".",
     340            } else if (part == Keyword.RELATIVE) {
     341                if (temp == NIL) {
     342                    // #p"./"
     343                    sb.append('.');
     344                    sb.append(separatorChar);
     345                } else
     346                    ; // Nothing to do.
     347            } else {
     348                signal(new FileError("Unsupported directory component " +
     349                                     part.writeToString() + ".",
    343350                                     this));
    344             temp = temp.cdr();
     351            }
    345352            while (temp != NIL) {
    346353                part = temp.car();
Note: See TracChangeset for help on using the changeset viewer.