Changeset 4276
- Timestamp:
- 10/10/03 02:57:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Primitives.java
r4275 r4276 3 3 * 4 4 * Copyright (C) 2002-2003 Peter Graves 5 * $Id: Primitives.java,v 1.46 8 2003-10-10 02:01:24piso Exp $5 * $Id: Primitives.java,v 1.469 2003-10-10 02:57:00 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 4215 4215 }; 4216 4216 4217 // memq item list &key key test test-not => tail4218 private static final Primitive2 MEMQ = new Primitive2("memq") {4219 public LispObject execute(LispObject item, LispObject list)4220 throws ConditionThrowable4221 {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 4232 4217 // %member item list key test test-not => tail 4233 4218 private static final Primitive _MEMBER =
Note: See TracChangeset
for help on using the changeset viewer.