Changeset 4835


Ignore:
Timestamp:
11/19/03 14:37:17 (18 years ago)
Author:
piso
Message:

memq()

File:
1 edited

Legend:

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

    r4832 r4835  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Lisp.java,v 1.181 2003-11-19 02:40:01 piso Exp $
     5 * $Id: Lisp.java,v 1.182 2003-11-19 14:37:17 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    968968    }
    969969
     970    public static final boolean memq(LispObject item, LispObject list)
     971        throws ConditionThrowable
     972    {
     973        while (list instanceof Cons) {
     974            if (item == list.car())
     975                return true;
     976            list = list.cdr();
     977        }
     978        return false;
     979    }
     980
    970981    // Property lists.
    971982    public static final LispObject getf(LispObject plist, LispObject indicator,
Note: See TracChangeset for help on using the changeset viewer.