Changeset 4672


Ignore:
Timestamp:
11/07/03 19:52:10 (18 years ago)
Author:
piso
Message:

get(), put(), remprop(): the test should be EQ (not EQL).

File:
1 edited

Legend:

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

    r4637 r4672  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Lisp.java,v 1.172 2003-11-04 01:41:21 piso Exp $
     5 * $Id: Lisp.java,v 1.173 2003-11-07 19:52:10 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    982982        LispObject list = symbol.getPropertyList();
    983983        while (list != NIL) {
    984             LispObject obj = list.car();
    985             if (obj.eql(indicator))
     984            if (list.car() == indicator)
    986985                return list.cadr();
    987986            list = list.cddr();
     
    996995        LispObject list = symbol.getPropertyList();
    997996        while (list != NIL) {
    998             LispObject obj = list.car();
    999             if (obj.eql(indicator))
     997            if (list.car() == indicator)
    1000998                return list.cadr();
    1001999            list = list.cddr();
     
    10101008        LispObject list = symbol.getPropertyList();
    10111009        while (list != NIL) {
    1012             if (list.car().eql(indicator)) {
     1010            if (list.car() == indicator) {
    10131011                // Found it!
    10141012                LispObject rest = list.cdr();
     
    10341032                throw new ConditionThrowable(new ProgramError(String.valueOf(symbol) +
    10351033                                                              " has an odd number of items in its property list"));
    1036             if (list.car().eql(indicator)) {
     1034            if (list.car() == indicator) {
    10371035                // Found it!
    1038                 if (prev != null) {
     1036                if (prev != null)
    10391037                    prev.setCdr(list.cddr());
    1040                 } else {
     1038                else
    10411039                    symbol.setPropertyList(list.cddr());
    1042                 }
    10431040                return T;
    10441041            }
Note: See TracChangeset for help on using the changeset viewer.