Changeset 4871


Ignore:
Timestamp:
11/22/03 18:58:08 (18 years ago)
Author:
piso
Message:

NEQ

File:
1 edited

Legend:

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

    r4766 r4871  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Extensions.java,v 1.16 2003-11-15 15:26:36 piso Exp $
     5 * $Id: Extensions.java,v 1.17 2003-11-22 18:58:08 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2626public final class Extensions extends Lisp
    2727{
     28    // ### neq
     29    private static final Primitive2 NEQ = new Primitive2("neq")
     30    {
     31        public LispObject execute(LispObject first, LispObject second)
     32            throws ConditionThrowable
     33        {
     34            return first != second ? T : NIL;
     35        }
     36    };
     37
    2838    // memq item list => tail
    2939    private static final Primitive2 MEMQ =
Note: See TracChangeset for help on using the changeset viewer.