Changeset 3323


Ignore:
Timestamp:
08/11/03 01:45:16 (18 years ago)
Author:
piso
Message:

REALP

File:
1 edited

Legend:

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

    r3322 r3323  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.318 2003-08-11 01:07:32 piso Exp $
     5 * $Id: Primitives.java,v 1.319 2003-08-11 01:45:16 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    46734673        }
    46744674    };
     4675
     4676    private static final Primitive1 REALP = new Primitive1("REALP")
     4677    {
     4678        public LispObject execute(LispObject arg)
     4679        {
     4680            return (arg.getType() & TYPE_REAL) != 0 ? T : NIL;
     4681        }
     4682    };
    46754683}
Note: See TracChangeset for help on using the changeset viewer.