Changeset 5304


Ignore:
Timestamp:
01/01/04 01:58:41 (18 years ago)
Author:
piso
Message:

HASH-TABLE-TEST

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r5303 r5304  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Autoload.java,v 1.116 2004-01-01 01:40:56 piso Exp $
     5 * $Id: Autoload.java,v 1.117 2004-01-01 01:58:41 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    235235        autoload("hash-table-count", "HashTable");
    236236        autoload("hash-table-p", "HashTable");
     237        autoload("hash-table-test", "HashTable");
    237238        autoload("import", "PackageFunctions");
    238239        autoload("last", "last");
  • trunk/j/src/org/armedbear/lisp/HashTable.java

    r5112 r5304  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: HashTable.java,v 1.28 2003-12-13 00:02:47 piso Exp $
     5 * $Id: HashTable.java,v 1.29 2004-01-01 01:58:22 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    402402            if (arg instanceof HashTable)
    403403                return ((HashTable)arg).ENTRIES();
    404             return signal(new TypeError(arg, "hash-table"));
     404            return signal(new TypeError(arg, Symbol.HASH_TABLE));
     405        }
     406    };
     407
     408    private static final Primitive1 HASH_TABLE_TEST =
     409        new Primitive1("hash-table-test", "hash-table")
     410    {
     411        public LispObject execute(LispObject arg) throws ConditionThrowable
     412        {
     413            if (arg instanceof HashTable) {
     414                switch (((HashTable)arg).test) {
     415                    case TEST_EQ:
     416                        return Symbol.EQ;
     417                    case TEST_EQL:
     418                        return Symbol.EQL;
     419                    case TEST_EQUAL:
     420                        return Symbol.EQUAL;
     421                    case TEST_EQUALP:
     422                        return Symbol.EQUALP;
     423                    default:
     424                        Debug.assertTrue(false);
     425                        return NIL;
     426                }
     427            }
     428            return signal(new TypeError(arg, Symbol.HASH_TABLE));
    405429        }
    406430    };
Note: See TracChangeset for help on using the changeset viewer.