Changeset 4276

Timestamp:

10/10/03 02:57:00 (19 years ago)

Author:

piso

Message:

Moved MEMQ to Extensions.java.

File:

• trunk/j/src/org/armedbear/lisp/Primitives.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/Primitives.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.468 2003-10-10 02:01:24 piso Exp $
+ * $Id: Primitives.java,v 1.469 2003-10-10 02:57:00 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -4215 +4215 @@
     };
 
-    // memq item list &key key test test-not => tail
-    private static final Primitive2 MEMQ = new Primitive2("memq") {
-        public LispObject execute(LispObject item, LispObject list)
-            throws ConditionThrowable
-        {
-            LispObject tail = checkList(list);
-            while (tail != NIL) {
-                if (item == tail.car())
-                    return tail;
-                tail = tail.cdr();
-            }
-            return NIL;
-        }
-    };
-
     // %member item list key test test-not => tail
     private static final Primitive _MEMBER =