Changeset 3504


Ignore:
Timestamp:
08/25/03 14:56:33 (19 years ago)
Author:
piso
Message:

SYS::HASHCODE-TO-STRING

File:
1 edited

Legend:

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

    r3500 r3504  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.349 2003-08-24 19:26:52 piso Exp $
     5 * $Id: Primitives.java,v 1.350 2003-08-25 14:56:33 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    47424742
    47434743    // ### streamp
    4744     private static final Primitive1 STREAMP = new Primitive1("streamp")
    4745     {
     4744    private static final Primitive1 STREAMP = new Primitive1("streamp") {
    47464745        public LispObject execute(LispObject arg)
    47474746        {
     
    47514750
    47524751    // ### realp
    4753     private static final Primitive1 REALP = new Primitive1("realp")
    4754     {
     4752    private static final Primitive1 REALP = new Primitive1("realp") {
    47554753        public LispObject execute(LispObject arg)
    47564754        {
     
    47604758
    47614759    // ### rationalp
    4762     private static final Primitive1 RATIONALP = new Primitive1("rationalp")
    4763     {
     4760    private static final Primitive1 RATIONALP = new Primitive1("rationalp") {
    47644761        public LispObject execute(LispObject arg)
    47654762        {
     
    47694766
    47704767    // ### complexp
    4771     private static final Primitive1 COMPLEXP = new Primitive1("complexp")
    4772     {
     4768    private static final Primitive1 COMPLEXP = new Primitive1("complexp") {
    47734769        public LispObject execute(LispObject arg)
    47744770        {
     
    47784774
    47794775    // ### realpart
    4780     private static final Primitive1 REALPART = new Primitive1("realpart")
    4781     {
     4776    private static final Primitive1 REALPART = new Primitive1("realpart") {
    47824777        public LispObject execute(LispObject arg) throws LispError
    47834778        {
     
    47914786
    47924787    // ### imagpart
    4793     private static final Primitive1 IMAGPART = new Primitive1("imagpart")
    4794     {
     4788    private static final Primitive1 IMAGPART = new Primitive1("imagpart") {
    47954789        public LispObject execute(LispObject arg) throws LispError
    47964790        {
     
    48004794        }
    48014795    };
     4796
     4797    // ### hashcode-to-string
     4798    private static final Primitive1 HASHCODE_TO_STRING =
     4799        new Primitive1("hashcode-to-string", PACKAGE_SYS, false) {
     4800        public LispObject execute(LispObject arg) throws LispError
     4801        {
     4802            return new LispString(Integer.toHexString(arg.hashCode()));
     4803        }
     4804    };
    48024805}
Note: See TracChangeset for help on using the changeset viewer.