Changeset 8524


Ignore:
Timestamp:
02/10/05 12:55:51 (16 years ago)
Author:
piso
Message:

SOURCE-PATHNAME

File:
1 edited

Legend:

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

    r8087 r8524  
    22 * Extensions.java
    33 *
    4  * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: Extensions.java,v 1.33 2004-11-03 15:38:52 piso Exp $
     4 * Copyright (C) 2002-2005 Peter Graves
     5 * $Id: Extensions.java,v 1.34 2005-02-10 12:55:51 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    134134
    135135    // ### source-pathname
    136     private static final Primitive SOURCE_PATHNAME =
     136    public static final Primitive SOURCE_PATHNAME =
    137137        new Primitive("source-pathname", PACKAGE_EXT, true)
    138138    {
     
    142142            if (obj instanceof Cons)
    143143                return obj.car();
    144             if (obj instanceof Pathname)
    145                 return obj;
    146             return NIL;
     144            return obj;
    147145        }
    148146    };
Note: See TracChangeset for help on using the changeset viewer.