Changeset 11124


Ignore:
Timestamp:
01/20/07 15:13:27 (14 years ago)
Author:
piso
Message:

THREAD-P

File:
1 edited

Legend:

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

    r11058 r11124  
    22 * LispThread.java
    33 *
    4  * Copyright (C) 2003-2006 Peter Graves
    5  * $Id: LispThread.java,v 1.89 2006-05-03 16:14:34 piso Exp $
     4 * Copyright (C) 2003-2007 Peter Graves
     5 * $Id: LispThread.java,v 1.90 2007-01-20 15:13:27 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    10151015    };
    10161016
     1017    // ### thread-p
     1018    private static final Primitive THREAD_P =
     1019        new Primitive("thread-p", PACKAGE_EXT, true, "object")
     1020    {
     1021        public LispObject execute(LispObject arg) throws ConditionThrowable
     1022        {
     1023            return arg instanceof LispThread ? T : NIL;
     1024        }
     1025    };
     1026
    10171027    // ### thread-alive-p
    10181028    private static final Primitive THREAD_ALIVE_P =
Note: See TracChangeset for help on using the changeset viewer.