Changeset 4235
- Timestamp:
- 10/07/03 00:36:23 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/j/LispAPI.java
r3906 r4235 3 3 * 4 4 * Copyright (C) 2003 Peter Graves 5 * $Id: LispAPI.java,v 1.2 6 2003-09-19 17:42:09piso Exp $5 * $Id: LispAPI.java,v 1.27 2003-10-07 00:36:23 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 751 751 752 752 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 { 754 755 public LispObject execute() 755 756 { … … 759 760 760 761 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 { 762 764 public LispObject execute(LispObject arg) throws ConditionThrowable 763 765 { … … 774 776 }; 775 777 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 776 799 public static void invokeOpenFileHook(Buffer buffer) 777 800 {
Note: See TracChangeset
for help on using the changeset viewer.