Changeset 10076


Ignore:
Timestamp:
10/04/05 16:16:37 (16 years ago)
Author:
piso
Message:

SYS:LOGICAL-PATHNAME-P

File:
1 edited

Legend:

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

    r10075 r10076  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: Pathname.java,v 1.99 2005-10-04 15:35:18 piso Exp $
     5 * $Id: Pathname.java,v 1.100 2005-10-04 16:16:37 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    913913    };
    914914
     915    // ### logical-pathname-p
     916    private static final Primitive LOGICAL_PATHNAME_P =
     917        new Primitive("logical-pathname-p", PACKAGE_SYS, true, "object")
     918    {
     919        public LispObject execute(LispObject arg) throws ConditionThrowable
     920        {
     921            return arg instanceof Pathname ? T : NIL;
     922        }
     923    };
     924
    915925    // ### user-homedir-pathname &optional host => pathname
    916926    private static final Primitive USER_HOMEDIR_PATHNAME =
Note: See TracChangeset for help on using the changeset viewer.