Changeset 4905


Ignore:
Timestamp:
11/28/03 06:00:24 (18 years ago)
Author:
piso
Message:

Removed MEMBER.

File:
1 edited

Legend:

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

    r4902 r4905  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.505 2003-11-28 05:41:53 piso Exp $
     5 * $Id: Primitives.java,v 1.506 2003-11-28 06:00:24 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7777
    7878    // Primitive2
    79     private static final int MEMBER                     = 43;
    80     private static final int RPLACA                     = 44;
    81     private static final int RPLACD                     = 45;
     79    private static final int RPLACA                     = 43;
     80    private static final int RPLACD                     = 44;
    8281
    8382    private Primitives()
     
    127126        definePrimitive1("vectorp", VECTORP);
    128127
    129         definePrimitive2("member", MEMBER);
    130128        definePrimitive2("rplaca", RPLACA);
    131129        definePrimitive2("rplacd", RPLACD);
     
    303301    {
    304302        switch (index) {
    305             case MEMBER: {                      // ### member
    306                 // member item list &key key test test-not => tail
    307                 // FIXME Support keyword arguments!
    308                 LispObject rest = checkList(second);
    309                 while (rest != NIL) {
    310                     if (first.eql(rest.car()))
    311                         return rest;
    312                     rest = rest.cdr();
    313                 }
    314                 return NIL;
    315             }
    316303            case RPLACA:                        // ### rplaca
    317304                first.setCar(second);
Note: See TracChangeset for help on using the changeset viewer.