Changeset 4235


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

%LOG-DEBUG, GET-LAST-EVENT-INTERNAL-TIME

File:
1 edited

Legend:

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

    r3906 r4235  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: LispAPI.java,v 1.26 2003-09-19 17:42:09 piso Exp $
     5 * $Id: LispAPI.java,v 1.27 2003-10-07 00:36:23 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    751751
    752752    private static final Primitive0 BEGIN_COMPOUND_EDIT =
    753         new Primitive0("begin-compound-edit", PACKAGE_J, false) {
     753        new Primitive0("begin-compound-edit", PACKAGE_J, false)
     754    {
    754755        public LispObject execute()
    755756        {
     
    759760
    760761    private static final Primitive1 END_COMPOUND_EDIT =
    761         new Primitive1("end-compound-edit", PACKAGE_J, false) {
     762        new Primitive1("end-compound-edit", PACKAGE_J, false)
     763    {
    762764        public LispObject execute(LispObject arg) throws ConditionThrowable
    763765        {
     
    774776    };
    775777
     778    // ### %log-debug
     779    private static final Primitive1 _LOG_DEBUG =
     780        new Primitive1("%log-debug", PACKAGE_J, false)
     781    {
     782        public LispObject execute(LispObject arg) throws ConditionThrowable
     783        {
     784            Log.debug(LispString.getValue(arg));
     785            return arg;
     786        }
     787    };
     788
     789    // ### get-last-event-time
     790    private static final Primitive0 GET_LAST_EVENT_INTERNAL_TIME =
     791        new Primitive0("get-last-event-internal-time", PACKAGE_J, true)
     792    {
     793        public LispObject execute() throws ConditionThrowable
     794        {
     795            return number(Dispatcher.getLastEventMillis());
     796        }
     797    };
     798
    776799    public static void invokeOpenFileHook(Buffer buffer)
    777800    {
Note: See TracChangeset for help on using the changeset viewer.