Changeset 4921


Ignore:
Timestamp:
11/30/03 05:54:08 (18 years ago)
Author:
piso
Message:

SXHASH

File:
1 edited

Legend:

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

    r4791 r4921  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: HashTable.java,v 1.24 2003-11-16 18:33:25 piso Exp $
     5 * $Id: HashTable.java,v 1.25 2003-11-30 05:54:08 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    383383    // ### sxhash
    384384    // sxhash object => hash-code
    385     private static final Primitive1 SXHASH = new Primitive1("sxhash") {
    386         public LispObject execute(LispObject arg) throws ConditionThrowable
    387         {
    388             return new Fixnum(arg.hashCode());
     385    private static final Primitive1 SXHASH = new Primitive1("sxhash")
     386    {
     387        public LispObject execute(LispObject arg)
     388        {
     389            return arg.sxhash();
    389390        }
    390391    };
Note: See TracChangeset for help on using the changeset viewer.