Changeset 3760


Ignore:
Timestamp:
09/14/03 15:11:43 (19 years ago)
Author:
piso
Message:

NUMBERP

File:
1 edited

Legend:

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

    r3756 r3760  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.390 2003-09-14 13:06:26 piso Exp $
     5 * $Id: Primitives.java,v 1.391 2003-09-14 15:11:43 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    298298                return arg.ODDP();
    299299            case NUMBERP:                       // ### numberp
    300                 return (arg.getType() & TYPE_NUMBER) != 0 ? T : NIL;
     300                return arg.NUMBERP();
    301301            case LENGTH:                        // ### length
    302302                return arg.LENGTH();
Note: See TracChangeset for help on using the changeset viewer.