Changeset 5222


Ignore:
Timestamp:
12/20/03 15:05:37 (18 years ago)
Author:
piso
Message:

memq()

File:
1 edited

Legend:

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

    r5221 r5222  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Lisp.java,v 1.191 2003-12-20 14:29:05 piso Exp $
     5 * $Id: Lisp.java,v 1.192 2003-12-20 15:05:37 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    10501050    }
    10511051
    1052     public static final boolean memq(LispObject item, LispObject list)
    1053         throws ConditionThrowable
    1054     {
     1052    public static final boolean memq(LispObject item, LispObject listArg)
     1053        throws ConditionThrowable
     1054    {
     1055        LispObject list = listArg;
    10551056        while (list instanceof Cons) {
    10561057            if (item == list.car())
     
    10581059            list = list.cdr();
    10591060        }
     1061        if (list != NIL)
     1062            signal(new TypeError(String.valueOf(listArg) + " is not a proper list."));
    10601063        return false;
    10611064    }
Note: See TracChangeset for help on using the changeset viewer.