Changeset 4276


Ignore:
Timestamp:
10/10/03 02:57:00 (19 years ago)
Author:
piso
Message:

Moved MEMQ to Extensions.java.

File:
1 edited

Legend:

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

    r4275 r4276  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.468 2003-10-10 02:01:24 piso Exp $
     5 * $Id: Primitives.java,v 1.469 2003-10-10 02:57:00 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    42154215    };
    42164216
    4217     // memq item list &key key test test-not => tail
    4218     private static final Primitive2 MEMQ = new Primitive2("memq") {
    4219         public LispObject execute(LispObject item, LispObject list)
    4220             throws ConditionThrowable
    4221         {
    4222             LispObject tail = checkList(list);
    4223             while (tail != NIL) {
    4224                 if (item == tail.car())
    4225                     return tail;
    4226                 tail = tail.cdr();
    4227             }
    4228             return NIL;
    4229         }
    4230     };
    4231 
    42324217    // %member item list key test test-not => tail
    42334218    private static final Primitive _MEMBER =
Note: See TracChangeset for help on using the changeset viewer.