Changeset 4528


Ignore:
Timestamp:
10/24/03 20:30:57 (18 years ago)
Author:
piso
Message:

SYS::HASHCODE-TO-STRING: use System.identityHashCode().

File:
1 edited

Legend:

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

    r4511 r4528  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.481 2003-10-23 12:54:55 piso Exp $
     5 * $Id: Primitives.java,v 1.482 2003-10-24 20:30:57 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    45374537    // ### hashcode-to-string
    45384538    private static final Primitive1 HASHCODE_TO_STRING =
    4539         new Primitive1("hashcode-to-string", PACKAGE_SYS, false) {
    4540         public LispObject execute(LispObject arg) throws ConditionThrowable
    4541         {
    4542             return new LispString(Integer.toHexString(arg.hashCode()));
     4539        new Primitive1("hashcode-to-string", PACKAGE_SYS, false)
     4540    {
     4541        public LispObject execute(LispObject arg) throws ConditionThrowable
     4542        {
     4543            return new LispString(Integer.toHexString(System.identityHashCode(arg)));
    45434544        }
    45444545    };
Note: See TracChangeset for help on using the changeset viewer.