Changeset 4249


Ignore:
Timestamp:
10/07/03 17:23:21 (19 years ago)
Author:
piso
Message:

GET-INTERNAL-RUN-TIME

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

Legend:

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

    r4177 r4249  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Autoload.java,v 1.82 2003-10-02 17:14:30 piso Exp $
     5 * $Id: Autoload.java,v 1.83 2003-10-07 17:23:21 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    193193        autoload("find-class", "LispClass");
    194194        autoload("get-internal-real-time", "Time");
     195        autoload("get-internal-run-time", "Time");
    195196        autoload("get-output-stream-string", "StringOutputStream");
    196197        autoload("get-universal-time", "Time");
  • trunk/j/src/org/armedbear/lisp/Time.java

    r4144 r4249  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Time.java,v 1.9 2003-09-30 10:58:48 piso Exp $
     5 * $Id: Time.java,v 1.10 2003-10-07 17:22:54 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5555    };
    5656
     57    // ### get-internal-real-time
    5758    private static final Primitive0 GET_INTERNAL_REAL_TIME =
    5859        new Primitive0("get-internal-real-time") {
     
    6061        {
    6162            return number(System.currentTimeMillis());
     63        }
     64    };
     65
     66    // ### get-internal-run-time
     67    private static final Primitive0 GET_INTERNAL_RUN_TIME =
     68        new Primitive0("get-internal-run-time") {
     69        public LispObject execute() throws ConditionThrowable
     70        {
     71            return number(System.currentTimeMillis()); // FIXME
    6272        }
    6373    };
Note: See TracChangeset for help on using the changeset viewer.