Changeset 4235

Timestamp:

10/07/03 00:36:23 (19 years ago)

Author:

piso

Message:

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

File:

• trunk/j/src/org/armedbear/j/LispAPI.java (modified) (4 diffs)

trunk/j/src/org/armedbear/j/LispAPI.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: LispAPI.java,v 1.26 2003-09-19 17:42:09 piso Exp $
+ * $Id: LispAPI.java,v 1.27 2003-10-07 00:36:23 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -751 +751 @@
 
     private static final Primitive0 BEGIN_COMPOUND_EDIT =
-        new Primitive0("begin-compound-edit", PACKAGE_J, false) {
+        new Primitive0("begin-compound-edit", PACKAGE_J, false)
+    {
         public LispObject execute()
         {
@@ -759 +760 @@
 
     private static final Primitive1 END_COMPOUND_EDIT =
-        new Primitive1("end-compound-edit", PACKAGE_J, false) {
+        new Primitive1("end-compound-edit", PACKAGE_J, false)
+    {
         public LispObject execute(LispObject arg) throws ConditionThrowable
         {
@@ -774 +776 @@
     };
 
+    // ### %log-debug
+    private static final Primitive1 _LOG_DEBUG =
+        new Primitive1("%log-debug", PACKAGE_J, false)
+    {
+        public LispObject execute(LispObject arg) throws ConditionThrowable
+        {
+            Log.debug(LispString.getValue(arg));
+            return arg;
+        }
+    };
+
+    // ### get-last-event-time
+    private static final Primitive0 GET_LAST_EVENT_INTERNAL_TIME =
+        new Primitive0("get-last-event-internal-time", PACKAGE_J, true)
+    {
+        public LispObject execute() throws ConditionThrowable
+        {
+            return number(Dispatcher.getLastEventMillis());
+        }
+    };
+
     public static void invokeOpenFileHook(Buffer buffer)
     {